1/* Area: ffi_call 2 Purpose: Check fastcall strlen call on X86_WIN32 systems. 3 Limitations: none. 4 PR: none. 5 Originator: From the original ffitest.c */ 6 7/* { dg-do run { target i?86-*-cygwin* i?86-*-mingw* } } */ 8 9#include "ffitest.h" 10 11static size_t __FASTCALL__ my_fastcall_strlen(char *s) 12{ 13 return (strlen(s)); 14} 15 16int main (void) 17{ 18 ffi_cif cif; 19 ffi_type *args[MAX_ARGS]; 20 void *values[MAX_ARGS]; 21 ffi_arg rint; 22 char *s; 23 args[0] = &ffi_type_pointer; 24 values[0] = (void*) &s; 25 26 /* Initialize the cif */ 27 CHECK(ffi_prep_cif(&cif, FFI_FASTCALL, 1, 28 &ffi_type_sint, args) == FFI_OK); 29 30 s = "a"; 31 ffi_call(&cif, FFI_FN(my_fastcall_strlen), &rint, values); 32 CHECK(rint == 1); 33 34 s = "1234567"; 35 ffi_call(&cif, FFI_FN(my_fastcall_strlen), &rint, values); 36 CHECK(rint == 7); 37 38 s = "1234567890123456789012345"; 39 ffi_call(&cif, FFI_FN(my_fastcall_strlen), &rint, values); 40 CHECK(rint == 25); 41 42 printf("fastcall strlen tests passed\n"); 43 exit(0); 44} 45