Pārlūkot izejas kodu

Issue internal error in def type is errordef

Pierre Muller 1 gadu atpakaļ
vecāks
revīzija
4c330f2799
1 mainītis faili ar 2 papildinājumiem un 0 dzēšanām
  1. 2 0
      compiler/symtype.pas

+ 2 - 0
compiler/symtype.pas

@@ -924,6 +924,8 @@ implementation
                { same as above }
                if tdef(s).defid=defid_registered_nost then
                  Internalerror(2015102501);
+               if tdef(s).typ=errordef then
+                 Internalerror(2024011501);
                if not tdef(s).registered then
                  tdef(s).register_def;
                st:=FindUnitSymtable(tdef(s).owner);