Date: Sunday, December 5, 2010 @ 09:28:49 Author: rtoy Path: /project/cmucl/cvsroot/src/tools/cross-scripts
Modified: cross-x86-sparc.lisp
Minor change to allow the script to work for cross-compiling non-unicode sparc from x86 OSX.
----------------------+ cross-x86-sparc.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-)
Index: src/tools/cross-scripts/cross-x86-sparc.lisp diff -u src/tools/cross-scripts/cross-x86-sparc.lisp:1.2 src/tools/cross-scripts/cross-x86-sparc.lisp:1.3 --- src/tools/cross-scripts/cross-x86-sparc.lisp:1.2 Sat Dec 4 12:32:35 2010 +++ src/tools/cross-scripts/cross-x86-sparc.lisp Sun Dec 5 09:28:49 2010 @@ -65,6 +65,7 @@ ;; big-endian order for sparc. When we read in a string, we need to ;; convert the big-endian string to little-endian for x86 so we can ;; process the symbols and such as expected. +#+unicode (progn (defun maybe-swap-string (f name &optional (len (length name))) (declare (ignorable f)) @@ -90,7 +91,7 @@ (when (> ,n-size *load-symbol-buffer-size*) (setq *load-symbol-buffer* (make-string (setq *load-symbol-buffer-size* - (* ,n-size 2))))) + (* ,n-size vm:char-bytes))))) (done-with-fast-read-byte) (let ((,n-buffer *load-symbol-buffer*)) (read-n-bytes *fasl-file* ,n-buffer 0