paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 01:28:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazDebuggerFpGdbmi: Add option for IntrinsicPrefix and "modeswitch AutoDeref" .

Browse Source
This commit is contained in:
Martin 2023-06-08 16:03:54 +02:00
parent 315be6c5e1
commit f9dd45a157
1 changed files with 44 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
components/lazdebuggers/lazdebuggerfpgdbmi/fpgdbmidebugger.pp
View File

@ -112,10 +112,27 @@ type
public
class function Caption: String; override;
public
class function CreateProperties: TDebuggerProperties; override; // Creates debuggerproperties
constructor Create(const AExternalDebugger: String); override;
destructor Destroy; override;
end;
{ TFpGDBMIDebuggerProperties }
TFpGDBMIDebuggerProperties = class(TGDBMIDebuggerProperties)
private
FAutoDeref: Boolean;
FIntrinsicPrefix: TFpIntrinsicPrefix;
public
constructor Create; override;
procedure Assign(Source: TPersistent); override;
published
property IntrinsicPrefix: TFpIntrinsicPrefix read FIntrinsicPrefix write FIntrinsicPrefix default ipColon;
property AutoDeref: Boolean read FAutoDeref write FAutoDeref default False;
end;
procedure Register;
implementation
@ -1052,6 +1069,8 @@ begin
LockUnLoadDwarf;
PasExpr := TFpPascalExpression.Create(AExpression, Ctx);
PasExpr.IntrinsicPrefix := TFpGDBMIDebuggerProperties(GetProperties).IntrinsicPrefix;
PasExpr.AutoDeref := TFpGDBMIDebuggerProperties(GetProperties).AutoDeref;
try
if not IsWatchValueAlive then exit;
if AWatchValue <> nil then
@ -1088,6 +1107,8 @@ DebugLn(DBG_VERBOSE, [ErrorHandler.ErrorAsString(PasExpr.Error)]);
then begin
if ResValue.GetInstanceClassName(CastName) then begin
PasExpr2 := TFpPascalExpression.Create(CastName+'('+AExpression+')', Ctx);
PasExpr2.IntrinsicPrefix := TFpGDBMIDebuggerProperties(GetProperties).IntrinsicPrefix;
PasExpr2.AutoDeref := TFpGDBMIDebuggerProperties(GetProperties).AutoDeref;
PasExpr2.ResultValue;
if PasExpr2.Valid then begin
PasExpr.Free;
@ -1195,6 +1216,11 @@ begin
Result := 'GNU debugger (with fpdebug)';
end;
class function TFpGDBMIDebugger.CreateProperties: TDebuggerProperties;
begin
Result := TFpGDBMIDebuggerProperties.Create;
end;
constructor TFpGDBMIDebugger.Create(const AExternalDebugger: String);
begin
FWatchEvalList := TList.Create;
@ -1211,6 +1237,24 @@ begin
inherited Destroy;
end;
{ TFpGDBMIDebuggerProperties }
constructor TFpGDBMIDebuggerProperties.Create;
begin
inherited Create;
FIntrinsicPrefix := ipColon;
FAutoDeref := False;
end;
procedure TFpGDBMIDebuggerProperties.Assign(Source: TPersistent);
begin
inherited Assign(Source);
if Source is TFpGDBMIDebuggerProperties then begin
FIntrinsicPrefix:=TFpGDBMIDebuggerProperties(Source).FIntrinsicPrefix;
FAutoDeref:=TFpGDBMIDebuggerProperties(Source).FAutoDeref;
end;
end;
procedure Register;
begin
//RegisterDebugger(TFpGDBMIDebugger);