# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1404140688 -7200
# Node ID a659a8f953046d8406db89d13014e990246d77ac
# Parent  c343b9e62a1a189e6f76304f6d6efa0fdd1808c9
changes for borland

diff -r c343b9e62a1a -r a659a8f95304 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 $'
 ! !