unsigned vs. signed to avoid warnings
authorClaus Gittinger <cg@exept.de>
Tue, 22 Jul 1997 14:41:48 +0200
changeset 2764 2a69c1c354a2
parent 2763 cea404472e7c
child 2765 a56668774ad7
unsigned vs. signed to avoid warnings
ExtStream.st
ExternalStream.st
--- a/ExtStream.st	Tue Jul 22 14:38:14 1997 +0200
+++ b/ExtStream.st	Tue Jul 22 14:41:48 1997 +0200
@@ -2910,7 +2910,7 @@
     unsigned char c, lastC, peekC;
     int ret;
     unsigned char *bufferPtr = (unsigned char *)0;
-    char fastBuffer[7000];
+    unsigned char fastBuffer[7000];
     REGISTER int index;
     int currSize, fastFlag, _buffered;
     int atBeginOfLine = 1, inPrimitive = 0;
@@ -3478,6 +3478,9 @@
 
     if ((fp = __INST(filePointer)) != nil) {
         f = __FILEVal(fp);
+#ifdef alpha64
+	printf("f is %lx\n", f);
+#endif
 
         if (__INST(buffered) == false) {
             if (__INST(readAhead) != nil) {
@@ -3952,6 +3955,6 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.132 1997-06-07 08:04:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.133 1997-07-22 12:41:48 cg Exp $'
 ! !
 ExternalStream initialize!
--- a/ExternalStream.st	Tue Jul 22 14:38:14 1997 +0200
+++ b/ExternalStream.st	Tue Jul 22 14:41:48 1997 +0200
@@ -2910,7 +2910,7 @@
     unsigned char c, lastC, peekC;
     int ret;
     unsigned char *bufferPtr = (unsigned char *)0;
-    char fastBuffer[7000];
+    unsigned char fastBuffer[7000];
     REGISTER int index;
     int currSize, fastFlag, _buffered;
     int atBeginOfLine = 1, inPrimitive = 0;
@@ -3478,6 +3478,9 @@
 
     if ((fp = __INST(filePointer)) != nil) {
         f = __FILEVal(fp);
+#ifdef alpha64
+	printf("f is %lx\n", f);
+#endif
 
         if (__INST(buffered) == false) {
             if (__INST(readAhead) != nil) {
@@ -3952,6 +3955,6 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.132 1997-06-07 08:04:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.133 1997-07-22 12:41:48 cg Exp $'
 ! !
 ExternalStream initialize!