summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>2011-03-10 10:30:00 +0000
committerGravatar xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>2011-03-10 10:30:00 +0000
commitb683a90f06fd10e0b0defc176a15b7272564ffd9 (patch)
treed2197232f2af8aaf3c55fe96aa2caa59ad6a36e5
parent191906d10aa084bc6077ef3f6503fd2dacac67a1 (diff)
Undesirable optimization of 'print'
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1601 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
-rw-r--r--extraction/extraction.v2
1 files changed, 2 insertions, 0 deletions
diff --git a/extraction/extraction.v b/extraction/extraction.v
index 1c14298..1689ad2 100644
--- a/extraction/extraction.v
+++ b/extraction/extraction.v
@@ -91,6 +91,8 @@ Extract Constant Compiler.print_RTL_castopt => "PrintRTL.print_castopt".
Extract Constant Compiler.print_RTL_constprop => "PrintRTL.print_constprop".
Extract Constant Compiler.print_RTL_cse => "PrintRTL.print_cse".
Extract Constant Compiler.print_LTLin => "PrintLTLin.print_if".
+Extract Constant Compiler.print => "fun (f: 'a -> unit) (x: 'a) -> f x; x".
+(*Extraction Inline Compiler.apply_total Compiler.apply_partial.*)
(* Processor-specific extraction directives *)