From 16fc76f1ab7b382fb6943c8bc8adfb5022a1e539 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Fri, 20 Sep 2013 09:36:28 +0000
Subject: [PATCH] FpDbg: ifdef all windows specific code

git-svn-id: trunk@42897 -
---
 components/fpdebug/fpdbgloader.pp  |  9 ++++++++-
 components/fpdebug/fpdbgpetypes.pp | 14 +++++++++++++-
 2 files changed, 21 insertions(+), 2 deletions(-)

diff --git a/components/fpdebug/fpdbgloader.pp b/components/fpdebug/fpdbgloader.pp
index 09ea9e403e..fc50ef4605 100644
--- a/components/fpdebug/fpdbgloader.pp
+++ b/components/fpdebug/fpdbgloader.pp
@@ -38,8 +38,9 @@ unit FpDbgLoader;
 interface
 
 uses
+  LCLType,
   {$ifdef windows}
-  Windows,
+  Windows, // After LCLType
   {$endif}
   Classes, SysUtils, FpDbgPETypes;
 
@@ -216,11 +217,13 @@ end;
 
 constructor TDbgWinPEImageLoader.Create(const AFileName: String);
 begin
+  {$ifdef windows}
   FFileHandle := CreateFile(PChar(AFileName), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
   if FFileHandle = INVALID_HANDLE_VALUE
   then begin
     WriteLN('Cannot open file: ', AFileName);
   end;
+  {$endif}
   inherited Create;
 end;
 
@@ -236,12 +239,14 @@ end;
 
 procedure TDbgWinPEImageLoader.DoCleanup;
 begin
+  {$ifdef windows}
   if FModulePtr <> nil
   then UnmapViewOfFile(FModulePtr);
   if FMapHandle <> 0
   then CloseHandle(FMapHandle);
   if FFileHandle <> INVALID_HANDLE_VALUE
   then CloseHandle(FFileHandle);
+  {$endif}
 
   FFileHandle := INVALID_HANDLE_VALUE;
   FMapHandle := 0;
@@ -254,6 +259,7 @@ var
 begin
   Result := False;
 
+  {$ifdef windows}
   try
     FMapHandle := CreateFileMapping(FFileHandle, nil, PAGE_READONLY{ or SEC_IMAGE}, 0, 0, nil);
     if FMapHandle = 0
@@ -287,6 +293,7 @@ begin
       DoCleanup;
     end;
   end;
+  {$endif}
 end;
 
 procedure TDbgWinPEImageLoader.UnloadData;
diff --git a/components/fpdebug/fpdbgpetypes.pp b/components/fpdebug/fpdbgpetypes.pp
index 2f6381c62f..e82240a50b 100644
--- a/components/fpdebug/fpdbgpetypes.pp
+++ b/components/fpdebug/fpdbgpetypes.pp
@@ -23,14 +23,26 @@
 unit FpDbgPETypes;
 {$mode objfpc}{$H+}{$inline on}
 interface
-
+{$ifdef windows}
 uses
   Windows;
+{$endif}
 
 //
 // Image Format
 //
 
+{$IFNDEF windows}
+type
+   SHORT = smallint;
+   LONG  = longint;
+   ULONGLONG  = qword;      // used in AMD64 CONTEXT
+   GUID = system.tguid;
+   CLSID = GUID;
+{$endif}
+
+
+
 const
 {$ifdef ENDIAN_LITTLE}