*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Tue, 24 Nov 1998 18:04:36 +0100
changeset 3936 dd8cd28d4a9b
parent 3935 1ab1b3f72222
child 3937 38a48ab7eac7
*** empty log message ***
UIBytes.st
UninterpretedBytes.st
--- a/UIBytes.st	Mon Nov 16 10:18:56 1998 +0100
+++ b/UIBytes.st	Tue Nov 24 18:04:36 1998 +0100
@@ -150,6 +150,9 @@
 
 %{  /* NOCONTEXT */
 
+#ifdef __MSBFIRST
+    RETURN (true);
+#else
     /*
      * I dont like ifdefs - you always forget some ...
      * therefore we look into a structure at run-time.
@@ -168,6 +171,7 @@
     u.u_l = 0x87654321;
     if (u.u_c[0] == 0x21) RETURN (false);
     RETURN (true);
+#endif
 %}
     "
      UninterpretedBytes isBigEndian
@@ -1954,6 +1958,6 @@
 !UninterpretedBytes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/UIBytes.st,v 1.30 1998-05-18 12:20:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/UIBytes.st,v 1.31 1998-11-24 17:04:36 cg Exp $'
 ! !
 UninterpretedBytes initialize!
--- a/UninterpretedBytes.st	Mon Nov 16 10:18:56 1998 +0100
+++ b/UninterpretedBytes.st	Tue Nov 24 18:04:36 1998 +0100
@@ -150,6 +150,9 @@
 
 %{  /* NOCONTEXT */
 
+#ifdef __MSBFIRST
+    RETURN (true);
+#else
     /*
      * I dont like ifdefs - you always forget some ...
      * therefore we look into a structure at run-time.
@@ -168,6 +171,7 @@
     u.u_l = 0x87654321;
     if (u.u_c[0] == 0x21) RETURN (false);
     RETURN (true);
+#endif
 %}
     "
      UninterpretedBytes isBigEndian
@@ -1954,6 +1958,6 @@
 !UninterpretedBytes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UninterpretedBytes.st,v 1.30 1998-05-18 12:20:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UninterpretedBytes.st,v 1.31 1998-11-24 17:04:36 cg Exp $'
 ! !
 UninterpretedBytes initialize!