---

yaml
---
r: 543
b: refs/heads/master
c: b6b348a
h: refs/heads/master
i:
  541: bdaa935
  539: 41f9fdc
  535: 00ca55e
  527: eb4c090
  511: 4630b74
v: v3

Author: pcwalton

[refs]

@@ -1,2 +1,2 @@
 ---
-refs/heads/master: 31aceda09eb0541c97a6adeaf41b041da3c7fd18
+refs/heads/master: b6b348a13ce33227a01839d41b8ae055a9eacdca

trunk/src/boot/be/pe.ml

@@ -792,17 +792,19 @@ let crate_exports (sem:Semant.ctxt) : pe_export array =
       pe_export_address_fixup = fixup
     }
   in
-  let export_stab_of_fn (node_id, fixup) =
+  let export_stab_of_item (node_id, code) =
     let name = Hashtbl.find sem.Semant.ctxt_all_item_names node_id in
-    export_stab ("fn$" ^ (Semant.string_of_name name)) fixup
+    let name' = "item$" ^ (Semant.string_of_name name) in
+    export_stab name' code.Semant.code_fixup
   in
   let export_stab_of_glue (glue, code) =
     export_stab (Semant.glue_str sem glue) code.Semant.code_fixup
   in
 
   let stabs =
     Array.of_list (List.concat [
-      (List.map export_stab_of_fn (htab_pairs sem.Semant.ctxt_fn_fixups));
+      (List.map export_stab_of_item
+        (htab_pairs sem.Semant.ctxt_all_item_code));
       (List.map export_stab_of_glue (htab_pairs sem.Semant.ctxt_glue_code))
     ])
   in