X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FAdjustor.c;h=8c38df68d356203d803dee2348d40f724d84e0cd;hb=6c3eae5d5e88117cf80b4b35c9bae4ba3ebbe94c;hp=03fb5d9acd08c5e21352c27d6fb53f5a6da2490d;hpb=5123ae93cfc5cdfcecc84340a9517580ad900d64;p=ghc-hetmet.git

diff --git a/rts/Adjustor.c b/rts/Adjustor.c
index 03fb5d9..8c38df6 100644
--- a/rts/Adjustor.c
+++ b/rts/Adjustor.c
@@ -73,6 +73,7 @@ static ffi_type * char_to_ffi_type(char c)
     case 's':  return &ffi_type_uint16;
     case 'B':  return &ffi_type_sint8;
     case 'b':  return &ffi_type_uint8;
+    case 'p':  return &ffi_type_pointer;
     default:   barf("char_to_ffi_type: unknown type '%c'", c);
     }
 }