paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-26 13:57:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: Masks: only conditionally compile TMaskUtf8.DumpMaskColpiled.

Browse Source 
Note: code contains writeln's, so it will crash if no console is available.
This commit is contained in:
Bart 2021-11-09 19:16:34 +01:00
parent 3679a90e37
commit b68d0b882a
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
components/lazutils/masks.pas
View File

@ -16,6 +16,7 @@
unit Masks; unit Masks;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
{$define debug_maskcompiled}
interface interface
@ -233,7 +234,9 @@ type
function intfMatches(aMatchOffset: integer; aMaskIndex: integer): TMaskFailCause; //override; function intfMatches(aMatchOffset: integer; aMaskIndex: integer): TMaskFailCause; //override;
public public
{$IFDEF debug_maskcompiled}
procedure DumpMaskCompiled; procedure DumpMaskCompiled;
{$ENDIF}
constructor Create(const aMask: String); constructor Create(const aMask: String);
constructor Create(const aMask: String; aCaseSensitive: Boolean); constructor Create(const aMask: String; aCaseSensitive: Boolean);
@ -1026,7 +1029,9 @@ begin
writeln('fMaskCompiled:'); writeln('fMaskCompiled:');
writeln('fMaskCompiledLimit=',fMaskCompiledLimit); writeln('fMaskCompiledLimit=',fMaskCompiledLimit);
writeln('fMaskCompiledIndex=',fMaskCompiledIndex); writeln('fMaskCompiledIndex=',fMaskCompiledIndex);
{$IFDEF debug_maskcompiled}
DumpMaskCompiled; DumpMaskCompiled;
{$ENDIF}
end; end;
class function TMaskUTF8.CompareUTF8Sequences(const P1, P2: PChar): integer; class function TMaskUTF8.CompareUTF8Sequences(const P1, P2: PChar): integer;
@ -1197,19 +1202,19 @@ begin
Result:=TMaskFailCause.mfcMatchStringExhausted; Result:=TMaskFailCause.mfcMatchStringExhausted;
end; end;
{$IFDEF debug_maskcompiled}
procedure TMaskUTF8.DumpMaskCompiled; procedure TMaskUTF8.DumpMaskCompiled;
var var
junk,H: Integer; i: Integer;
junkbyte: Byte; b: Byte;
begin begin
H := High(fMaskCompiled); for i := low(fMaskCompiled) to fMaskCompiledIndex-1 do
if H > 12 then H := 12;
for junk := low(fMaskCompiled) to fMaskCompiledIndex-1 do
begin begin
junkbyte := fMaskCompiled[junk]; b := fMaskCompiled[i];
writeln(junk:2,': ',junkbyte:3); writeln(i:2,': ',b:3);
end; end;
end; end;
{$ENDIF}
constructor TMaskUTF8.Create(const aMask: String); constructor TMaskUTF8.Create(const aMask: String);
begin begin