diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-12-19 14:14:53 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-12-19 14:14:53 +0000 |
| commit | 57cd43543edfc8961038e2da734c6477ff5ae2bc (patch) | |
| tree | b42c9493d1670d0613031d78001a2812320eac8f | |
| parent | 9650a5eaab07b9d6634887ca26b829417619203a (diff) | |
suppression de l'archive cvs d'un bout de debug
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3462 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | contrib/extraction/mlutil.ml | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/contrib/extraction/mlutil.ml b/contrib/extraction/mlutil.ml index 172dce2dd..145d700cc 100644 --- a/contrib/extraction/mlutil.ml +++ b/contrib/extraction/mlutil.ml @@ -1087,16 +1087,17 @@ let manual_inline = function we are free to act (AutoInline is set) \end{itemize} *) -let inline_test' r t = +(*i DEBUG + let inline_test' r t = let b = inline_test t in if b then msgnl (Printer.pr_global r); - b + b i*) let inline r t = not (to_keep r) (* The user DOES want to keep it *) && (to_inline r (* The user DOES want to inline it *) || (auto_inline () && lang () <> Haskell - && (is_recursor r || manual_inline r || inline_test' r t))) + && (is_recursor r || manual_inline r || inline_test t))) (*S Optimization. *) |