Fix ocamlnat

use the right name for the intermediary obj file
master
Florian Angeletti 2019-09-27 14:12:06 +02:00
parent 452c3df125
commit 4efa0a21a8
1 changed files with 1 additions and 1 deletions

View File

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