From 97bfa1b9660357f64af0c0d01ab3887e93ed5994 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 13 Aug 2019 07:17:20 +0200
Subject: libghdl: preliminary work to also support synth.

---
 src/vhdl/libghdl/libghdl.adb | 10 ++++++----
 src/vhdl/libghdl/libghdl.ads |  3 +++
 2 files changed, 9 insertions(+), 4 deletions(-)

(limited to 'src/vhdl/libghdl')

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.
-- 
cgit v1.2.3