paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-02 15:42:08 +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: 2:
begin begin
SetLength(Result, 2 * N); SetLength(Result, 2 * N);
System.FillWord(Result[1], N, PWord(Pointer(AUtf8Char))^); ; System.FillWord(Result[1], N, PWord(Pointer(AUtf8Char))^);
end; end;
3: 3:
begin begin
@ -2518,9 +2518,10 @@ begin
PC := PChar(Result); PC := PChar(Result);
for i:=1 to N do for i:=1 to N do
begin begin
PC^ := C1; inc(PC); PC[0] := C1;
PC^ := C2; inc(PC); PC[1] := C2;
PC^ := C3; inc(PC); PC[2] := C3;
inc(PC,3);
end; end;
end; end;
4: 4: