From 442bd1fe4007d2f3b46cb565abbcd64011db1af4 Mon Sep 17 00:00:00 2001 From: Maxime Dénès Date: Wed, 16 May 2018 00:36:08 +0200 Subject: 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. --- kernel/clambda.ml | 1 + 1 file changed, 1 insertion(+) (limited to 'kernel/clambda.ml') diff --git a/kernel/clambda.ml b/kernel/clambda.ml index 619dd608f..8389dd326 100644 --- a/kernel/clambda.ml +++ b/kernel/clambda.ml @@ -700,6 +700,7 @@ let rec lambda_of_constr env c = Lfix(rec_init, (names, ltypes, lbodies)) | CoFix(init,(names,type_bodies,rec_bodies)) -> + let rec_bodies = Array.map2 (Reduction.eta_expand env.global_env) rec_bodies type_bodies in let ltypes = lambda_of_args env 0 type_bodies in Renv.push_rels env names; let lbodies = lambda_of_args env 0 rec_bodies in -- cgit v1.2.3