From eeecc8d0617b547520083b9db94ec05f84fbca64 Mon Sep 17 00:00:00 2001
From: Patrick Walton <pcwalton@mimiga.net>
Date: Wed, 1 Dec 2010 19:03:47 -0800
Subject: rustc: Add stub support for tag constructors in trans

---
 src/comp/lib/llvm.rs | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'src/comp/lib')

diff --git a/src/comp/lib/llvm.rs b/src/comp/lib/llvm.rs
index 0db40e89..15fc68e4 100644
--- a/src/comp/lib/llvm.rs
+++ b/src/comp/lib/llvm.rs
@@ -1106,6 +1106,19 @@ obj builder(BuilderRef B) {
     }
 }
 
+/* Memory-managed object interface to type handles. */
+
+obj type_handle_dtor(TypeHandleRef TH) {
+    drop { llvm.LLVMDisposeTypeHandle(TH); }
+}
+
+type type_handle = rec(TypeHandleRef llth, type_handle_dtor dtor);
+
+fn mk_type_handle() -> type_handle {
+    auto th = llvm.LLVMCreateTypeHandle(llvm.LLVMOpaqueType());
+    ret rec(llth=th, dtor=type_handle_dtor(th));
+}
+
 fn type_to_str(TypeRef ty) -> str {
     let int kind = llvm.LLVMGetTypeKind(ty);
 
-- 
cgit v1.2.3