paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 15:09:20 +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

2
rtl/inc/generic.inc
View File

@ -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^));