diff options
Diffstat (limited to 'src/vhdl')
-rw-r--r-- | src/vhdl/libghdl/libghdl.adb | 5 | ||||
-rw-r--r-- | src/vhdl/libghdl/libghdl.ads | 3 |
2 files changed, 8 insertions, 0 deletions
diff --git a/src/vhdl/libghdl/libghdl.adb b/src/vhdl/libghdl/libghdl.adb index b0442b9f4..51cd0dd02 100644 --- a/src/vhdl/libghdl/libghdl.adb +++ b/src/vhdl/libghdl/libghdl.adb @@ -98,6 +98,11 @@ package body Libghdl is return Ghdlcomp.Compile_Analyze_File2 (File (1 .. Len)); end Analyze_File; + procedure Set_Exec_Prefix (Prefix : Thin_String_Ptr; Len : Natural) is + begin + Ghdllocal.Exec_Prefix := new String'(Prefix (1 .. Len)); + end Set_Exec_Prefix; + Gnat_Version : constant String := "unknown compiler version" & ASCII.NUL; pragma Export (C, Gnat_Version, "__gnat_version"); begin diff --git a/src/vhdl/libghdl/libghdl.ads b/src/vhdl/libghdl/libghdl.ads index dbc6b260e..c4edfb9a1 100644 --- a/src/vhdl/libghdl/libghdl.ads +++ b/src/vhdl/libghdl/libghdl.ads @@ -25,6 +25,9 @@ package Libghdl is -- --ieee). Return 0 for success. function Set_Option (Opt : Thin_String_Ptr; Len : Natural) return Integer; + -- Set the prefix (used to locate libraries). + procedure Set_Exec_Prefix (Prefix : Thin_String_Ptr; Len : Natural); + -- To be called before Analyze_File to initialize analysis. procedure Analyze_Init; |