From 6fc218bc3e274b06ceebe1400bf5e3927f5b397a Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Sun, 5 Dec 2010 14:28:49 +0000
Subject: [PATCH] Minor change to allow the script to work for cross-compiling
 non-unicode sparc from x86 OSX.

---
 tools/cross-scripts/cross-x86-sparc.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/tools/cross-scripts/cross-x86-sparc.lisp b/tools/cross-scripts/cross-x86-sparc.lisp
index fbe573c1f..21202f577 100644
--- a/tools/cross-scripts/cross-x86-sparc.lisp
+++ b/tools/cross-scripts/cross-x86-sparc.lisp
@@ -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
-- 
GitLab