From 3ec022950ec233a2af418aacd1755fce4d701724 Mon Sep 17 00:00:00 2001 From: xleroy Date: Wed, 19 Feb 2014 09:55:45 +0000 Subject: Add option -Os to optimize for code size rather than for execution speed. Refactored compilation flags that affect the Coq part (module Compopts). Added support for C99 for loops with declarations. git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2410 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- extraction/extraction.v | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) (limited to 'extraction') diff --git a/extraction/extraction.v b/extraction/extraction.v index b8442a8..654e80f 100644 --- a/extraction/extraction.v +++ b/extraction/extraction.v @@ -68,18 +68,6 @@ Extraction Inline RTLgen.ret RTLgen.error RTLgen.bind RTLgen.bind2. Extract Inlined Constant Inlining.should_inline => "Inliningaux.should_inline". Extraction Inline Inlining.ret Inlining.bind. -(* ValueDomain *) -Extract Constant ValueDomain.strict => - "false". -Extract Constant ValueDomain.propagate_float_constants => - "fun _ -> !Clflags.option_ffloatconstprop >= 1". -Extract Constant ValueDomain.generate_float_constants => - "fun _ -> !Clflags.option_ffloatconstprop >= 2". - -(* Tailcall *) -Extract Constant Tailcall.eliminate_tailcalls => - "fun _ -> !Clflags.option_ftailcalls". - (* Allocation *) Extract Constant Allocation.regalloc => "Regalloc.regalloc". @@ -90,6 +78,18 @@ Extract Constant Linearize.enumerate_aux => "Linearizeaux.enumerate_aux". Extract Constant SimplExpr.first_unused_ident => "Camlcoq.first_unused_ident". Extraction Inline SimplExpr.ret SimplExpr.error SimplExpr.bind SimplExpr.bind2. +(* Compopts *) +Extract Constant Compopts.optim_for_size => + "fun _ -> !Clflags.option_Osize". +Extract Constant Compopts.va_strict => + "fun _ -> false". +Extract Constant Compopts.propagate_float_constants => + "fun _ -> !Clflags.option_ffloatconstprop >= 1". +Extract Constant Compopts.generate_float_constants => + "fun _ -> !Clflags.option_ffloatconstprop >= 2". +Extract Constant Compopts.eliminate_tailcalls => + "fun _ -> !Clflags.option_ftailcalls". + (* Compiler *) Extract Constant Compiler.print_Clight => "PrintClight.print_if". Extract Constant Compiler.print_Cminor => "PrintCminor.print_if". -- cgit v1.2.3