diff options
| author | gingold | 2008-06-02 04:36:49 +0000 |
|---|---|---|
| committer | gingold | 2008-06-02 04:36:49 +0000 |
| commit | cdaab3a58cf9cf8951e4bc02e321e5b2d3b3fbfe (patch) | |
| tree | 767e593c36a6ee26f47fa28834654702f9ce4b05 | |
| parent | f63038518ec0b89eb6170e372a2ad5d0a24d30d3 (diff) | |
| download | ghdl-cdaab3a58cf9cf8951e4bc02e321e5b2d3b3fbfe.tar.gz ghdl-cdaab3a58cf9cf8951e4bc02e321e5b2d3b3fbfe.tar.bz2 ghdl-cdaab3a58cf9cf8951e4bc02e321e5b2d3b3fbfe.zip | |
Fix concatenation when one of the operand is an array element
| -rw-r--r-- | sem_decls.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/sem_decls.adb b/sem_decls.adb index c833f52..1226293 100644 --- a/sem_decls.adb +++ b/sem_decls.adb @@ -654,8 +654,7 @@ package body Sem_Decls is (Name_Op_Less_Equal, Iir_Predefined_Array_Less_Equal); end if; - Element_Type := - Get_Base_Type (Get_Element_Subtype (Type_Definition)); + Element_Type := Get_Element_Subtype (Type_Definition); Add_Operation (Name_Op_Concatenation, Iir_Predefined_Array_Array_Concat, |