diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/vhdl/libghdl/libghdl.adb | 10 | ||||
| -rw-r--r-- | src/vhdl/libghdl/libghdl.ads | 3 |
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. |