Fixed very old bug where Streams.GetStreamPosition would return the wrong position --- thanks to Jan Verhoeven for finding this.
This commit is contained in:
parent
085f346f8c
commit
a8ecb11013
|
@ -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;
|
||||
|
||||
|
|
Loading…
Reference in a new issue