diff options
| author | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2009-09-23 01:26:52 +0000 |
|---|---|---|
| committer | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2009-09-23 01:26:52 +0000 |
| commit | e4c7e530b7552701bd26ee3569c34c65aa30752d (patch) | |
| tree | 5e2d9dec357138f197c0f7fb010f93b213dd1afa /errorout.adb | |
| parent | 9e9f8604f11d93894990e7733127d083abab8f3e (diff) | |
| download | ghdl-e4c7e530b7552701bd26ee3569c34c65aa30752d.tar.gz ghdl-e4c7e530b7552701bd26ee3569c34c65aa30752d.tar.bz2 ghdl-e4c7e530b7552701bd26ee3569c34c65aa30752d.zip | |
Handle anonymous subtypes.
Diffstat (limited to 'errorout.adb')
| -rw-r--r-- | errorout.adb | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/errorout.adb b/errorout.adb index 544f56bf0..2ddc42686 100644 --- a/errorout.adb +++ b/errorout.adb @@ -893,8 +893,12 @@ package body Errorout is procedure Append_Type (Def : Iir) is use Name_Table; + Decl : Iir := Get_Type_Declarator (Def); begin - Image (Get_Identifier (Get_Type_Declarator (Def))); + if Decl = Null_Iir then + Decl := Get_Type_Declarator (Get_Base_Type (Def)); + end if; + Image (Get_Identifier (Decl)); Append (Res, Name_Buffer (1 .. Name_Length)); end Append_Type; |