diff options
| -rw-r--r-- | driver/compile.ml | 5 | ||||
| -rw-r--r-- | driver/optcompile.ml | 5 |
2 files changed, 6 insertions, 4 deletions
diff --git a/driver/compile.ml b/driver/compile.ml index 4408cac1e..efeb06b0e 100644 --- a/driver/compile.ml +++ b/driver/compile.ml @@ -92,7 +92,7 @@ let interface sourcefile = let inputfile = preprocess sourcefile (prefixname ^ ".ppi") in let ast = parse_file inputfile Parse.interface ast_intf_magic_number in let sg = Typemod.transl_signature (initial_env()) ast in - if !Clflags.print_types then (Printtyp.signature sg; print_flush()); + if !Clflags.print_types then (Printtyp.signature sg; print_newline()); Env.save_signature sg modulename (prefixname ^ ".cmi"); remove_preprocessed inputfile @@ -143,8 +143,9 @@ let implementation sourcefile = let c_file name = if Sys.command (Printf.sprintf - "%s -c %s -I%s %s" + "%s -c %s %s -I%s %s" Config.bytecomp_c_compiler + (String.concat " " (List.rev !Clflags.ccopts)) (String.concat " " (List.map (fun dir -> "-I" ^ dir) (List.rev !Clflags.include_dirs))) diff --git a/driver/optcompile.ml b/driver/optcompile.ml index 8b75cbb5e..0dbfef2ec 100644 --- a/driver/optcompile.ml +++ b/driver/optcompile.ml @@ -92,7 +92,7 @@ let interface sourcefile = let inputfile = preprocess sourcefile (prefixname ^ ".ppi") in let ast = parse_file inputfile Parse.interface ast_intf_magic_number in let sg = Typemod.transl_signature (initial_env()) ast in - if !Clflags.print_types then (Printtyp.signature sg; print_flush()); + if !Clflags.print_types then (Printtyp.signature sg; print_newline()); Env.save_signature sg modulename (prefixname ^ ".cmi"); remove_preprocessed inputfile @@ -134,8 +134,9 @@ let implementation sourcefile = let c_file name = if Sys.command (Printf.sprintf - "%s -c %s -I%s %s" + "%s -c %s %s -I%s %s" Config.native_c_compiler + (String.concat " " (List.rev !Clflags.ccopts)) (String.concat " " (List.map (fun dir -> "-I" ^ dir) (List.rev !Clflags.include_dirs))) |