diff options
author | Tristan Gingold <tgingold@free.fr> | 2015-05-20 21:26:36 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2015-05-20 21:26:36 +0200 |
commit | 8697fde9747e6f9ae5ddb2eff57f854773caf6db (patch) | |
tree | 37ffcd7b71e447717208e5873b1ff79a6c6df66f /src/vhdl/translate/trans-chap6.adb | |
parent | 4528ed26b1b22562a4552368459f5d5acf5c3847 (diff) | |
download | ghdl-8697fde9747e6f9ae5ddb2eff57f854773caf6db.tar.gz ghdl-8697fde9747e6f9ae5ddb2eff57f854773caf6db.tar.bz2 ghdl-8697fde9747e6f9ae5ddb2eff57f854773caf6db.zip |
Translation: handle individual association in function call.
Factorize code.
Fix ticket 74.
Diffstat (limited to 'src/vhdl/translate/trans-chap6.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap6.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-chap6.adb b/src/vhdl/translate/trans-chap6.adb index eb8303693..4b89cecc2 100644 --- a/src/vhdl/translate/trans-chap6.adb +++ b/src/vhdl/translate/trans-chap6.adb @@ -23,6 +23,7 @@ with Evaluation; use Evaluation; with Canon; with Trans.Chap3; with Trans.Chap7; +with Trans.Chap8; with Trans.Chap14; with Trans.Helpers2; use Trans.Helpers2; with Trans_Decls; use Trans_Decls; @@ -1006,7 +1007,7 @@ package body Trans.Chap6 is Assoc_Chain := Get_Parameter_Association_Chain (Name); Obj := Get_Method_Object (Name); return E2M - (Chap7.Translate_Function_Call (Imp, Assoc_Chain, Obj), + (Chap8.Translate_Subprogram_Call (Imp, Assoc_Chain, Obj), Type_Info, Mode_Value); end if; end; |