From 4c330f2799c68105aeacaeb442365ad6f8da8da6 Mon Sep 17 00:00:00 2001 From: Pierre Muller Date: Fri, 12 Jan 2024 16:55:54 +0100 Subject: [PATCH] Issue internal error in def type is errordef --- compiler/symtype.pas | 2 ++ 1 file changed, 2 insertions(+) diff --git a/compiler/symtype.pas b/compiler/symtype.pas index 762167e2c8..9ce82f3bfe 100644 --- a/compiler/symtype.pas +++ b/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);