From 07aea7334f5e82002bcbd86edb5cd811be57d441 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Tue, 2 Sep 2008 20:18:54 +0200
Subject: LLVM compiler: Treat closure data pointers as of type i8** rather
 than i8*.

---
 MLKLexicalContext-MLKLLVMCompilation.mm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'MLKLexicalContext-MLKLLVMCompilation.mm')

diff --git a/MLKLexicalContext-MLKLLVMCompilation.mm b/MLKLexicalContext-MLKLLVMCompilation.mm
index 5a279e5..37f03f5 100644
--- a/MLKLexicalContext-MLKLLVMCompilation.mm
+++ b/MLKLexicalContext-MLKLLVMCompilation.mm
@@ -55,7 +55,7 @@ id MLKDummyUseLLVMLexicalContext = nil;
 
 -(Instruction *) functionCellValueForSymbol:(id)name
 {
-  std::vector<const Type *> types (1, PointerType::get(Type::Int8Ty, 0));
+  std::vector<const Type *> types (1, PointerType::get(PointerType::get(Type::Int8Ty, 0), 0));
   return (new IntToPtrInst (ConstantInt::get(Type::Int64Ty,
                                              (uint64_t)[self functionCellForSymbol:name],
                                              false),
@@ -72,7 +72,7 @@ id MLKDummyUseLLVMLexicalContext = nil;
   return (new IntToPtrInst (ConstantInt::get(Type::Int64Ty,
                                              (uint64_t)[self closureDataPointerForSymbol:name],
                                              false),
-                            PointerType::get(PointerType::get(Type::Int8Ty, 0), 0)));
+                            PointerType::get(PointerType::get(PointerType::get(Type::Int8Ty, 0), 0), 0)));
 }
 
 -(Instruction *) globalBindingValueForSymbol:(id)name
-- 
cgit v1.2.3