Fixed very old bug where Streams.GetStreamPosition would return the wrong position --- thanks to Jan Verhoeven for finding this.

This commit is contained in:
dtrg 2010-09-01 19:55:15 +00:00
parent 085f346f8c
commit a8ecb11013

View file

@ -340,7 +340,7 @@ IMPLEMENTATION MODULE Streams;
RETURN;
END;
IF s^.mode = reading THEN
position := position + LONG(s^.maxcnt - s^.cnt + 1);
position := position - LONG(s^.maxcnt - s^.cnt + 1);
END;
END GetPosition;