diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-08-13 07:17:20 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-08-13 07:17:20 +0200 |
commit | 97bfa1b9660357f64af0c0d01ab3887e93ed5994 (patch) | |
tree | b1b1cd97ec2fae52e7dbad7a87e814fac8257079 /src/vhdl/libghdl/libghdl.adb | |
parent | d0d7e78c8de96745b47d11872d61a909df945e26 (diff) | |
download | ghdl-97bfa1b9660357f64af0c0d01ab3887e93ed5994.tar.gz ghdl-97bfa1b9660357f64af0c0d01ab3887e93ed5994.tar.bz2 ghdl-97bfa1b9660357f64af0c0d01ab3887e93ed5994.zip |
libghdl: preliminary work to also support synth.
Diffstat (limited to 'src/vhdl/libghdl/libghdl.adb')
-rw-r--r-- | src/vhdl/libghdl/libghdl.adb | 10 |
1 files changed, 6 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; |