From 2eda11ca28589991471ff3251cccc2471424770e Mon Sep 17 00:00:00 2001
From: David Robillard <d@drobilla.net>
Date: Wed, 29 Dec 2010 22:50:20 +0000
Subject: Destructuring (i.e. working `match').

git-svn-id: http://svn.drobilla.net/resp/resp@374 ad02d1e2-f140-0410-9f75-f8b11f17cedd
---
 src/llvm.cpp | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src/llvm.cpp')

diff --git a/src/llvm.cpp b/src/llvm.cpp
index cc4bf47..28d6f36 100644
--- a/src/llvm.cpp
+++ b/src/llvm.cpp
@@ -62,6 +62,7 @@ struct LLVMEngine : public Engine {
 	void  eraseFn(CEnv& cenv, CFunc f);
 
 	CVal  compileCall(CEnv& cenv, CFunc f, const ATuple* funcT, const vector<CVal>& args);
+	CVal  compileCast(CEnv& cenv, CVal v, const AST* t);
 	CVal  compileCons(CEnv& cenv, const ATuple* type, CVal rtti, const vector<CVal>& fields);
 	CVal  compileDot(CEnv& cenv, CVal tup, int32_t index);
 	CVal  compileGlobalSet(CEnv& cenv, const string& s, CVal v, const AST* t);
@@ -206,6 +207,12 @@ LLVMEngine::compileCall(CEnv& cenv, CFunc f, const ATuple* funcT, const vector<C
 	return builder.CreateCall(llFunc(f), llArgs.begin(), llArgs.end());
 }
 
+CVal
+LLVMEngine::compileCast(CEnv& cenv, CVal v, const AST* t)
+{
+	return builder.CreateBitCast(llVal(v), llType(t), "cast");
+}
+
 CVal
 LLVMEngine::compileCons(CEnv& cenv, const ATuple* type, CVal rtti, const vector<CVal>& fields)
 {
-- 
cgit v1.2.1