diff options
Diffstat (limited to 'src/vhdl')
| -rw-r--r-- | src/vhdl/errorout.adb | 4 | ||||
| -rw-r--r-- | src/vhdl/sem_names.adb | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/src/vhdl/errorout.adb b/src/vhdl/errorout.adb index 442aeb0..7982a9d 100644 --- a/src/vhdl/errorout.adb +++ b/src/vhdl/errorout.adb @@ -894,6 +894,10 @@ package body Errorout is begin if Decl = Null_Iir then Decl := Get_Type_Declarator (Get_Base_Type (Def)); + if Decl = Null_Iir then + Append (Res, "*unknown*"); + return; + end if; end if; Image (Get_Identifier (Decl)); Append (Res, Nam_Buffer (1 .. Nam_Length)); diff --git a/src/vhdl/sem_names.adb b/src/vhdl/sem_names.adb index fca9f4f..748ebf3 100644 --- a/src/vhdl/sem_names.adb +++ b/src/vhdl/sem_names.adb @@ -2577,7 +2577,7 @@ package body Sem_Names is Error_Kind ("sem_selected_by_all_name", Prefix); end case; if Res = Null_Iir then - Error_Msg_Sem ("prefix is not an access", Name); + Error_Msg_Sem ("prefix type is not an access type", Name); Res := Error_Mark; end if; Set_Named_Entity (Name, Res); |