From 9db70bfc42702e32bac09394e55bd756664aadf8 Mon Sep 17 00:00:00 2001
From: Graydon Hoare <graydon@mozilla.com>
Date: Wed, 18 Aug 2010 00:19:45 -0700
Subject: Add test code that exercises LLVM in rustc. Works.

---
 src/comp/driver/rustc.rs | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'src')

diff --git a/src/comp/driver/rustc.rs b/src/comp/driver/rustc.rs
index 1a0329c1..4b842bd0 100644
--- a/src/comp/driver/rustc.rs
+++ b/src/comp/driver/rustc.rs
@@ -1,5 +1,20 @@
 // -*- rust -*-
 
+import std._str;
+import lib.llvm.llvm;
+import lib.llvm.builder;
+
+fn write_module() {
+    auto llmod =
+        llvm.LLVMModuleCreateWithNameInContext(_str.buf("rust_out"),
+                                               llvm.LLVMGetGlobalContext());
+
+    auto b = builder(llvm.LLVMCreateBuilder());
+
+    llvm.LLVMWriteBitcodeToFile(llmod, _str.buf("rust_out.bc"));
+    llvm.LLVMDisposeModule(llmod);
+}
+
 fn main(vec[str] args) -> () {
 
   log "This is the rust 'self-hosted' compiler.";
@@ -19,6 +34,8 @@ fn main(vec[str] args) -> () {
     i += 1;
   }
 
+  // Test LLVM module-writing. Nothing interesting yet.
+  write_module();
 
 }
 
-- 
cgit v1.2.3