paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 07:47:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

Issue internal error in def type is errordef

Browse Source
This commit is contained in:
Pierre Muller 2024-01-12 16:55:54 +01:00
parent af3ebf1464
commit 4c330f2799
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/symtype.pas
View File

@ -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);