paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 20:59:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazDebuggerFp, FpDebug: Add option to support "modeswitch AutoDeref" access of values.

Browse Source
This commit is contained in:
Martin 2023-06-08 15:26:01 +02:00
parent 62e692fc24
commit ceaec5975a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpdebug/fppascalparser.pas
View File

@ -1521,7 +1521,7 @@ begin
if Expression.AutoDeref and (TmpVal.Kind = skPointer) and if Expression.AutoDeref and (TmpVal.Kind = skPointer) and
(TmpVal.TypeInfo <> nil) and (TmpVal.TypeInfo.TypeInfo <> nil) 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 then begin
// Copy from TFpPascalExpressionPartOperatorDeRef.DoGetResultValue // Copy from TFpPascalExpressionPartOperatorDeRef.DoGetResultValue
if (svfDataAddress in TmpVal.FieldFlags) and (IsReadableLoc(TmpVal.DerefAddress)) and // TODO, what if Not readable addr if (svfDataAddress in TmpVal.FieldFlags) and (IsReadableLoc(TmpVal.DerefAddress)) and // TODO, what if Not readable addr