paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-25 13:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

IdeDebugger: Optimize ValueFormatter search (cache uppercased string)

Browse Source
This commit is contained in:
Martin 2024-08-25 13:24:06 +02:00
parent 4e9fcdc1eb
commit d55646e450
1 changed files with 22 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
ide/packages/idedebugger/idedebuggervalueformatter.pas
View File

@ -55,6 +55,9 @@ type
function DoFormatValue(AWatchValue: IWatchResultDataIntf; ADisplayFormat: TWatchDisplayFormat;
AWatchResultPrinter: IWatchResultPrinter; out APrintedValue: String
): Boolean;
function MatchesAll(AWatchValue: IWatchResultDataIntf; ADisplayFormat: TWatchDisplayFormat; ANestLevel: integer;
const AWatchedVarUpper, AWatchedExprUpper: String;
var AWatchedTypeUpper: String; var AWatchedTypeUpperDone: Boolean): Boolean;
public
constructor Create;
constructor Create(AFormatter: TLazDbgIdeValueFormatterRegistryEntryClass);
@ -65,8 +68,6 @@ type
procedure LoadDataFromXMLConfig(const AConfig: TRttiXMLConfig; const APath: string);
procedure SaveDataToXMLConfig(const AConfig: TRttiXMLConfig; const APath: string);
function MatchesAll(AWatchValue: IWatchResultDataIntf; ADisplayFormat: TWatchDisplayFormat; ANestLevel: integer;
const AWatchedVarUpper, AWatchedExprUpper: String): Boolean;
function FormatValue(AWatchValue: IWatchResultDataIntf;
ADisplayFormat: TWatchDisplayFormat; ANestLevel: integer;
AWatchResultPrinter: IWatchResultPrinter; out APrintedValue: String;
@ -271,7 +272,8 @@ end;
function TIdeDbgValueFormatterSelector.MatchesAll(AWatchValue: IWatchResultDataIntf;
ADisplayFormat: TWatchDisplayFormat; ANestLevel: integer; const AWatchedVarUpper,
AWatchedExprUpper: String): Boolean;
AWatchedExprUpper: String; var AWatchedTypeUpper: String; var AWatchedTypeUpperDone: Boolean
): Boolean;
var
j: Integer;
a: IWatchResultDataIntf;
@ -287,7 +289,11 @@ begin
then
exit;
if not IsMatchingTypeName(AnsiUpperCase(AWatchValue.TypeName)) then begin
if not AWatchedTypeUpperDone then begin
AWatchedTypeUpper := AnsiUpperCase(AWatchValue.TypeName);
AWatchedTypeUpperDone := True;
end;
if not IsMatchingTypeName(AWatchedTypeUpper) then begin
if not MatchInherited then
exit;
j := AWatchValue.AnchestorCount - 1;
@ -311,8 +317,13 @@ function TIdeDbgValueFormatterSelector.FormatValue(AWatchValue: IWatchResultData
ADisplayFormat: TWatchDisplayFormat; ANestLevel: integer;
AWatchResultPrinter: IWatchResultPrinter; out APrintedValue: String;
const AWatchedVarUpper, AWatchedExprUpper: String): Boolean;
var
AWatchedTypeUpper: String;
AWatchedTypeUpperDone: Boolean;
begin
Result := MatchesAll(AWatchValue, ADisplayFormat, ANestLevel, AWatchedVarUpper, AWatchedExprUpper);
AWatchedTypeUpperDone := False;
Result := MatchesAll(AWatchValue, ADisplayFormat, ANestLevel,
AWatchedVarUpper, AWatchedExprUpper, AWatchedTypeUpper, AWatchedTypeUpperDone);
if Result then
Result := DoFormatValue(AWatchValue, ADisplayFormat, AWatchResultPrinter, APrintedValue);
end;
@ -477,10 +488,15 @@ function TIdeDbgValueFormatterSelectorList.FormatValue(AWatchValue: IWatchResult
var
i: Integer;
f: TIdeDbgValueFormatterSelector;
AWatchedTypeUpper: String;
AWatchedTypeUpperDone: Boolean;
begin
AWatchedTypeUpperDone := False;
for i := 0 to Count - 1 do begin
f := Items[i];
if not f.MatchesAll(AWatchValue, ADisplayFormat, ANestLevel, AWatchedVarUpper, AWatchedExprUpper) then
if not f.MatchesAll(AWatchValue, ADisplayFormat, ANestLevel,
AWatchedVarUpper, AWatchedExprUpper, AWatchedTypeUpper, AWatchedTypeUpperDone)
then
continue;
Result := f.DoFormatValue(AWatchValue, ADisplayFormat, AWatchResultPrinter, APrintedValue);