From 09aa63abf986da88ff66064f9534be2d1bcbcdb7 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Wed, 21 Nov 1990 08:44:50 +0000 Subject: [PATCH] Changed vm:target-byte-order to (c:backend-byte-order c:*backend*). --- code/bit-bash.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/code/bit-bash.lisp b/code/bit-bash.lisp index 44c494ff6..f0e3840ad 100644 --- a/code/bit-bash.lisp +++ b/code/bit-bash.lisp @@ -53,14 +53,14 @@ (defmacro end-bits (count) "Returns the byte spec for COUNT bits at the end of a word, i.e. the bits at the largest address." - (ecase vm:target-byte-order + (ecase (c:backend-byte-order c:*backend*) (:little-endian `(byte ,count (- unit-bits ,count))) (:big-endian `(byte ,count 0)))) (defmacro start-bits (count) "Returns the byte spec for COUNT bits at the start of a word, i.e. the bits at the smallest address." - (ecase vm:target-byte-order + (ecase (c:backend-byte-order c:*backend*) (:little-endian `(byte ,count 0)) (:big-endian `(byte ,count (- unit-bits ,count))))) @@ -69,7 +69,7 @@ corresponds to the start of the word (lowest address) and WHERE of unit-bits corresponds to the end of the word (highest address). In other words, act like :little-endian" - (ecase vm:target-byte-order + (ecase (c:backend-byte-order c:*backend*) (:little-endian `(byte ,count ,where)) (:big-endian `(byte ,count (- unit-bits ,where ,count))))) -- GitLab