From ad23318cf197c329f80926018ce693aeeef13467 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 29 Nov 2017 06:18:39 +0100 Subject: Check bounds for constant intialisation. --- src/vhdl/translate/trans-chap4.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/vhdl') diff --git a/src/vhdl/translate/trans-chap4.adb b/src/vhdl/translate/trans-chap4.adb index 61479932a..330900118 100644 --- a/src/vhdl/translate/trans-chap4.adb +++ b/src/vhdl/translate/trans-chap4.adb @@ -565,7 +565,7 @@ package body Trans.Chap4 is end if; end; else - Chap3.Translate_Object_Copy (Name, Value_Node, Obj_Type); + Chap7.Translate_Assign (Name, Value_Node, Value, Obj_Type, Obj); end if; end if; end Elab_Object_Init; -- cgit v1.2.3