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

FPDebug: fix re-using array data member object

Browse Source 
git-svn-id: trunk@44240 -
This commit is contained in:
martin 2014-02-25 23:55:26 +00:00
parent 818e37a4d3
commit c8c11be08b
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/fpdebug/fpdbgdwarf.pas
View File

@ -1916,13 +1916,19 @@ end;
function TDbgDwarfArraySymbolValue.GetMemberEx(AIndex: array of Int64): TDbgSymbolValue;
var
Addr: TFpDbgMemLocation;
i: Integer;
begin
Result := nil;
assert((FOwner is TDbgDwarfIdentifierArray) and (FOwner.Kind = skArray));
Addr := TDbgDwarfIdentifierArray(FOwner).GetMemberAddress(Self, AIndex);
if not IsReadableLoc(Addr) then exit;
if (FAddrObj = nil) or (FAddrObj.RefCount > 1) then begin
// FAddrObj.RefCount: hold by self
i := 1;
// FAddrObj.RefCount: hold by FResVal (ignore only, if FResVAl is not hold by others)
if (FResVal <> nil) and (FResVal.RefCount = 1) then
i := 2;
if (FAddrObj = nil) or (FAddrObj.RefCount > i) then begin
FAddrObj.ReleaseReference{$IFDEF WITH_REFCOUNT_DEBUG}(@FAddrObj, 'TDbgDwarfArraySymbolValue'){$ENDIF};
FAddrObj := TDbgDwarfSymbolValueConstAddress.Create(Addr);
{$IFDEF WITH_REFCOUNT_DEBUG}FAddrObj.DbgRenameReference(@FAddrObj, 'TDbgDwarfArraySymbolValue');{$ENDIF}