paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-09 21:27:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

FpDebugger (pure): Select the right 32/64-bit assembler when cross-debugging

Browse Source 
git-svn-id: trunk@45833 -
This commit is contained in:
joost 2014-07-11 19:58:35 +00:00
parent daf9f126f0
commit 3dd28b3d12
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -160,7 +160,7 @@ begin
end;
p := @CodeBin;
Disassemble(p, GMode=dm64, CodeBytes, Code);
Disassemble(p, GController.CurrentProcess.Mode=dm64, CodeBytes, Code);
WriteLN(' ', CodeBytes:20, ' ', Code);
Inc(a, PtrUInt(p) - PtrUInt(@CodeBin));