diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-05-12 06:17:20 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-05-12 06:17:20 +0200 |
commit | b1ca486add7365dc33b79bc223fd30919a4e30d6 (patch) | |
tree | 0d69e2d61419487270d721195b804a53022752cb /src/vhdl/translate/trans-chap2.adb | |
parent | 67ec6bde36b1c48d9b226ba93a8552c5ca8830c2 (diff) | |
download | ghdl-b1ca486add7365dc33b79bc223fd30919a4e30d6.tar.gz ghdl-b1ca486add7365dc33b79bc223fd30919a4e30d6.tar.bz2 ghdl-b1ca486add7365dc33b79bc223fd30919a4e30d6.zip |
translate: add specific infos for implicit subprograms.
Diffstat (limited to 'src/vhdl/translate/trans-chap2.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap2.adb | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/vhdl/translate/trans-chap2.adb b/src/vhdl/translate/trans-chap2.adb index 8b73c0e39..5fedb09b7 100644 --- a/src/vhdl/translate/trans-chap2.adb +++ b/src/vhdl/translate/trans-chap2.adb @@ -1219,6 +1219,15 @@ package body Trans.Chap2 is Subprg_Local_Id => Src.Subprg_Local_Id, Subprg_Exit => Src.Subprg_Exit, Subprg_Result => Src.Subprg_Result); + when Kind_Operator => + Dest.all := + (Kind => Kind_Operator, + Operator_Stack2 => Src.Operator_Stack2, + Operator_Node => Src.Operator_Node, + Operator_Instance => Instantiate_Subprg_Instance + (Src.Operator_Instance), + Operator_Left => Src.Operator_Left, + Operator_Right => Src.Operator_Right); when Kind_Interface => Dest.all := (Kind => Kind_Interface, Interface_Mechanism => Src.Interface_Mechanism, |