diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-12-20 13:05:53 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-12-20 13:05:53 +0000 |
| commit | 7698300cfe2d3f944ce2e1d4a60a263620487718 (patch) | |
| tree | 74292bb5f65bc797906b5c768df2e2e937e869b6 /extraction | |
| parent | c511207bd0f25c4199770233175924a725526bd3 (diff) | |
Merge of branch value-analysis.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2381 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'extraction')
| -rw-r--r-- | extraction/extraction.v | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/extraction/extraction.v b/extraction/extraction.v index 047a9b4..b1cd8fd 100644 --- a/extraction/extraction.v +++ b/extraction/extraction.v @@ -10,6 +10,7 @@ (* *) (* *********************************************************************) +Require Coqlib. Require Wfsimpl. Require Nan. Require AST. @@ -18,8 +19,7 @@ Require Floats. Require SelectLong. Require RTLgen. Require Inlining. -Require ConstpropOp. -Require Constprop. +Require ValueDomain. Require Tailcall. Require Allocation. Require Compiler. @@ -28,6 +28,9 @@ Require Compiler. Require Import ExtrOcamlBasic. Require Import ExtrOcamlString. +(* Coqlib *) +Extract Inlined Constant Coqlib.proj_sumbool => "(fun x -> x)". + (* Wfsimpl *) Extraction Inline Wfsimpl.Fix Wfsimpl.Fixm. @@ -73,10 +76,12 @@ 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. -(* Constprop *) -Extract Constant ConstpropOp.propagate_float_constants => +(* ValueDomain *) +Extract Constant ValueDomain.strict => + "false". +Extract Constant ValueDomain.propagate_float_constants => "fun _ -> !Clflags.option_ffloatconstprop >= 1". -Extract Constant Constprop.generate_float_constants => +Extract Constant ValueDomain.generate_float_constants => "fun _ -> !Clflags.option_ffloatconstprop >= 2". (* Tailcall *) @@ -101,6 +106,7 @@ Extract Constant Compiler.print_RTL_tailcall => "PrintRTL.print_tailcall". Extract Constant Compiler.print_RTL_inline => "PrintRTL.print_inlining". Extract Constant Compiler.print_RTL_constprop => "PrintRTL.print_constprop". Extract Constant Compiler.print_RTL_cse => "PrintRTL.print_cse". +Extract Constant Compiler.print_RTL_deadcode => "PrintRTL.print_deadcode". Extract Constant Compiler.print_LTL => "PrintLTL.print_if". Extract Constant Compiler.print_Mach => "PrintMach.print_if". Extract Constant Compiler.print => "fun (f: 'a -> unit) (x: 'a) -> f x; x". |