Changeset 5135

Timestamp:

Sep 5, 2006, 9:42:00 PM (18 years ago)

Author:

Gary Byers

Message:

If ENSURE-SIMPLE-STRING has to make a copy of a non-simple string,
understand char width issues.

File:

• trunk/ccl/level-0/l0-utils.lisp (modified) (1 diff)

trunk/ccl/level-0/l0-utils.lisp

@@ -61 +61 @@
            (declare (fixnum len)(optimize (speed 3)(safety 0)))
            (multiple-value-bind (ss offset) (array-data-and-offset s)
-             (%copy-ivector-to-ivector ss offset new 0 len))
+             #+target-8-bit-chars
+             (%copy-ivector-to-ivector ss offset new 0 len)
+             #-target-8-bit-chars
+             (%copy-ivector-to-ivector ss (ash offset 2) new 0 (ash len 2)))
            new))
         (t (report-bad-arg s 'string))))