From cad01f32f911f1129675063cf0f1f57049c40116 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <mulk@minimulk.mst-plus>
Date: Thu, 28 Aug 2008 18:28:25 +0200
Subject: Listener: Execute code after reading it.

---
 MLKLLVMCompiler.mm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'MLKLLVMCompiler.mm')

diff --git a/MLKLLVMCompiler.mm b/MLKLLVMCompiler.mm
index 4a672a0..b40d4d0 100644
--- a/MLKLLVMCompiler.mm
+++ b/MLKLLVMCompiler.mm
@@ -518,6 +518,8 @@ static Constant
                                        args.begin(),
                                        args.end(),
                                        [MLKPrintToString(_head) UTF8String]);
+  call->setCallingConv(CallingConv::C);
+  call->setTailCall(true);
 
   // XXX
   if ([_context functionIsInline:_head])
@@ -539,7 +541,7 @@ static Constant
   FunctionType *ftype = FunctionType::get (PointerTy, argtypes, true);
   Function *function = Function::Create (ftype,
                                          Function::InternalLinkage,
-                                         "",
+                                         "a_lisp_closure_body",
                                          module);
 
   Function::arg_iterator args = function->arg_begin();
-- 
cgit v1.2.3