Handle small integer return types correctly in callbacks on big-endia…

…n platforms.
yallop · Jun 18, 2016 · d6c200a · d6c200a
1 parent 9f3cb97
commit d6c200a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/ctypes-foreign-base/ffi_call_stubs.c b/src/ctypes-foreign-base/ffi_call_stubs.c
@@ -462,7 +462,7 @@ static void callback_handler_with_lock(ffi_cif *cif,
 
   /* now store the return value */
   assert (Tag_val(boxedfn) == Done);
-  argptr = CTYPES_FROM_PTR(ret);
+  argptr = CTYPES_FROM_PTR(ret + ffi_return_type_adjustment(cif->rtype));
   caml_callback(Field(boxedfn, 0), argptr);
 
   CAMLreturn0;