Skip to content
Snippets Groups Projects
Commit 6fc218bc authored by rtoy's avatar rtoy
Browse files

Minor change to allow the script to work for cross-compiling

non-unicode sparc from x86 OSX.
parent 0d1d2de5
No related branches found
No related tags found
No related merge requests found
...@@ -65,6 +65,7 @@ ...@@ -65,6 +65,7 @@
;; big-endian order for sparc. When we read in a string, we need to ;; 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 ;; convert the big-endian string to little-endian for x86 so we can
;; process the symbols and such as expected. ;; process the symbols and such as expected.
#+unicode
(progn (progn
(defun maybe-swap-string (f name &optional (len (length name))) (defun maybe-swap-string (f name &optional (len (length name)))
(declare (ignorable f)) (declare (ignorable f))
...@@ -90,7 +91,7 @@ ...@@ -90,7 +91,7 @@
(when (> ,n-size *load-symbol-buffer-size*) (when (> ,n-size *load-symbol-buffer-size*)
(setq *load-symbol-buffer* (setq *load-symbol-buffer*
(make-string (setq *load-symbol-buffer-size* (make-string (setq *load-symbol-buffer-size*
(* ,n-size 2))))) (* ,n-size vm:char-bytes)))))
(done-with-fast-read-byte) (done-with-fast-read-byte)
(let ((,n-buffer *load-symbol-buffer*)) (let ((,n-buffer *load-symbol-buffer*))
(read-n-bytes *fasl-file* ,n-buffer 0 (read-n-bytes *fasl-file* ,n-buffer 0
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment