From 9b3db0ed445de1b513742770420ba4b60a025219 Mon Sep 17 00:00:00 2001
From: Patrick Walton <pcwalton@mimiga.net>
Date: Fri, 11 Mar 2011 15:35:20 -0800
Subject: rustc: Add some stub metadata to each crate

---
 src/comp/middle/metadata.rs | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 src/comp/middle/metadata.rs

(limited to 'src/comp/middle/metadata.rs')

diff --git a/src/comp/middle/metadata.rs b/src/comp/middle/metadata.rs
new file mode 100644
index 00000000..433d7147
--- /dev/null
+++ b/src/comp/middle/metadata.rs
@@ -0,0 +1,29 @@
+import std._str;
+import front.ast;
+import middle.trans;
+import back.x86;
+
+import lib.llvm.llvm;
+import lib.llvm.llvm.ValueRef;
+import lib.llvm.False;
+
+// Returns a Plain Old LLVM String.
+fn C_postr(str s) -> ValueRef {
+    ret llvm.LLVMConstString(_str.buf(s), _str.byte_len(s), False);
+}
+
+fn collect_meta_directives(@trans.crate_ctxt cx, @ast.crate crate)
+        -> ValueRef {
+    ret C_postr("Hello world!");    // TODO
+}
+
+fn write_metadata(@trans.crate_ctxt cx, @ast.crate crate) {
+    auto llmeta = collect_meta_directives(cx, crate);
+
+    auto llconst = trans.C_struct(vec(llmeta));
+    auto llglobal = llvm.LLVMAddGlobal(cx.llmod, trans.val_ty(llconst),
+                                       _str.buf("rust_metadata"));
+    llvm.LLVMSetInitializer(llglobal, llconst);
+    llvm.LLVMSetSection(llglobal, _str.buf(x86.get_meta_sect_name()));
+}
+
-- 
cgit v1.2.3