Преглед изворни кода

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

dtrg пре 13 година
родитељ
комит
072e795aa3
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      lang/m2/libm2/Streams.mod

+ 1 - 1
lang/m2/libm2/Streams.mod

@@ -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;