1 files changed, 1 insertions, 5 deletions
diff --git a/src/synth/elab-vhdl_annotations.adb b/src/synth/elab-vhdl_annotations.adb
index 0d7af8c79..3a076cde2 100644
--- a/src/synth/elab-vhdl_annotations.adb
+++ b/src/synth/elab-vhdl_annotations.adb
@@ -983,13 +983,9 @@ package body Elab.Vhdl_Annotations is
 
    procedure Annotate_Process_Statement (Block_Info : Sim_Info_Acc; Stmt : Iir)
    is
-      pragma Unreferenced (Block_Info);
       Info : Sim_Info_Acc;
    begin
-      Info := new Sim_Info_Type'(Kind => Kind_Process,
-                                 Ref => Stmt,
-                                 Nbr_Objects => 0);
-      Set_Ann (Stmt, Info);
+      Info := Create_Block_Info (Block_Info, Stmt);
 
       Annotate_Declaration_List
         (Info, Get_Declaration_Chain (Stmt));