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
d0ac75ea66
commit
072e795aa3
@ -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…
x
Reference in New Issue
Block a user