paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-31 04:12:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDbg: Removed unused windows from uses and added some units to fix compilation on Windows.

Browse Source 
git-svn-id: trunk@44424 -
This commit is contained in:
joost 2014-03-13 21:34:27 +00:00
parent 82b4f80321
commit ade43d3625
3 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/fpdebug/app/fpd/fpd.lpr
View File

@ -40,13 +40,14 @@ uses
SysUtils,
{$ifdef windows}
Windows,
FpDbgWinClasses,
{$endif}
FPDCommand,
FPDGlobal,
FPDLoop,
FPDPEImage,
FPDType,
FpDbgClasses, FpDbgPETypes, FpDbgDwarfConst, FpDbgDwarf;
FpDbgClasses,
FpDbgDwarfConst,
FpDbgDwarf;
{$ifdef windows}
function CtrlCHandler(CtrlType: Cardinal): BOOL; stdcall;

2
components/fpdebug/app/fpd/fpdglobal.pas
View File

@ -36,7 +36,7 @@ unit FPDGlobal;
interface
uses
SysUtils, FPDType, Maps, FpDbgUtil, FpDbgClasses;
SysUtils, Maps, FpDbgUtil, FpDbgClasses;
type
TFPDImageInfo = (iiNone, iiName, iiDetail);

2
components/fpdebug/app/fpd/fpdpeimage.pas
View File

@ -37,7 +37,7 @@ unit FPDPEImage;
interface
uses
Windows, SysUtils, FPDGLobal, FpDbgInfo, FpDbgClasses, FpDbgPETypes, DbgIntfBaseTypes;
Windows, SysUtils, FPDGLobal, FpDbgInfo, FpDbgClasses, FpDbgPETypes, DbgIntfBaseTypes, FpDbgUtil;
procedure DumpPEImage(const AProcessHandle: THandle; const AAddress: TDbgPtr);