diff options
author | Tristan Gingold <tgingold@free.fr> | 2015-08-29 22:17:05 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2015-08-29 22:17:05 +0200 |
commit | 9ee4eb7cae2660b648105eb00486e561002ae1a7 (patch) | |
tree | a697677c052443a0b57289576903316b24989721 /src/vhdl | |
parent | 2f497103dc5dd45f738f38a8a803ee8dd495d6d3 (diff) | |
download | ghdl-9ee4eb7cae2660b648105eb00486e561002ae1a7.tar.gz ghdl-9ee4eb7cae2660b648105eb00486e561002ae1a7.tar.bz2 ghdl-9ee4eb7cae2660b648105eb00486e561002ae1a7.zip |
Improve error message.
Fix bug 024.
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 442aeb047..7982a9d1b 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 fca9f4f19..748ebf383 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); |