Преглед на файлове

* Avoid access violation. Use internal error instead

Michaël Van Canneyt преди 3 месеца
родител
ревизия
bbecb015c9
променени са 1 файла, в които са добавени 3 реда и са изтрити 2 реда
  1. 3 2
      compiler/ptype.pas

+ 3 - 2
compiler/ptype.pas

@@ -1840,8 +1840,9 @@ implementation
                     and get the member owner instead of just created enumdef }
                   if not assigned(aktenumdef) then
                     begin
-                      searchsym(pattern,sym,st);
-                      if sym.typ=enumsym then
+                      if not searchsym(pattern,sym,st) then
+                        internalerror(202504121)
+                      else if sym.typ=enumsym then
                         aktenumdef:=tenumsym(sym).definition
                       else
                         internalerror(201101021);