From: Matt Birkholz Date: Sat, 5 Jun 2010 16:01:04 +0000 (-0700) Subject: Alien address offsets are byte offsets. X-Git-Tag: 20100708-Gtk~20 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=542f0b4879cc73ba6afcd1e5116f099e18640b67;p=mit-scheme.git Alien address offsets are byte offsets. --- diff --git a/src/microcode/pruxffi.c b/src/microcode/pruxffi.c index ab19b2692..477c46c23 100644 --- 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)))