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

Changed vm:target-byte-order to (c:backend-byte-order c:*backend*).

parent 317daa41
No related branches found
No related tags found
No related merge requests found
...@@ -53,14 +53,14 @@ ...@@ -53,14 +53,14 @@
(defmacro end-bits (count) (defmacro end-bits (count)
"Returns the byte spec for COUNT bits at the end of a word, i.e. the bits "Returns the byte spec for COUNT bits at the end of a word, i.e. the bits
at the largest address." at the largest address."
(ecase vm:target-byte-order (ecase (c:backend-byte-order c:*backend*)
(:little-endian `(byte ,count (- unit-bits ,count))) (:little-endian `(byte ,count (- unit-bits ,count)))
(:big-endian `(byte ,count 0)))) (:big-endian `(byte ,count 0))))
(defmacro start-bits (count) (defmacro start-bits (count)
"Returns the byte spec for COUNT bits at the start of a word, i.e. the bits "Returns the byte spec for COUNT bits at the start of a word, i.e. the bits
at the smallest address." at the smallest address."
(ecase vm:target-byte-order (ecase (c:backend-byte-order c:*backend*)
(:little-endian `(byte ,count 0)) (:little-endian `(byte ,count 0))
(:big-endian `(byte ,count (- unit-bits ,count))))) (:big-endian `(byte ,count (- unit-bits ,count)))))
...@@ -69,7 +69,7 @@ ...@@ -69,7 +69,7 @@
corresponds to the start of the word (lowest address) and WHERE of 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 unit-bits corresponds to the end of the word (highest address). In other
words, act like :little-endian" words, act like :little-endian"
(ecase vm:target-byte-order (ecase (c:backend-byte-order c:*backend*)
(:little-endian `(byte ,count ,where)) (:little-endian `(byte ,count ,where))
(:big-endian `(byte ,count (- unit-bits ,where ,count))))) (:big-endian `(byte ,count (- unit-bits ,where ,count)))))
......
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