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