diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-07-21 20:25:13 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-07-21 20:25:13 +0000 |
| commit | f48478679585360a13ffc561a13ceb13dfed88d6 (patch) | |
| tree | dd109b5fbe00752dc38c84f0e4f478346b92e814 /kernel/closure.ml | |
| parent | 991b14dfa66560047c8d0676cb0995b20d2954e4 (diff) | |
Remplacement du tableau du nombre d'args utiles pour la réduction des Cases par le nombre d'args inutiles + vérification dans le noyau
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1860 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/closure.ml')
| -rw-r--r-- | kernel/closure.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/closure.ml b/kernel/closure.ml index 81c1b7bcc..3d21e86ae 100644 --- a/kernel/closure.ml +++ b/kernel/closure.ml @@ -967,8 +967,8 @@ let rec knr info m stk = | None -> (set_norm m; (m,stk))) | FConstruct((sp,c),args) when can_red info stk fIOTA -> (match strip_update_shift_app m stk with - (depth, args, Zcase((cn,_),_,br)::s) -> - let npar = stack_args_size args - cn.(c-1) in + (depth, args, Zcase(((*cn*) npar,_),_,br)::s) -> +(* let npar = stack_args_size args - cn.(c-1) in*) assert (npar>=0); let rargs = drop_parameters depth npar args in kni info br.(c-1) (rargs@s) |