From 07e9c1ec14b2d3b034d48f1160726d4bed234fd9 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Fri, 23 Feb 1990 18:44:48 +0000 Subject: [PATCH] Added and exported PENDING-INTERRUPT-TRAP, ERROR-TRAP, and CERROR-TRAP. --- compiler/mips/parms.lisp | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/compiler/mips/parms.lisp b/compiler/mips/parms.lisp index 7a0523df9..627d0b215 100644 --- a/compiler/mips/parms.lisp +++ b/compiler/mips/parms.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.14 1990/02/23 17:58:21 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.15 1990/02/23 18:44:48 wlott Exp $ ;;; ;;; This file contains some parameterizations of various VM attributes for ;;; the MIPS. This file is separate from other stuff so that it can be compiled @@ -43,9 +43,9 @@ closure-function-header-type return-pc-header-type closure-header-type value-cell-header-type symbol-header-type character-type SAP-type unbound-marker-type atomic-flag - interrupted-flag fixnum initial-symbols initial-symbol-offset - offset-initial-symbol *assembly-unit-length* - target-fasl-code-format vm-version)) + interrupted-flag pending-interrupt-trap error-trap cerror-trap + fixnum initial-symbols initial-symbol-offset offset-initial-symbol + *assembly-unit-length* target-fasl-code-format vm-version)) (eval-when (compile load eval) @@ -205,6 +205,10 @@ atomic interrupted) +(defenum (:suffix -trap :start 8) + pending-interrupt + error + cerror) ;;;; Initial symbols. -- GitLab