paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 18:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Small optimization in comparemem

Browse Source
This commit is contained in:
michael 2003-11-22 16:17:26 +00:00
parent cae0e667de
commit 3e33c1a5ab
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rtl/objpas/sysutils/sysstr.inc
View File

@ -145,13 +145,14 @@ var
begin
Result:=True;
I:=0;
While Result and (i<Length) do
begin
Result:=Byte(P1^)=Byte(P2^);
Inc(I);
Inc(pchar(P1));
Inc(pchar(P2));
end;
If (P1)<>(P2) then
While Result and (i<Length) do
begin
Result:=PByte(P1)^=PByte(P2)^;
Inc(I);
Inc(pchar(P1));
Inc(pchar(P2));
end;
end;
@ -2008,7 +2009,10 @@ const
{
$Log$
Revision 1.5 2003-11-22 15:46:48 michael
Revision 1.6 2003-11-22 16:17:26 michael
+ Small optimization in comparemem
Revision 1.5 2003/11/22 15:46:48 michael
+ Patched CompareMem for case when length is 0
Revision 1.4 2003/11/09 13:37:42 michael