From beefb8ac705518435700e6e05f995adf6b2cdb8f Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Mon, 26 Feb 2018 18:39:24 +0000
Subject: [PATCH] Debugger, GDBMI: preserve/restore (workaround). gdb error
 msg, when using ptype from cache.

git-svn-id: trunk@57380 -
---
 components/lazdebuggergdbmi/gdbmidebugger.pp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/components/lazdebuggergdbmi/gdbmidebugger.pp b/components/lazdebuggergdbmi/gdbmidebugger.pp
index 83a8dc4fb6..e5d6bf00c4 100644
--- a/components/lazdebuggergdbmi/gdbmidebugger.pp
+++ b/components/lazdebuggergdbmi/gdbmidebugger.pp
@@ -330,7 +330,7 @@ type
     FState : TGDBMIDebuggerCommandState;
     FSeenStates: TGDBMIDebuggerCommandStates;
     FLastExecCommand: String;
-    FLastExecResult: TGDBMIExecResult;
+    FLastExecResult: TGDBMIExecResult; // deprecated;
     FLogWarnings, FFullCmdReply: String;
     FGotStopped: Boolean; // used in ProcessRunning
     function GetDebuggerProperties: TGDBMIDebuggerPropertiesBase;
@@ -10986,6 +10986,9 @@ begin
         CReq := FTheDebugger.FTypeRequestCache.Request[i];
         AReq^.Result := CReq.Result;
         AReq^.Error := CReq.Error;
+        //TODO: get rid of FLastExecResult
+        FLastExecResult.State := dsError;
+        FLastExecResult.Values := CReq.Result.GdbDescription;
       end
       else begin
         f :=  ExecuteCommand(AReq^.Request, R);