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

LazUtils: Masks: TMaskUtf8.intMatches: comment out debug writeln.

Browse Source 
All debug writeln's are disabled by default now.
This commit is contained in:
Bart 2021-11-10 21:43:05 +01:00
parent c5a2248d1e
commit 3af786d415
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/lazutils/masks.pas
View File

@ -648,7 +648,7 @@ procedure TMaskBase.Add(aValue: TMaskParsedCode);
var var
v: BYTE; v: BYTE;
begin begin
writeln('Add: ',aValue); //writeln('Add: ',aValue);
v:=BYTE(aValue); v:=BYTE(aValue);
Add(1,@v); Add(1,@v);
end; end;
@ -657,7 +657,7 @@ procedure TMaskBase.IncrementLastCounterBy(aOpcode: TMaskParsedCode; aValue: int
var var
p: PInteger; p: PInteger;
begin begin
writeln('TMaskBase.IncrementLastCounterBy: aOPcode=',aOpcode,', aValue=',aValue); //writeln('TMaskBase.IncrementLastCounterBy: aOPcode=',aOpcode,', aValue=',aValue);
fMaskCompiledIndex:=fMaskCompiledIndex-sizeof(aValue); fMaskCompiledIndex:=fMaskCompiledIndex-sizeof(aValue);
if TMaskParsedCode(fMaskCompiled[fMaskCompiledIndex-1])<>aOpcode then if TMaskParsedCode(fMaskCompiled[fMaskCompiledIndex-1])<>aOpcode then
Exception_InternalError(); Exception_InternalError();
@ -1208,7 +1208,8 @@ begin
lTryCounter:=PInteger(@fMaskCompiled[aMaskIndex])^; lTryCounter:=PInteger(@fMaskCompiled[aMaskIndex])^;
inc(aMaskIndex,sizeof(integer)); inc(aMaskIndex,sizeof(integer));
if TMaskParsedCode(fMaskCompiled[aMaskIndex])<>TMaskParsedCode.CharsGroupEnd then if TMaskParsedCode(fMaskCompiled[aMaskIndex])<>TMaskParsedCode.CharsGroupEnd then
begin writeln('TMaskUtf8.infMatches: error parsing AnyCharOrNone, missing CharsGroupEnd, fMaskCompiled[',aMaskIndex,']=',fMaskCompiled[aMaskIndex]);Exception_InternalError() end begin //writeln('TMaskUtf8.infMatches: error parsing AnyCharOrNone, missing CharsGroupEnd, fMaskCompiled[',aMaskIndex,']=',fMaskCompiled[aMaskIndex]);
Exception_InternalError() end
else else
aMaskIndex:=lSkipOnSuccessGroup+1; aMaskIndex:=lSkipOnSuccessGroup+1;