Changeset 5114

Timestamp:

Sep 5, 2006, 4:05:28 AM (18 years ago)

Author:

Gary Byers

Message:

PPC2-VREF: handle the 32-bit :SIMPLE-STRING case with constant index.

File:

• trunk/ccl/compiler/PPC/ppc2.lisp (modified) (2 diffs)

trunk/ccl/compiler/PPC/ppc2.lisp

@@ -1345 +1345 @@
                            (not (or (eq type-keyword :signed-32-bit-vector)
                                     (eq type-keyword :fixnum-vector)
+                                    (eq type-keyword :simple-string)
                                     (eq type-keyword :single-float-vector)))))
                      (:ppc64
@@ -1385 +1386 @@
                                      (:fixnum-vector
                                       (! box-fixnum target temp))
+                                     (:simple-string
+                                      (! u32->char target temp))
                                      (t
                                       (ppc2-box-u32 seg target temp)))))))