paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 10:26:06 +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 begin
Result:=True; Result:=True;
I:=0; I:=0;
While Result and (i<Length) do If (P1)<>(P2) then
begin While Result and (i<Length) do
Result:=Byte(P1^)=Byte(P2^); begin
Inc(I); Result:=PByte(P1)^=PByte(P2)^;
Inc(pchar(P1)); Inc(I);
Inc(pchar(P2)); Inc(pchar(P1));
end; Inc(pchar(P2));
end;
end; end;
@ -2008,7 +2009,10 @@ const
{ {
$Log$ $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 + Patched CompareMem for case when length is 0
Revision 1.4 2003/11/09 13:37:42 michael Revision 1.4 2003/11/09 13:37:42 michael