branch: externals/xelb
commit 87ebff4b0f649605adbbdeadd4b3db4083212b18
Author: Chris Feng <chris.w.f...@gmail.com>
Commit: Chris Feng <chris.w.f...@gmail.com>
Fix for 32bit platform
---
xcb-types.el | 8 ++++----
1 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/xcb-types.el b/xcb-types.el
index 33ddeb3..af31817 100644
--- a/xcb-types.el
+++ b/xcb-types.el
@@ -130,8 +130,8 @@
(if (integerp value)
(vector (logand (lsh value -24) #xFF) (logand (lsh value -16) #xFF)
(logand (lsh value -8) #xFF) (logand value #xFF))
- (let ((msw (truncate value #x10000))
- (lsw (truncate (- value (lsh msw 16)))))
+ (let* ((msw (truncate value #x10000))
+ (lsw (truncate (- value (lsh msw 16)))))
(vector (logand (lsh msw -8) #xFF) (logand msw #xFF)
(logand (lsh lsw -8) #xFF) (logand lsw #xFF)))))
(defsubst xcb:-pack-u4-lsb (value)
@@ -139,8 +139,8 @@
(if (integerp value)
(vector (logand value #xFF) (logand (lsh value -8) #xFF)
(logand (lsh value -16) #xFF) (logand (lsh value -24) #xFF))
- (let ((msw (truncate value #x10000))
- (lsw (truncate (- value (* msw #x10000)))))
+ (let* ((msw (truncate value #x10000))
+ (lsw (truncate (- value (* msw #x10000)))))
(vector (logand lsw #xFF) (logand (lsh lsw -8) #xFF)
(logand msw #xFF) (logand (lsh msw -8) #xFF))))))
