From 76ea1108be6f8b4ba9dc0118a13f685bcb62bc2b Mon Sep 17 00:00:00 2001 From: xleroy Date: Sat, 14 Sep 2013 16:24:30 +0000 Subject: 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 --- extraction/extraction.v | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'extraction') 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. -- cgit v1.2.3