From 6133111653ce0734aa999a9b67a049873a94c9c2 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 15 May 2019 20:40:43 +0200 Subject: trans-chap8: handle unbounded records in trans_actual. Fix #788 --- src/vhdl/translate/trans-chap8.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/vhdl/translate/trans-chap8.adb b/src/vhdl/translate/trans-chap8.adb index 427a30464..d1bd4b085 100644 --- a/src/vhdl/translate/trans-chap8.adb +++ b/src/vhdl/translate/trans-chap8.adb @@ -3102,7 +3102,7 @@ package body Trans.Chap8 is then pragma Assert (Sig = O_Enode_Null); -- TODO - if Ftype_Info.Type_Mode = Type_Mode_Fat_Array then + if Ftype_Info.Type_Mode in Type_Mode_Unbounded then pragma Assert (Assoc_Info.Call_Assoc_Fat (Mode) /= Null_Var); -- Allocate array base -- cgit v1.2.3