From cdaab3a58cf9cf8951e4bc02e321e5b2d3b3fbfe Mon Sep 17 00:00:00 2001
From: gingold
Date: Mon, 2 Jun 2008 04:36:49 +0000
Subject: Fix concatenation when one of the operand is an array element

---
 sem_decls.adb | 3 +--
 1 file changed, 1 insertion(+), 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,
-- 
cgit