Skip to content
Snippets Groups Projects
Commit d0cac4d2 authored by wlott's avatar wlott
Browse files

use (c:backend-byte-order *backend*) instead of vm:target-byte-order.

parent 04495527
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/alieneval.lisp,v 1.5 1990/10/03 15:15:55 ram Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/alieneval.lisp,v 1.6 1990/11/06 14:04:03 wlott Exp $
;;; ;;;
;;; This file contains any the part of the Alien implementation that ;;; This file contains any the part of the Alien implementation that
;;; is not part of the compiler. ;;; is not part of the compiler.
...@@ -609,11 +609,11 @@ ...@@ -609,11 +609,11 @@
value))) value)))
(t (t
(macrolet ((low-byte () (macrolet ((low-byte ()
(ecase vm:target-byte-order (ecase (c:backend-byte-order c:*backend*)
(:little-endian 'offset) (:little-endian 'offset)
(:bit-endian '(1+ offset)))) (:bit-endian '(1+ offset))))
(high-byte () (high-byte ()
(ecase vm:target-byte-order (ecase (c:backend-byte-order c:*backend*)
(:little-endian '(1+ offset)) (:little-endian '(1+ offset))
(:bit-endian 'offset)))) (:bit-endian 'offset))))
(let* ((high-bits (- 32 bit-offset)) (let* ((high-bits (- 32 bit-offset))
...@@ -657,11 +657,11 @@ ...@@ -657,11 +657,11 @@
(setf (ldb (byte size r) (sap-ref-32 sap q)) value)) (setf (ldb (byte size r) (sap-ref-32 sap q)) value))
(t (t
(macrolet ((low-byte () (macrolet ((low-byte ()
(ecase vm:target-byte-order (ecase (c:backend-byte-order c:*backend*)
(:little-endian 'offset) (:little-endian 'offset)
(:bit-endian '(1+ offset)))) (:bit-endian '(1+ offset))))
(high-byte () (high-byte ()
(ecase vm:target-byte-order (ecase (c:backend-byte-order c:*backend*)
(:little-endian '(1+ offset)) (:little-endian '(1+ offset))
(:bit-endian 'offset)))) (:bit-endian 'offset))))
(let* ((high-bits (- 32 r)) (let* ((high-bits (- 32 r))
......
...@@ -47,7 +47,7 @@ ...@@ -47,7 +47,7 @@
(defmacro maybe-byte-swap (var bytes) (defmacro maybe-byte-swap (var bytes)
(ecase vm:target-byte-order (ecase (c:backend-byte-order c:*backend*)
(:big-endian (:big-endian
var) var)
(:little-endian (:little-endian
......
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