aboutsummaryrefslogtreecommitdiffstats
path: root/src/vhdl
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2019-08-13 07:17:20 +0200
committerTristan Gingold <tgingold@free.fr>2019-08-13 07:17:20 +0200
commit97bfa1b9660357f64af0c0d01ab3887e93ed5994 (patch)
treeb1b1cd97ec2fae52e7dbad7a87e814fac8257079 /src/vhdl
parentd0d7e78c8de96745b47d11872d61a909df945e26 (diff)
downloadghdl-97bfa1b9660357f64af0c0d01ab3887e93ed5994.tar.gz
ghdl-97bfa1b9660357f64af0c0d01ab3887e93ed5994.tar.bz2
ghdl-97bfa1b9660357f64af0c0d01ab3887e93ed5994.zip
libghdl: preliminary work to also support synth.
Diffstat (limited to 'src/vhdl')
-rw-r--r--src/vhdl/libghdl/libghdl.adb10
-rw-r--r--src/vhdl/libghdl/libghdl.ads3
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.