diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-01-16 21:53:26 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-01-16 21:53:26 +0100 |
| commit | bf7876e4db586c1b8f3bef1939d5110b8f1d050b (patch) | |
| tree | c4db867016170b7844d3ff2a60db2f709b2fdb76 | |
| parent | 860919f436a46383035c574fe872dcb3fc05de9e (diff) | |
| download | ghdl-bf7876e4db586c1b8f3bef1939d5110b8f1d050b.tar.gz ghdl-bf7876e4db586c1b8f3bef1939d5110b8f1d050b.tar.bz2 ghdl-bf7876e4db586c1b8f3bef1939d5110b8f1d050b.zip | |
sem_names: finish sem of 'subtype prefix.
| -rw-r--r-- | src/vhdl/sem_names.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/vhdl/sem_names.adb b/src/vhdl/sem_names.adb index cdce11b4c..d01c9c991 100644 --- a/src/vhdl/sem_names.adb +++ b/src/vhdl/sem_names.adb @@ -1696,8 +1696,7 @@ package body Sem_Names is end if; return Res; when Iir_Kind_Subtype_Attribute => - Free_Iir (Name); - return Res; + null; when Iir_Kinds_Signal_Value_Attribute => null; when Iir_Kinds_Signal_Attribute => @@ -1753,7 +1752,8 @@ package body Sem_Names is pragma Assert (Get_Kind (Name) = Iir_Kind_Selected_By_All_Name); Finish_Sem_Dereference (Res); Free_Iir (Name); - when Iir_Kinds_Signal_Value_Attribute => + when Iir_Kinds_Signal_Value_Attribute + | Iir_Kind_Subtype_Attribute => Sem_Name_Free_Result (Name, Res); when others => Error_Kind ("finish_sem_name_1(2)", Res); |