diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-01-02 05:00:00 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-01-02 05:00:00 +0100 |
commit | abdad7105d2f54e22b696a2e75058f4c634ef4a2 (patch) | |
tree | 4b056c6279e1776a90f106aae760934cc029162d /src/vhdl/translate/trans-chap5.adb | |
parent | cd74faae93e5fd8985d15a9c7cc02e1d84115020 (diff) | |
download | ghdl-abdad7105d2f54e22b696a2e75058f4c634ef4a2.tar.gz ghdl-abdad7105d2f54e22b696a2e75058f4c634ef4a2.tar.bz2 ghdl-abdad7105d2f54e22b696a2e75058f4c634ef4a2.zip |
translate: rename get_array_base to get_composite_base
Diffstat (limited to 'src/vhdl/translate/trans-chap5.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap5.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/vhdl/translate/trans-chap5.adb b/src/vhdl/translate/trans-chap5.adb index eee9c24b2..b0e01dd54 100644 --- a/src/vhdl/translate/trans-chap5.adb +++ b/src/vhdl/translate/trans-chap5.adb @@ -326,7 +326,7 @@ package body Trans.Chap5 is begin -- FIXME: should check matching elements! Res := (Actual_Sig => - Chap3.Index_Base (Chap3.Get_Array_Base (Data.Actual_Sig), + Chap3.Index_Base (Chap3.Get_Composite_Base (Data.Actual_Sig), Data.Actual_Type, New_Obj_Value (Index)), Actual_Type => Get_Element_Subtype (Data.Actual_Type), Mode => Data.Mode, @@ -435,8 +435,8 @@ package body Trans.Chap5 is -- Copy pointer to the values. if Get_Info (Formal_Type).Type_Mode in Type_Mode_Arrays then New_Assign_Stmt - (M2Lp (Chap3.Get_Array_Base (Formal_Val)), - M2Addr (Chap3.Get_Array_Base (Actual_Val))); + (M2Lp (Chap3.Get_Composite_Base (Formal_Val)), + M2Addr (Chap3.Get_Composite_Base (Actual_Val))); else New_Assign_Stmt (M2Lp (Formal_Val), M2Addr (Actual_Val)); end if; |