From 2984b982505a9e61fd45ecfe2c01bc8e018fe4be Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 5 Dec 2018 06:44:28 +0100
Subject: sem_record_aggregate: minor change - use subtype instead of type.

---
 src/vhdl/sem_expr.adb | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/vhdl/sem_expr.adb b/src/vhdl/sem_expr.adb
index 9476cca6a..5ea510655 100644
--- a/src/vhdl/sem_expr.adb
+++ b/src/vhdl/sem_expr.adb
@@ -2963,9 +2963,7 @@ package body Sem_Expr is
    function Sem_Record_Aggregate (Aggr: Iir_Aggregate; A_Type: Iir)
      return boolean
    is
-      Base_Type : constant Iir := Get_Base_Type (A_Type);
-      El_List : constant Iir_Flist :=
-        Get_Elements_Declaration_List (Base_Type);
+      El_List : constant Iir_Flist := Get_Elements_Declaration_List (A_Type);
 
       --  Type of the element.
       El_Type : Iir;
-- 
cgit v1.2.3