diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2014-01-12 10:48:56 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2014-01-12 10:48:56 +0000 |
| commit | 7998ccfd709b97f1a2306df4570365d58a5bb4b5 (patch) | |
| tree | bf76efed90d88ede9e44187072b9cbd5265aab66 /extraction | |
| parent | 362f2f36a44fa6ab4fe28264ed572d721adece70 (diff) | |
- Back to origins: suppress Mfloat64al32 chunk and align Mfloat64 to 4.
- Revised printing of intermediate RTL code.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2403 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'extraction')
| -rw-r--r-- | extraction/extraction.v | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/extraction/extraction.v b/extraction/extraction.v index 6556c87..b8442a8 100644 --- a/extraction/extraction.v +++ b/extraction/extraction.v @@ -93,12 +93,7 @@ Extraction Inline SimplExpr.ret SimplExpr.error SimplExpr.bind SimplExpr.bind2. (* Compiler *) Extract Constant Compiler.print_Clight => "PrintClight.print_if". Extract Constant Compiler.print_Cminor => "PrintCminor.print_if". -Extract Constant Compiler.print_RTL => "PrintRTL.print_rtl". -Extract Constant Compiler.print_RTL_tailcall => "PrintRTL.print_tailcall". -Extract Constant Compiler.print_RTL_inline => "PrintRTL.print_inlining". -Extract Constant Compiler.print_RTL_constprop => "PrintRTL.print_constprop". -Extract Constant Compiler.print_RTL_cse => "PrintRTL.print_cse". -Extract Constant Compiler.print_RTL_deadcode => "PrintRTL.print_deadcode". +Extract Constant Compiler.print_RTL => "PrintRTL.print_if". Extract Constant Compiler.print_LTL => "PrintLTL.print_if". Extract Constant Compiler.print_Mach => "PrintMach.print_if". Extract Constant Compiler.print => "fun (f: 'a -> unit) (x: 'a) -> f x; x". @@ -118,12 +113,13 @@ Extract Inlined Constant Fappli_IEEE.B2R => "fun _ -> assert false". Extract Inlined Constant Fappli_IEEE.round_mode => "fun _ -> assert false". Extract Inlined Constant Fcalc_bracket.inbetween_loc => "fun _ -> assert false". -(* Needed in Coq 4.00 to avoid problems with Function definitions. *) +(* Needed in Coq 8.4 to avoid problems with Function definitions. *) Set Extraction AccessOpaque. (* Go! *) + Cd "extraction". -(* Recursive Extraction Library Compiler. *) + Separate Extraction Compiler.transf_c_program Compiler.transf_cminor_program Cexec.do_initial_state Cexec.do_step Cexec.at_final_state |