diff options
| author | Maxime Dénès | 2018-06-05 23:12:47 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2018-06-05 23:12:47 +0200 |
| commit | af902fa028f8ceb152d9add198e7dd490a4394ca (patch) | |
| tree | 002f7dde0d60cf865d5e643204827eee132299ee /kernel/nativeconv.ml | |
| parent | 1c67e29e735ab1e7bb121304f710ef48a23a8b9b (diff) | |
| parent | e1e7888ac4519f4b7470cc8469f9fd924514e352 (diff) | |
Merge PR #7679: Clean native compilation of primitive projections
Diffstat (limited to 'kernel/nativeconv.ml')
| -rw-r--r-- | kernel/nativeconv.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/nativeconv.ml b/kernel/nativeconv.ml index c07025660e..e97dbd0d67 100644 --- a/kernel/nativeconv.ml +++ b/kernel/nativeconv.ml @@ -114,8 +114,8 @@ and conv_atom env pb lvl a1 a2 cu = let cu = conv_val env CONV lvl d1 d2 cu in let v = mk_rel_accu lvl in conv_val env pb (lvl + 1) (d1 v) (d2 v) cu - | Aproj(p1,ac1), Aproj(p2,ac2) -> - if not (Constant.equal p1 p2) then raise NotConvertible + | Aproj((ind1, i1), ac1), Aproj((ind2, i2), ac2) -> + if not (eq_ind ind1 ind2 && Int.equal i1 i2) then raise NotConvertible else conv_accu env CONV lvl ac1 ac2 cu | Arel _, _ | Aind _, _ | Aconstant _, _ | Asort _, _ | Avar _, _ | Acase _, _ | Afix _, _ | Acofix _, _ | Acofixe _, _ | Aprod _, _ |