paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 20:17:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazDebuggerFp (pure): Add statement-index and statement-count to disasembly-statements

Browse Source 
git-svn-id: trunk@44712 -
This commit is contained in:
joost 2014-04-13 09:44:24 +00:00
parent 36cf5c18c1
commit c6d5681d88
1 changed files with 28 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -146,10 +146,14 @@ var
p: pointer;
ADump,
AStatement,
ASrcFileName: string;
ASrcFileLine: integer;
i: Integer;
Sym: TFpDbgSymbol;
ASrcFileName,
APriorFileName: string;
ASrcFileLine,
APriorFileLine: integer;
i,j: Integer;
NextSym,Sym: TFpDbgSymbol;
StatIndex: integer;
FirstIndex: integer;
begin
Result := False;
@ -157,6 +161,11 @@ begin
exit;
AnEntry:=nil;
Sym:=nil;
ASrcFileLine:=0;
ASrcFileName:='';
StatIndex:=0;
FirstIndex:=0;
ARange := TDBGDisassemblerEntryRange.Create;
ARange.RangeStartAddr:=AnAddr;
@ -172,7 +181,19 @@ begin
p := @CodeBin;
FpDbgDisasX86.Disassemble(p, GMode=dm64, ADump, AStatement);
sym := TFpDebugDebugger(Debugger).FDbgController.CurrentProcess.FindSymbol(AnAddr);
Sym := TFpDebugDebugger(Debugger).FDbgController.CurrentProcess.FindSymbol(AnAddr);
// If this is the last statement for this source-code-line, fill the
// SrcStatementCount from the prior statements.
if (assigned(sym) and ((ASrcFileName<>sym.FileName) or (ASrcFileLine<>sym.Line))) or
(not assigned(sym) and ((ASrcFileLine<>0) or (ASrcFileName<>''))) then
begin
for j := 0 to StatIndex-1 do
ARange.EntriesPtr[FirstIndex+j]^.SrcStatementCount:=StatIndex;
StatIndex:=0;
FirstIndex:=i;
end;
if assigned(sym) then
begin
ASrcFileName:=sym.FileName;
@ -189,7 +210,9 @@ begin
AnEntry^.Statement := AStatement;
AnEntry^.SrcFileLine:=ASrcFileLine;
AnEntry^.SrcFileName:=ASrcFileName;
AnEntry^.SrcStatementIndex:=StatIndex;
ARange.Append(AnEntry);
inc(StatIndex);
Inc(AnAddr, PtrUInt(p) - PtrUInt(@CodeBin));
end;
end;