Export all item code to stabs on Windows (including e.g. object methods)

Author: pcwalton

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