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;
|
RETURN;
|
||||||
END;
|
END;
|
||||||
IF s^.mode = reading THEN
|
IF s^.mode = reading THEN
|
||||||
position := position + LONG(s^.maxcnt - s^.cnt + 1);
|
position := position - LONG(s^.maxcnt - s^.cnt + 1);
|
||||||
END;
|
END;
|
||||||
END GetPosition;
|
END GetPosition;
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue