9c279328ee
testsuite/libffi.call/closure_stdcall.c and testsuite/libffi.call/closure_thiscall.c include inline assembly to save the stack pointer before and after the call, and compare the values. However, compilers can and do leave the stack in different states for these two pieces of inline assembly, such as by saving a temporary value on the stack across the call; observed with gcc -Os, and verified as spurious through careful inspection of disassembly.
57 lines
1.5 KiB
C
57 lines
1.5 KiB
C
/* Area: closure_call (thiscall convention)
|
|
Purpose: Check handling when caller expects thiscall callee
|
|
Limitations: none.
|
|
PR: none.
|
|
Originator: <ktietz@redhat.com> */
|
|
|
|
/* { dg-do run { target i?86-*-cygwin* i?86-*-mingw* } } */
|
|
#include "ffitest.h"
|
|
|
|
static void
|
|
closure_test_thiscall(ffi_cif* cif __UNUSED__, void* resp, void** args,
|
|
void* userdata)
|
|
{
|
|
*(ffi_arg*)resp =
|
|
(int)*(int *)args[0] + (int)(*(int *)args[1])
|
|
+ (int)(*(int *)args[2]) + (int)(*(int *)args[3])
|
|
+ (int)(intptr_t)userdata;
|
|
|
|
printf("%d %d %d %d: %d\n",
|
|
(int)*(int *)args[0], (int)(*(int *)args[1]),
|
|
(int)(*(int *)args[2]), (int)(*(int *)args[3]),
|
|
(int)*(ffi_arg *)resp);
|
|
|
|
}
|
|
|
|
typedef int (__thiscall *closure_test_type0)(int, int, int, int);
|
|
|
|
int main (void)
|
|
{
|
|
ffi_cif cif;
|
|
void *code;
|
|
ffi_closure *pcl = ffi_closure_alloc(sizeof(ffi_closure), &code);
|
|
ffi_type * cl_arg_types[17];
|
|
int res;
|
|
|
|
cl_arg_types[0] = &ffi_type_uint;
|
|
cl_arg_types[1] = &ffi_type_uint;
|
|
cl_arg_types[2] = &ffi_type_uint;
|
|
cl_arg_types[3] = &ffi_type_uint;
|
|
cl_arg_types[4] = NULL;
|
|
|
|
/* Initialize the cif */
|
|
CHECK(ffi_prep_cif(&cif, FFI_THISCALL, 4,
|
|
&ffi_type_sint, cl_arg_types) == FFI_OK);
|
|
|
|
CHECK(ffi_prep_closure_loc(pcl, &cif, closure_test_thiscall,
|
|
(void *) 3 /* userdata */, code) == FFI_OK);
|
|
|
|
res = (*(closure_test_type0)code)(0, 1, 2, 3);
|
|
/* { dg-output "0 1 2 3: 9" } */
|
|
|
|
printf("res: %d\n",res);
|
|
/* { dg-output "\nres: 9" } */
|
|
|
|
exit(0);
|
|
}
|