diff options
author | 1138-4EB <1138-4EB@users.noreply.github.com> | 2017-02-14 19:13:00 +0100 |
---|---|---|
committer | tgingold <tgingold@users.noreply.github.com> | 2017-02-14 19:13:00 +0100 |
commit | de9c5ceb7923a896b888656fdd1f1cd238b830e0 (patch) | |
tree | 09b247593cab5d1258b74d3dded8d3feb1e32a21 /dist/mcode/windows/windows_default_path.adb | |
parent | f7e455245d9d12f69e2bb8eb67a84c1961cc20f3 (diff) | |
download | ghdl-de9c5ceb7923a896b888656fdd1f1cd238b830e0.tar.gz ghdl-de9c5ceb7923a896b888656fdd1f1cd238b830e0.tar.bz2 ghdl-de9c5ceb7923a896b888656fdd1f1cd238b830e0.zip |
Replace travis-ci matrix with docker containers (#272)
* Extract tag declarations from <travis-ci.sh>. Rename it to
<buildtest.sh> and allow to pass -b (BLD) and -f (PKG_FILE) as
arguments. Save tag declarations in <travis-ci.sh>, with a different
meaning now. Modify <.travis.yml> accordingly.
* chmod +x ./dist/buildtest.sh. Can be removed bi changing permissions.
* Replace travis builds with docker containers.
ubu1404+llvm-3.5, ubu1204+llvm-3.8, ubu+mcode, fed+mcode and fed+llvm
Add PKG_DTAG and SHORT_COMMIT after PKG_FILE, to avoid collisions.
DOCKER_IMG used to set image to be used in docker build.
<mv> is enough if the host dir is mounted in the container.
Since multiple files are added, content in <dist> split to <dist/lin> and <dist/win>.
Git depth set to 10 in <.travis.yml>
* Fix paths lin/linux and win/windows. Remove '_compile'.
Revome wrong placed old buildtest.
Add conditional builds (3). Leave 2 fixed.
Diffstat (limited to 'dist/mcode/windows/windows_default_path.adb')
-rw-r--r-- | dist/mcode/windows/windows_default_path.adb | 68 |
1 files changed, 0 insertions, 68 deletions
diff --git a/dist/mcode/windows/windows_default_path.adb b/dist/mcode/windows/windows_default_path.adb deleted file mode 100644 index c627356f9..000000000 --- a/dist/mcode/windows/windows_default_path.adb +++ /dev/null @@ -1,68 +0,0 @@ --- Find installation path (using executable). --- Copyright (C) 2002 - 2016 Tristan Gingold --- --- GHDL is free software; you can redistribute it and/or modify it under --- the terms of the GNU General Public License as published by the Free --- Software Foundation; either version 2, or (at your option) any later --- version. --- --- GHDL is distributed in the hope that it will be useful, but WITHOUT ANY --- WARRANTY; without even the implied warranty of MERCHANTABILITY or --- FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --- for more details. --- --- You should have received a copy of the GNU General Public License --- along with GCC; see the file COPYING. If not, write to the Free --- Software Foundation, 59 Temple Place - Suite 330, Boston, MA --- 02111-1307, USA. --- --- As a special exception, if other files instantiate generics from this --- unit, or you link this unit with other files to produce an executable, --- this unit does not by itself cause the resulting executable to be --- covered by the GNU General Public License. This exception does not --- however invalidate any other reasons why the executable file might be --- covered by the GNU Public License. - -with Interfaces.C; use Interfaces.C; -with System; use System; - -package body Windows_Default_Path is - - subtype DWORD is Interfaces.C.Unsigned_Long; - subtype HINSTANCE is Address; - function GetModuleFileName (Inst : HINSTANCE; Buf : Address; Size : DWORD) - return DWORD; - pragma Import (Stdcall, GetModuleFileName, "GetModuleFileNameA"); - - function Get_Windows_Exec_Path return String - is - File : String (1 .. 256); - Size : DWORD; - P : Natural; - begin - -- Get exe file path. - Size := GetModuleFileName (Null_Address, File'Address, File'Length); - if Size = 0 or Size = File'Length then - return "{cannot find install path}\lib"; - end if; - - -- Remove Program file. - P := Natural (Size); - while P > 0 loop - exit when File (P) = '\'; - exit when File (P) = ':' and P = 2; - P := P - 1; - end loop; - if File (P) = '\' and P > 1 then - -- Remove directory - P := P - 1; - while P > 0 loop - exit when File (P) = '\'; - exit when File (P) = ':' and P = 2; - P := P - 1; - end loop; - end if; - - return File (1 .. P); - end Get_Windows_Exec_Path; -end Windows_Default_Path; |