---

yaml
---
r: 541
b: refs/heads/master
c: 09ebda7
h: refs/heads/master
i:
  539: 41f9fdc
v: v3

Author: pcwalton

[refs]

@@ -1,2 +1,2 @@
 ---
-refs/heads/master: cd6be20caa6c4d5161cb656bb51ec2eb723aada6
+refs/heads/master: 09ebda7ce5720e76aa38b75a5361d9a9306f5d83

trunk/src/boot/be/pe.ml

@@ -783,9 +783,25 @@ let crate_exports (sem:Semant.ctxt) : pe_export array =
   let export_seg (_, tab) =
     Array.of_list (List.map export_sym (htab_pairs tab))
   in
+
+  (* Make some fake symbol table entries to aid in debugging. *)
+  let export_stab (node_id, fixup) =
+    let name = Hashtbl.find sem.Semant.ctxt_all_item_names node_id in
+    {
+      pe_export_name_fixup = new_fixup "export name fixup";
+      pe_export_name = "rust$" ^ (Ast.sprintf_name () name);
+      pe_export_address_fixup = fixup
+    }
+  in
+
+  let stabs =
+    let pairs = htab_pairs sem.Semant.ctxt_fn_fixups in
+    Array.of_list (List.map export_stab pairs)
+  in
+
     Array.concat
-      (List.map export_seg
-         (htab_pairs sem.Semant.ctxt_native_provided))
+      (stabs::(List.map export_seg
+         (htab_pairs sem.Semant.ctxt_native_provided)))
 ;;