diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-02-23 08:10:05 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-02-23 08:10:05 +0100 |
commit | 40dcbe8763094a862db1b32727c988593695f2fd (patch) | |
tree | ee268d05d80c6b089a36e6053f718b00bb19758b /src | |
parent | 5a61b36758ef3821b0d61183d37af576a420a14c (diff) | |
download | ghdl-40dcbe8763094a862db1b32727c988593695f2fd.tar.gz ghdl-40dcbe8763094a862db1b32727c988593695f2fd.tar.bz2 ghdl-40dcbe8763094a862db1b32727c988593695f2fd.zip |
translate: factorize code for function call
Diffstat (limited to 'src')
-rw-r--r-- | src/vhdl/translate/trans-chap6.adb | 21 |
1 files changed, 2 insertions, 19 deletions
diff --git a/src/vhdl/translate/trans-chap6.adb b/src/vhdl/translate/trans-chap6.adb index 769b23bc4..098dc18ca 100644 --- a/src/vhdl/translate/trans-chap6.adb +++ b/src/vhdl/translate/trans-chap6.adb @@ -20,10 +20,8 @@ with Files_Map; with Errorout; use Errorout; with Iirs_Utils; use Iirs_Utils; 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; @@ -1083,23 +1081,8 @@ package body Trans.Chap6 is pragma Assert (Mode = Mode_Value); -- This can appear as a prefix of a name, therefore, the -- result is always a composite type or an access type. - declare - Imp : constant Iir := Get_Implementation (Name); - Obj : Iir; - Assoc_Chain : Iir; - begin - if Is_Implicit_Subprogram (Imp) then - -- FIXME : to be done - raise Internal_Error; - else - Canon.Canon_Subprogram_Call (Name); - Assoc_Chain := Get_Parameter_Association_Chain (Name); - Obj := Get_Method_Object (Name); - return E2M - (Chap8.Translate_Subprogram_Call (Name, Assoc_Chain, Obj), - Type_Info, Mode_Value); - end if; - end; + return E2M (Chap7.Translate_Expression (Name), + Type_Info, Mode_Value); when Iir_Kind_Image_Attribute => pragma Assert (Mode = Mode_Value); |