Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

The internal assembler emits to a file, not to a string. 

git-svn-id: http://caml.inria.fr/svn/ocaml/branches/abstract_intel_emit@15183 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Alain Frisch 2014-09-03 09:46:45 +00:00
parent 62a834f455
commit ac226bf931
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
asmcomp/intel_proc.ml
View File

@ -282,9 +282,7 @@ let assemble_file infile outfile =
let outfile_o = if debug_by_diff then
outfile ^ ".diff.o" else outfile in
(* Printf.eprintf "Generating %S\n%!" outfile_o; *)
let oc = open_out_bin outfile_o in
output_string oc content;
close_out oc;
content outfile_o;
binary_content := None;
if debug_by_diff then begin
Printf.eprintf "debug_by_diff\n%!";

4
asmcomp/intel_proc.mli
View File

@ -67,8 +67,10 @@ val masm: bool
(** Support for plumbing a binary code emitter *)
val final_assembler: (Intel_ast.section Misc.StringMap.t -> string) option ref
val final_assembler: (Intel_ast.section Misc.StringMap.t -> string -> unit) option ref
(** Hooks for rewriting the assembly code *)
val assembler_passes: (asm_program -> asm_program) list ref
val env_OCAMLASM: string list