diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-07-23 20:13:49 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-07-23 20:13:49 +0200 |
| commit | 777f73f67f0f2d18f73dc223a2d941ece31d0c9e (patch) | |
| tree | d8bf9afda0d08fa40e0a47ec5bcf9356a21ae862 /sem_assocs.adb | |
| parent | 694a4d2744f252b326121c37c2271133e0ec535f (diff) | |
| download | ghdl-777f73f67f0f2d18f73dc223a2d941ece31d0c9e.tar.gz ghdl-777f73f67f0f2d18f73dc223a2d941ece31d0c9e.tar.bz2 ghdl-777f73f67f0f2d18f73dc223a2d941ece31d0c9e.zip | |
Add parenthesis_Expression, --reprint and --compare-tokens commands.
Diffstat (limited to 'sem_assocs.adb')
| -rw-r--r-- | sem_assocs.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/sem_assocs.adb b/sem_assocs.adb index f393cfd0e..23252f5ce 100644 --- a/sem_assocs.adb +++ b/sem_assocs.adb @@ -921,7 +921,7 @@ package body Sem_Assocs is end if; Rec_El := Find_Name_In_List (Get_Elements_Declaration_List (Base_Type), - Get_Suffix_Identifier (Name)); + Get_Identifier (Name)); if Rec_El = Null_Iir then Name_Type := Null_Iir; return; |