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/X8664/x8664-arch.lisp

    r10972 r11089  
    412412
    413413       
    414 (defconstant nil-value (+ #x13000 fulltag-nil))
    415 (defconstant t-value (+ #x13020 fulltag-symbol))
     414(defconstant canonical-nil-value (+ #x13000 fulltag-nil))
     415(defconstant canonical-t-value (+ #x13020 fulltag-symbol))
    416416(defconstant misc-bias fulltag-misc)
    417417(defconstant cons-bias fulltag-cons)
    418 (defconstant t-offset (- t-value nil-value))
     418(defconstant t-offset (- canonical-t-value canonical-nil-value))
    419419
    420420
     
    11391139  (arch::make-target-arch :name :x8664
    11401140                          :lisp-node-size 8
    1141                           :nil-value nil-value
     1141                          :nil-value canonical-nil-value
    11421142                          :fixnum-shift fixnumshift
    11431143                          :most-positive-fixnum (1- (ash 1 (1- (- 64 fixnumshift))))
     
    12721272;;;
    12731273(defx8664archmacro ccl::%get-kernel-global (name)
    1274   `(ccl::%fixnum-ref 0 (+ x8664::nil-value
     1274  `(ccl::%fixnum-ref 0 (+ ,(ccl::target-nil-value)
    12751275                        ,(%kernel-global
    12761276                         (if (ccl::quoted-form-p name)
     
    12811281  `(ccl::%setf-macptr
    12821282    ,dest
    1283     (ccl::%int-to-ptr (ccl::%fixnum-ref-natural 0 (+ x8664::nil-value
     1283    (ccl::%int-to-ptr (ccl::%fixnum-ref-natural 0 (+ ,(ccl::target-nil-value)
    12841284                                 ,(%kernel-global
    12851285                                   (if (ccl::quoted-form-p name)
Note: See TracChangeset for help on using the changeset viewer.