From 204adf82c7ed82f3ae9b073553f67e7e8c259ba1 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Tue, 1 Jul 2014 16:30:46 +0000
Subject: [PATCH]   * handle tai_const instances as operands to other tai

git-svn-id: branches/hlcgllvm@28120 -
---
 compiler/llvm/agllvm.pas | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/compiler/llvm/agllvm.pas b/compiler/llvm/agllvm.pas
index 2babbcf309..09561541c0 100644
--- a/compiler/llvm/agllvm.pas
+++ b/compiler/llvm/agllvm.pas
@@ -628,18 +628,21 @@ implementation
           aitconst_32bit_unaligned,
           aitconst_64bit_unaligned:
             begin
+              if fdecllevel=0 then
+                AsmWrite(target_asm.comment);
               { can't have compile-time differences between symbols; these are
                 normally for PIC, but llvm takes care of that for us }
               if assigned(hp.endsym) then
                 internalerror(2014052902);
               if assigned(hp.sym) then
                 begin
-                  { type of struct vs type of field; type of asmsym? }
-{                  if hp.value<>0 then
-                    xxx }
                   AsmWrite(hp.sym.name);
+                  { can't have offsets }
                   if hp.value<>0 then
-                    AsmWrite(tostr_with_plus(hp.value));
+                    if fdecllevel<>0 then
+                      internalerror(2014052903)
+                    else
+                      asmwrite(' -- symbol offset: ' + tostr(hp.value));
                 end
               else
                 AsmWrite(tostr(hp.value));