diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-06-21 04:58:03 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-06-21 04:58:03 +0200 |
commit | ec063ac4da3715a272a7734fffc7a7ec98abd4ba (patch) | |
tree | 089661e05423675797f13659bf635709e5bd1a06 /src/vhdl/translate/trans-chap5.adb | |
parent | 1c5a4c9b3cbf399cb73f95ae32285a98e7030bd8 (diff) | |
download | ghdl-ec063ac4da3715a272a7734fffc7a7ec98abd4ba.tar.gz ghdl-ec063ac4da3715a272a7734fffc7a7ec98abd4ba.tar.bz2 ghdl-ec063ac4da3715a272a7734fffc7a7ec98abd4ba.zip |
translate: renaming.
Diffstat (limited to 'src/vhdl/translate/trans-chap5.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap5.adb | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/vhdl/translate/trans-chap5.adb b/src/vhdl/translate/trans-chap5.adb index dbccd5ac4..ab0e696fa 100644 --- a/src/vhdl/translate/trans-chap5.adb +++ b/src/vhdl/translate/trans-chap5.adb @@ -553,7 +553,7 @@ package body Trans.Chap5 is else -- Actual type is unconstrained, but as this is an object reads -- bounds from the object. - return Chap3.Get_Array_Bounds + return Chap3.Get_Composite_Bounds (Chap6.Translate_Name (Actual, Mode_Signal)); end if; end Get_Actual_Bounds; @@ -647,7 +647,7 @@ package body Trans.Chap5 is (-- Note: this works only because it is not stabilized, and -- therefore the bounds field is returned and not a pointer to -- the bounds. - M2Lp (Chap3.Get_Array_Bounds (Act_Node)), + M2Lp (Chap3.Get_Composite_Bounds (Act_Node)), M2Addr (Bounds)); end loop; @@ -655,7 +655,8 @@ package body Trans.Chap5 is Info := Get_Info (Port); if Info.Signal_Val /= Null_Var then New_Assign_Stmt - (M2Lp (Chap3.Get_Array_Bounds (Chap6.Get_Port_Init_Value (Port))), + (M2Lp (Chap3.Get_Composite_Bounds + (Chap6.Get_Port_Init_Value (Port))), M2Addr (Bounds)); end if; Close_Temp; |