From 0f36f7436d0370abdc570afcd6c2eb46074da3b1 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sat, 26 Sep 2015 21:08:14 +0200 Subject: Fix regression from states. Fix ticket96. --- src/vhdl/translate/trans-chap3.ads | 1 + 1 file changed, 1 insertion(+) (limited to 'src/vhdl/translate/trans-chap3.ads') diff --git a/src/vhdl/translate/trans-chap3.ads b/src/vhdl/translate/trans-chap3.ads index f7a23fdc7..a4b8ddd7d 100644 --- a/src/vhdl/translate/trans-chap3.ads +++ b/src/vhdl/translate/trans-chap3.ads @@ -182,6 +182,7 @@ package Trans.Chap3 is -- Copy bounds from SRC to DEST. procedure Copy_Bounds (Dest : O_Enode; Src : O_Enode; Obj_Type : Iir); + procedure Copy_Bounds (Dest : Mnode; Src : Mnode; Obj_Type : Iir); -- Allocate an object of type OBJ_TYPE and set RES. -- RES must be a stable access of type ortho_ptr_type. -- cgit v1.2.3