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

* fixed compilation on non sigbusing cpus

Browse Source 
git-svn-id: trunk@8829 -
This commit is contained in:
florian 2007-10-16 21:14:41 +00:00
parent 9ca132c61b
commit 4b69743c92
1 changed files with 2 additions and 2 deletions

4
rtl/inc/generic.inc
View File

@ -335,7 +335,7 @@ begin
b:=0;
psrc:=@buf1;
pdest:=@buf2;
if (len>4*sizeof(ptruint)-1)
if (len>4*sizeof(ptruint)-1)
{$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
and ((PtrUInt(pdest) and (sizeof(PtrUInt)-1))=(PtrUInt(psrc) and (sizeof(PtrUInt)-1)))
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
@ -464,8 +464,8 @@ begin
inc(pdest);
inc(psrc);
end
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
else
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
while psrc<pend do
begin
b:=(ptrint(psrc^)-ptrint(pdest^));