Avoid dereferencing nil.

2022-11-28 21:44:30 -06:00 · 2022-11-28 21:44:30 -06:00 · 50e3a8ea30
parent bde70e0885
commit 50e3a8ea30
1 changed files with 1 additions and 1 deletions
--- a/Parser.pas
+++ b/Parser.pas
@ -2618,7 +2618,7 @@ var
                        ip := ip^.next;
                  if ip = nil then
                     Error(81);
-                  if ip^.anonMemberField then begin
+                  if (ip <> nil) and ip^.anonMemberField then begin
                     PutBackToken(token, false, true);
                     token.kind := dotch;
                     token.class := reservedSymbol;