libghdl: preliminary work to also support synth.

2 files changed, 9 insertions, 4 deletions

diff --git a/src/vhdl/libghdl/libghdl.adb b/src/vhdl/libghdl/libghdl.adb
index 51cd0dd02..4ab3dc74a 100644
--- a/src/vhdl/libghdl/libghdl.adb
+++ b/src/vhdl/libghdl/libghdl.adb
@@ -103,10 +103,12 @@ package body Libghdl is
       Ghdllocal.Exec_Prefix := new String'(Prefix (1 .. Len));
    end Set_Exec_Prefix;
 
+   procedure Set_Hooks_For_Analysis is
+   begin
+      Ghdllocal.Compile_Init;
+      Set_Hooks;
+   end Set_Hooks_For_Analysis;
+
    Gnat_Version : constant String := "unknown compiler version" & ASCII.NUL;
    pragma Export (C, Gnat_Version, "__gnat_version");
-begin
-   --  TODO: set program name.
-   Ghdllocal.Compile_Init;
-   Set_Hooks;
 end Libghdl;
diff --git a/src/vhdl/libghdl/libghdl.ads b/src/vhdl/libghdl/libghdl.ads
index c4edfb9a1..4d1595a10 100644
--- a/src/vhdl/libghdl/libghdl.ads
+++ b/src/vhdl/libghdl/libghdl.ads
@@ -20,6 +20,9 @@ with Types; use Types;
 with Vhdl.Nodes; use Vhdl.Nodes;
 
 package Libghdl is
+   --  Perform early initializations, and set hooks.
+   procedure Set_Hooks_For_Analysis;
+
    --  To be called before Analyze_Init to set command line options.
    --  This decodes a driver option (so handle all analyzer options, and
    --  --ieee). Return 0 for success.