vm: bug: vm-desc created with incorrect display depth.

* share/txr/stdlib/compiler.tl (sys:env :postinit): The call
to register the environment with the compiler must be outside
of the unless form. Otherwise it never takes place, and so the
compiler doesn't find the maximum number of environment
levels, keeping the value at 2. The executing vm then accesses
out of bounds memory when setting up display frames.
(usr:compile-toplevel): Give the root environment the
compiler. Not strictly necessary since we are constent in
doing this elsewhere, so we are not relying on inheritance
of the compiler from parent environment to child.

* vm.c (vm_make_closure): assert added for the environment
levels of the closure not exceeding the display depth given
in the machine description. This was added during debugging
and going off; I'm keeping it.

1 files changed, 2 insertions, 0 deletions

diff --git a/vm.c b/vm.c
index a837a268..17efa503 100644
--- a/vm.c
+++ b/vm.c
@@ -219,6 +219,8 @@ static val vm_make_closure(struct vm *vm, int frsz)
   vc->vd = vm->vd;
   vc->dspl = dspl;
 
+  assert (vc->nlvl <= vm->nlvl);
+
   closure = cobj(coerce(mem_t *, vc), vm_closure_s, &vm_closure_ops);
 
   for (i = 2; i < vc->nlvl; i++) {