diff options
Diffstat (limited to 'src/vhdl/translate/trans-chap3.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap3.adb | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/vhdl/translate/trans-chap3.adb b/src/vhdl/translate/trans-chap3.adb index acc5d6537..442203e8e 100644 --- a/src/vhdl/translate/trans-chap3.adb +++ b/src/vhdl/translate/trans-chap3.adb @@ -3416,6 +3416,16 @@ package body Trans.Chap3 is Copy_Bounds (M2Addr (Dest), M2Addr (Src), Obj_Type); end Copy_Bounds; + procedure Copy_Range_No_Length (Dest : Mnode; Src : Mnode) is + begin + New_Assign_Stmt (M2Lv (Range_To_Left (Dest)), + M2E (Range_To_Left (Src))); + New_Assign_Stmt (M2Lv (Range_To_Right (Dest)), + M2E (Range_To_Right (Src))); + New_Assign_Stmt (M2Lv (Range_To_Dir (Dest)), + M2E (Range_To_Dir (Src))); + end Copy_Range_No_Length; + procedure Translate_Object_Allocation (Res : in out Mnode; Alloc_Kind : Allocation_Kind; |