From f417ed65762bc56be66067a37faefe79b2e4d2bf Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 13 Aug 2016 14:47:34 +0000
Subject: [PATCH]   * internalerror in case a reference's alignment is not set
 in     thlcgllvm.make_simple_ref_ptr()

git-svn-id: trunk@34299 -
---
 compiler/llvm/hlcgllvm.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/compiler/llvm/hlcgllvm.pas b/compiler/llvm/hlcgllvm.pas
index ce664c09c2..4f73cfa43e 100644
--- a/compiler/llvm/hlcgllvm.pas
+++ b/compiler/llvm/hlcgllvm.pas
@@ -1798,6 +1798,8 @@ implementation
       tmpref: treference;
       pointedsize: asizeint;
     begin
+      if ref.alignment=0 then
+        internalerror(2016072203);
       { already simple? }
       if (not assigned(ref.symbol) or
           (ref.base=NR_NO)) and