Fix unload-bits bug.

Author: dvanhorn

langs/hoax/test/test-runner.rkt

@@ -88,6 +88,7 @@
   ;; Hustle examples
   (check-equal? (run ''()) '())
   (check-equal? (run '(box 1)) (box 1))
+  (check-equal? (run '(box -1)) (box -1))
   (check-equal? (run '(cons 1 2)) (cons 1 2))
   (check-equal? (run '(unbox (box 1))) 1)
   (check-equal? (run '(car (cons 1 2))) 1)

langs/hoax/unload-bits-asm.rkt

@@ -37,7 +37,7 @@
                     (integer-length ptr-mask)))
 
 (define (heap-ref i)
-  (ptr-ref (cast (untag i) _int64 _pointer) _uint64))
+  (ptr-ref (cast (untag i) _int64 _pointer) _int64))
 
 (define (char-ref i j)
   (integer->char (ptr-ref (cast (untag i) _int64 _pointer) _uint32 j)))

langs/hustle/test/test-runner.rkt

@@ -86,6 +86,7 @@
   ;; Hustle examples  
   (check-equal? (run ''()) '())  
   (check-equal? (run '(box 1)) (box 1))
+  (check-equal? (run '(box -1)) (box -1))
   (check-equal? (run '(cons 1 2)) (cons 1 2))
   (check-equal? (run '(unbox (box 1))) 1)
   (check-equal? (run '(car (cons 1 2))) 1)

langs/hustle/unload-bits-asm.rkt

@@ -25,4 +25,4 @@
                     (integer-length ptr-mask)))
 
 (define (heap-ref i)
-  (ptr-ref (cast (untag i) _int64 _pointer) _uint64))
+  (ptr-ref (cast (untag i) _int64 _pointer) _int64))

langs/iniquity/test/test-runner.rkt

@@ -89,6 +89,7 @@
   ;; Hustle examples
   (check-equal? (run ''()) '())
   (check-equal? (run '(box 1)) (box 1))
+  (check-equal? (run '(box -1)) (box -1))
   (check-equal? (run '(cons 1 2)) (cons 1 2))
   (check-equal? (run '(unbox (box 1))) 1)
   (check-equal? (run '(car (cons 1 2))) 1)

langs/iniquity/unload-bits-asm.rkt

@@ -37,7 +37,7 @@
                     (integer-length ptr-mask)))
 
 (define (heap-ref i)
-  (ptr-ref (cast (untag i) _int64 _pointer) _uint64))
+  (ptr-ref (cast (untag i) _int64 _pointer) _int64))
 
 (define (char-ref i j)
   (integer->char (ptr-ref (cast (untag i) _int64 _pointer) _uint32 j)))

langs/jig/test/test-runner.rkt

@@ -89,6 +89,7 @@
   ;; Hustle examples
   (check-equal? (run ''()) '())
   (check-equal? (run '(box 1)) (box 1))
+  (check-equal? (run '(box -1)) (box -1))
   (check-equal? (run '(cons 1 2)) (cons 1 2))
   (check-equal? (run '(unbox (box 1))) 1)
   (check-equal? (run '(car (cons 1 2))) 1)

langs/jig/unload-bits-asm.rkt

@@ -37,7 +37,7 @@
                     (integer-length ptr-mask)))
 
 (define (heap-ref i)
-  (ptr-ref (cast (untag i) _int64 _pointer) _uint64))
+  (ptr-ref (cast (untag i) _int64 _pointer) _int64))
 
 (define (char-ref i j)
   (integer->char (ptr-ref (cast (untag i) _int64 _pointer) _uint32 j)))

langs/knock/test/test-runner.rkt

@@ -89,6 +89,7 @@
   ;; Hustle examples
   (check-equal? (run ''()) '())
   (check-equal? (run '(box 1)) (box 1))
+  (check-equal? (run '(box -1)) (box -1))
   (check-equal? (run '(cons 1 2)) (cons 1 2))
   (check-equal? (run '(unbox (box 1))) 1)
   (check-equal? (run '(car (cons 1 2))) 1)

langs/knock/unload-bits-asm.rkt

@@ -37,7 +37,7 @@
                     (integer-length ptr-mask)))
 
 (define (heap-ref i)
-  (ptr-ref (cast (untag i) _int64 _pointer) _uint64))
+  (ptr-ref (cast (untag i) _int64 _pointer) _int64))
 
 (define (char-ref i j)
   (integer->char (ptr-ref (cast (untag i) _int64 _pointer) _uint32 j)))