From cba393481d4abd777acdd373d90581439cefd36a Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 11 Jun 1990 14:22:06 +0000 Subject: [PATCH] Fixed CATCH-BLOCK primitive-type to use the CATCH-BLOCK SC instead of STACK so that we allocate enough space. --- compiler/old-rt/vm.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/old-rt/vm.lisp b/compiler/old-rt/vm.lisp index 9108a902e..963bce79d 100644 --- a/compiler/old-rt/vm.lisp +++ b/compiler/old-rt/vm.lisp @@ -125,7 +125,7 @@ (def-primitive-type list (descriptor-reg)) ;;; Dummy primitive type for catch block TNs. -(def-primitive-type catch-block (stack) :type nil) +(def-primitive-type catch-block (catch-block) :type nil) ;;; Primitive-Type-Of -- Interface -- GitLab