[Openmcl-cvs-notifications] r8578 - /trunk/source/compiler/arch.lisp

[gb at clozure.com]

Author: gb
Date: Mon Feb 25 06:01:33 2008
New Revision: 8578

Log:
Add constants for tcr interrupts, suspend/resume UUOs. (Mostly
PPC-specific.)

Modified:
    trunk/source/compiler/arch.lisp

Modified: trunk/source/compiler/arch.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/compiler/arch.lisp (original)
+++ trunk/source/compiler/arch.lisp Mon Feb 25 06:01:33 2008
@@ -58,6 +58,11 @@
 (defconstant error-cant-take-car 8)
 (defconstant error-cant-take-cdr 9)
 (defconstant error-propagate-suspend 10)
+(defconstant error-interrupt 11)
+(defconstant error-suspend 12)
+(defconstant error-suspend-all 13)
+(defconstant error-resume 14)
+(defconstant error-resume-all 15)
 (defconstant error-cant-call 17)        ; Attempt to funcall something tha=
t is not a symbol or function.
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (defconstant error-type-error 128)