diff options
| -rw-r--r-- | tuplr.cpp | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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; |