nordic-dev.net/rust
nordic-dev.net/rust
2
0
Fork 0
mirror of https://github.com/rust-lang/rust.git synced 2025-05-14 02:49:40 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add some mangled stabs to help debugging on Windows

Browse Source
This commit is contained in:
Patrick Walton 2010-08-19 14:40:43 -07:00
parent cd6be20caa
commit 09ebda7ce5
1 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/boot/be/pe.ml
View File

@ -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)))
;;