c3-lang/libffi/testsuite/libffi.closures/err_bad_abi.c

• Show log

  Commit

• Hash : c88c0e92
  Author :
  Date : 2019-11-22T19:27:34
  

  More more closure tests to the closure test directory

Download

• testsuite/libffi.closures/err_bad_abi.c

• /* Area:		ffi_prep_cif, ffi_prep_closure
     Purpose:		Test error return for bad ABIs.
     Limitations:	none.
     PR:			none.
     Originator:	Blake Chaffin 6/6/2007	 */
  
  /* { dg-do run } */
  
  #include "ffitest.h"
  
  static void
  dummy_fn(ffi_cif* cif __UNUSED__, void* resp __UNUSED__, 
  	 void** args __UNUSED__, void* userdata __UNUSED__)
  {}
  
  int main (void)
  {
  	ffi_cif cif;
          void *code;
  	ffi_closure *pcl = ffi_closure_alloc(sizeof(ffi_closure), &code);
  	ffi_type* arg_types[1];
  
  	arg_types[0] = NULL;
  
  	CHECK(ffi_prep_cif(&cif, 255, 0, &ffi_type_void,
  		arg_types) == FFI_BAD_ABI);
  
  	CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 0, &ffi_type_void,
  		arg_types) == FFI_OK);
  
  	cif.abi= 255;
  
  	CHECK(ffi_prep_closure_loc(pcl, &cif, dummy_fn, NULL, code) == FFI_BAD_ABI);
  
  	exit(0);
  }
  

Download