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

• Show log

  Commit

• Hash : e48918ec
  Author :
  Date : 2014-03-16T20:29:27
  

  testsuite: Add ABIs to the test matrix; unify tests across ABIs
  
  This eliminates all the *_win32.c tests in favor of the tests they were
  branched from, and expands test coverage to run many more tests on
  stdcall, thiscall, and fastcall.
  
  This same mechanism also supports testing any other target that has
  multiple ABIs.
  

Download

• testsuite/libffi.call/many2.c

• /* Area:        ffi_call
     Purpose:     Check uint8_t arguments.
     Limitations: none.
     PR:          PR45677.
     Originator:  Dan Witte <dwitte@gmail.com> 20100916  */
  
  /* { dg-do run } */
  
  #include "ffitest.h"
  
  #define NARGS 7
  
  typedef unsigned char u8;
  
  #ifdef __GNUC__
  __attribute__((noinline))
  #endif
  uint8_t
  foo (uint8_t a, uint8_t b, uint8_t c, uint8_t d,
       uint8_t e, uint8_t f, uint8_t g)
  {
    return a + b + c + d + e + f + g;
  }
  
  uint8_t ABI_ATTR
  bar (uint8_t a, uint8_t b, uint8_t c, uint8_t d,
       uint8_t e, uint8_t f, uint8_t g)
  {
    return foo (a, b, c, d, e, f, g);
  }
  
  int
  main (void)
  {
    ffi_type *ffitypes[NARGS];
    int i;
    ffi_cif cif;
    ffi_arg result = 0;
    uint8_t args[NARGS];
    void *argptrs[NARGS];
  
    for (i = 0; i < NARGS; ++i)
      ffitypes[i] = &ffi_type_uint8;
  
    CHECK (ffi_prep_cif (&cif, ABI_NUM, NARGS,
  		       &ffi_type_uint8, ffitypes) == FFI_OK);
  
    for (i = 0; i < NARGS; ++i)
      {
        args[i] = i;
        argptrs[i] = &args[i];
      }
    ffi_call (&cif, FFI_FN (bar), &result, argptrs);
  
    CHECK (result == 21);
    return 0;
  }
  

Download