paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 13:39:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

DBG: Fix mem leak in expression-eval (hint/inspect)

Browse Source 
git-svn-id: trunk@33221 -
This commit is contained in:
martin 2011-11-02 16:03:29 +00:00
parent 08900f28d7
commit 7275997958
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
debugger/gdbmidebugger.pp
View File

@ -10722,7 +10722,8 @@ end;
function TGDBMIDebuggerCommandEvaluate.GetTypeInfo: TGDBType;
begin
Result := FTypeInfo;
FTypeInfoAutoDestroy := False;
// if the command wasn't executed, typeinfo may still get set, and need auto-destroy
FTypeInfoAutoDestroy := FTypeInfo = nil;
end;
procedure TGDBMIDebuggerCommandEvaluate.DoWatchFreed(Sender: TObject);
@ -11714,6 +11715,7 @@ var
function PrepareExpr(var expr: string; NoAddressOp: Boolean = False): boolean;
begin
Assert(FTypeInfo = nil, 'Type info must be nil');
FTypeInfo := GetGDBTypeInfo(expr, defFullTypeInfo in FEvalFlags, TypeInfoFlags);
Result := FTypeInfo <> nil;
if (not Result) then begin
@ -11859,6 +11861,7 @@ var
else // wdfDefault
begin
Result := False;
Assert(FTypeInfo = nil, 'Type info must be nil');
FTypeInfo := GetGDBTypeInfo(AnExpression, defFullTypeInfo in FEvalFlags, TypeInfoFlags + [gtcfExprEvaluate], FDisplayFormat);
if (FTypeInfo = nil) or (dcsCanceled in SeenStates)