From 09ebda7ce5720e76aa38b75a5361d9a9306f5d83 Mon Sep 17 00:00:00 2001 From: Patrick Walton Date: Thu, 19 Aug 2010 14:40:43 -0700 Subject: Add some mangled stabs to help debugging on Windows --- src/boot/be/pe.ml | 20 ++++++++++++++++++-- 1 file changed, 18 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/boot/be/pe.ml b/src/boot/be/pe.ml index d360ddf5..89c45c62 100644 --- a/src/boot/be/pe.ml +++ b/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))) ;; -- cgit v1.2.3