Changeset 633

Timestamp:

Mar 7, 2004, 12:01:36 AM (21 years ago)

Author:

Gary Byers

Message:

Try to bring inline with constants64.[sh]

File:

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

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

@@ -266 +266 @@
 
 (define-subtag single-float fulltag-imm-0 0)
-(define-subtag slot-unbound fulltag-imm-0 1)
-(defconstant slot-unbound-marker subtag-slot-unbound)
-(define-subtag illegal fulltag-imm-0 2)
-(defconstant illegal-marker subtag-illegal)
-
-(define-subtag go-tag fulltag-imm-1 0)
-(define-subtag block-tag fulltag-imm-1 1)
+
 (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)
+(define-subtag slot-unbound fulltag-imm-3 1)
+(defconstant slot-unbound-marker subtag-slot-unbound)
+(define-subtag illegal fulltag-imm-3 2)
+(defconstant illegal-marker subtag-illegal)
+
+(define-subtag no-thread-local-binding fulltag-imm-3 3)
+(define-subtag forward-marker fulltag-imm-3 15)
 
 
@@ -369 +370 @@
 
 (define-fixedsized-object symbol
+  pname
   vcell
   fcell
-  pname
   package-plist
   flags
@@ -418 +419 @@
 ;;; to keep track of various memory regions it (or the lisp) is
 ;;; interested in.
-;;; The gc-area record definition in "ccl:interfaces;mcl-records.lisp"
-;;; matches this.
+
 
 (define-storage-layout area 0