Socket.st
changeset 964 a11c607f1a3e
parent 962 ab54bea0b102
child 968 c73180e4ab6a
--- a/Socket.st	Fri Feb 16 21:26:50 2001 +0100
+++ b/Socket.st	Wed Mar 07 12:07:48 2001 +0100
@@ -1787,21 +1787,11 @@
 !
 
 networkLongOrderIsMSB
-    "return true, if the network-byte-order of longs is MSB.
+    "return true, if the network-byte-order of longs is MSB (which it is).
      To be used as in:
-	'aStream nextPutLong:someValue MSB:(Socket networkLongOrderIsMSB)'."
-
-%{  /* NOCONTEXT */
-#ifndef NO_SOCKET
-    /*
-     * mhmh - do c-compilers optimize this away ?
-     */
-    if (htonl(0x76543210) == 0x76543210) {
-	RETURN (true);
-    }
-#endif
-%}.
-    ^ false
+        'aStream nextPutLong:someValue MSB:(Socket networkLongOrderIsMSB)'."
+
+    ^ true
 
     "
      Socket networkLongOrderIsMSB
@@ -4960,5 +4950,5 @@
 !Socket class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.152 2001-02-16 15:30:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.153 2001-03-07 11:07:48 ca Exp $'
 ! !