Fix ocamlnat

use the right name for the intermediary obj file
2019-09-27 14:12:06 +02:00 · 2019-09-27 14:12:06 +02:00 · 4efa0a21a8
parent 452c3df125
commit 4efa0a21a8
1 changed files with 1 additions and 1 deletions
--- a/toplevel/opttoploop.ml
+++ b/toplevel/opttoploop.ml
@ -262,7 +262,7 @@ let load_lambda ppf ~module_ident ~required_globals lam size =
    else Closure_middle_end.lambda_to_clambda
  in
  Asmgen.compile_implementation ~toplevel:need_symbol
-    ~backend ~filename ~prefixname:""
+    ~backend ~filename ~prefixname:filename
    ~middle_end ~ppf_dump:ppf program;
  Asmlink.call_linker_shared [filename ^ ext_obj] dll;
  Sys.remove (filename ^ ext_obj);