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