synchronized with Streams;

replaced HUGEINT position with TSize

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7995 8c9fc860-2736-0410-a75d-ab315db34111

source/Streams64.Mod

@@ -59,7 +59,10 @@ TYPE
 		PROCEDURE & InitWriter*( send: Sender;  size: LONGINT );
 		BEGIN
 			ASSERT ( send # NIL );
-			NEW( buf, size );  SELF.send := send;  Reset
+			IF (buf = NIL) OR (LEN(buf) # size) THEN
+				NEW( buf, size );
+			END;
+			SELF.send := send;  Reset
 		END InitWriter;
 
 		PROCEDURE Reset*;
@@ -72,7 +75,7 @@ TYPE
 			RETURN FALSE
 		END CanSetPos;
 
-		PROCEDURE SetPos*( pos: HUGEINT );
+		PROCEDURE SetPos*( pos: TSize );
 		BEGIN
 			HALT( 1234 )
 		END SetPos;