diff options
author | Tristan Gingold <tgingold@free.fr> | 2015-09-04 21:52:38 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2015-09-04 21:52:38 +0200 |
commit | 8520993b4d1eadefa488dfc96dff25333f1b19db (patch) | |
tree | 818d4fe917d3e6b765932ed3d1ab1ee70dc3c508 /src/vhdl/translate/trans-chap6.adb | |
parent | 2d8f611cb63b72aa0373efe0ffa0df47e25519c9 (diff) | |
download | ghdl-8520993b4d1eadefa488dfc96dff25333f1b19db.tar.gz ghdl-8520993b4d1eadefa488dfc96dff25333f1b19db.tar.bz2 ghdl-8520993b4d1eadefa488dfc96dff25333f1b19db.zip |
Suppress stack switching; save process state in secondary stack.
Diffstat (limited to 'src/vhdl/translate/trans-chap6.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap6.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/vhdl/translate/trans-chap6.adb b/src/vhdl/translate/trans-chap6.adb index 9640f4422..96453f2d7 100644 --- a/src/vhdl/translate/trans-chap6.adb +++ b/src/vhdl/translate/trans-chap6.adb @@ -739,7 +739,7 @@ package body Trans.Chap6 is function Translate_Interface_Name (Inter : Iir; Info : Ortho_Info_Acc; Kind : Object_Kind_Type) - return Mnode + return Mnode is Type_Info : constant Type_Info_Acc := Get_Info (Get_Type (Inter)); begin @@ -1016,7 +1016,7 @@ package body Trans.Chap6 is Assoc_Chain := Get_Parameter_Association_Chain (Name); Obj := Get_Method_Object (Name); return E2M - (Chap8.Translate_Subprogram_Call (Imp, Assoc_Chain, Obj), + (Chap8.Translate_Subprogram_Call (Name, Assoc_Chain, Obj), Type_Info, Mode_Value); end if; end; |