===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/engine/real.c,v
retrieving revision 1.6
retrieving revision 1.11
diff -u -p -r1.6 -r1.11
--- OpenXM_contrib2/asir2000/engine/real.c	2000/12/05 01:24:52	1.6
+++ OpenXM_contrib2/asir2000/engine/real.c	2016/06/29 08:16:11	1.11
@@ -45,7 +45,7 @@
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  *
- * $OpenXM: OpenXM_contrib2/asir2000/engine/real.c,v 1.5 2000/11/15 02:16:30 noro Exp $ 
+ * $OpenXM: OpenXM_contrib2/asir2000/engine/real.c,v 1.10 2015/08/14 13:51:55 fujimoto Exp $ 
 */
 #include "ca.h"
 #include "base.h"
@@ -54,24 +54,27 @@
 double RatnToReal(a)
 Q a;
 {
-	double nm,dn,t,man;
+	double nm,dn,man;
 	int enm,edn,e;
-	unsigned int *p,s;
 
 	nm = NatToReal(NM(a),&enm);
 	if ( INT(a) )
-		if ( enm >= 1 )
+		if ( enm >= 1 ) {
 			error("RatnToReal : Overflow");
-		else
+			/* NOTREACHED */
+			return 0;
+		} else
 			return SGN(a)>0 ? nm : -nm;
 	else {
 		dn = NatToReal(DN(a),&edn);
 		man = nm/dn;
 		if ( SGN(a) < 0 )
 			man = -man;
-		if ( ((e = enm - edn) >= 1024) || (e <= -1023) )
+		if ( ((e = enm - edn) >= 1024) || (e <= -1023) ) {
 			error("RatnToReal : Overflow"); /* XXX */
-		else if ( !e )
+			/* NOTREACHED */
+			return 0;
+		} else if ( !e )
 			return man;
 		else
 			return man*pow(2,e);
@@ -108,7 +111,7 @@ int *expo;
 #ifdef vax
 	t = m[0]; m[0] = m[1]; m[1] = t; itod(m);
 #endif
-#if defined(__i386__) || defined(MIPSEL) || defined(VISUAL) || defined(__alpha) || defined(__FreeBSD__) || defined(__NetBSD__)
+#if defined(__i386__) || defined(MIPSEL) || defined(VISUAL) || defined(__MINGW32__) || defined(__alpha) || defined(__FreeBSD__) || defined(__NetBSD__) || defined(__x86_64) || defined(__ARM_ARCH) || defined(ANDROID)
 	t = m[0]; m[0] = m[1]; m[1] = t;
 #endif
 	return *((double *)m);