From 899367e92f8816f95448c7c002a0d26feb462759 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Thu, 14 Jun 2018 11:55:32 +0000
Subject: [PATCH] Fix mem leak from revision 58238 #cef14db081: "DebuggerIntf:
 Refactor, evaluate now takes a callback"

git-svn-id: trunk@58267 -
---
 ide/main.pp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ide/main.pp b/ide/main.pp
index cc64d38c79..d2db5e3b72 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -11059,8 +11059,10 @@ begin
 
         FDebugResText := ResultText;
 
-        if DebugBoss.Evaluate('('+FExpression + ')^', @AddDebuggerResultDeref, Opts) then
+        if DebugBoss.Evaluate('('+FExpression + ')^', @AddDebuggerResultDeref, Opts) then begin
+          FreeAndNil(ResultDBGType);
           exit;
+        end;
       end;
     end else
       FDebugResText := DebugBoss.FormatValue(ResultDBGType, ResultText);