From 3fddf1c59fd7a8fcd260bb9e05c611bef3dd141b Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Wed, 5 Nov 2014 05:11:00 +0100
Subject: Move files and dirs from translate/

---
 .../mcode/windows/windows_default_path.adb         | 45 ----------------------
 1 file changed, 45 deletions(-)
 delete mode 100644 src/translate/mcode/windows/windows_default_path.adb

(limited to 'src/translate/mcode/windows/windows_default_path.adb')

diff --git a/src/translate/mcode/windows/windows_default_path.adb b/src/translate/mcode/windows/windows_default_path.adb
deleted file mode 100644
index 23aa2f6..0000000
--- a/src/translate/mcode/windows/windows_default_path.adb
+++ /dev/null
@@ -1,45 +0,0 @@
-with Interfaces.C; use Interfaces.C;
-with System; use System;
-
-package body Windows_Default_Path is
-
-   subtype DWORD is Interfaces.C.Unsigned_Long;
-   subtype LPWSTR is String;
-   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;
-
-- 
cgit