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

FpDebug (pure): Changes for cross-debugging

Browse Source 
git-svn-id: trunk@45315 -
This commit is contained in:
joost 2014-06-03 06:15:08 +00:00
parent 22d2d30164
commit 51c0c59b2b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpdebug/fpdbgclasses.pp
View File

@ -787,7 +787,7 @@ var
dw: DWord;
qw: QWord;
begin
case GMode of
case Mode of
dm32:
begin
result := ReadData(AAdress, sizeof(dw), dw);
@ -1160,7 +1160,7 @@ begin
if FProcess.ReadData(FProcess.GetInstructionPointerRegisterValue,sizeof(CodeBin),CodeBin) then
begin
p := @CodeBin;
Disassemble(p, GMode=dm64, ADump, AStatement);
Disassemble(p, FProcess.Mode=dm64, ADump, AStatement);
if copy(AStatement,1,4)='call' then
CallInstr:=true;
end;