Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2025-01-04 02:30:40 +00:00
Code Issues Projects Releases Wiki Activity

Avoid dereferencing nil.

Browse Source
This commit is contained in:
Stephen Heumann 2022-11-28 21:44:30 -06:00
parent bde70e0885
commit 50e3a8ea30
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Parser.pas
View File

@ -2618,7 +2618,7 @@ var
ip := ip^.next; ip := ip^.next;
if ip = nil then if ip = nil then
Error(81); Error(81);
if ip^.anonMemberField then begin if (ip <> nil) and ip^.anonMemberField then begin
PutBackToken(token, false, true); PutBackToken(token, false, true);
token.kind := dotch; token.kind := dotch;
token.class := reservedSymbol; token.class := reservedSymbol;