Add support of TNTC to llvm backend

[ghc-hetmet.git] / compiler / llvmGen / LlvmCodeGen / Data.hs

diff --git a/compiler/llvmGen/LlvmCodeGen/Data.hs b/compiler/llvmGen/LlvmCodeGen/Data.hs
index a5b82aa..69cd0e7 100644 (file)
--- a/compiler/llvmGen/LlvmCodeGen/Data.hs
+++ b/compiler/llvmGen/LlvmCodeGen/Data.hs
@@ -71,7 +71,7 @@ resolveLlvmData _ env (lbl, alias, unres) =
         label          = strCLabel_llvm lbl
         link           = if (externallyVisibleCLabel lbl)
                             then ExternallyVisible else Internal
-        glob           = LMGlobalVar label alias link
+        glob           = LMGlobalVar label alias link Nothing Nothing
     in (env', (refs' ++ [(glob, struct)], [alias]))
 
 
@@ -114,7 +114,8 @@ resData env (Left cmm@(CmmLabel l)) =
             -- Referenced data exists in this module, retrieve type and make
             -- pointer to it.
             Just ty' ->
-                let var = LMGlobalVar label (LMPointer ty') ExternallyVisible
+                let var = LMGlobalVar label (LMPointer ty')
+                            ExternallyVisible Nothing Nothing
                     ptr  = LMStaticPointer var
                 in (env, LMPtoI ptr lmty, [Nothing])