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/errorout.adb | |
| 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/errorout.adb')
| -rw-r--r-- | src/vhdl/errorout.adb | 4 |
1 files changed, 4 insertions, 0 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)); |