kc3-lang/libffi/testsuite/libffi.call/va_1.c

• Show log

  Commit

• Hash : 205cf01b
  Author :
  Date : 2021-03-23T11:31:08
  

  Bug #680. Don't accept floats or small ints as var args. (#628) * Bug #680. Don't accept floats or small ints as var args. * Bug #680. Don't accept floats or small ints as var args. * Bug #680. Don't accept floats or small ints as var args.

Download

• testsuite/libffi.call/va_1.c

• /* Area:		ffi_call
     Purpose:		Test passing struct in variable argument lists.
     Limitations:	none.
     PR:			none.
     Originator:	        ARM Ltd. */
  
  /* { dg-do run } */
  
  #include "ffitest.h"
  #include <stdarg.h>
  
  struct small_tag
  {
    unsigned char a;
    unsigned char b;
  };
  
  struct large_tag
  {
    unsigned a;
    unsigned b;
    unsigned c;
    unsigned d;
    unsigned e;
  };
  
  int
  main (void)
  {
    ffi_cif cif;
    ffi_type* arg_types[15];
  
    ffi_type s_type;
    ffi_type *s_type_elements[3];
  
    ffi_type l_type;
    ffi_type *l_type_elements[6];
  
    s_type.size = 0;
    s_type.alignment = 0;
    s_type.type = FFI_TYPE_STRUCT;
    s_type.elements = s_type_elements;
  
    s_type_elements[0] = &ffi_type_uchar;
    s_type_elements[1] = &ffi_type_uchar;
    s_type_elements[2] = NULL;
  
    l_type.size = 0;
    l_type.alignment = 0;
    l_type.type = FFI_TYPE_STRUCT;
    l_type.elements = l_type_elements;
  
    l_type_elements[0] = &ffi_type_uint;
    l_type_elements[1] = &ffi_type_uint;
    l_type_elements[2] = &ffi_type_uint;
    l_type_elements[3] = &ffi_type_uint;
    l_type_elements[4] = &ffi_type_uint;
    l_type_elements[5] = NULL;
  
    arg_types[0] = &ffi_type_sint;
    arg_types[1] = &s_type;
    arg_types[2] = &l_type;
    arg_types[3] = &s_type;
    arg_types[4] = &ffi_type_uchar;
    arg_types[5] = &ffi_type_schar;
    arg_types[6] = &ffi_type_ushort;
    arg_types[7] = &ffi_type_sshort;
    arg_types[8] = &ffi_type_uint;
    arg_types[9] = &ffi_type_sint;
    arg_types[10] = &ffi_type_ulong;
    arg_types[11] = &ffi_type_slong;
    arg_types[12] = &ffi_type_double;
    arg_types[13] = &ffi_type_double;
    arg_types[14] = NULL;
  
    CHECK(ffi_prep_cif_var(&cif, FFI_DEFAULT_ABI, 1, 14, &ffi_type_sint, arg_types) == FFI_BAD_ARGTYPE);
    return 0;
  }
  

Download