changes for borland
authorClaus Gittinger <cg@exept.de>
Mon, 30 Jun 2014 17:04:48 +0200
changeset 16667 a659a8f95304
parent 16666 c343b9e62a1a
child 16668 b88318df967d
changes for borland
Float.st
--- a/Float.st	Mon Jun 30 16:48:37 2014 +0200
+++ b/Float.st	Mon Jun 30 17:04:48 2014 +0200
@@ -1405,7 +1405,11 @@
      */
 
 #ifndef INT64
-# define INT64 long long int
+# ifdef HAS_LONGLONG
+#  define INT64 long long int
+# else
+# define INT64 __int64
+# endif
 #endif
     INT64 ulpDiff;
     union {
@@ -1444,7 +1448,7 @@
     }
 
     // if the signs differ, the numbers are different
-    if (signbit(myself.d) != signbit(otherFloat.d)) {
+    if ((myself.d >= 0) != (otherFloat.d >= 0)) {
         RETURN(false);
     }
 
@@ -3016,11 +3020,11 @@
 !Float class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.200 2014-06-30 14:19:53 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.201 2014-06-30 15:04:48 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.200 2014-06-30 14:19:53 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.201 2014-06-30 15:04:48 cg Exp $'
 ! !