Changeset 633


Ignore:
Timestamp:
Mar 7, 2004, 8:01:36 AM (15 years ago)
Author:
gb
Message:

Try to bring inline with constants64.[sh]

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/compiler/PPC/PPC64/ppc64-arch.lisp

    r391 r633  
    266266
    267267(define-subtag single-float fulltag-imm-0 0)
    268 (define-subtag slot-unbound fulltag-imm-0 1)
    269 (defconstant slot-unbound-marker subtag-slot-unbound)
    270 (define-subtag illegal fulltag-imm-0 2)
    271 (defconstant illegal-marker subtag-illegal)
    272 
    273 (define-subtag go-tag fulltag-imm-1 0)
    274 (define-subtag block-tag fulltag-imm-1 1)
     268
    275269(define-subtag character fulltag-imm-2 0)
     270
    276271(define-subtag unbound fulltag-imm-3 0)
    277272(defconstant unbound-marker subtag-unbound)
    278273(defconstant undefined unbound-marker)
    279 (define-subtag no-thread-local-binding fulltag-imm-3 1)
     274(define-subtag slot-unbound fulltag-imm-3 1)
     275(defconstant slot-unbound-marker subtag-slot-unbound)
     276(define-subtag illegal fulltag-imm-3 2)
     277(defconstant illegal-marker subtag-illegal)
     278
     279(define-subtag no-thread-local-binding fulltag-imm-3 3)
     280(define-subtag forward-marker fulltag-imm-3 15)
    280281
    281282
     
    369370
    370371(define-fixedsized-object symbol
     372  pname
    371373  vcell
    372374  fcell
    373   pname
    374375  package-plist
    375376  flags
     
    418419;;; to keep track of various memory regions it (or the lisp) is
    419420;;; interested in.
    420 ;;; The gc-area record definition in "ccl:interfaces;mcl-records.lisp"
    421 ;;; matches this.
     421
    422422
    423423(define-storage-layout area 0
Note: See TracChangeset for help on using the changeset viewer.