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

LazUtf8: use unsigned variables in Utf8LengthFast.

Browse Source
This commit is contained in:
Bart 2021-12-28 14:28:50 +01:00
parent 915a1660ef
commit 71d44be64a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/lazutils/lazutf8.pas
View File

@ -518,10 +518,10 @@ const
EIGHTYMASK=$8080808080808080;
{$endif}
var
pnx: PPtrInt absolute p; // To get contents of text in PtrInt blocks. x refers to 32 or 64 bits
pn8: pint8 absolute pnx; // To read text as Int8 in the initial and final loops
ix: PtrInt absolute pnx; // To read text as PtrInt in the block loop
nx: PtrInt; // values processed in block loop
pnx: PPtrUInt absolute p; // To get contents of text in PtrInt blocks. x refers to 32 or 64 bits
pn8: puint8 absolute pnx; // To read text as Int8 in the initial and final loops
ix: PtrUInt absolute pnx; // To read text as PtrInt in the block loop
nx: PtrUInt; // values processed in block loop
i,cnt,e: PtrInt;
begin
Result := 0;