vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 08:42:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

reported by pdewacht: if eol is 0DX only, then voc wasn't able to handle

Browse source 
this correctly http://paste.lisp.org/display/158971#1

this is base62 encoded test module http://paste.lisp.org/display/158971

fixed.; -- noch


Former-commit-id: ebd0d78ce2
This commit is contained in:
norayr 2015-11-10 22:18:35 +04:00
parent b8b1012e9a
commit edad955821
1 changed files with 10 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/voc/OPM.cmdln.Mod
View file

@ -439,14 +439,21 @@ MODULE OPM; (* RC 6.3.89 / 28.6.89, J.Templ 10.7.89 / 22.7.96 *)
IF (ORD(ch) > 31) OR (ORD(ch) = 9) THEN IF (ORD(ch) > 31) OR (ORD(ch) = 9) THEN
IF ORD(ch)=9 THEN ch := " " END; IF ORD(ch)=9 THEN ch := " " END;
line[i] := ch; INC(i); line[i+1] := 0X; line[i] := ch; INC(i); line[i+1] := 0X;
Files.Read(r, ch);
ELSE ELSE
IF ch = 0AX THEN INC(j); i := 0 END IF (ch = 0AX) OR (ch = 0DX) THEN
Files.Read(r, ch);
IF (ch = 0AX) OR (ch = 0DX) THEN
Files.Read(r, ch);
ELSE
INC(j); i := 0
END
END
END; END;
(* (*
Console.Ln; Console.String("-- line["); Console.Int(i-1, 0); Console.String("] = "); Console.Char(ch); Console.Ln; Console.Ln; Console.String("-- line["); Console.Int(i-1, 0); Console.String("] = "); Console.Char(ch); Console.Ln;
*) *)
Files.Read(r, ch); (*
(*
Console.String("-- i "); Console.Int(i, 0); Console.Ln; Console.String("-- i "); Console.Int(i, 0); Console.Ln;
Console.String("--j "); Console.Int(j, 0); Console.Ln; Console.String("--j "); Console.Int(j, 0); Console.Ln;