Changeset 10251


Ignore:
Timestamp:
Jul 30, 2008, 6:32:08 PM (11 years ago)
Author:
rme
Message:

Update nil-value, t-value, x8632-subprims-base due to NIL relocation.

Add save-eflags slot to tcr.

Define rwlock.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/X86/X8632/x8632-arch.lisp

    r10206 r10251  
    374374;;; CONSP/RPLACA/RPLACD can check the tag and complain if the argument
    375375;;; is NIL.
    376 (defconstant nil-value (+ #x3000 fulltag-cons))
    377 (defconstant t-value (+ #x3008 fulltag-misc))
     376(defconstant nil-value (+ #x13000 fulltag-cons))
     377(defconstant t-value (+ #x13008 fulltag-misc))
    378378(defconstant t-offset (- t-value nil-value))
    379379
     
    614614  unboxed1
    615615  next-method-context                   ;used in lieu of register
     616  save-eflags
    616617)
    617618
     
    626627  malloced-ptr
    627628  spinlock)
     629
     630(define-storage-layout rwlock 0
     631  spin
     632  state
     633  blocked-writers
     634  blocked-readers
     635  writer
     636  reader-signal
     637  writer-signal
     638  malloced-ptr
     639  )
    628640
    629641(defmacro define-header (name element-count subtag)
     
    825837
    826838(defparameter *x8632-subprims-shift* 2)
    827 (defconstant x8632-subprims-base #x5000)
     839(defconstant x8632-subprims-base #x15000)
    828840
    829841(declaim (special *x8632-subprims*))
     
    11991211(defconstant recover-fn-address-offset 1)
    12001212
     1213;;; For backtrace: the relative PC of an argument-check trap
     1214;;; must be less than or equal to this value.  (Because of
     1215;;; the way that we do "anchored" UUOs, it should always be =.)
     1216;;; (maybe not = on x8632)
     1217(defconstant arg-check-trap-pc-limit 7)
     1218
    12011219(provide "X8632-ARCH")
Note: See TracChangeset for help on using the changeset viewer.