1 files changed, 4 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-sem_inst.ads b/src/vhdl/vhdl-sem_inst.ads
index dea437837..f86c1a560 100644
--- a/src/vhdl/vhdl-sem_inst.ads
+++ b/src/vhdl/vhdl-sem_inst.ads
@@ -53,4 +53,8 @@ package Vhdl.Sem_Inst is
    --  instantiated nodes have no bodies.
    --  See comment about Get/Set_Subprogram_body in vhdl-nodes.
    function Get_Subprogram_Body_Origin (Spec : Iir) return Iir;
+
+   --  Likewise for protected type bodies.
+   --  ATYPE is the protected type definition.
+   function Get_Protected_Type_Body_Origin (Atype : Iir) return Iir;
 end Vhdl.Sem_Inst;