add __STORE(...)
authorca
Thu, 04 Mar 2004 12:42:14 +0100
changeset 8063 1aeaf6e5e012
parent 8062 4a229fcbc220
child 8064 081bff3d87a4
add __STORE(...)
FileStream.st
--- a/FileStream.st	Thu Mar 04 10:36:59 2004 +0100
+++ b/FileStream.st	Thu Mar 04 12:42:14 2004 +0100
@@ -1194,7 +1194,7 @@
             }
             if (f != NULL) {
                 wasBlocked = __BLOCKINTERRUPTS();
-                __INST(filePointer) = __MKOBJ((INT)f); 
+                __INST(filePointer) = fp = __MKOBJ((INT)f); __STORE(self, fp);
             }
             __INST(position) = @global(PositionableStream:ZeroPosition);
         }
@@ -1420,7 +1420,7 @@
 !FileStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.106 2004-03-02 16:28:24 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.107 2004-03-04 11:42:14 ca Exp $'
 ! !
 
 FileStream initialize!