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

* check alignment properly in CompareDWord for 64 bit targets

Browse Source 
git-svn-id: trunk@36656 -
This commit is contained in:
florian 2017-07-06 18:02:22 +00:00
parent 567dfef9a7
commit 16c9a2260d
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/inc/generic.inc
View File

@ -603,6 +603,7 @@ begin
pdest:=@buf2; pdest:=@buf2;
if (len>4*sizeof(ptruint)-11) if (len>4*sizeof(ptruint)-11)
{$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 3) or (PtrUInt(psrc) and 3))=0) and (((PtrUInt(pdest) and 3) or (PtrUInt(psrc) and 3))=0)
{$endif FPC_REQUIRES_PROPER_ALIGNMENT} {$endif FPC_REQUIRES_PROPER_ALIGNMENT}
then then