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

LazUtf8: small optimization of Utf8EscapeControlChars.

Browse Source
This commit is contained in:
Bart 2022-01-22 14:55:25 +01:00
parent 0ff1e5d2a7
commit 24bb2eb1a4
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/lazutils/lazutf8.pas
View File

@ -2938,7 +2938,7 @@ const
var
Ch: Char;
i,ResLen: Integer;
SubLen: SizeInt;
SLen, SubLen: SizeInt;
const
MaxGrowFactor: array[TEscapeMode] of integer = (3, 4, 5, 5, 5);
begin
@ -2950,7 +2950,11 @@ begin
SetLength(Result, Length(S)*MaxGrowFactor[EscapeMode]);
ResLen := 0;
//a byte < 127 cannot be part of a multi-byte codepoint, so this is safe
for i := 1 to Length(S) do
//for i := 1 to Length(S) do
i := 1;
SLen := Length(S);
while (i <= SLen) do
begin
Inc(ResLen);
Ch := S[i];
@ -2985,10 +2989,17 @@ begin
Inc(ResLen, SubLen-1);
end;
end;//case
Inc(i);
end
else
begin
Result[ResLen] := Ch;
//Result[ResLen] := Ch;
SubLen := 1;
while (i + SubLen <= SLen) and (S[i+SubLen] > #31) do
Inc(SubLen);
Move(S[i], Result[ResLen], SubLen);
Inc(ResLen, SubLen-1);
Inc(i, SubLen);
end;
end;
SetLength(Result, ResLen);