Browse Source

Issue internal error in def type is errordef

Pierre Muller 1 year ago
parent
commit
4c330f2799
1 changed files with 2 additions and 0 deletions
  1. 2 0
      compiler/symtype.pas

+ 2 - 0
compiler/symtype.pas

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