diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-05-13 06:45:11 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-05-17 07:19:47 +0200 |
commit | 0f0d483c355ca51bbc4f9d9bdb354d84a5fc4f76 (patch) | |
tree | 328c9a86ad8efd9143f81a5bf5511ccb5bb9a2c5 /src/vhdl/translate/trans-chap2.adb | |
parent | 669d25e0794e3ab9dc709bc977d2de43e7e2783d (diff) | |
download | ghdl-0f0d483c355ca51bbc4f9d9bdb354d84a5fc4f76.tar.gz ghdl-0f0d483c355ca51bbc4f9d9bdb354d84a5fc4f76.tar.bz2 ghdl-0f0d483c355ca51bbc4f9d9bdb354d84a5fc4f76.zip |
translate: separate spec and body translation for implicit subprograms.
Diffstat (limited to 'src/vhdl/translate/trans-chap2.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap2.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-chap2.adb b/src/vhdl/translate/trans-chap2.adb index 982593d13..e7cc1a43f 100644 --- a/src/vhdl/translate/trans-chap2.adb +++ b/src/vhdl/translate/trans-chap2.adb @@ -1223,11 +1223,13 @@ package body Trans.Chap2 is Dest.all := (Kind => Kind_Operator, Operator_Stack2 => Src.Operator_Stack2, + Operator_Body => Src.Operator_Body, Operator_Node => Src.Operator_Node, Operator_Instance => Instantiate_Subprg_Instance (Src.Operator_Instance), Operator_Left => Src.Operator_Left, - Operator_Right => Src.Operator_Right); + Operator_Right => Src.Operator_Right, + Operator_Res => Src.Operator_Res); when Kind_Interface => Dest.all := (Kind => Kind_Interface, Interface_Mechanism => Src.Interface_Mechanism, |