[cmucl-cvs] CMUCL commit: src/tools/cross-scripts (cross-x86-sparc.lisp)
Raymond Toy
rtoy at common-lisp.net
Sun Dec 5 14:28:49 UTC 2010
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
More information about the cmucl-cvs
mailing list