diff options
| author | Tristan Gingold | 2014-11-03 20:56:42 +0100 |
|---|---|---|
| committer | Tristan Gingold | 2014-11-03 20:56:42 +0100 |
| commit | e2f3247a550c4289d706734d6fe8a246d8cddc39 (patch) | |
| tree | f95ea02a40918b00a83a57e9a9d1a4aab5263df2 /translate/mcode/windows/windows_default_path.adb | |
| parent | a7e6bcde1b4b6956a7d9407cd944c623916c8cf0 (diff) | |
| download | ghdl-e2f3247a550c4289d706734d6fe8a246d8cddc39.tar.gz ghdl-e2f3247a550c4289d706734d6fe8a246d8cddc39.tar.bz2 ghdl-e2f3247a550c4289d706734d6fe8a246d8cddc39.zip | |
Support installation in a different path that configured one.
Diffstat (limited to 'translate/mcode/windows/windows_default_path.adb')
| -rw-r--r-- | translate/mcode/windows/windows_default_path.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/translate/mcode/windows/windows_default_path.adb b/translate/mcode/windows/windows_default_path.adb index 2538e5d..23aa2f6 100644 --- a/translate/mcode/windows/windows_default_path.adb +++ b/translate/mcode/windows/windows_default_path.adb @@ -10,7 +10,7 @@ package body Windows_Default_Path is return DWORD; pragma Import (Stdcall, GetModuleFileName, "GetModuleFileNameA"); - function Get_Windows_Default_Path return String + function Get_Windows_Exec_Path return String is File : String (1 .. 256); Size : DWORD; @@ -39,7 +39,7 @@ package body Windows_Default_Path is end loop; end if; - return File (1 .. P) & "lib"; - end Get_Windows_Default_Path; + return File (1 .. P); + end Get_Windows_Exec_Path; end Windows_Default_Path; |