diff options
Diffstat (limited to 'src/vhdl/simulate')
| -rw-r--r-- | src/vhdl/simulate/simul-execution.adb | 19 |
1 files changed, 1 insertions, 18 deletions
diff --git a/src/vhdl/simulate/simul-execution.adb b/src/vhdl/simulate/simul-execution.adb index d7391ef95..a70d920c7 100644 --- a/src/vhdl/simulate/simul-execution.adb +++ b/src/vhdl/simulate/simul-execution.adb @@ -3311,23 +3311,6 @@ package body Simul.Execution is Unshare (Val, Instance_Pool); end Execute_Monadic_Association; - -- Like Get_Subprogram_Body, but also works for instances, where - -- instantiated nodes have no bodies. - -- FIXME: maybe fix the issue directly in Sem_Inst ? - function Get_Subprogram_Body_Origin (Spec : Iir) return Iir - is - Res : constant Iir := Get_Subprogram_Body (Spec); - Orig : Iir; - begin - if Res /= Null_Iir then - return Res; - else - Orig := Vhdl.Sem_Inst.Get_Origin (Spec); - pragma Assert (Orig /= Null_Iir); - return Get_Subprogram_Body_Origin (Orig); - end if; - end Get_Subprogram_Body_Origin; - -- Like Get_Protected_Type_Body, but also works for instances, where -- instantiated nodes have no bodies. -- FIXME: maybe fix the issue directly in Sem_Inst ? @@ -3360,7 +3343,7 @@ package body Simul.Execution is begin case Get_Kind (Imp) is when Iir_Kinds_Subprogram_Declaration => - Bod := Get_Subprogram_Body_Origin (Imp); + Bod := Vhdl.Sem_Inst.Get_Subprogram_Body_Origin (Imp); Parent := Get_Parent (Imp); Label := Get_Subprogram_Specification (Bod); when Iir_Kind_Protected_Type_Declaration => |