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

* alignment handling of generic fillbyte/word fixed

Browse Source
This commit is contained in:
florian 2004-01-31 16:14:24 +00:00
parent 675cc6f20f
commit 87f13990e5
1 changed files with 31 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
rtl/inc/generic.inc
View File

@ -55,12 +55,21 @@ var
begin
if count <= 0 then exit;
v := 0;
v:=(value shl 8) or (value and $FF);
v:=(v shl 16) or (v and $ffff);
for i:=0 to (count div 4) -1 do
longintarray(x)[i]:=v;
for i:=(count div 4)*4 to count-1 do
bytearray(x)[i]:=value;
{ aligned? }
if (PtrUInt(@x) mod sizeof(PtrUInt))<>0 then
begin
for i:=0 to count-1 do
bytearray(x)[i]:=value;
end
else
begin
v:=(value shl 8) or (value and $FF);
v:=(v shl 16) or (v and $ffff);
for i:=0 to (count div 4)-1 do
longintarray(x)[i]:=v;
for i:=(count div 4)*4 to count-1 do
bytearray(x)[i]:=value;
end;
end;
{$endif FPC_SYSTEM_HAS_FILLCHAR}
@ -82,11 +91,20 @@ var
i,v : longint;
begin
if Count <= 0 then exit;
v:=value*$10000+value;
for i:=0 to (count div 2) -1 do
longintarray(x)[i]:=v;
for i:=(count div 2)*2 to count-1 do
wordarray(x)[i]:=value;
{ aligned? }
if (PtrUInt(@x) mod sizeof(PtrUInt))<>0 then
begin
for i:=0 to count-1 do
wordarray(x)[i]:=value;
end
else
begin
v:=value*$10000+value;
for i:=0 to (count div 2) -1 do
longintarray(x)[i]:=v;
for i:=(count div 2)*2 to count-1 do
wordarray(x)[i]:=value;
end;
end;
{$endif not FPC_SYSTEM_HAS_FILLWORD}
@ -1119,8 +1137,8 @@ end;
{
$Log$
Revision 1.67 2004-01-28 17:02:13 florian
* fixed a couple of broken generic routines
Revision 1.68 2004-01-31 16:14:24 florian
* alignment handling of generic fillbyte/word fixed
Revision 1.66 2004/01/21 01:25:02 florian
* improved generic int. div routines