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

Merged revision(s) 51579-51580 #20e4fc2e10-#20e4fc2e10 from trunk:

Browse Source 
fpdebbugger: fix releasing context / revision 50963 #b5434dee75
........
fpdebugger: fix another Free instead of ReleaseRef
........

git-svn-id: branches/fixes_1_6@51581 -
This commit is contained in:
martin 2016-02-10 19:00:30 +00:00
parent 0abbde5c35
commit b4b19b35df
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpdebug/fpdbgclasses.pp
View File

@ -484,7 +484,7 @@ end;
destructor TDbgCallstackEntry.Destroy;
begin
FreeAndNil(FRegisterValueList);
FreeAndNil(FSymbol);
ReleaseRefAndNil(FSymbol);
inherited Destroy;
end;

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

@ -525,7 +525,7 @@ begin
params := params + v;
end;
end;
AContext.Free;
AContext.ReleaseReference;
end;
end;
end;