paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 23:49:22 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/generic.inc
View File

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