Browse Source

Issue internal error in def type is errordef

Pierre Muller 1 năm trước cách đây
mục cha
commit
4c330f2799
1 tập tin đã thay đổi với 2 bổ sung0 xóa
  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);