Changeset 5139

Timestamp:

Sep 5, 2006, 11:08:56 PM (18 years ago)

Author:

Gary Byers

Message:

remove 8-bit char stuff.

Location:

trunk/ccl/compiler/PPC/PPC64

Files:

• ppc64-arch.lisp (modified) (5 diffs)
• ppc64-backend.lisp (modified) (2 diffs)

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

@@ -217 +217 @@
 (define-cl-array-subtag u32-vector ivector-class-32-bit 2)
 (define-cl-array-subtag single-float-vector ivector-class-32-bit 3)
-#-target-8-bit-chars
 (define-cl-array-subtag simple-base-string ivector-class-32-bit 5)
 (define-cl-array-subtag s16-vector ivector-class-other-bit 1)
@@ -224 +223 @@
 (define-cl-array-subtag s8-vector ivector-class-8-bit 1)
 (define-cl-array-subtag u8-vector ivector-class-8-bit 2)
-#+target-8-bit-chars
-(define-cl-array-subtag simple-base-string ivector-class-8-bit 5)
 
 ;;; There's some room for expansion in non-array ivector space.
@@ -820 +817 @@
                           :1-bit-ivector-types '(:bit-vector)
                           :8-bit-ivector-types '(:signed-8-bit-vector
-                                                 :unsigned-8-bit-vector
-                                                 :simple-string)
+                                                 :unsigned-8-bit-vector)
                           :16-bit-ivector-types '(:signed-16-bit-vector
                                                   :unsigned-16-bit-vector)
@@ -828 +824 @@
                                                   :single-float-vector
                                                   :double-float
-                                                  :bignum)
+                                                  :bignum
+                                                  :simple-string)
                           :64-bit-ivector-types '(:double-float-vector
                                                   :unsigned-64-bit-vector
@@ -871 +868 @@
                           :fulltagmask fulltagmask
                           :fulltag-misc fulltag-misc
-                          :char-code-limit 256
+                          :char-code-limit #x110000
                           ))
 

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

@@ -193 +193 @@
                 :p2-compile 'ppc2-compile
                 :target-specific-features
-                '(:powerpc :ppc-target :poweropen-target :linux-target :linuxppc-target :ppc64-target :64-bit-target :big-endian-target :target-8-bit-chars)
+                '(:powerpc :ppc-target :poweropen-target :linux-target :linuxppc-target :ppc64-target :64-bit-target :big-endian-target)
                 :target-fasl-pathname (make-pathname :type "p64fsl")
                 :target-platform (logior platform-cpu-ppc
@@ -221 +221 @@
                 :p2-compile 'ppc2-compile
                 :target-specific-features
-                '(:powerpc :ppc-target :darwin-target :darwinppc-target :ppc64-target :64-bit-target :big-endian-target :target-8-bit-chars)
+                '(:powerpc :ppc-target :darwin-target :darwinppc-target :ppc64-target :64-bit-target :big-endian-target)
                 :target-fasl-pathname (make-pathname :type "d64fsl")
                 :target-platform (logior platform-cpu-ppc