diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2014-01-03 17:09:54 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2014-01-03 17:09:54 +0000 |
commit | 362f2f36a44fa6ab4fe28264ed572d721adece70 (patch) | |
tree | 2f1b23f88fe906ae554e963acbcde09c54b1b5fb /extraction | |
parent | 089c6c6dc139a0c32f8566d028702d39d0748077 (diff) | |
download | compcert-362f2f36a44fa6ab4fe28264ed572d721adece70.tar.gz compcert-362f2f36a44fa6ab4fe28264ed572d721adece70.zip |
Introduce and use the platform-specific Archi module giving:
- endianness
- alignment constraints for 8-byte types
(which is 4 for x86 ABI and 8 for other ABIs)
- NaN handling options (superceding the Nan module, removed).
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2402 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'extraction')
-rw-r--r-- | extraction/extraction.v | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/extraction/extraction.v b/extraction/extraction.v index b1cd8fdc..6556c874 100644 --- a/extraction/extraction.v +++ b/extraction/extraction.v @@ -12,7 +12,6 @@ Require Coqlib. Require Wfsimpl. -Require Nan. Require AST. Require Iteration. Require Floats. @@ -34,17 +33,10 @@ Extract Inlined Constant Coqlib.proj_sumbool => "(fun x -> x)". (* Wfsimpl *) Extraction Inline Wfsimpl.Fix Wfsimpl.Fixm. -(* Floats *) -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 => "fun s -> Camlcoq.intern_string (Camlcoq.camlstring_of_coqstring s)". -(* Memdata *) -Extract Constant Memdata.big_endian => "Memdataaux.big_endian". - (* Memory - work around an extraction bug. *) Extraction NoInline Memory.Mem.valid_pointer. @@ -140,5 +132,4 @@ 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 - Nan.default_pl Nan.choose_binop_pl. + Machregs.two_address_op. |