Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2025-03-06 06:29:57 +00:00
Code Issues Projects Releases Wiki Activity

Allow invalid escape sequences and UCN-like sequences in skipped code.

Browse Source 
The standard wording is not always clear on these cases, but I think at least some of them should be allowed and others may be undefined behavior (which we can choose to allow). At any rate, this allows non-standard escape sequences targeted at other compilers to appear in skipped-over code.

There probably ought to be similar handling for #defines that are never expanded, but that would require more code changes.
This commit is contained in:
Stephen Heumann 2021-09-06 20:37:17 -05:00
parent 438942692a
commit 9c04b94093
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
Scanner.pas
View File

@ -3654,7 +3654,8 @@ while digits > 0 do begin
digits := digits - 1;
end {while}
else begin
Error(145);
if not skipping then
Error(145);
codePoint := $0000C0;
digits := 0;
end; {else}
@ -4263,7 +4264,8 @@ var
NextCh;
end; {while}
if (val & $FF00) <> 0 then
Error(162);
if not skipping then
Error(162);
EscapeCh := val & $FF;
skipChar := false;
end;
@ -4290,7 +4292,8 @@ var
end; {else}
val := (val << 4) | dig;
if (val & $FF00) <> 0 then begin
Error(162);
if not skipping then
Error(162);
val := 0;
end; {if}
NextCh;
@ -4306,14 +4309,16 @@ var
EscapeCh := chFromUCN
else begin
EscapeCh := 0;
Error(146);
if not skipping then
Error(146);
end; {else}
end;
'''','"','?','\': EscapeCh := ord(ch);
otherwise: Error(57);
end {case}
else begin
Error(162);
if not skipping then
Error(162);
EscapeCh := ord(ch);
end; {else}
end {if}