git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7344 8c9fc860-2736-0410-a75d-ab315db34111
@@ -28,8 +28,8 @@ TYPE
VAR
in: Streams.Reader;
tracer: Streams.Writer;
- receive: Streams.Receiver;
pos0: LONGINT;
+ tracedPos: LONGINT;
PROCEDURE ^ & Init(in: Streams.Reader; tracer: Streams.Writer);
PROCEDURE ^ Receiver(VAR buf: ARRAY OF CHAR; ofs, size, min: LONGINT; VAR len, res: LONGINT);