From 879455eafe4e3a6eed69219d5ebfa61d421af99c Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 22 Feb 2017 20:08:17 -0400
Subject: - Fixed a bug in the way the low and high 32 bits in a long were
 extracted and cast to ints.

---
 luxc/src/lux/compiler/js/base.clj | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'luxc')

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)))))
 
-- 
cgit v1.2.3