From 362f2f36a44fa6ab4fe28264ed572d721adece70 Mon Sep 17 00:00:00 2001 From: xleroy Date: Fri, 3 Jan 2014 17:09:54 +0000 Subject: 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 --- extraction/extraction.v | 11 +---------- 1 file changed, 1 insertion(+), 10 deletions(-) (limited to 'extraction') diff --git a/extraction/extraction.v b/extraction/extraction.v index b1cd8fd..6556c87 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. -- cgit v1.2.3