diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1996-07-25 13:17:16 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1996-07-25 13:17:16 +0000 |
| commit | 8d0091cd8de16c1e3bd2711fac0feef705b6b8c1 (patch) | |
| tree | 74354827d47f0abd0ddd1f208ff831613c2d5fac | |
| parent | c2b120baf3a24e22902a714e79adfac41a0483d1 (diff) | |
Repasser au compilo C les options donnees par -ccopt.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@940 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -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))) |