diff options
author | Pierre Chambart <pierre.chambart@ocamlpro.com> | 2016-06-03 11:03:50 +0200 |
---|---|---|
committer | Pierre Chambart <pierre.chambart@ocamlpro.com> | 2016-07-08 16:02:26 +0200 |
commit | 1624c8e7a05c5374ee3b9be9e221d6bfcbfcaf46 (patch) | |
tree | 4435a505c36205a91af3bd29ff3ab81e9bf8cee4 /driver/optcompile.ml | |
parent | cb388c762a31ff4668a1ccb9d83cb297c282084f (diff) | |
download | ocaml-1624c8e7a05c5374ee3b9be9e221d6bfcbfcaf46.tar.gz |
Also remove the forced dependency dummy code hack for closure
This also share the result type of transl_implementation_flambda
and transl_store_implementation
Diffstat (limited to 'driver/optcompile.ml')
-rw-r--r-- | driver/optcompile.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/driver/optcompile.ml b/driver/optcompile.ml index 2f3976ed50..8f4275af45 100644 --- a/driver/optcompile.ml +++ b/driver/optcompile.ml @@ -94,7 +94,7 @@ let implementation ppf sourcefile outputprefix ~backend = ++ Timings.(time (Timings.Transl sourcefile) (Translmod.transl_implementation_flambda modulename)) ++ Timings.time (Timings.Generate sourcefile) - (fun { Translmod.module_ident; main_module_block_size; + (fun { Lambda.module_ident; main_module_block_size; required_globals; code } -> ((module_ident, main_module_block_size), code) +++ print_if ppf Clflags.dump_rawlambda Printlambda.lambda @@ -119,9 +119,9 @@ let implementation ppf sourcefile outputprefix ~backend = (Translmod.transl_store_implementation modulename) ++ print_if ppf Clflags.dump_rawlambda Printlambda.program ++ Timings.(time (Generate sourcefile)) - (fun { Lambda.code; main_module_block_size } -> - { Lambda.code = Simplif.simplify_lambda code; - main_module_block_size } + (fun program -> + { program with + Lambda.code = Simplif.simplify_lambda program.Lambda.code } ++ print_if ppf Clflags.dump_lambda Printlambda.program ++ Asmgen.compile_implementation_clambda ~source_provenance outputprefix ppf; |