diff options
| author | letouzey | 2004-03-22 17:08:47 +0000 |
|---|---|---|
| committer | letouzey | 2004-03-22 17:08:47 +0000 |
| commit | afe80e3357f51292d0aa5934760b2dc97b67f2b6 (patch) | |
| tree | 9851c58f66bff8f48f489e955d46dd800d07ba12 /contrib/extraction/mlutil.ml | |
| parent | 8d76f3db79ceb7a44319edfcc391c9d33c3ea3dd (diff) | |
correction d'un bug faisant inliner minus, mult, ...
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5540 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/extraction/mlutil.ml')
| -rw-r--r-- | contrib/extraction/mlutil.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/extraction/mlutil.ml b/contrib/extraction/mlutil.ml index e60765b7e1..b3510e7c17 100644 --- a/contrib/extraction/mlutil.ml +++ b/contrib/extraction/mlutil.ml @@ -1066,7 +1066,7 @@ let is_not_strict t = Futhermore we don't expand fixpoints. *) let inline_test t = - not (is_fix t) && (ml_size t < 12 && is_not_strict t) + not (is_fix (eta_red t)) && (ml_size t < 12 && is_not_strict t) let manual_inline_list = let mp = MPfile (dirpath_of_string "Coq.Init.Wf") in |