From de465e056be37acb28ddbe55a3b7b07167275953 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 13 Aug 2016 14:47:26 +0000
Subject: [PATCH] * set the alignment resulting from an aligned() call to the
actual natural alignment of the resultdef rather than to 0 (required for
llvm, and cleaner since then the code generator knows the actual
alignment)
git-svn-id: trunk@34296 -
---
compiler/ncginl.pas | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/compiler/ncginl.pas b/compiler/ncginl.pas
index 0ae978d180..4c9178ce5b 100644
--- a/compiler/ncginl.pas
+++ b/compiler/ncginl.pas
@@ -151,7 +151,7 @@ implementation
secondpass(tcallparanode(left).left);
location:=tcallparanode(left).left.location;
if location.loc in [LOC_CREFERENCE,LOC_REFERENCE] then
- location.reference.alignment:=0;
+ location.reference.alignment:=resultdef.alignment;
end;
{$ifdef SUPPORT_MMX}
in_mmx_pcmpeqb..in_mmx_pcmpgtw: