Alien address offsets are byte offsets.

diff --git a/src/microcode/pruxffi.c b/src/microcode/pruxffi.c
index ab19b2692e8b7199526bf2641a04138a9d2011dc..477c46c2356b88aaeb72b0e698090bce3ac571f2 100644 (file)
--- a/src/microcode/pruxffi.c
+++ b/src/microcode/pruxffi.c
@@ -90,7 +90,7 @@ arg_address (int argn)
 }
 
 #define ALIEN_ADDRESS_LOC(type)                                                \
-  (((type *) (arg_address (1))) + (UNSIGNED_FIXNUM_ARG (2)))
+  ((type *)(((char *) (arg_address (1))) + (UNSIGNED_FIXNUM_ARG (2))))
 
 #define ALIEN_ADDRESS_REF(type) (* (ALIEN_ADDRESS_LOC (type)))