[thirdparty/gcc.git] / libffi / testsuite / libffi.call / strlen_win32.c

/* Area:	ffi_call
   Purpose:	Check stdcall strlen call on X86_WIN32 systems.
   Limitations:	none.
   PR:		none.
   Originator:	From the original ffitest.c  */

/* { dg-do run { target i?86-*-cygwin* i?86-*-mingw* } } */

#include "ffitest.h"

static size_t __attribute__((stdcall)) my_stdcall_strlen(char *s)
{
  return (strlen(s));
}

int main (void)
{
  ffi_cif cif;
  ffi_type *args[MAX_ARGS];
  void *values[MAX_ARGS];
  ffi_arg rint;
  char *s;
  args[0] = &ffi_type_pointer;
  values[0] = (void*) &s;
  
  /* Initialize the cif */
  CHECK(ffi_prep_cif(&cif, FFI_STDCALL, 1,
		       &ffi_type_sint, args) == FFI_OK);
  
  s = "a";
  ffi_call(&cif, FFI_FN(my_stdcall_strlen), &rint, values);
  CHECK(rint == 1);
  
  s = "1234567";
  ffi_call(&cif, FFI_FN(my_stdcall_strlen), &rint, values);
  CHECK(rint == 7);
  
  s = "1234567890123456789012345";
  ffi_call(&cif, FFI_FN(my_stdcall_strlen), &rint, values);
  CHECK(rint == 25);
  
  printf("stdcall strlen tests passed\n");
  exit(0);
}
Commit	Line	Data
8a6b509e AT	1	/* Area: ffi_call
	2	Purpose: Check stdcall 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
	11	static size_t __attribute__((stdcall)) my_stdcall_strlen(char *s)
	12	{
	13	return (strlen(s));
	14	}
	15
	16	int 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_STDCALL, 1,
	28	&ffi_type_sint, args) == FFI_OK);
	29
	30	s = "a";
	31	ffi_call(&cif, FFI_FN(my_stdcall_strlen), &rint, values);
	32	CHECK(rint == 1);
	33
	34	s = "1234567";
	35	ffi_call(&cif, FFI_FN(my_stdcall_strlen), &rint, values);
	36	CHECK(rint == 7);
	37
	38	s = "1234567890123456789012345";
	39	ffi_call(&cif, FFI_FN(my_stdcall_strlen), &rint, values);
	40	CHECK(rint == 25);
	41
	42	printf("stdcall strlen tests passed\n");
	43	exit(0);
	44	}