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

IdeDebugger: removed some "experimental" tags

Browse Source
This commit is contained in:
Martin 2024-09-12 12:46:35 +02:00
parent 760cc09988
commit 338e2eca40
7 changed files with 38 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
components/ideintf/idedebuggervalueformatterintf.pas
View File

@ -7,7 +7,7 @@
Abstract:
Interface for the package IdeDebugger
}
unit IdeDebuggerValueFormatterIntf experimental;
unit IdeDebuggerValueFormatterIntf;
{$mode objfpc}{$H+}
{$INTERFACES CORBA}
@ -25,30 +25,27 @@ type
end;
TLazDbgIdeValFormatterFeature = (
vffFormatValue, // FormatValue() for IWatchResultDataIntf
vffFormatOldValue, // FormatValue() for older backends TDBGType
vffFormatValue, // FormatValue() for IWatchResultDataIntf
vffFormatOldValue, // Deprecated: FormatValue() for older backends TDBGType
vffValueData, // Normal data
vffValueMemDump, // MemDump
vffValueMemDump, // MemDump (Experimental)
vffPreventOrigValue, // Does not support having the orig value shown with the translated result
vffSkipOnRecursion // The formatter may match during printing the value => skip it in this case
) experimental;
vffSkipOnRecursion // The formatter may match during printing the value => skip it in this case
);
TLazDbgIdeValFormatterFeatures = set of TLazDbgIdeValFormatterFeature;
ILazDbgIdeValueFormatterIntf = interface
['{AE8A0E22-E052-4C77-AD88-8812D27F3180}']
(* *** Experimental - This interface will still change *** *)
function FormatValue(AWatchValue: IWatchResultDataIntf;
ADisplayFormat: TWatchDisplayFormat;
const ADisplayFormat: TWatchDisplayFormat;
AWatchResultPrinter: IWatchResultPrinter;
out APrintedValue: String
): Boolean; experimental;
): Boolean;
function FormatValue(aDBGType: TDBGType;
aValue: string;
ADisplayFormat: TWatchDisplayFormat;
const ADisplayFormat: TWatchDisplayFormat;
out APrintedValue: String
): boolean; experimental; deprecated 'For values from older backends only - to be removed as backends are upgraded';
@ -113,14 +110,14 @@ type
public
constructor Create; // inherited Create may not be called => use init
function FormatValue(AWatchValue: IWatchResultDataIntf;
ADisplayFormat: TWatchDisplayFormat;
const ADisplayFormat: TWatchDisplayFormat;
AWatchResultPrinter: IWatchResultPrinter;
out APrintedValue: String
): Boolean; virtual; experimental;
): Boolean; virtual;
function FormatValue(aDBGType: TDBGType;
aValue: string;
ADisplayFormat: TWatchDisplayFormat;
const ADisplayFormat: TWatchDisplayFormat;
out APrintedValue: String
): boolean; virtual; experimental; deprecated 'For values from older backends only - to be removed as backends are upgraded';
@ -225,14 +222,14 @@ begin
end;
function TLazDbgIdeValueFormatterGeneric.FormatValue(
AWatchValue: IWatchResultDataIntf; ADisplayFormat: TWatchDisplayFormat;
AWatchValue: IWatchResultDataIntf; const ADisplayFormat: TWatchDisplayFormat;
AWatchResultPrinter: IWatchResultPrinter; out APrintedValue: String): Boolean;
begin
Result := False;
end;
function TLazDbgIdeValueFormatterGeneric.FormatValue(aDBGType: TDBGType;
aValue: string; ADisplayFormat: TWatchDisplayFormat; out APrintedValue: String
aValue: string; const ADisplayFormat: TWatchDisplayFormat; out APrintedValue: String
): boolean;
begin
Result := False;

4
ide/packages/idedebugger/idedebuggervalueformatterarrayofchartostring.pas
View File

@ -36,7 +36,7 @@ type
public
class function GetRegisteredDisplayName: String;
function FormatValue(AWatchValue: IWatchResultDataIntf;
ADisplayFormat: TWatchDisplayFormat;
const ADisplayFormat: TWatchDisplayFormat;
AWatchResultPrinter: IWatchResultPrinter; out APrintedValue: String
): Boolean; override;
function SupportedFeatures: TLazDbgIdeValFormatterFeatures; override;
@ -108,7 +108,7 @@ begin
end;
function TIdeDbgValueFormatterCharArrayToString.FormatValue(
AWatchValue: IWatchResultDataIntf; ADisplayFormat: TWatchDisplayFormat;
AWatchValue: IWatchResultDataIntf; const ADisplayFormat: TWatchDisplayFormat;
AWatchResultPrinter: IWatchResultPrinter; out APrintedValue: String): Boolean;
var
Cnt, i: Integer;

16
ide/packages/idedebugger/idedebuggervalueformattercolor.pas
View File

@ -56,12 +56,12 @@ type
TIdeDbgValueFormatterColor = class(TIdeDbgValueFormatterColorBase)
class function GetRegisteredDisplayName: String;
function FormatValue(AWatchValue: IWatchResultDataIntf;
ADisplayFormat: TWatchDisplayFormat;
const ADisplayFormat: TWatchDisplayFormat;
AWatchResultPrinter: IWatchResultPrinter; out APrintedValue: String
): Boolean; override; experimental;
function FormatValue(aDBGType: TDBGType;
aValue: string;
ADisplayFormat: TWatchDisplayFormat;
const ADisplayFormat: TWatchDisplayFormat;
out APrintedValue: String
): boolean; override; deprecated 'For values from older backends only - to be removed as backends are upgraded';
end;
@ -73,12 +73,12 @@ type
TIdeDbgValueFormatterColorAlpha = class(TIdeDbgValueFormatterColorBase)
class function GetRegisteredDisplayName: String;
function FormatValue(AWatchValue: IWatchResultDataIntf;
ADisplayFormat: TWatchDisplayFormat;
const ADisplayFormat: TWatchDisplayFormat;
AWatchResultPrinter: IWatchResultPrinter; out APrintedValue: String
): Boolean; override; experimental;
function FormatValue(aDBGType: TDBGType;
aValue: string;
ADisplayFormat: TWatchDisplayFormat;
const ADisplayFormat: TWatchDisplayFormat;
out APrintedValue: String
): boolean; override; deprecated 'For values from older backends only - to be removed as backends are upgraded';
end;
@ -192,7 +192,7 @@ end;
{ TIdeDbgValueFormatterColor }
function TIdeDbgValueFormatterColor.FormatValue(
AWatchValue: IWatchResultDataIntf; ADisplayFormat: TWatchDisplayFormat;
AWatchValue: IWatchResultDataIntf; const ADisplayFormat: TWatchDisplayFormat;
AWatchResultPrinter: IWatchResultPrinter; out APrintedValue: String): Boolean;
var
IntToIdentFn: TIntToIdent;
@ -236,7 +236,7 @@ begin
end;
function TIdeDbgValueFormatterColor.FormatValue(aDBGType: TDBGType;
aValue: string; ADisplayFormat: TWatchDisplayFormat; out APrintedValue: String
aValue: string; const ADisplayFormat: TWatchDisplayFormat; out APrintedValue: String
): boolean;
var
c: integer;
@ -287,7 +287,7 @@ begin
end;
function TIdeDbgValueFormatterColorAlpha.FormatValue(
AWatchValue: IWatchResultDataIntf; ADisplayFormat: TWatchDisplayFormat;
AWatchValue: IWatchResultDataIntf; const ADisplayFormat: TWatchDisplayFormat;
AWatchResultPrinter: IWatchResultPrinter; out APrintedValue: String): Boolean;
var
IntToIdentFn: TIntToIdent;
@ -333,7 +333,7 @@ begin
end;
function TIdeDbgValueFormatterColorAlpha.FormatValue(aDBGType: TDBGType;
aValue: string; ADisplayFormat: TWatchDisplayFormat; out APrintedValue: String
aValue: string; const ADisplayFormat: TWatchDisplayFormat; out APrintedValue: String
): boolean;
var
c: int64;

8
ide/packages/idedebugger/idedebuggervalueformattercurrency.pas
View File

@ -23,12 +23,12 @@ type
public
class function GetRegisteredDisplayName: String;
function FormatValue(AWatchValue: IWatchResultDataIntf;
ADisplayFormat: TWatchDisplayFormat;
const ADisplayFormat: TWatchDisplayFormat;
AWatchResultPrinter: IWatchResultPrinter; out APrintedValue: String
): Boolean; override; experimental;
function FormatValue(aDBGType: TDBGType;
aValue: string;
ADisplayFormat: TWatchDisplayFormat;
const ADisplayFormat: TWatchDisplayFormat;
out APrintedValue: String
): boolean; override; deprecated 'For values from older backends only - to be removed as backends are upgraded';
@ -49,7 +49,7 @@ begin
end;
function TIdeDbgValueFormatterCurrency.FormatValue(
AWatchValue: IWatchResultDataIntf; ADisplayFormat: TWatchDisplayFormat;
AWatchValue: IWatchResultDataIntf; const ADisplayFormat: TWatchDisplayFormat;
AWatchResultPrinter: IWatchResultPrinter; out APrintedValue: String): Boolean;
begin
Result := (AWatchValue.ValueKind in [rdkUnsignedNumVal, rdkSignedNumVal]);
@ -74,7 +74,7 @@ begin
end;
function TIdeDbgValueFormatterCurrency.FormatValue(aDBGType: TDBGType;
aValue: string; ADisplayFormat: TWatchDisplayFormat; out APrintedValue: String
aValue: string; const ADisplayFormat: TWatchDisplayFormat; out APrintedValue: String
): boolean;
var
i: int64;

8
ide/packages/idedebugger/idedebuggervalueformatterdatetime.pas
View File

@ -47,12 +47,12 @@ type
class function GetRegisteredDisplayName: String;
//constructor Create;
function FormatValue(AWatchValue: IWatchResultDataIntf;
ADisplayFormat: TWatchDisplayFormat;
const ADisplayFormat: TWatchDisplayFormat;
AWatchResultPrinter: IWatchResultPrinter; out APrintedValue: String
): Boolean; override; experimental;
function FormatValue(aDBGType: TDBGType;
aValue: string;
ADisplayFormat: TWatchDisplayFormat;
const ADisplayFormat: TWatchDisplayFormat;
out APrintedValue: String
): boolean; override; deprecated 'For values from older backends only - to be removed as backends are upgraded';
@ -141,7 +141,7 @@ begin
end;
function TIdeDbgValueFormatterDateTime.FormatValue(
AWatchValue: IWatchResultDataIntf; ADisplayFormat: TWatchDisplayFormat;
AWatchValue: IWatchResultDataIntf; const ADisplayFormat: TWatchDisplayFormat;
AWatchResultPrinter: IWatchResultPrinter; out APrintedValue: String): Boolean;
var
MyDate: Extended;
@ -164,7 +164,7 @@ begin
end;
function TIdeDbgValueFormatterDateTime.FormatValue(aDBGType: TDBGType;
aValue: string; ADisplayFormat: TWatchDisplayFormat; out APrintedValue: String
aValue: string; const ADisplayFormat: TWatchDisplayFormat; out APrintedValue: String
): boolean;
var
FS: TFormatSettings;

4
ide/packages/idedebugger/idedebuggervalueformatterdisplayformat.pas
View File

@ -44,7 +44,7 @@ type
public
class function GetRegisteredDisplayName: String;
function FormatValue(AWatchValue: IWatchResultDataIntf;
ADisplayFormat: TWatchDisplayFormat;
const ADisplayFormat: TWatchDisplayFormat;
AWatchResultPrinter: IWatchResultPrinter; out APrintedValue: String
): Boolean; override; experimental;
@ -134,7 +134,7 @@ begin
end;
function TIdeDbgValueFormatterDisplayFormat.FormatValue(AWatchValue: IWatchResultDataIntf;
ADisplayFormat: TWatchDisplayFormat; AWatchResultPrinter: IWatchResultPrinter; out
const ADisplayFormat: TWatchDisplayFormat; AWatchResultPrinter: IWatchResultPrinter; out
APrintedValue: String): Boolean;
var
d: TWatchDisplayFormat;

8
ide/packages/idedebugger/idedebuggervalueformatterordinaltoname.pas
View File

@ -45,12 +45,12 @@ type
destructor Destroy; override;
class function GetRegisteredDisplayName: String;
function FormatValue(AWatchValue: IWatchResultDataIntf;
ADisplayFormat: TWatchDisplayFormat;
const ADisplayFormat: TWatchDisplayFormat;
AWatchResultPrinter: IWatchResultPrinter; out APrintedValue: String
): Boolean; override;
function FormatValue(aDBGType: TDBGType;
aValue: string;
ADisplayFormat: TWatchDisplayFormat;
const ADisplayFormat: TWatchDisplayFormat;
out APrintedValue: String
): boolean; override;
@ -333,7 +333,7 @@ begin
end;
function TIdeDbgValueFormatterOrdinalToName.FormatValue(AWatchValue: IWatchResultDataIntf;
ADisplayFormat: TWatchDisplayFormat; AWatchResultPrinter: IWatchResultPrinter; out
const ADisplayFormat: TWatchDisplayFormat; AWatchResultPrinter: IWatchResultPrinter; out
APrintedValue: String): Boolean;
var
c: Int64;
@ -353,7 +353,7 @@ begin
end;
function TIdeDbgValueFormatterOrdinalToName.FormatValue(aDBGType: TDBGType; aValue: string;
ADisplayFormat: TWatchDisplayFormat; out APrintedValue: String): boolean;
const ADisplayFormat: TWatchDisplayFormat; out APrintedValue: String): boolean;
var
c: int64;
i: Integer;