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

lazdebuggerfp: less hints

Browse Source 
git-svn-id: trunk@46943 -
This commit is contained in:
mattias 2014-11-21 23:41:35 +00:00
parent 2a62d80f76
commit e899da956f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -799,14 +799,14 @@ begin
AnEntry^.SrcStatementIndex:=StatIndex; AnEntry^.SrcStatementIndex:=StatIndex;
ARange.Append(AnEntry); ARange.Append(AnEntry);
inc(StatIndex); inc(StatIndex);
Inc(AnAddr, PtrUInt(p) - PtrUInt(@CodeBin)); Inc(AnAddr, {%H-}PtrUInt(p) - {%H-}PtrUInt(@CodeBin));
end; end;
end; end;
if assigned(AnEntry) then if assigned(AnEntry) then
begin begin
ARange.RangeEndAddr:=AnEntry^.Addr; ARange.RangeEndAddr:=AnEntry^.Addr;
ARange.LastEntryEndAddr:=TDBGPtr(p); ARange.LastEntryEndAddr:={%H-}TDBGPtr(p);
EntryRanges.AddRange(ARange); EntryRanges.AddRange(ARange);
result := true; result := true;
end end