From 0f0d483c355ca51bbc4f9d9bdb354d84a5fc4f76 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sat, 13 May 2017 06:45:11 +0200 Subject: translate: separate spec and body translation for implicit subprograms. --- src/vhdl/translate/trans-chap2.adb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/vhdl/translate/trans-chap2.adb') 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, -- cgit v1.2.3