From 9fef4e8498255fb72f654514321ffc1e8ca382b6 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <mulk@minimulk.mst-plus>
Date: Thu, 2 Oct 2008 15:09:25 +0200
Subject: Add a multiple-value return pointer argument to all compiled
 procedures.

---
 MLKLexicalContext-MLKLLVMCompilation.mm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'MLKLexicalContext-MLKLLVMCompilation.mm')

diff --git a/MLKLexicalContext-MLKLLVMCompilation.mm b/MLKLexicalContext-MLKLLVMCompilation.mm
index b387f62..b2d95ea 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(PointerType::get(Type::Int8Ty, 0), 0));
+  std::vector<const Type *> types (2, PointerType::get(PointerType::get(Type::Int8Ty, 0), 0));
   return (new IntToPtrInst (ConstantInt::get(Type::Int64Ty,
                                              (uint64_t)[self functionCellForSymbol:name],
                                              false),
-- 
cgit v1.2.3