paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 08:19:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: Fixed compilation after recent changes and with fpc 2.6.2

Browse Source 
git-svn-id: trunk@44632 -
This commit is contained in:
joost 2014-04-07 16:34:55 +00:00
parent 464b450a90
commit 813e158c7d
2 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/fpdebug/fpdbgclasses.pp
View File

@ -85,7 +85,7 @@ type
constructor Create(ADbgProcess: TDbgProcess); constructor Create(ADbgProcess: TDbgProcess);
function ReadMemory(AnAddress: TDbgPtr; ASize: Cardinal; ADest: Pointer): Boolean; override; function ReadMemory(AnAddress: TDbgPtr; ASize: Cardinal; ADest: Pointer): Boolean; override;
function ReadMemoryEx(AnAddress, AnAddressSpace: TDbgPtr; ASize: Cardinal; ADest: Pointer): Boolean; override; function ReadMemoryEx(AnAddress, AnAddressSpace: TDbgPtr; ASize: Cardinal; ADest: Pointer): Boolean; override;
function ReadRegister(ARegNum: Cardinal; out AValue: TDbgPtr): Boolean; override; function ReadRegister(ARegNum: Cardinal; out AValue: TDbgPtr; AContext: TFpDbgAddressContext): Boolean; override;
function RegisterSize(ARegNum: Cardinal): Integer; override; function RegisterSize(ARegNum: Cardinal): Integer; override;
end; end;
@ -312,15 +312,11 @@ begin
FDbgProcess.ReadData(AnAddress, ASize, ADest^); FDbgProcess.ReadData(AnAddress, ASize, ADest^);
end; end;
function TDbgMemReader.ReadRegister(ARegNum: Cardinal; out AValue: TDbgPtr): Boolean; function TDbgMemReader.ReadRegister(ARegNum: Cardinal; out AValue: TDbgPtr; AContext: TFpDbgAddressContext): Boolean;
begin begin
result := true;
case ARegNum of
// ToDo: Link the Dwarf-register-numbers to the actual registers.
// 0: AValue:=FDbgProcess.MainThread.RegisterValueList.GetDbgRegister('eax').NumValue;
else
result := false; result := false;
end // ToDo: Link the Dwarf-register-numbers to the actual registers.
// AValue:=FDbgProcess.MainThread.RegisterValueList.GetDbgRegister('eax').NumValue;
end; end;
function TDbgMemReader.RegisterSize(ARegNum: Cardinal): Integer; function TDbgMemReader.RegisterSize(ARegNum: Cardinal): Integer;

2
components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
View File

@ -125,7 +125,7 @@ end;
procedure TFPWatches.InternalRequestData(AWatchValue: TWatchValue); procedure TFPWatches.InternalRequestData(AWatchValue: TWatchValue);
var var
AContext: TDbgInfoAddressContext; AContext: TFpDbgInfoContext;
AController: TDbgController; AController: TDbgController;
APasExpr: TFpPascalExpression; APasExpr: TFpPascalExpression;