Work with LLVM 2.4.

git-svn-id: http://svn.drobilla.net/resp/tuplr@43 ad02d1e2-f140-0410-9f75-f8b11f17cedd

1 files changed, 3 insertions, 3 deletions

diff --git a/tuplr.cpp b/tuplr.cpp
index 6bea056..ff280df 100644
--- a/tuplr.cpp
+++ b/tuplr.cpp
@@ -259,7 +259,7 @@ private:
 	const Type* ctype;
 };
 
-/// Possibly several lifted LLVM functions for a single Tuplr function
+/// Lifted LLVM functions for a single Tuplr function
 struct Funcs : public list< pair<AType*, Function*> > {
 	Function* find(AType* type) const {
 		for (const_iterator f = begin(); f != end(); ++f)
@@ -877,7 +877,7 @@ ASTCall::lift(CEnv& cenv)
 	for (size_t i = 1; i < size(); ++i)
 		cenv.code.def(c->prot->at(i-1), at(i));
 
-	at(0)->lift(cenv); // Lift called closure
+	c->lift(cenv); // Lift called closure
 	cenv.pop(); // Restore environment
 }
 
@@ -1245,7 +1245,7 @@ main(int argc, char** argv)
 	
 	// Host provided allocation primitive prototypes
 	std::vector<const Type*> argsT(1, Type::Int32Ty);
-	FunctionType* funcT = FunctionType::get(PointerType::get(Type::VoidTy, 0), argsT, false);
+	FunctionType* funcT = FunctionType::get(PointerType::get(Type::Int8Ty, 0), argsT, false);
 	cenv.alloc = Function::Create(funcT, Function::ExternalLinkage, "malloc", module);
 	
 	int ret;