diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2011-03-10 10:30:00 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2011-03-10 10:30:00 +0000 |
| commit | b683a90f06fd10e0b0defc176a15b7272564ffd9 (patch) | |
| tree | d2197232f2af8aaf3c55fe96aa2caa59ad6a36e5 | |
| parent | 191906d10aa084bc6077ef3f6503fd2dacac67a1 (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.v | 2 |
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 *) |