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

* fixed alignment leftover in compare

Browse Source 
git-svn-id: trunk@8823 -
This commit is contained in:
peter 2007-10-16 17:53:00 +00:00
parent 4235e9a00a
commit 4f862a23a7
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/generic.inc
View File

@ -348,7 +348,7 @@ begin
end; end;
{ use sizeuint typecast to force shr optimization } { use sizeuint typecast to force shr optimization }
pptruint(pend):=pptruint(psrc)+(sizeuint(len) div sizeof(ptruint)); pptruint(pend):=pptruint(psrc)+(sizeuint(len) div sizeof(ptruint));
len:=len and (sizeof(PtrUInt)-1) shr 1; len:=len and (sizeof(PtrUInt)-1);
while psrc<pend do while psrc<pend do
begin begin
b:=(pptrint(psrc)^-pptrint(pdest)^); b:=(pptrint(psrc)^-pptrint(pdest)^);
@ -414,7 +414,7 @@ begin
end; end;
{ use sizeuint typecast to force shr optimization } { use sizeuint typecast to force shr optimization }
pptruint(pend):=pptruint(psrc)+(sizeuint(len)*2 div sizeof(ptruint)); pptruint(pend):=pptruint(psrc)+(sizeuint(len)*2 div sizeof(ptruint));
len:=len and (sizeof(PtrUInt)-1) shr 1; len:=((len*2) and (sizeof(PtrUInt)-1)) shr 1;
while psrc<pend do while psrc<pend do
begin begin
b:=(pptrint(psrc)^-pptrint(pdest)^); b:=(pptrint(psrc)^-pptrint(pdest)^);
@ -481,7 +481,7 @@ begin
end; end;
{ use sizeuint typecast to force shr optimization } { use sizeuint typecast to force shr optimization }
pptruint(pend):=pptruint(psrc)+(sizeuint(len)*4 div sizeof(ptruint)); pptruint(pend):=pptruint(psrc)+(sizeuint(len)*4 div sizeof(ptruint));
len:=len and (sizeof(PtrUInt)-1) shr 2; len:=((len*4) and (sizeof(PtrUInt)-1)) shr 2;
while psrc<pend do while psrc<pend do
begin begin
b:=(pptrint(psrc)^-pptrint(pdest)^); b:=(pptrint(psrc)^-pptrint(pdest)^);