diff options
| author | Maxime Dénès | 2018-05-16 00:36:08 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2018-05-28 16:08:53 +0200 |
| commit | 442bd1fe4007d2f3b46cb565abbcd64011db1af4 (patch) | |
| tree | 083f5890a7a5763e884e24b1de45431573e87cae /kernel/nativelambda.ml | |
| parent | 4552729b88058946055dddde1533057e25bfc5a9 (diff) | |
Fix #7333: vm_compute segfaults / Anomaly with cofix
We eta-expand cofixpoints when needed, so that their call-by-need
evaluation is correctly implemented by VM and native_compute.
Diffstat (limited to 'kernel/nativelambda.ml')
| -rw-r--r-- | kernel/nativelambda.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/kernel/nativelambda.ml b/kernel/nativelambda.ml index a49bf62b3d..8b61ed0c5a 100644 --- a/kernel/nativelambda.ml +++ b/kernel/nativelambda.ml @@ -570,6 +570,7 @@ let rec lambda_of_constr env sigma c = Lfix(rec_init, (names, ltypes, lbodies)) | CoFix(init,(names,type_bodies,rec_bodies)) -> + let rec_bodies = Array.map2 (Reduction.eta_expand !global_env) rec_bodies type_bodies in let ltypes = lambda_of_args env sigma 0 type_bodies in Renv.push_rels env names; let lbodies = lambda_of_args env sigma 0 rec_bodies in |