diff options
Diffstat (limited to 'src/vhdl/translate/trans.ads')
| -rw-r--r-- | src/vhdl/translate/trans.ads | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/vhdl/translate/trans.ads b/src/vhdl/translate/trans.ads index 598e662f4..a93f38198 100644 --- a/src/vhdl/translate/trans.ads +++ b/src/vhdl/translate/trans.ads @@ -602,7 +602,8 @@ package Trans is -- Add a field in the current factory that reference the current -- instance. - procedure Add_Subprg_Instance_Field (Field : out O_Fnode); + procedure Add_Subprg_Instance_Field + (Field : out O_Fnode; Prev_Scope : out Var_Scope_Acc); -- Associate values to the instance interface during invocation of a -- subprogram. @@ -628,9 +629,9 @@ package Trans is -- Call Push_Scope to reference instance from FIELD. procedure Start_Prev_Subprg_Instance_Use_Via_Field - (Prev : Subprg_Instance_Stack; Field : O_Fnode); + (Prev_Scope : Var_Scope_Acc; Field : O_Fnode); procedure Finish_Prev_Subprg_Instance_Use_Via_Field - (Prev : Subprg_Instance_Stack; Field : O_Fnode); + (Prev_Scope : Var_Scope_Acc; Field : O_Fnode); -- Same as above, but for IIR. procedure Create_Subprg_Instance (Interfaces : in out O_Inter_List; @@ -754,6 +755,7 @@ package Trans is when Kind_Type_Protected => Prot_Scope : aliased Var_Scope_Type; + Prot_Prev_Scope : Var_Scope_Acc; -- Init procedure for the protected type. Prot_Init_Subprg : O_Dnode; @@ -851,6 +853,7 @@ package Trans is (Kind => Kind_Type_Protected, Rti_Max_Depth => 0, Prot_Scope => Null_Var_Scope, + Prot_Prev_Scope => null, Prot_Init_Subprg => O_Dnode_Null, Prot_Init_Instance => Subprgs.Null_Subprg_Instance, Prot_Final_Subprg => O_Dnode_Null, |