OpenE2K/rust
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Export glue as stabs on Windows as well

Browse Source
This commit is contained in:
Patrick Walton 2010-08-19 16:15:37 -07:00
parent 09ebda7ce5
commit 31aceda09e
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -785,18 +785,26 @@ let crate_exports (sem:Semant.ctxt) : pe_export array =
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
let export_stab name fixup =
{
pe_export_name_fixup = new_fixup "export name fixup";
pe_export_name = "rust$" ^ (Ast.sprintf_name () name);
pe_export_name = "rust$" ^ name;
pe_export_address_fixup = fixup
}
in
let export_stab_of_fn (node_id, fixup) =
let name = Hashtbl.find sem.Semant.ctxt_all_item_names node_id in
export_stab ("fn$" ^ (Semant.string_of_name name)) fixup
in
let export_stab_of_glue (glue, code) =
export_stab (Semant.glue_str sem glue) code.Semant.code_fixup
in
let stabs =
let pairs = htab_pairs sem.Semant.ctxt_fn_fixups in
Array.of_list (List.map export_stab pairs)
Array.of_list (List.concat [
(List.map export_stab_of_fn (htab_pairs sem.Semant.ctxt_fn_fixups));
(List.map export_stab_of_glue (htab_pairs sem.Semant.ctxt_glue_code))
])
in
Array.concat