ExternalStream.st
changeset 8901 824a89d0b5c7
parent 8881 53e94478133f
child 8913 b9498d27a554
--- a/ExternalStream.st	Wed Jul 06 13:54:12 2005 +0200
+++ b/ExternalStream.st	Thu Jul 07 17:01:53 2005 +0200
@@ -59,7 +59,7 @@
 # define SEEK_END 2
 #endif
 
-#if defined(__VMS__) || defined(sparc) || defined(WIN32)
+#if defined(__VMS__) || defined(__sparc__) || defined(WIN32)
 # define CLEAR_ERRNO            __threadErrno = 0;
 #else
 # define CLEAR_ERRNO            /* nothing */
@@ -87,7 +87,7 @@
 
 #endif
 
-# ifdef i386
+# ifdef __i386__
 #  define _X86_
 # endif
 
@@ -3444,7 +3444,7 @@
 		__INST(position) = nil; /* i.e. do not know */
 	    }
 	    if (msbFlag == true) {
-#if defined(__MSBFIRST)
+#if defined(__MSBFIRST__)
 		value = u.intVal;
 #else
 		value = (u.buffer[0] & 0xFF);
@@ -3453,7 +3453,7 @@
 		value = (value << 8) | (u.buffer[3] & 0xFF);
 #endif
 	    } else {
-#if defined(__LSBFIRST)
+#if defined(__LSBFIRST__)
 		value = u.intVal;
 #else
 		value = (u.buffer[3] & 0xFF);
@@ -3462,7 +3462,7 @@
 		value = (value << 8) | (u.buffer[0] & 0xFF);
 #endif
 	    }
-#ifdef alpha64
+#if __POINTER_SIZE__ == 8
 	    RETURN ( __MKSMALLINT(value));
 #else
 	    if ((value >= _MIN_INT) && (value <= _MAX_INT)) {
@@ -3525,13 +3525,13 @@
 		__INST(position) = nil; /* i.e. do not know */
 	    }
 	    if (msbFlag == true) {
-#if defined(__MSBFIRST)
+#if defined(__MSBFIRST__)
 		value = u.shortVal;
 #else
 		value = ((u.buffer[0] & 0xFF) << 8) | (u.buffer[1] & 0xFF);
 #endif
 	    } else {
-#if defined(__LSBFIRST)
+#if defined(__LSBFIRST__)
 		value = u.shortVal;
 #else
 		value = ((u.buffer[1] & 0xFF) << 8) | (u.buffer[0] & 0xFF);
@@ -3594,7 +3594,7 @@
 		__INST(position) = nil; /* i.e. do not know */
 	    }
 	    if (msbFlag == true) {
-#if defined(__MSBFIRST)
+#if defined(__MSBFIRST__)
 		value = u.intVal;
 #else
 		value = u.buffer[0];
@@ -3603,7 +3603,7 @@
 		value = (value << 8) | u.buffer[3];
 #endif
 	    } else {
-#if defined(__LSBFIRST)
+#if defined(__LSBFIRST__)
 		value = u.intVal;
 #else
 		value = u.buffer[3];
@@ -3612,7 +3612,7 @@
 		value = (value << 8) | u.buffer[0];
 #endif
 	    }
-#ifdef alpha64
+#if __POINTER_SIZE__ == 8
 	    value &= 0xFFFFFFFF;
 	    RETURN (__MKSMALLINT(value));
 #else
@@ -3676,13 +3676,13 @@
 		__INST(position) = nil; /* i.e. do not know */
 	    }
 	    if (msbFlag == true) {
-#if defined(__MSBFIRST)
+#if defined(__MSBFIRST__)
 		value = u.shortVal;
 #else
 		value = (u.buffer[0] << 8) | u.buffer[1];
 #endif
 	    } else {
-#if defined(__LSBFIRST)
+#if defined(__LSBFIRST__)
 		value = u.shortVal;
 #else
 		value = (u.buffer[1] << 8) | u.buffer[0];
@@ -3893,7 +3893,7 @@
     if (__isSmallInteger(aNumber)) {
 	num = __intVal(aNumber);
     } else {
-#ifdef alpha64
+#if __POINTER_SIZE__ == 8
 	goto badArg;
 #else
 	num = __longIntVal(aNumber);
@@ -3913,7 +3913,7 @@
      && (__INST(mode) != @symbol(readonly))
     ) {
 	if (msbFlag == true) {
-#if defined(__MSBFIRST)
+#if defined(__MSBFIRST__)
 	    u.intVal = num;
 #else
 	    u.bytes[0] = (num >> 24) & 0xFF;
@@ -3922,7 +3922,7 @@
 	    u.bytes[3] = num & 0xFF;
 #endif
 	} else {
-#if defined(__LSBFIRST)
+#if defined(__LSBFIRST__)
 	    u.intVal = num;
 #else
 	    u.bytes[3] = (num >> 24) & 0xFF;
@@ -3988,14 +3988,14 @@
     ) {
 	num = __intVal(aNumber);
 	if (msbFlag == true) {
-#if defined(__MSBFIRST)
+#if defined(__MSBFIRST__)
 	    u.shortVal = num;
 #else
 	    u.bytes[0] = (num >> 8) & 0xFF;
 	    u.bytes[1] = num & 0xFF;
 #endif
 	} else {
-#if defined(__LSBFIRST)
+#if defined(__LSBFIRST__)
 	    u.shortVal = num;
 #else
 	    u.bytes[1] = (num >> 8) & 0xFF;
@@ -5937,7 +5937,7 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.290 2005-05-31 18:48:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.291 2005-07-07 15:01:51 cg Exp $'
 ! !
 
 ExternalStream initialize!