Changeset 10366


Ignore:
Timestamp:
Aug 6, 2008, 9:00:28 AM (11 years ago)
Author:
gb
Message:

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.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nxenv.lisp

    r10360 r10366  
    5050(defconstant $vrefmask #xff)
    5151
    52 (defconstant $decl_optimize (%ilsl 16 0))
    53 (defconstant $decl_tailcalls (%ilsl 16 1))
    54 (defconstant $decl_opencodeinline (%ilsl 16 4))
    55 (defconstant $decl_eventchk (%ilsl 16 8))
    56 (defconstant $decl_unsafe (%ilsl 16 16))
    57 (defconstant $decl_trustdecls (%ilsl 16 32))
     52(defconstant $decl_optimize (%ilsl 16 0))  ; today's chuckle
     53(defconstant $decl_tailcalls (ash 1 16))
     54(defconstant $decl_opencodeinline (ash 4 16))
     55(defconstant $decl_eventchk (ash 8 16))
     56(defconstant $decl_unsafe (ash 16 16))
     57(defconstant $decl_trustdecls (ash 32 16))
     58(defconstant $decl_full_safety (ash 64 16))
    5859
    5960(defconstant $regnote-ea 1)
Note: See TracChangeset for help on using the changeset viewer.