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

Need to call begin_assembly after Compilenv.reset. 

git-svn-id: http://caml.inria.fr/svn/ocaml/branches/abstract_intel_emit@15189 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Alain Frisch 2014-09-03 16:02:50 +00:00
parent ae216ad212
commit 14e22181c6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
asmcomp/asmlink.ml
View File

@ -231,10 +231,10 @@ let make_startup_file ppf units_list =
Emit.end_assembly ()
let make_shared_startup_file ppf units =
Emit.begin_assembly ();
let compile_phrase p = Asmgen.compile_phrase ppf p in
Location.input_name := "caml_startup";
Compilenv.reset "_shared_startup";
Emit.begin_assembly ();
List.iter compile_phrase
(Cmmgen.generic_functions true (List.map fst units));
compile_phrase (Cmmgen.plugin_header units);