diff options
Diffstat (limited to 'src/vhdl/vhdl-errors.adb')
| -rw-r--r-- | src/vhdl/vhdl-errors.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-errors.adb b/src/vhdl/vhdl-errors.adb index 7912fd157..541415cd7 100644 --- a/src/vhdl/vhdl-errors.adb +++ b/src/vhdl/vhdl-errors.adb @@ -880,6 +880,9 @@ package body Vhdl.Errors is is Decl : Iir; begin + if Is_Error (Def) then + return "an erroneous type"; + end if; Decl := Get_Type_Declarator (Def); if Decl /= Null_Iir then return Image_Identifier (Decl); |