Ignore:
Timestamp:
Oct 14, 2008, 6:30:00 PM (13 years ago)
Author:
gz
Message:

Merge/bootstrap assorted low level stuff from trunk - kernel, syscall stuff, lowmem-bias, formatting tweaks, a few bug fixes included

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/X86/X8632/x8632-arch.lisp

    r10972 r11089  
    374374;;; CONSP/RPLACA/RPLACD can check the tag and complain if the argument
    375375;;; is NIL.
    376 (defconstant nil-value (+ #x13000 fulltag-cons))
    377 (defconstant t-value (+ #x13008 fulltag-misc))
    378 (defconstant t-offset (- t-value nil-value))
     376(defconstant canonical-nil-value (+ #x13000 fulltag-cons))
     377(defconstant canonical-t-value (+ #x13008 fulltag-misc))
     378(defconstant t-offset (- canonical-t-value canonical-nil-value))
    379379
    380380(defconstant misc-bias fulltag-misc)
     
    10381038  (arch::make-target-arch :name :x8632
    10391039                          :lisp-node-size node-size
    1040                           :nil-value nil-value
     1040                          :nil-value canonical-nil-value
    10411041                          :fixnum-shift fixnumshift
    10421042                          :most-positive-fixnum target-most-positive-fixnum
     
    11671167;;;
    11681168(defx8632archmacro ccl::%get-kernel-global (name)
    1169   `(ccl::%fixnum-ref 0 (+ x8632::nil-value
     1169  `(ccl::%fixnum-ref 0 (+ ,(ccl::target-nil-value)
    11701170                        ,(%kernel-global
    11711171                          (if (ccl::quoted-form-p name)
     
    11761176  `(ccl::%setf-macptr
    11771177    ,dest
    1178     (ccl::%fixnum-ref-macptr 0 (+ x8632::nil-value
     1178    (ccl::%fixnum-ref-macptr 0 (+ ,(ccl::target-nil-value)
    11791179                                  ,(%kernel-global
    11801180                                    (if (ccl::quoted-form-p name)
Note: See TracChangeset for help on using the changeset viewer.