From b8b1012e9ab0d75df5b95ba9422a1f3c2502f1dd Mon Sep 17 00:00:00 2001 From: norayr Date: Tue, 10 Nov 2015 19:52:51 +0400 Subject: [PATCH] fixed error reported by pdewacht: with -l option voc hung if error was at the last line, and no eol followed. ; -- noch Former-commit-id: fff1337578f9dcb35231701e6952ebfc4b45f9ad --- src/voc/OPM.cmdln.Mod | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/src/voc/OPM.cmdln.Mod b/src/voc/OPM.cmdln.Mod index 3f995c90..7492755e 100644 --- a/src/voc/OPM.cmdln.Mod +++ b/src/voc/OPM.cmdln.Mod @@ -437,15 +437,15 @@ MODULE OPM; (* RC 6.3.89 / 28.6.89, J.Templ 10.7.89 / 22.7.96 *) i := 0; j := 0; REPEAT IF (ORD(ch) > 31) OR (ORD(ch) = 9) THEN - IF ORD(ch)=9 THEN ch := " " END; - line[i] := ch; INC(i); line[i+1] := 0X; - ELSE - IF ch = 0AX THEN INC(j); i := 0 END - END; + IF ORD(ch)=9 THEN ch := " " END; + line[i] := ch; INC(i); line[i+1] := 0X; + ELSE + IF ch = 0AX THEN INC(j); i := 0 END + END; (* Console.Ln; Console.String("-- line["); Console.Int(i-1, 0); Console.String("] = "); Console.Char(ch); Console.Ln; *) - Files.Read(r, ch); + Files.Read(r, ch); (* Console.String("-- i "); Console.Int(i, 0); Console.Ln; @@ -453,7 +453,7 @@ MODULE OPM; (* RC 6.3.89 / 28.6.89, J.Templ 10.7.89 / 22.7.96 *) Console.Char(ch); Console.Ln; *) - UNTIL (j >= linenum) OR (i >= 1022); + UNTIL (j >= linenum) OR (i >= 1022) OR r.eof; Console.Ln; Console.String(" "); Console.String(line); Console.Ln;