diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-05-12 06:22:15 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-05-12 06:22:15 +0200 |
commit | d0deb59c12fabd49621bfa677c2a2d99dc9076f8 (patch) | |
tree | 44b7202d5a521ecfb1bdfa916c871bd4f383fc02 /src/vhdl/translate/trans-chap4.adb | |
parent | b1ca486add7365dc33b79bc223fd30919a4e30d6 (diff) | |
download | ghdl-d0deb59c12fabd49621bfa677c2a2d99dc9076f8.tar.gz ghdl-d0deb59c12fabd49621bfa677c2a2d99dc9076f8.tar.bz2 ghdl-d0deb59c12fabd49621bfa677c2a2d99dc9076f8.zip |
translation: renames Ortho_Func to Subprg_Node for consistency.
Diffstat (limited to 'src/vhdl/translate/trans-chap4.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap4.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/vhdl/translate/trans-chap4.adb b/src/vhdl/translate/trans-chap4.adb index 44e1a6f9c..694e6e372 100644 --- a/src/vhdl/translate/trans-chap4.adb +++ b/src/vhdl/translate/trans-chap4.adb @@ -2106,7 +2106,7 @@ package body Trans.Chap4 is Create_Temp_Stack2_Mark; end if; - Start_Association (Assoc, Finfo.Ortho_Func); + Start_Association (Assoc, Finfo.Subprg_Node); if Finfo.Res_Interface /= O_Dnode_Null then New_Association (Assoc, M2E (Res)); end if; @@ -2775,7 +2775,7 @@ package body Trans.Chap4 is end if; -- Call conversion function. - Start_Association (Constr, Subprg_Info.Ortho_Func); + Start_Association (Constr, Subprg_Info.Subprg_Node); if Subprg_Info.Res_Interface /= O_Dnode_Null then -- Composite result. |