From c4c1b61a92c471276fadc6d3a45c58146827537f Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 11 Jun 1990 13:58:20 +0000
Subject: [PATCH] Added CATCH-BLOCK primitive-type.

---
 compiler/old-rt/vm.lisp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/compiler/old-rt/vm.lisp b/compiler/old-rt/vm.lisp
index ee4434839..9108a902e 100644
--- a/compiler/old-rt/vm.lisp
+++ b/compiler/old-rt/vm.lisp
@@ -124,6 +124,9 @@
 ;;; be primitive types.
 (def-primitive-type list (descriptor-reg))
 
+;;; Dummy primitive type for catch block TNs.
+(def-primitive-type catch-block (stack) :type nil)
+
 
 ;;; Primitive-Type-Of  --  Interface
 ;;;
-- 
GitLab