From 16c9a2260dd811ad14fdbd99b2b823449c4594a6 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Thu, 6 Jul 2017 18:02:22 +0000
Subject: [PATCH] * check alignment properly in CompareDWord for 64 bit targets

git-svn-id: trunk@36656 -
---
 rtl/inc/generic.inc | 1 +
 1 file changed, 1 insertion(+)

diff --git a/rtl/inc/generic.inc b/rtl/inc/generic.inc
index 32555e406d..696256881d 100644
--- a/rtl/inc/generic.inc
+++ b/rtl/inc/generic.inc
@@ -603,6 +603,7 @@ begin
   pdest:=@buf2;
   if (len>4*sizeof(ptruint)-11)
 {$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)
 {$endif FPC_REQUIRES_PROPER_ALIGNMENT}
     then