1  /* Test variable number of 128-bit vector arguments passed to functions.  */
       2  
       3  #include <stdio.h>
       4  #include "bf16-check.h"
       5  #include "defines.h"
       6  #include "macros.h"
       7  #include "args.h"
       8  
       9  struct FloatRegisters fregs;
      10  struct IntegerRegisters iregs;
      11  
      12  /* This struct holds values for argument checking.  */
      13  struct 
      14  {
      15    XMM_T i0, i1, i2, i3, i4, i5, i6, i7, i8, i9;
      16  } values;
      17  
      18  char *pass;
      19  int failed = 0;
      20  
      21  #undef assert
      22  #define assert(c) do { \
      23    if (!(c)) {failed++; printf ("failed %s\n", pass); } \
      24  } while (0)
      25  
      26  #define compare(X1,X2,T) do { \
      27    assert (memcmp (&X1, &X2, sizeof (T)) == 0); \
      28  } while (0)
      29  
      30  void
      31  fun_check_passing_m128bf16_varargs (__m128bf16 i0, __m128bf16 i1, __m128bf16 i2,
      32  				 __m128bf16 i3, ...)
      33  {
      34    /* Check argument values.  */
      35    void **fp = __builtin_frame_address (0);
      36    void *ra = __builtin_return_address (0);
      37    __m128bf16 *argp;
      38  
      39    compare (values.i0, i0, __m128bf16);
      40    compare (values.i1, i1, __m128bf16);
      41    compare (values.i2, i2, __m128bf16);
      42    compare (values.i3, i3, __m128bf16);
      43  
      44    /* Get the pointer to the return address on stack.  */
      45    while (*fp != ra)
      46      fp++;
      47  
      48    /* Skip the return address stack slot.  */
      49    argp = (__m128bf16 *) (((char *) fp) + 8);
      50  
      51    /* Check __m128bf16 arguments passed on stack.  */
      52    compare (values.i8, argp[0], __m128bf16);
      53    compare (values.i9, argp[1], __m128bf16);
      54  
      55    /* Check register contents.  */
      56    compare (fregs.xmm0, xmm_regs[0], __m128bf16);
      57    compare (fregs.xmm1, xmm_regs[1], __m128bf16);
      58    compare (fregs.xmm2, xmm_regs[2], __m128bf16);
      59    compare (fregs.xmm3, xmm_regs[3], __m128bf16);
      60    compare (fregs.xmm4, xmm_regs[4], __m128bf16);
      61    compare (fregs.xmm5, xmm_regs[5], __m128bf16);
      62    compare (fregs.xmm6, xmm_regs[6], __m128bf16);
      63    compare (fregs.xmm7, xmm_regs[7], __m128bf16);
      64  }
      65  
      66  #define def_check_int_passing_varargs(_i0, _i1, _i2, _i3, _i4, _i5, \
      67  				      _i6, _i7, _i8, _i9, \
      68  				      _func, TYPE) \
      69    values.i0.TYPE[0] = _i0; \
      70    values.i1.TYPE[0] = _i1; \
      71    values.i2.TYPE[0] = _i2; \
      72    values.i3.TYPE[0] = _i3; \
      73    values.i4.TYPE[0] = _i4; \
      74    values.i5.TYPE[0] = _i5; \
      75    values.i6.TYPE[0] = _i6; \
      76    values.i7.TYPE[0] = _i7; \
      77    values.i8.TYPE[0] = _i8; \
      78    values.i9.TYPE[0] = _i9; \
      79    clear_float_registers; \
      80    fregs.F0.TYPE[0] = _i0; \
      81    fregs.F1.TYPE[0] = _i1; \
      82    fregs.F2.TYPE[0] = _i2; \
      83    fregs.F3.TYPE[0] = _i3; \
      84    fregs.F4.TYPE[0] = _i4; \
      85    fregs.F5.TYPE[0] = _i5; \
      86    fregs.F6.TYPE[0] = _i6; \
      87    fregs.F7.TYPE[0] = _i7; \
      88    WRAP_CALL(_func) (_i0, _i1, _i2, _i3, _i4, _i5, _i6, _i7, _i8, _i9);
      89  
      90  void
      91  test_m128bf16_varargs (void)
      92  {
      93    __m128bf16 x[10];
      94    __bf16 bf1, bf2, bf3, bf4, bf5, bf6, bf7, bf8;
      95    int i;
      96    for (i = 0; i < 10; i++)
      97      x[i] = (__m128bf16) { bf1, bf2, bf3, bf4, bf5, bf6, bf7, bf8 };
      98    pass = "m128bf16-varargs";
      99    def_check_int_passing_varargs (x[0], x[1], x[2], x[3], x[4], x[5],
     100  				 x[6], x[7], x[8], x[9],
     101  				 fun_check_passing_m128bf16_varargs,
     102  				 _m128bf16);
     103  }
     104  
     105  static void
     106  do_test (void)
     107  {
     108    test_m128bf16_varargs ();
     109    if (failed)
     110      abort ();
     111  }