From e5cf297021c08f3528e32784a755f168e71cf8af Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 20 Jul 2022 19:42:16 +0200
Subject: ghdlsimul: simplify elaboration circuitery

---
 src/ghdldrv/ghdlsimul.adb | 13 -------------
 1 file changed, 13 deletions(-)

diff --git a/src/ghdldrv/ghdlsimul.adb b/src/ghdldrv/ghdlsimul.adb
index 468c2253c..ae8a6d4b4 100644
--- a/src/ghdldrv/ghdlsimul.adb
+++ b/src/ghdldrv/ghdlsimul.adb
@@ -136,18 +136,6 @@ package body Ghdlsimul is
       end loop;
    end Set_Run_Options;
 
-   procedure Ghdl_Elaborate;
-   pragma Export (C, Ghdl_Elaborate, "__ghdl_ELABORATE");
-
-   type Elaborate_Acc is access procedure;
-   pragma Convention (C, Elaborate_Acc);
-   Elaborate_Proc : Elaborate_Acc := null;
-
-   procedure Ghdl_Elaborate is
-   begin
-      Elaborate_Proc.all;
-   end Ghdl_Elaborate;
-
    procedure Run
    is
       use Ada.Command_Line;
@@ -172,7 +160,6 @@ package body Ghdlsimul is
 
       Synth.Flags.Severity_Level := Grt.Options.Severity_Level;
 
-      Elaborate_Proc := Simul.Vhdl_Simul.Runtime_Elaborate'Access;
       Simul.Vhdl_Simul.Simulation;
 
       --  Simul uses report_msg.
-- 
cgit v1.2.3