Skip to content

Commit 4efa0a2

Browse files
committed
Fix ocamlnat
use the right name for the intermediary obj file
1 parent 452c3df commit 4efa0a2

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

toplevel/opttoploop.ml

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -262,7 +262,7 @@ let load_lambda ppf ~module_ident ~required_globals lam size =
262262
else Closure_middle_end.lambda_to_clambda
263263
in
264264
Asmgen.compile_implementation ~toplevel:need_symbol
265-
~backend ~filename ~prefixname:""
265+
~backend ~filename ~prefixname:filename
266266
~middle_end ~ppf_dump:ppf program;
267267
Asmlink.call_linker_shared [filename ^ ext_obj] dll;
268268
Sys.remove (filename ^ ext_obj);

0 commit comments

Comments
 (0)