From ceaec5975aa3f89531bb92fc6bef225828e050cf Mon Sep 17 00:00:00 2001 From: Martin Date: Thu, 8 Jun 2023 15:26:01 +0200 Subject: [PATCH] LazDebuggerFp, FpDebug: Add option to support "modeswitch AutoDeref" access of values. --- components/fpdebug/fppascalparser.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/components/fpdebug/fppascalparser.pas b/components/fpdebug/fppascalparser.pas index cbf62c876f..0cc2eeab96 100644 --- a/components/fpdebug/fppascalparser.pas +++ b/components/fpdebug/fppascalparser.pas @@ -1521,7 +1521,7 @@ begin if Expression.AutoDeref and (TmpVal.Kind = skPointer) and (TmpVal.TypeInfo <> nil) and (TmpVal.TypeInfo.TypeInfo <> nil) and - (TmpVal.TypeInfo.TypeInfo.Kind in [skProcedure..skArray]) + (TmpVal.TypeInfo.TypeInfo.Kind in [skString, skAnsiString, skWideString, skArray]) then begin // Copy from TFpPascalExpressionPartOperatorDeRef.DoGetResultValue if (svfDataAddress in TmpVal.FieldFlags) and (IsReadableLoc(TmpVal.DerefAddress)) and // TODO, what if Not readable addr