*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Tue, 13 Apr 1999 19:26:12 +0200
changeset 4093 1821420b41d4
parent 4092 fee552eb3418
child 4094 447886c743b6
*** empty log message ***
ExtStream.st
ExternalStream.st
--- a/ExtStream.st	Tue Apr 13 17:59:35 1999 +0200
+++ b/ExtStream.st	Tue Apr 13 19:26:12 1999 +0200
@@ -56,7 +56,7 @@
 # define SEEK_END 2
 #endif
 
-#ifdef __VMS__
+#if defined(__VMS__) || defined(sparc)
 # define CLEAR_ERRNO            errno = 0;
 #else
 # define CLEAR_ERRNO            /* nothing */
@@ -4716,6 +4716,6 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.186 1999-04-13 15:59:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.187 1999-04-13 17:26:12 cg Exp $'
 ! !
 ExternalStream initialize!
--- a/ExternalStream.st	Tue Apr 13 17:59:35 1999 +0200
+++ b/ExternalStream.st	Tue Apr 13 19:26:12 1999 +0200
@@ -56,7 +56,7 @@
 # define SEEK_END 2
 #endif
 
-#ifdef __VMS__
+#if defined(__VMS__) || defined(sparc)
 # define CLEAR_ERRNO            errno = 0;
 #else
 # define CLEAR_ERRNO            /* nothing */
@@ -4716,6 +4716,6 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.186 1999-04-13 15:59:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.187 1999-04-13 17:26:12 cg Exp $'
 ! !
 ExternalStream initialize!