From a52af2f98e34648a2a9b056b11da518a60a6c6cd Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Thu, 26 Dec 2019 18:05:51 +0100 Subject: vhdl: improve support of AMS-vhdl (array and record natures, source quantities) --- src/vhdl/vhdl-evaluation.adb | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src/vhdl/vhdl-evaluation.adb') diff --git a/src/vhdl/vhdl-evaluation.adb b/src/vhdl/vhdl-evaluation.adb index 64aec4488..50e279a8f 100644 --- a/src/vhdl/vhdl-evaluation.adb +++ b/src/vhdl/vhdl-evaluation.adb @@ -1725,6 +1725,7 @@ package body Vhdl.Evaluation is | Iir_Predefined_Access_Inequality | Iir_Predefined_TF_Array_Not | Iir_Predefined_Now_Function + | Iir_Predefined_Real_Now_Function | Iir_Predefined_Deallocate | Iir_Predefined_Write | Iir_Predefined_Read @@ -3147,7 +3148,9 @@ package body Vhdl.Evaluation is begin Assoc := Get_Parameter_Association_Chain (Expr); while Is_Valid (Assoc) loop - case Iir_Kinds_Association_Element (Get_Kind (Assoc)) is + case Iir_Kinds_Association_Element_Parameters + (Get_Kind (Assoc)) + is when Iir_Kind_Association_Element_By_Expression => Assoc_Expr := Get_Actual (Assoc); if not Can_Eval_Value (Assoc_Expr, False) then -- cgit v1.2.3