From 8574c1ae9bf66e3520985e0277a3847b1a210e2e Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 7 May 2016 17:43:03 +0200
Subject: ghdldrv: add functionnal API to compile.

---
 src/ghdldrv/ghdlsimul.adb | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

(limited to 'src/ghdldrv/ghdlsimul.adb')

diff --git a/src/ghdldrv/ghdlsimul.adb b/src/ghdldrv/ghdlsimul.adb
index e17d83c2f..ddf70bbb3 100644
--- a/src/ghdldrv/ghdlsimul.adb
+++ b/src/ghdldrv/ghdlsimul.adb
@@ -42,8 +42,6 @@ with Execution;
 
 with Ghdlcomp;
 
-with Grt.Vpi;
-pragma Unreferenced (Grt.Vpi);
 with Grt.Types;
 with Grt.Options;
 with Grt.Errors;
@@ -207,8 +205,7 @@ package body Ghdlsimul is
       Put_Line (" --debug        Run with debugger");
    end Disp_Long_Help;
 
-   procedure Register_Commands
-   is
+   procedure Set_Hooks is
    begin
       Ghdlcomp.Hooks := (Compile_Init'Access,
                          Compile_Elab'Access,
@@ -216,6 +213,17 @@ package body Ghdlsimul is
                          Run'Access,
                          Decode_Option'Access,
                          Disp_Long_Help'Access);
+   end Set_Hooks;
+
+   procedure Register_Commands is
+   begin
+      Set_Hooks;
       Ghdlcomp.Register_Commands;
    end Register_Commands;
+
+   procedure Compile_Init is
+   begin
+      Ghdllocal.Compile_Init;
+      Set_Hooks;
+   end Compile_Init;
 end Ghdlsimul;
-- 
cgit v1.2.3