aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEduardo Julian2017-02-22 20:08:17 -0400
committerEduardo Julian2017-02-22 20:08:17 -0400
commit879455eafe4e3a6eed69219d5ebfa61d421af99c (patch)
tree631ce89f66ed1f516a6355eb036f58d23259a25c
parent38a81332a1cefb51ff89ee96a16bb4a65cee21bc (diff)
- Fixed a bug in the way the low and high 32 bits in a long were extracted and cast to ints.
-rw-r--r--luxc/src/lux/compiler/js/base.clj4
1 files changed, 2 insertions, 2 deletions
diff --git a/luxc/src/lux/compiler/js/base.clj b/luxc/src/lux/compiler/js/base.clj
index 329252798..c6a6f538c 100644
--- a/luxc/src/lux/compiler/js/base.clj
+++ b/luxc/src/lux/compiler/js/base.clj
@@ -79,8 +79,8 @@
JSObject
(getMember [self member]
(condp = member
- "H" (-> value (unsigned-bit-shift-right 32) (bit-and i64-mask) int)
- "L" (-> value (bit-and i64-mask) int)
+ "H" (-> value (bit-shift-right 32) int)
+ "L" (-> value (bit-and i64-mask) (bit-shift-left 32) (bit-shift-right 32) int)
;; else
(assert false (str "I64#getMember = " member)))))