[Openmcl-cvs-notifications] r10366 - /trunk/source/compiler/nxenv.lisp

[gb at clozure.com]

Author: gb
Date: Wed Aug  6 05:00:28 2008
New Revision: 10366

Log:
Define $DECL_FULL_SAFETY.  Set that bit in p2 decls when (SAFETY 3) is
in effect.  Bind *X862-FULL-SAFETY* in x86 backend based on setting
of that bit.



Modified:
    trunk/source/compiler/nxenv.lisp

Modified: trunk/source/compiler/nxenv.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/nxenv.lisp (original)
+++ trunk/source/compiler/nxenv.lisp Wed Aug  6 05:00:28 2008
@@ -49,12 +49,13 @@
 (defconstant $vsetqmask #xff00)
 (defconstant $vrefmask #xff)
 =

-(defconstant $decl_optimize (%ilsl 16 0))
-(defconstant $decl_tailcalls (%ilsl 16 1))
-(defconstant $decl_opencodeinline (%ilsl 16 4))
-(defconstant $decl_eventchk (%ilsl 16 8))
-(defconstant $decl_unsafe (%ilsl 16 16))
-(defconstant $decl_trustdecls (%ilsl 16 32))
+(defconstant $decl_optimize (%ilsl 16 0))  ; today's chuckle
+(defconstant $decl_tailcalls (ash 1 16))
+(defconstant $decl_opencodeinline (ash 4 16))
+(defconstant $decl_eventchk (ash 8 16))
+(defconstant $decl_unsafe (ash 16 16))
+(defconstant $decl_trustdecls (ash 32 16))
+(defconstant $decl_full_safety (ash 64 16))
 =

 (defconstant $regnote-ea 1)
 =