diff options
author | Tristan Gingold <tgingold@free.fr> | 2015-09-26 21:08:14 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2015-09-26 21:08:14 +0200 |
commit | 0f36f7436d0370abdc570afcd6c2eb46074da3b1 (patch) | |
tree | 89adb5306401dd669e55103b853e16cca761603c /src/vhdl/translate/trans-chap3.ads | |
parent | 8d25ac58519dc3d2a6c58e8daee3dfd85ad1e56e (diff) | |
download | ghdl-0f36f7436d0370abdc570afcd6c2eb46074da3b1.tar.gz ghdl-0f36f7436d0370abdc570afcd6c2eb46074da3b1.tar.bz2 ghdl-0f36f7436d0370abdc570afcd6c2eb46074da3b1.zip |
Fix regression from states.
Fix ticket96.
Diffstat (limited to 'src/vhdl/translate/trans-chap3.ads')
-rw-r--r-- | src/vhdl/translate/trans-chap3.ads | 1 |
1 files changed, 1 insertions, 0 deletions
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. |