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

lazutils: small optimization

Browse Source 
git-svn-id: trunk@42885 -
This commit is contained in:
mattias 2013-09-19 18:36:23 +00:00
parent 999cc9e8e6
commit a4a4e4c791
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/lazutils/lazutf8.pas
View File

@ -2507,7 +2507,7 @@ begin
2:
begin
SetLength(Result, 2 * N);
System.FillWord(Result[1], N, PWord(Pointer(AUtf8Char))^); ;
System.FillWord(Result[1], N, PWord(Pointer(AUtf8Char))^);
end;
3:
begin
@ -2518,9 +2518,10 @@ begin
PC := PChar(Result);
for i:=1 to N do
begin
PC^ := C1; inc(PC);
PC^ := C2; inc(PC);
PC^ := C3; inc(PC);
PC[0] := C1;
PC[1] := C2;
PC[2] := C3;
inc(PC,3);
end;
end;
4: