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

DBG: Disassembler, when having to guess, use an even address.

Browse Source 
git-svn-id: trunk@32453 -
This commit is contained in:
martin 2011-09-21 18:41:42 +00:00
parent 47c3378937
commit 837fe09471
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
debugger/gdbmidebugger.pp
View File

@ -2666,9 +2666,12 @@ function TGDBMIDebuggerCommandDisassembe.DoExecute: Boolean;
var
DisAssList: TGDBMIDisassembleResultList;
DisAssItm: PDisassemblerEntry;
s: TDBGPtr;
begin
Result := False;
DisAssList := ExecDisassmble(AStartAddr.GuessedValue -1, AStartAddr.GuessedValue, False);
// TODO: maybe try "info symbol <addr>
s := (AStartAddr.GuessedValue -1) div 4 * 4; // 4 byte boundary
DisAssList := ExecDisassmble(s, s+1, False);
if DisAssList.Count > 0 then begin
DisAssItm := DisAssList.Item[0];
if (DisAssItm^.FuncName <> '') and (DisAssItm^.Addr <> 0) and (DisAssItm^.Offset >= 0)