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/ghdllocal.adb | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

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

diff --git a/src/ghdldrv/ghdllocal.adb b/src/ghdldrv/ghdllocal.adb
index dfc206649..a28c44bee 100644
--- a/src/ghdldrv/ghdllocal.adb
+++ b/src/ghdldrv/ghdllocal.adb
@@ -108,14 +108,19 @@ package body Ghdllocal is
       end if;
    end Finish_Compilation;
 
-   procedure Init (Cmd : in out Command_Lib)
-   is
-      pragma Unreferenced (Cmd);
+   procedure Compile_Init is
    begin
       Options.Initialize;
       Flag_Ieee := Lib_Standard;
       Back_End.Finish_Compilation := Finish_Compilation'Access;
       Flag_Verbose := False;
+   end Compile_Init;
+
+   procedure Init (Cmd : in out Command_Lib)
+   is
+      pragma Unreferenced (Cmd);
+   begin
+      Compile_Init;
    end Init;
 
    procedure Decode_Option (Cmd : in out Command_Lib;
-- 
cgit v1.2.3