paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-06 11:26:00 +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, SysUtils,
{$ifdef windows} {$ifdef windows}
Windows, Windows,
FpDbgWinClasses,
{$endif} {$endif}
FPDCommand, FPDCommand,
FPDGlobal, FPDGlobal,
FPDLoop, FPDLoop,
FPDPEImage, FpDbgClasses,
FPDType, FpDbgDwarfConst,
FpDbgClasses, FpDbgPETypes, FpDbgDwarfConst, FpDbgDwarf; FpDbgDwarf;
{$ifdef windows} {$ifdef windows}
function CtrlCHandler(CtrlType: Cardinal): BOOL; stdcall; function CtrlCHandler(CtrlType: Cardinal): BOOL; stdcall;

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

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

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

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