Try to get to the bottom of what's going on with hoax.

Author: dvanhorn

hoax/executor/decode.rkt

@@ -32,7 +32,7 @@
            (build-string (bits->value (mem-ref p))
                          (lambda (j)
                            (integer->char (mem-ref32 (+ p 8 (* 4 j)))))))]
-        [else (error "invalid bits")]))
+        [else (error "invalid bits" b)]))
 
 (define (mem-ref i)
   (ptr-ref (cast i _int64 _pointer) _int64))

hoax/executor/host.rkt

@@ -19,6 +19,9 @@
 (define heap
   (malloc 10000 'raw))
 
+(unless (zero? (remainder (cast heap _pointer _int64) 4))
+  (error "heap alignment false!"))
+
 (define (asm-interp/host asm)  
   (parameterize
       ([current-externs

hoax/test/define-tests.rkt

@@ -63,7 +63,7 @@
     (check-equal? (run '(begin (integer->char 97)
                                (integer->char 98)))
                   #\b))
-  
+
   (begin ;; Fraud
     (check-equal? (run '(let ((x 7)) x)) 7)
     (check-equal? (run '(let ((x 7)) 2)) 2)