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

FPDebug: fix scanning past end of infodata / fix memleak

Browse Source 
git-svn-id: trunk@43321 -
This commit is contained in:
martin 2013-10-25 12:35:34 +00:00
parent 37802bc55d
commit f1c0a8c344
1 changed files with 19 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
components/fpdebug/fpdbgdwarf.pas
View File

@ -1466,21 +1466,21 @@ var
NewInfo: TDwarfInformationEntry;
FwdInfoPtr: Pointer;
FwdCompUint: TDwarfCompilationUnit;
ti: TDwarfInformationEntry;
ti: TDbgDwarfIdentifier;
begin
ti := nil;
ti:= nil;
NewInfo := FInformationEntry.FindChildByTag(DW_TAG_inheritance);
if (NewInfo <> nil) and
NewInfo.ReadReference(DW_AT_type, FwdInfoPtr, FwdCompUint)
then begin
ti := TDwarfInformationEntry.Create(FwdCompUint, FwdInfoPtr);
DebugLn(FPDBG_DWARF_SEARCH, ['Inherited from ', dbgs(ti.FInformationEntry, FwdCompUint) ]);
NewInfo.ReleaseReference;
NewInfo := TDwarfInformationEntry.Create(FwdCompUint, FwdInfoPtr);
DebugLn(FPDBG_DWARF_SEARCH, ['Inherited from ', dbgs(NewInfo.FInformationEntry, FwdCompUint) ]);
ti := TDbgDwarfIdentifier.CreateSubClass('', NewInfo)
end;
if ti = nil
then SetTypeInfo(nil)
else SetTypeInfo(TDbgDwarfIdentifier.CreateSubClass('', ti));
ReleaseRefAndNil(NewInfo);
ReleaseRefAndNil(ti);
SetTypeInfo(ti);
ti.ReleaseReference;
NewInfo.ReleaseReference;
end;
{ TDbgDwarfTypeIdentifierModifier }
@ -3978,13 +3978,17 @@ begin
Scope.Index := AStartScope.ParentIndex;
//if not Scope2.IsValid then Exit;
if Scope.HasNext then Exit;
if p >= MaxData then break;
Scope.CreateNextForEntry(p);
Exit;
end;
ni := Scope.NextIndex;
if ni < 0 // not Scope.HasNext
then ni := Scope.CreateNextForEntry(p);
then begin
if p >= MaxData then break;
ni := Scope.CreateNextForEntry(p);
end;
// if Level = 0 then Exit;
if CanExit(Result) then Exit;
if (Level = 0) and not (lefSearchSibling in AFlags) then Exit;
@ -4083,6 +4087,7 @@ begin
// we cannot have a next without a defined child
if Def.Children
then begin
assert(p < MaxData, 'Got data for children');
ni := Scope.ChildIndex;
if ni < 0 // not Scope.HasChild
then ni := Scope.CreateChildForEntry(p);
@ -4094,7 +4099,10 @@ begin
ni := Scope.NextIndex;
if ni < 0 // not Scope.HasNext
then ni := Scope.CreateNextForEntry(p);
then begin
if p >= MaxData then break;
ni := Scope.CreateNextForEntry(p);
end;
if CanExit(Result) then Exit;
if (Level = 0) and not (lefSearchSibling in AFlags) then Exit;