diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-05-31 05:22:55 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-05-31 18:28:25 +0200 |
| commit | 83c3d4c32cb724d53128dda7decc66006bad4eef (patch) | |
| tree | 0ad36c4e69a9a3f5f9210a737cb81143c84b2383 | |
| parent | 03bbe8a6b26b5572d546559d9fb87b232f0fb945 (diff) | |
| download | ghdl-83c3d4c32cb724d53128dda7decc66006bad4eef.tar.gz ghdl-83c3d4c32cb724d53128dda7decc66006bad4eef.tar.bz2 ghdl-83c3d4c32cb724d53128dda7decc66006bad4eef.zip | |
synth-vhdl_stmts: export Synth_Subprogram_Back_Association
| -rw-r--r-- | src/synth/synth-vhdl_stmts.adb | 17 | ||||
| -rw-r--r-- | src/synth/synth-vhdl_stmts.ads | 5 |
2 files changed, 15 insertions, 7 deletions
diff --git a/src/synth/synth-vhdl_stmts.adb b/src/synth/synth-vhdl_stmts.adb index a8e24eedf..493c412a0 100644 --- a/src/synth/synth-vhdl_stmts.adb +++ b/src/synth/synth-vhdl_stmts.adb @@ -1980,7 +1980,8 @@ package body Synth.Vhdl_Stmts is procedure Synth_Subprogram_Back_Association (Subprg_Inst : Synth_Instance_Acc; Caller_Inst : Synth_Instance_Acc; - Init : Association_Iterator_Init) + Inter_Chain : Node; + Assoc_Chain : Node) is Inter : Node; Assoc : Node; @@ -1990,10 +1991,9 @@ package body Synth.Vhdl_Stmts is W : Wire_Id; D : Destroy_Type; begin - pragma Assert (Init.Kind = Association_Function); Destroy_Init (D, Caller_Inst); - Assoc := Init.Assoc_Chain; - Assoc_Inter := Init.Inter_Chain; + Assoc := Assoc_Chain; + Assoc_Inter := Inter_Chain; while Is_Valid (Assoc) loop Inter := Get_Association_Interface (Assoc, Assoc_Inter); @@ -2120,7 +2120,8 @@ package body Synth.Vhdl_Stmts is end if; else Res := No_Valtyp; - Synth_Subprogram_Back_Association (C.Inst, Syn_Inst, Init); + Synth_Subprogram_Back_Association + (C.Inst, Syn_Inst, Init.Inter_Chain, Init.Assoc_Chain); end if; end if; @@ -2196,7 +2197,8 @@ package body Synth.Vhdl_Stmts is end if; else Res := No_Valtyp; - Synth_Subprogram_Back_Association (C.Inst, Syn_Inst, Init); + Synth_Subprogram_Back_Association + (C.Inst, Syn_Inst, Init.Inter_Chain, Init.Assoc_Chain); end if; end if; @@ -2334,7 +2336,8 @@ package body Synth.Vhdl_Stmts is Synth.Vhdl_Static_Proc.Synth_Static_Procedure (Sub_Inst, Imp, Call); - Synth_Subprogram_Back_Association (Sub_Inst, Syn_Inst, Init); + Synth_Subprogram_Back_Association + (Sub_Inst, Syn_Inst, Init.Inter_Chain, Init.Assoc_Chain); Free_Instance (Sub_Inst); Areapools.Release (Area_Mark, Instance_Pool.all); diff --git a/src/synth/synth-vhdl_stmts.ads b/src/synth/synth-vhdl_stmts.ads index 6574ce132..44ffe890b 100644 --- a/src/synth/synth-vhdl_stmts.ads +++ b/src/synth/synth-vhdl_stmts.ads @@ -116,6 +116,11 @@ package Synth.Vhdl_Stmts is (Inst : Synth_Instance_Acc; Stmt : Node); procedure Synth_Procedure_Call (Syn_Inst : Synth_Instance_Acc; Stmt : Node); + procedure Synth_Subprogram_Back_Association + (Subprg_Inst : Synth_Instance_Acc; + Caller_Inst : Synth_Instance_Acc; + Inter_Chain : Node; + Assoc_Chain : Node); -- Return the statements chain to be executed. function Execute_Static_Case_Statement |