slederer/Tridora-CPU
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 3 Wiki Activity Actions

Bugfix skip-line directive with Unix line endings

Browse source
This commit is contained in:
slederer 2025-03-30 23:31:58 +02:00
parent 21a45b06cf
commit bb602043d2
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
pcomp/pcomp.pas
View file

@ -2186,7 +2186,7 @@ begin
if ch = '!' then if ch = '!' then
(* special comment till end of line *) (* special comment till end of line *)
begin begin
while not (nextChar = #13) do (* nothing *); while not (nextChar in [#13, #10]) do (* nothing *);
readNextToken; readNextToken;
end end
else else