paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 07:59:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDbg: ifdef windows specific code

Browse Source 
git-svn-id: trunk@42901 -
This commit is contained in:
martin 2013-09-20 11:23:26 +00:00
parent 03c883ceda
commit 4706e9b222
2 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/fpdebug/fpdbgdisasx86.pp
View File

@ -39,7 +39,11 @@ interface
{.$define verbose_string_instructions}
uses
SysUtils, Windows, FpDbgUtil, FpDbgWinExtra, FpDbgClasses;
SysUtils,
{$ifdef windows}
Windows,
{$endif}
FpDbgUtil, FpDbgWinExtra, FpDbgClasses;
{
The function Disassemble decodes the instruction at the given address.
@ -54,9 +58,11 @@ uses
}
{$ifdef windows}
procedure Disassemble(var AAddress: Pointer; const A64Bit: Boolean; out ACodeBytes: String; out ACode: String);
procedure Disassemble(const AProcess: Handle; const A64Bit: Boolean; var AAddress: TDbgPtr; out ACodeBytes: String; out ACode: String);
function Disassemble(const AProcess: Handle; const A64Bit: Boolean; var AAddress: TDbgPtr): String;
{$endif}
implementation
@ -82,6 +88,7 @@ type
TOperandFlag = (ofMemory);
TOperandFlags = set of TOperandFlag;
{$ifdef windows}
function Disassemble(const AProcess: Handle; const A64Bit: Boolean; var AAddress: TDbgPtr): String;
var
S: String;
@ -3124,6 +3131,7 @@ begin
ACodeBytes := S;
Inc(AAddress, CodeIdx);
end;
{$endif}
end.

9
components/fpdebug/fpdbgsymbols.pas
View File

@ -38,13 +38,19 @@ unit FpDbgSymbols;
interface
uses
Windows, Classes, SysUtils, FpDbgClasses, FpDbgWinExtra, FpDbgPETypes, FpDbgDwarf, FpDbgUtil;
{$ifdef windows}
Windows,
{$endif}
Classes, SysUtils, FpDbgClasses, FpDbgWinExtra, FpDbgPETypes, FpDbgDwarf, FpDbgUtil;
{$ifdef windows}
procedure AddSymbols(AParent: TDbgSymbol; AModule: THandle);
{$endif}
implementation
{$ifdef windows}
procedure AddSymbols(AParent: TDbgSymbol; AModule: THandle);
var
ModulePtr: Pointer;
@ -236,6 +242,7 @@ begin
Sections.Free;
end;
end;
{$endif}
end.