diff options
| author | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2006-10-02 04:33:36 +0000 |
|---|---|---|
| committer | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2006-10-02 04:33:36 +0000 |
| commit | a81f695b15865268fea6ee062a381ba8e43a02b4 (patch) | |
| tree | 8bc86734eda054c31b705ceab4f4762e96422750 /sem_names.adb | |
| parent | f51d97cdfbb61a3c1b0456b32b5076d03ba5f8ac (diff) | |
| download | ghdl-a81f695b15865268fea6ee062a381ba8e43a02b4.tar.gz ghdl-a81f695b15865268fea6ee062a381ba8e43a02b4.tar.bz2 ghdl-a81f695b15865268fea6ee062a381ba8e43a02b4.zip | |
direct drivers and bugs fix
Diffstat (limited to 'sem_names.adb')
| -rw-r--r-- | sem_names.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/sem_names.adb b/sem_names.adb index a390c4d0d..80dc26e1b 100644 --- a/sem_names.adb +++ b/sem_names.adb @@ -1198,6 +1198,7 @@ package body Sem_Names is | Iir_Kind_Group_Declaration | Iir_Kind_Attribute_Declaration | Iir_Kind_Non_Object_Alias_Declaration => + Set_Base_Name (Name, Res); return; when Iir_Kind_Type_Conversion => Finish_Sem_Type_Conversion (Res); @@ -1389,6 +1390,7 @@ package body Sem_Names is Set_Type (Se, Get_Type (Rec_El)); Set_Selected_Element (Se, Rec_El); Set_Base_Name (Se, Get_Base_Name (R)); + Set_Base_Name (Name, Get_Base_Name (R)); Add_Result (Res, Se); end Sem_As_Selected_Element; @@ -2909,6 +2911,7 @@ package body Sem_Names is when Iir_Kind_Error => null; when Iir_Kinds_Object_Declaration => + Set_Base_Name (Name, Expr); Sem_Check_Pure (Name, Expr); when Iir_Kind_Indexed_Name | Iir_Kind_Slice_Name |