diff --git a/rts/adjustor/LibffiAdjustor.c b/rts/adjustor/LibffiAdjustor.c index 292c5c7496e8c8cc75d83f5eb33a501c029e7281..88b2df2a91ac2da296adda017eb1e7790f9a4a44 100644 --- a/rts/adjustor/LibffiAdjustor.c +++ b/rts/adjustor/LibffiAdjustor.c @@ -39,7 +39,7 @@ static AdjustorWritable allocate_adjustor(AdjustorExecutable *exec_ret, ffi_cif { AdjustorWritable writ; - ffi_status r = ffi_alloc_prep_closure(&writ, cif, wptr, hptr, exec_ret); + ffi_status r = ffi_alloc_prep_closure((ffi_closure **) &writ, cif, wptr, hptr, exec_ret); if (r != FFI_OK) barf("ffi_alloc_prep_closure failed: %d", r);