From 1cbe9b82221a2da874ab2b12463b42eee5cfaaa7 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sun, 23 Sep 2018 07:49:46 +0200 Subject: Add reproducer for #643 --- src/vhdl/translate/trans-chap7.adb | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/vhdl') diff --git a/src/vhdl/translate/trans-chap7.adb b/src/vhdl/translate/trans-chap7.adb index 1d385ab95..614f993f3 100644 --- a/src/vhdl/translate/trans-chap7.adb +++ b/src/vhdl/translate/trans-chap7.adb @@ -2947,6 +2947,8 @@ package body Trans.Chap7 is Dest := Chap3.Slice_Base (Base_Ptr, Aggr_Type, New_Obj_Value (Var_Index)); Translate_Assign (Dest, Expr, Get_Type (Expr)); + -- FIXME: handle non-static expression type (at least for + -- choice by range). Len := Eval_Discrete_Type_Length (Get_Index_Type (Get_Type (Expr), 0)); New_Assign_Stmt -- cgit v1.2.3