paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 15:49:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* move instead of loop, mantis #32402

Browse Source 
git-svn-id: trunk@37190 -
This commit is contained in:
marco 2017-09-11 20:42:08 +00:00
parent 7a86d10b05
commit 84def3e29d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/regexpr/src/regexpr.pas
View File

@ -714,8 +714,8 @@ function StrPCopy (Dest: PRegExprChar; const Source: RegExprString): PRegExprCha
i, Len : PtrInt;
begin
Len := length (Source); //###0.932
for i := 1 to Len do
Dest [i - 1] := Source [i];
if Len>0 then
move(Source[1],Dest[0],Len*sizeof(ReChar));
Dest [Len] := #0;
Result := Dest;
end; { of function StrPCopy
@ -724,8 +724,8 @@ function StrPCopy (Dest: PRegExprChar; const Source: RegExprString): PRegExprCha
function StrLCopy (Dest, Source: PRegExprChar; MaxLen: PtrUInt): PRegExprChar;
var i: PtrInt;
begin
for i := 0 to MaxLen - 1 do
Dest [i] := Source [i];
if MaxLen>0 then
move(Source[0],Dest[0],MaxLen*sizeof(ReChar));
Result := Dest;
end; { of function StrLCopy
--------------------------------------------------------------}