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

FPDebug: clean up / fix array len

Browse Source 
git-svn-id: trunk@44209 -
This commit is contained in:
martin 2014-02-23 00:49:05 +00:00
parent c2935704dd
commit 799ade039d
3 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpdebug/fpdbgdwarf.pas
View File

@ -1941,7 +1941,7 @@ begin
then begin
Addr.Address := Addr.Address - 4;
if MemManager.ReadSignedInt(Addr, 4, i) then begin
Result := Integer(i);
Result := Integer(i)+1;
exit;
end;
end;

7
components/fpdebug/fppascalbuilder.pas
View File

@ -410,9 +410,14 @@ function PrintPasValue(out APrintedValue: String; AResValue: TDbgSymbolValue;
s: String;
t: TDbgSymbol;
i: Integer;
v: QWord;
begin
s := ResTypeName;
APrintedValue := '$'+IntToHex(AResValue.AsCardinal, AnAddrSize);
v := AResValue.AsCardinal;
if v = 0 then
APrintedValue := 'nil'
else
APrintedValue := '$'+IntToHex(AResValue.AsCardinal, AnAddrSize);
if s <> '' then
APrintedValue := s + '(' + APrintedValue + ')';

6
components/lazdebuggerfp/fpgdbmidebugger.pp
View File

@ -1186,7 +1186,7 @@ begin
end;
if AStackFrame = 0 then begin
Result := t.Address;
DebugLn(['Returning addr from Threads', dbgs(Result)]);
//DebugLn(['Returning addr from Threads', dbgs(Result)]);
exit;
end;
@ -1202,7 +1202,7 @@ begin
end;
Result := f.Address;
DebugLn(['Returning addr from frame', dbgs(Result)]);
//DebugLn(['Returning addr from frame', dbgs(Result)]);
end;
@ -1231,11 +1231,11 @@ begin
(FLastContext[AStackFrame - FlastStackFrame] <> nil) and
(FLastContext[AStackFrame - FlastStackFrame].Address = Addr)
then begin
DebugLn('******* cached contex <<<<<<<<<<<');
Result := FLastContext[AStackFrame - FlastStackFrame];
exit;
end;
DebugLn(['* FDwarfInfo.FindContext ', dbgs(Addr)]);
Result := FDwarfInfo.FindContext(Addr);
FLastThread := AThreadId;