diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-08-02 08:05:18 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-08-02 08:05:18 +0000 |
| commit | 4ee0544a157090ddd087b36109d292cd174bae7c (patch) | |
| tree | 3282bd6a14816239268e14bb40f2f09217c45456 /extraction | |
| parent | b5da812fdc8db859d816cb2fc85e367569a38bed (diff) | |
Merge of Flocq version 2.2.0.
More precise modeling of NaNs.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2303 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'extraction')
| -rw-r--r-- | extraction/extraction.v | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/extraction/extraction.v b/extraction/extraction.v index 6bc0234..ba1ca58 100644 --- a/extraction/extraction.v +++ b/extraction/extraction.v @@ -11,6 +11,7 @@ (* *********************************************************************) Require Wfsimpl. +Require Nan. Require AST. Require Iteration. Require Floats. @@ -30,6 +31,10 @@ Require Import ExtrOcamlString. (* Wfsimpl *) Extraction Inline Wfsimpl.Fix Wfsimpl.Fixm. +(* Floats *) +Extract Constant Floats.Float.binop_pl => + "Nan.binop_pl". + (* AST *) Extract Constant AST.ident_of_string => "fun s -> Camlcoq.intern_string (Camlcoq.camlstring_of_coqstring s)". @@ -129,6 +134,5 @@ Separate Extraction Conventions1.dummy_int_reg Conventions1.dummy_float_reg RTL.instr_defs RTL.instr_uses Machregs.mregs_for_operation Machregs.mregs_for_builtin - Machregs.two_address_op. - - + Machregs.two_address_op + Nan.binop_pl. |