diff options
author | Tristan Gingold <tgingold@free.fr> | 2018-12-05 06:44:28 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2018-12-05 06:44:28 +0100 |
commit | 2984b982505a9e61fd45ecfe2c01bc8e018fe4be (patch) | |
tree | 32410648a9361588feec3e9523cdd38635afccd6 | |
parent | 96540807412c7a127bde646ee5737b10e089cf0d (diff) | |
download | ghdl-2984b982505a9e61fd45ecfe2c01bc8e018fe4be.tar.gz ghdl-2984b982505a9e61fd45ecfe2c01bc8e018fe4be.tar.bz2 ghdl-2984b982505a9e61fd45ecfe2c01bc8e018fe4be.zip |
sem_record_aggregate: minor change - use subtype instead of type.
-rw-r--r-- | src/vhdl/sem_expr.adb | 4 |
1 files changed, 1 insertions, 3 deletions
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; |