Changeset 375

Timestamp:

Jan 24, 2004, 3:30:53 PM (21 years ago)

Author:

Gary Byers

Message:

Some fixes; call it fulltag-misc after all.

File:

• trunk/ccl/compiler/PPC/PPC64/ppc64-arch.lisp (modified) (13 diffs)

trunk/ccl/compiler/PPC/PPC64/ppc64-arch.lisp

@@ -42 +42 @@
 (defconstant fixnum-mask fixnummask)
 (defconstant subtag-mask (1- (ash 1 num-subtag-bits)))
-(defconstant ncharcodebits 16)
+(defconstant ncharcodebits 32)
 (defconstant charcode-shift (- nbits-in-word ncharcodebits))
 (defconstant word-shift 3)
-
+(defconstant word-size-in-bytes 8)
+(defconstant target-most-negative-fixnum (ash -1 (1- (- nbits-in-word nfixnumtagbits))))
+(defconstant target-most-positive-fixnum (1- (ash 1 (1- (- nbits-in-word nfixnumtagbits)))))
 (defmacro define-subtag (name tag value)
   `(defconstant ,(ccl::form-symbol "SUBTAG-" name) (logior ,tag (ash ,value ntagbits))))
@@ -78 +80 @@
 ;;  #b111  node-header
 ;;
+
+(defconstant tag-fixnum 0)
+
 ;;  Note how we're already winding up with lots of header and immediate
 ;;  "classes".  That might actually be useful.
@@ -104 +109 @@
 (defconstant fulltag-immheader-2    #b1010)
 (defconstant fulltag-nodeheader-2   #b1011)
-(defconstant fulltag-uvector        #b1100)
+(defconstant fulltag-misc           #b1100)
 (defconstant fulltag-imm-3          #b1101)
 (defconstant fulltag-immheader-3    #b1110)
@@ -113 +118 @@
 ;; object is something like:
 ;; (clrldi tag node 60)
-;; (cmpwi tag fulltag-uvector)
+;; (cmpwi tag fulltag-misc)
 ;; (clrldi tag tag 61
 ;; (bne @done)
@@ -242 +247 @@
 (defmacro define-fixedsized-object (name &rest non-header-cells)
   `(progn
-     (define-lisp-object ,name fulltag-uvector header ,@non-header-cells)
+     (define-lisp-object ,name fulltag-misc header ,@non-header-cells)
      (ccl::defenum ()
        ,@(mapcar #'(lambda (cell) (ccl::form-symbol name "." cell "-CELL")) non-header-cells))
@@ -253 +258 @@
 
 
-(defconstant misc-header-offset (- fulltag-uvector))
+(defconstant misc-header-offset (- fulltag-misc))
 (defconstant misc-subtag-offset (+ misc-header-offset 7 ))
 (defconstant misc-data-offset (+ misc-header-offset 8))
@@ -268 +273 @@
 (define-subtag go-tag fulltag-imm-1 0)
 (define-subtag block-tag fulltag-imm-1 1)
-(define-subtag no-thread-local-binding fulltag-imm-2 0)
+(define-subtag character fulltag-imm-2 0)
 (define-subtag unbound fulltag-imm-3 0)
 (defconstant unbound-marker subtag-unbound)
 (defconstant undefined unbound-marker)
+(define-subtag no-thread-local-binding fulltag-imm-3 1)
 
 
@@ -381 +387 @@
 )
 
-(define-lisp-object arrayH fulltag-uvector
+(define-lisp-object arrayH fulltag-misc
   header                                ; subtag = subtag-arrayH
   rank                                  ; NEVER 1
@@ -520 +526 @@
 
 
-(ppc32::define-storage-layout lisp-frame 0
+(ppc64::define-storage-layout lisp-frame 0
   backlink
   savefn
@@ -587 +593 @@
   (let* ((pos (position sym ppc::*ppc-kernel-globals* :test #'string=)))
     (if pos
-      (- (+ fulltag-uvector (* (1+ pos) 8)))
+      (- (+ fulltag-misc (* (1+ pos) word-size-in-bytes)))
       (error "Unknown kernel global : ~s ." sym))))
 
@@ -593 +599 @@
   (let* ((pos (position sym ppc::*ppc-kernel-globals* :test #'string=)))
     (if pos
-      (- (+ fulltag-uvector (* (1+ pos) 4)))
+      (- (+ fulltag-misc (* (1+ pos) word-size-in-bytes)))
       (error "Unknown kernel global : ~s ." sym))))
 
@@ -599 +605 @@
 ; The objects in question are generally fixnum-tagged; the entries in the
 ; "kernel-imports" vector are 8 bytes apart.
-(ccl::defenum (:prefix "KERNEL-IMPORT-" :start 0 :step 8)
+(ccl::defenum (:prefix "KERNEL-IMPORT-" :start 0 :step word-size-in-bytes)
   fd-setsize-bytes
   do-fd-set
@@ -652 +658 @@
     (if pos (* (1+ pos) symbol.size))))
 
-(defconstant nil-value (+ #x2000 symbol.size fulltag-uvector))
+(defconstant nil-value (+ #x2000 symbol.size fulltag-misc))