From 093c56407377064ec06d8b5e9b487de0db7d09c0 Mon Sep 17 00:00:00 2001
From: "Peter S. Housel" <housel@acm.org>
Date: Thu, 8 Mar 2012 23:40:35 -0800
Subject: [PATCH] Bug 7458: Let dfmc-llvm-linker emit (currently empty)
 _glue.bc files

* sources/dfmc/llvm-linker/llvm-gluefile.dylan (emit-gluefile): Emit an
  empty _glue.bc bitcode file within the build directory of built libraries.
---
 sources/dfmc/llvm-linker/llvm-gluefile.dylan | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/sources/dfmc/llvm-linker/llvm-gluefile.dylan b/sources/dfmc/llvm-linker/llvm-gluefile.dylan
index 9aa7b2e47..96b750a36 100644
--- a/sources/dfmc/llvm-linker/llvm-gluefile.dylan
+++ b/sources/dfmc/llvm-linker/llvm-gluefile.dylan
@@ -19,7 +19,21 @@ define sideways method emit-gluefile
           debug-info? = #t,
           compilation-layer,
      #all-keys)
+  let locator
+    = build-area-output-locator(ld, base: "_glue", type: "bc");
+  let m = make(<llvm-module>,
+               name: "_glue",
+               target-triple: llvm-back-end-target-triple(back-end),
+               data-layout: llvm-back-end-data-layout(back-end));
+  back-end.llvm-builder-module := m;
+
   // FIXME
+
+  // Output LLVM bitcode
+  llvm-save-bitcode-file(m, locator);
+
+  // Retract
+  back-end.llvm-builder-module := #f;
 end;