kc3-lang/libffi/testsuite/libffi.closures/closure_fn4.c

• Show log

  Commit

• Hash : eb244724
  Author :
  Date : 2021-07-16T14:33:04
  

  Use CHECK to assert more things in test suite (#654) * Use CHECK to assert more things in test suite * Use snprintf instead of sprintf * Fix va_struct1 and va_struct3

Download

• testsuite/libffi.closures/closure_fn4.c

• /* Area:	closure_call
     Purpose:	Check multiple long long values passing.
  		Also, exceed the limit of gpr and fpr registers on PowerPC
  		Darwin.
     Limitations:	none.
     PR:		none.
     Originator:	<andreast@gcc.gnu.org> 20031026	 */
  
  /* { dg-do run } */
  
  #include "ffitest.h"
  
  static void
  closure_test_fn0(ffi_cif* cif __UNUSED__, void* resp, void** args,
  		 void* userdata)
  {
    *(ffi_arg*)resp =
      (int)*(unsigned long long *)args[0] + (int)*(unsigned long long *)args[1] +
      (int)*(unsigned long long *)args[2] + (int)*(unsigned long long *)args[3] +
      (int)*(unsigned long long *)args[4] + (int)*(unsigned long long *)args[5] +
      (int)*(unsigned long long *)args[6] + (int)*(unsigned long long *)args[7] +
      (int)*(unsigned long long *)args[8] + (int)*(unsigned long long *)args[9] +
      (int)*(unsigned long long *)args[10] +
      (int)*(unsigned long long *)args[11] +
      (int)*(unsigned long long *)args[12] +
      (int)*(unsigned long long *)args[13] +
      (int)*(unsigned long long *)args[14] +
      *(int *)args[15] + (intptr_t)userdata;
  
    printf("%d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d: %d\n",
  	 (int)*(unsigned long long *)args[0],
  	 (int)*(unsigned long long *)args[1],
  	 (int)*(unsigned long long *)args[2],
  	 (int)*(unsigned long long *)args[3],
  	 (int)*(unsigned long long *)args[4],
  	 (int)*(unsigned long long *)args[5],
  	 (int)*(unsigned long long *)args[6],
  	 (int)*(unsigned long long *)args[7],
  	 (int)*(unsigned long long *)args[8],
  	 (int)*(unsigned long long *)args[9],
  	 (int)*(unsigned long long *)args[10],
  	 (int)*(unsigned long long *)args[11],
  	 (int)*(unsigned long long *)args[12],
  	 (int)*(unsigned long long *)args[13],
  	 (int)*(unsigned long long *)args[14],
  	 *(int *)args[15],
  	 (int)(intptr_t)userdata, (int)*(ffi_arg *)resp);
    CHECK((int)*(ffi_arg *)resp == 680);
  
  }
  
  typedef int (*closure_test_type0)(unsigned long long, unsigned long long,
  				  unsigned long long, unsigned long long,
  				  unsigned long long, unsigned long long,
  				  unsigned long long, unsigned long long,
  				  unsigned long long, unsigned long long,
  				  unsigned long long, unsigned long long,
  				  unsigned long long, unsigned long long,
  				  unsigned long long, 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 i, res;
  
    for (i = 0; i < 15; i++) {
      cl_arg_types[i] = &ffi_type_uint64;
    }
    cl_arg_types[15] = &ffi_type_sint;
    cl_arg_types[16] = NULL;
  
    /* Initialize the cif */
    CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 16,
  		     &ffi_type_sint, cl_arg_types) == FFI_OK);
  
    CHECK(ffi_prep_closure_loc(pcl, &cif, closure_test_fn0,
                               (void *) 3 /* userdata */, code) == FFI_OK);
  
    res = (*((closure_test_type0)code))
      (1LL, 2LL, 3LL, 4LL, 127LL, 429LL, 7LL, 8LL, 9LL, 10LL, 11LL, 12LL,
       13LL, 19LL, 21LL, 1);
    /* { dg-output "1 2 3 4 127 429 7 8 9 10 11 12 13 19 21 1 3: 680" } */
    printf("res: %d\n",res);
    /* { dg-output "\nres: 680" } */
    CHECK(res == 680);
  
    exit(0);
  }
  

Download