Float.st
changeset 8901 824a89d0b5c7
parent 8635 38674ba49a14
child 8913 b9498d27a554
--- a/Float.st	Wed Jul 06 13:54:12 2005 +0200
+++ b/Float.st	Thu Jul 07 17:01:53 2005 +0200
@@ -337,7 +337,7 @@
 	float           f;
     } r;
 
-#ifdef i386 /* actually: LSBFIRST */
+#ifdef __LSBFIRST__
     r.b[3] = __intVal( b2 );
     r.b[2] = __intVal( b1 );
     r.b[1] = __intVal( b4 );
@@ -474,7 +474,7 @@
      few selected architectures."
 
 %{  /* NOCONTEXT */
-#if defined(LINUX) && defined(i386)
+#if defined(LINUX) && defined(__i386__)
 # ifdef NAN
     RETURN (__MKFLOAT(NAN));
 # else
@@ -1835,7 +1835,7 @@
     "many systems have two float.Pnt zeros"
 
 %{
-#if defined(i386) && defined(linux)
+#if defined(__i386__) && defined(LINUX)
     unsigned int biasedExponent;
 
     biasedExponent = ((short *)(__ByteArrayInstPtr(self)->ba_element))[3] & 0xFF70;
@@ -2583,7 +2583,7 @@
 !Float class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.155 2004-11-12 12:22:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.156 2005-07-07 15:01:52 cg Exp $'
 ! !
 
 Float initialize!