Changeset 9499


Ignore:
Timestamp:
May 15, 2008, 11:29:03 PM (11 years ago)
Author:
gb
Message:

Move istruct accessor definitions elsewhere.

Define an operator for %VALID-CODE-CHAR.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711-perf/ccl/compiler/nxenv.lisp

    r9417 r9499  
    3131#-BOOTSTRAPPED (unless (boundp '$lfbits-info-bit) (set '$lfbits-info-bit 2))
    3232
    33 (defconstant $afunc-size
    34   (def-accessors (afunc) %svref
    35     ()                                    ; 'afunc
    36     afunc-acode
    37     afunc-parent
    38     afunc-vars
    39     afunc-inherited-vars
    40     afunc-blocks
    41     afunc-tags
    42     afunc-inner-functions
    43     afunc-name
    44     afunc-bits
    45     afunc-lfun
    46     afunc-environment
    47     afunc-lambdaform
    48     afunc-argsword
    49     afunc-ref-form
    50     afunc-warnings
    51     afunc-fn-refcount
    52     afunc-fn-downward-refcount
    53     afunc-all-vars
    54     afunc-callers
    55     afunc-vcells
    56     afunc-fcells
    57     afunc-fwd-refs
    58     afunc-lfun-info
    59     afunc-linkmap))
     33
    6034
    6135;
    6236
    63 (def-accessors (compiler-policy) uvref
    64   nil                                   ; 'compiler-policy
    65   policy.allow-tail-recursion-elimination
    66   policy.inhibit-register-allocation
    67   policy.trust-declarations
    68   policy.open-code-inline
    69   policy.inhibit-safety-checking
    70   policy.inhibit-event-checking
    71   policy.inline-self-calls
    72   policy.allow-transforms
    73   policy.force-boundp-checks
    74   policy.allow-constant-substitution
    75   policy.misc)
     37
    7638
    7739(defconstant $vbittemporary 16)    ; a compiler temporary
     
    226188     (lap-inline . 0)
    227189     (%function . #.operator-single-valued-mask)
    228      (%ttagp . #.(logior operator-cc-invertable-mask operator-single-valued-mask))
     190     (%valid-code-char . #.(logior operator-single-valued-mask operator-acode-subforms-mask operator-side-effect-free-mask operator-cc-invertable-mask))
    229191     (%ttag . #.operator-single-valued-mask) 
    230192     (uvsize . #.operator-single-valued-mask)
Note: See TracChangeset for help on using the changeset viewer.