paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-02 18:00:26 +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 16:02:32 +02:00
parent 48401c65c8
commit 1f70742be3
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/lazdebuggers/lazdebuggerfp/fpdebugdebuggerworkthreads.pas
View File

@ -717,6 +717,7 @@ begin
APasExpr := TFpPascalExpression.Create(FExpression, ExpressionScope, True);
APasExpr.IntrinsicPrefix := TFpDebugDebuggerProperties(FDebugger.GetProperties).IntrinsicPrefix;
APasExpr.AutoDeref := TFpDebugDebuggerProperties(FDebugger.GetProperties).AutoDeref;
APasExpr.Parse;
try
APasExpr.ResultValue; // trigger full validation
@ -1161,6 +1162,7 @@ begin
if ResValue.GetInstanceClassName(CastName) then begin
PasExpr2 := TFpPascalExpression.Create(CastName+'('+AnExpression+')', FExpressionScope, True);
PasExpr2.IntrinsicPrefix := TFpDebugDebuggerProperties(FDebugger.GetProperties).IntrinsicPrefix;
PasExpr2.AutoDeref := TFpDebugDebuggerProperties(FDebugger.GetProperties).AutoDeref;
PasExpr2.Parse;
PasExpr2.ResultValue;
if PasExpr2.Valid then begin
@ -1401,6 +1403,7 @@ begin
if CurContext <> nil then begin
WatchPasExpr := TFpPascalExpression.Create(FWatchData, CurContext, True);
WatchPasExpr.IntrinsicPrefix := TFpDebugDebuggerProperties(FDebugger.GetProperties).IntrinsicPrefix;
WatchPasExpr.AutoDeref := TFpDebugDebuggerProperties(FDebugger.GetProperties).AutoDeref;
WatchPasExpr.Parse;
R := WatchPasExpr.ResultValue; // Address and Size
// TODO: Cache current value