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

FPDebug: fix dwarf reader. do not scan past end of data

Browse Source 
git-svn-id: trunk@43298 -
This commit is contained in:
martin 2013-10-21 09:36:20 +00:00
parent c3cd2af441
commit eb2df97821
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpdebug/fpdbgdwarf.pas
View File

@ -3807,7 +3807,7 @@ begin
MaxData := FInfoData + FLength; MaxData := FInfoData + FLength;
Scope := AStartScope; Scope := AStartScope;
p := Scope.Entry; p := Scope.Entry;
while (p <= MaxData) and (Level >= 0) do while (p < MaxData) and (Level >= 0) do
begin begin
p := Scope.Entry; p := Scope.Entry;
p2:=p; p2:=p;
@ -3949,7 +3949,9 @@ begin
Scope.Index := ni; // GoNext Scope.Index := ni; // GoNext
end; end;
if (p > MaxData) then begin if (p >= MaxData) then begin
if (p > MaxData) then
debugln(FPDBG_DWARF_WARNINGS, ['LocateEntry went past end of memory: ', p-MaxData]);
SetLength(FScopeList.List, FScopeList.HighestKnown + 1); SetLength(FScopeList.List, FScopeList.HighestKnown + 1);
end; end;