Procházet zdrojové kódy

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

dtrg před 13 roky
rodič
revize
a8ecb11013
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  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;