Skip to content
Snippets Groups Projects
Commit 0d1d2de5 authored by rtoy's avatar rtoy
Browse files

Clean up implementation removing commented out stuff in

DUMP-DATA-MAYBE-BYTE-SWAPPING.
parent 6e69ddbc
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.90 2010/12/04 17:32:34 rtoy Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.91 2010/12/04 23:21:13 rtoy Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -1635,16 +1635,10 @@ ...@@ -1635,16 +1635,10 @@
bytes-per-element) bytes-per-element)
(type unsigned-byte elements)) (type unsigned-byte elements))
(if (stringp data-vector) (if (stringp data-vector)
(progn (dotimes (index elements)
;;(format t "reverse string data: ~S~%" data-vector) (let ((c (char-code (aref data-vector index))))
#+(or) (setf (aref result index) (logior (ash (ldb (byte 8 0) c) 8)
(dotimes (index elements) (ldb (byte 8 8) c)))))
(let ((c (char-code (aref data-vector index))))
(setf (aref result index) c)))
(dotimes (index elements)
(let ((c (char-code (aref data-vector index))))
(setf (aref result index) (logior (ash (ldb (byte 8 0) c) 8)
(ldb (byte 8 8) c))))))
(dotimes (index elements) (dotimes (index elements)
(let ((element (aref data-vector index)) (let ((element (aref data-vector index))
(new-element 0)) (new-element 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