Changeset 5120

Timestamp:

Sep 5, 2006, 4:13:47 AM (18 years ago)

Author:

Gary Byers

Message:

CALL-WITH-STRING-VECTOR: don't assume 8-bit char/strings.

File:

• trunk/ccl/level-1/linux-files.lisp (modified) (1 diff)

trunk/ccl/level-1/linux-files.lisp

@@ -558 +558 @@
       (flet ((init (s)
              (multiple-value-bind (sstr start end) (get-sstring s)
+               (declare (fixnum start end))
                (let ((len (- end start)))
-                 (%copy-ivector-to-ptr sstr start buf bufpos len)
+                 (declare (fixnum len))
+                 (do* ((i 0 (1+ i))
+                       (start start (1+ start))
+                       (bufpos bufpos (1+ bufpos)))
+                      ((= i len))
+                   (setf (%get-unsigned-byte buf bufpos)
+                         (logand #xff (%scharcode sstr start))))
                  (setf (%get-byte buf (%i+ bufpos len)) 0)
                  (setf (%get-ptr argv argvpos) (%inc-ptr buf bufpos))