diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-09-13 05:40:40 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-09-13 05:40:40 +0200 |
| commit | 55c7ed6ce973af64e0d79fcd1e98a74647814980 (patch) | |
| tree | 82bbb8afc10cdb10340371b7c614b6ecbcace103 /src/vhdl/translate/trans-chap5.adb | |
| parent | f1f62bdb353292a3ec438997644f479351b91dbe (diff) | |
| download | ghdl-55c7ed6ce973af64e0d79fcd1e98a74647814980.tar.gz ghdl-55c7ed6ce973af64e0d79fcd1e98a74647814980.tar.bz2 ghdl-55c7ed6ce973af64e0d79fcd1e98a74647814980.zip | |
Rename In_Conversion/Out_Conversion to Actual_Conversion/Formal_Conversion.
Diffstat (limited to 'src/vhdl/translate/trans-chap5.adb')
| -rw-r--r-- | src/vhdl/translate/trans-chap5.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/vhdl/translate/trans-chap5.adb b/src/vhdl/translate/trans-chap5.adb index ab0e696fa..ac054f394 100644 --- a/src/vhdl/translate/trans-chap5.adb +++ b/src/vhdl/translate/trans-chap5.adb @@ -378,8 +378,8 @@ package body Trans.Chap5 is (Get_Kind (Assoc) = Iir_Kind_Association_Element_By_Expression); Open_Temp; - if Get_In_Conversion (Assoc) = Null_Iir - and then Get_Out_Conversion (Assoc) = Null_Iir + if Get_Actual_Conversion (Assoc) = Null_Iir + and then Get_Formal_Conversion (Assoc) = Null_Iir then -- Usual case: without conversions. if Is_Signal_Name (Actual) then @@ -476,7 +476,7 @@ package body Trans.Chap5 is (Formal_Sig, Formal_Type, Init_Node); end if; else - if Get_In_Conversion (Assoc) /= Null_Iir then + if Get_Actual_Conversion (Assoc) /= Null_Iir then Chap4.Elab_In_Conversion (Assoc, Formal, Actual_Sig); Set_Map_Env (Formal_Env); Formal_Sig := Chap6.Translate_Name (Formal, Mode_Signal); @@ -487,7 +487,7 @@ package body Trans.Chap5 is Connect (Formal_Sig, Formal_Type, Data); Set_Map_Env (Actual_Env); end if; - if Get_Out_Conversion (Assoc) /= Null_Iir then + if Get_Formal_Conversion (Assoc) /= Null_Iir then -- flow: FORMAL to ACTUAL Chap4.Elab_Out_Conversion (Assoc, Formal, Formal_Sig); Set_Map_Env (Actual_Env); @@ -526,8 +526,8 @@ package body Trans.Chap5 is is Actual : constant Iir := Get_Actual (Assoc); Actual_Type : constant Iir := Get_Type (Actual); - In_Conv : constant Iir := Get_In_Conversion (Assoc); - Out_Conv : constant Iir := Get_Out_Conversion (Assoc); + In_Conv : constant Iir := Get_Actual_Conversion (Assoc); + Out_Conv : constant Iir := Get_Formal_Conversion (Assoc); function Get_Actual_Bounds (Save : Boolean) return Mnode is |