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

debugger: disassembler,Fixed missing mem-dump

Browse Source 
git-svn-id: trunk@28236 -
This commit is contained in:
martin 2010-11-15 00:02:10 +00:00
parent ddc9a46f1b
commit 74c0ce2bb6
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
debugger/gdbmidebugger.pp
View File

@ -1534,6 +1534,7 @@ function TGDBMIDebuggerCommandDisassembe.DoExecute: Boolean;
if (DisAssListWithSrc.Count > 0) and (not DisAssListWithSrc.HasSourceInfo) if (DisAssListWithSrc.Count > 0) and (not DisAssListWithSrc.HasSourceInfo)
then begin then begin
// no source avail, but got data // no source avail, but got data
DisAssListWithSrc.AddMemDump(MemDump);
CopyToRange(DisAssListWithSrc, NewRange, 0, DisAssListWithSrc.Count); CopyToRange(DisAssListWithSrc, NewRange, 0, DisAssListWithSrc.Count);
i := NextProcIdx; i := NextProcIdx;
Result := True; Result := True;
@ -1543,6 +1544,7 @@ function TGDBMIDebuggerCommandDisassembe.DoExecute: Boolean;
//get the source-less code as reference //get the source-less code as reference
DisAssListNew := ExecDisassmble(DisAssList.Item[i]^.Addr - DisAssList.Item[i]^.Offset, DisAssListNew := ExecDisassmble(DisAssList.Item[i]^.Addr - DisAssList.Item[i]^.Offset,
NextProcAddr, False, DisAssListNew); NextProcAddr, False, DisAssListNew);
DisAssListNew.AddMemDump(MemDump);
CopyToRange(DisAssListNew, NewRange, 0, DisAssListNew.Count, DisAssListWithSrc); CopyToRange(DisAssListNew, NewRange, 0, DisAssListNew.Count, DisAssListWithSrc);
i := NextProcIdx; i := NextProcIdx;
Result := True; Result := True;