Changeset 5128

Timestamp:

Sep 5, 2006, 8:01:24 AM (18 years ago)

Author:

Gary Byers

Message:

ppc32 defaults to 32-bit chars.

Location:

trunk/ccl/compiler/PPC/PPC32

Files:

• ppc32-arch.lisp (modified) (5 diffs)
• ppc32-backend.lisp (modified) (1 diff)

trunk/ccl/compiler/PPC/PPC32/ppc32-arch.lisp

@@ -177 +177 @@
 (defconstant max-16-bit-ivector-subtag subtag-s16-vector)
 
-#+target-8-bit-chars
-(define-imm-subtag simple-base-string 27)
+
+;;(define-imm-subtag simple-base-string 27)
 (define-imm-subtag s8-vector 26)
 (define-imm-subtag u8-vector 25)
@@ -184 +184 @@
 (defconstant max-8-bit-ivector-subtag (logior fulltag-immheader (ash 27 ntagbits)))
 
-#-target-8-bit-chars
 (define-imm-subtag simple-base-string 24)
 (define-imm-subtag fixnum-vector 23)
@@ -751 +750 @@
                           :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)
@@ -761 +759 @@
                                                   :single-float
                                                   :double-float
-                                                  :bignum)
+                                                  :bignum
+                                                  :simple-string)
                           :64-bit-ivector-types '(:double-float-vector)
                           :array-type-name-from-ctype-function
@@ -801 +800 @@
                           :fulltagmask fulltagmask
                           :fulltag-misc fulltag-misc
-                          :char-code-limit 256
+                          :char-code-limit #x110000
                           ))
 

trunk/ccl/compiler/PPC/PPC32/ppc32-backend.lisp

@@ -342 +342 @@
                 :p2-compile 'ppc2-compile
                 :target-specific-features
-                '(:powerpc :ppc-target :eabi-target :linux-target :linuxppc-target :ppc32-target :32-bit-target :big-endian-target :target-8-bit-chars)
+                '(:powerpc :ppc-target :eabi-target :linux-target :linuxppc-target :ppc32-target :32-bit-target :big-endian-target)
                 :target-fasl-pathname (make-pathname :type "pfsl")
                 :target-platform (logior platform-word-size-32
-                                             platform-cpu-ppc
-                                             platform-os-linux)
+                                         platform-cpu-ppc
+                                         platform-os-linux)
                 :target-os :linuxppc
                 :name :linuxppc32