From 5aa6d99982a9d6e2736f1eedb7fcdf6b9d05b6a0 Mon Sep 17 00:00:00 2001
From: Guillaume Melquiond
Date: Mon, 24 Aug 2020 15:11:16 +0200
Subject: Modify bytecode representation of closures to please OCaml's GC (fix
 #12636).

The second field of a closure can no longer be the value of the first free
variable (or another closure of a mutually recursive block) but must be an
offset to the first free variable.

This commit makes the bytecode compiler and interpreter agnostic to the
actual representation of closures. To do so, the execution environment
(variable coq_env) no longer points to the currently executed closure but
to the last one. This has the following consequences:

- OFFSETCLOSURE(n) now always loads the n-th closure of a recursive block
  (counted from last to first);
- ENVACC(n) now always loads the value of the n-th free variable.

These two changes make the bytecode compiler simpler, since it no
longer has to track the relative position of closures and free variables.
The last change makes the interpreter a bit slower, since it has to adjust
coq_env when executing GRABREC. Hopefully, cache locality will make the
overhead negligible.
---
 kernel/vm.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'kernel/vm.ml')

diff --git a/kernel/vm.ml b/kernel/vm.ml
index 76954a83d8..3adb2f2113 100644
--- a/kernel/vm.ml
+++ b/kernel/vm.ml
@@ -95,7 +95,7 @@ let reduce_fix k vf =
   (* computing types *)
   let fc_typ = fix_types fb in
   let ndef = Array.length fc_typ in
-  let et = offset_closure_fix fb (2*(ndef - 1)) in
+  let et = fix_env fb in
   let ftyp =
     Array.map
       (fun c -> interprete c crazy_val et 0) fc_typ in
-- 
cgit v1.2.3