ghdldrv: add functionnal API to compile.

1 files changed, 8 insertions, 3 deletions

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;