diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-09-14 16:24:30 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-09-14 16:24:30 +0000 |
| commit | 76ea1108be6f8b4ba9dc0118a13f685bcb62bc2b (patch) | |
| tree | 8b2dad961e6b368426573e8a217594b9bcb42752 /extraction | |
| parent | 9a0ff6bb768cb0a6e45c1c75727d1cd8199cb89e (diff) | |
Floats.v, Nan.v: hard-wire the general shape of binop_pl, so that no axioms
are necessary, only two parameters (default_pl and choose_binop_pl).
SelectDiv: optimize FP division by a power of 2.
ConstpropOp: optimize 2.0 * x and x * 2.0 into x + x.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2326 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'extraction')
| -rw-r--r-- | extraction/extraction.v | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/extraction/extraction.v b/extraction/extraction.v index ba1ca58..047a9b4 100644 --- a/extraction/extraction.v +++ b/extraction/extraction.v @@ -32,8 +32,8 @@ Require Import ExtrOcamlString. Extraction Inline Wfsimpl.Fix Wfsimpl.Fixm. (* Floats *) -Extract Constant Floats.Float.binop_pl => - "Nan.binop_pl". +Extract Constant Floats.Float.default_pl => "Nan.default_pl". +Extract Constant Floats.Float.choose_binop_pl => "Nan.choose_binop_pl". (* AST *) Extract Constant AST.ident_of_string => @@ -135,4 +135,4 @@ Separate Extraction RTL.instr_defs RTL.instr_uses Machregs.mregs_for_operation Machregs.mregs_for_builtin Machregs.two_address_op - Nan.binop_pl. + Nan.default_pl Nan.choose_binop_pl. |