[thirdparty/gcc.git] / gcc / testsuite / gcc.target / powerpc / ppc64-abi-dfp-1.c

/* { dg-do run { target { powerpc64-*-* && { lp64 && dfprt } } } } */
/* { dg-skip-if "" { powerpc*-*-darwin* } } */
/* { dg-options "-std=gnu99 -O2 -fno-strict-aliasing" } */

/* Testcase to check for ABI compliance of parameter passing
   for the PowerPC64 ELF ABI for decimal float values.  */

extern void abort (void);
int failcnt = 0;

/* Support compiling the test to report individual failures; default is
   to abort as soon as a check fails.  */
#ifdef DBG
#include <stdio.h>
#define FAILURE { printf ("failed at line %d\n", __LINE__); failcnt++; }
#else
#define FAILURE abort ();
#endif

typedef struct
{
  int pad;
  _Decimal32 d;
} d32parm_t;

typedef struct
{
  unsigned long gprs[8];
  double fprs[13];
} reg_parms_t;

reg_parms_t gparms;


/* Wrapper to save the GPRs and FPRs and then jump to the real function.  */
#if _CALL_ELF != 2
#define FUNC_START(NAME)						\
	"\t.globl\t" NAME "\n\t"					\
         ".section \".opd\",\"aw\"\n\t"					\
         ".align 3\n"							\
         NAME ":\n\t"							\
         ".quad .L." NAME ",.TOC.@tocbase,0\n\t"			\
         ".text\n\t"							\
         ".type " NAME ", @function\n"					\
         ".L." NAME ":\n\t"
#else
#define FUNC_START(NAME)						\
	"\t.globl\t" NAME "\n\t"					\
         ".text\n\t"							\
         NAME ":\n"							\
	"0:\taddis 2,12,(.TOC.-0b)@ha\n\t"				\
	"addi 2,2,(.TOC.-0b)@l\n\t"					\
	".localentry " NAME ",.-" NAME "\n\t"
#endif
#define WRAPPER(NAME)							\
__asm__ (FUNC_START (#NAME "_asm")					\
	 "ld 11,gparms@got(2)\n\t"					\
	 "std 3,0(11)\n\t"						\
	 "std 4,8(11)\n\t"						\
	 "std 5,16(11)\n\t"						\
	 "std 6,24(11)\n\t"						\
	 "std 7,32(11)\n\t"						\
	 "std 8,40(11)\n\t"						\
	 "std 9,48(11)\n\t"						\
	 "std 10,56(11)\n\t"						\
	 "stfd 1,64(11)\n\t"						\
	 "stfd 2,72(11)\n\t"						\
	 "stfd 3,80(11)\n\t"						\
	 "stfd 4,88(11)\n\t"						\
	 "stfd 5,96(11)\n\t"						\
	 "stfd 6,104(11)\n\t"						\
	 "stfd 7,112(11)\n\t"						\
	 "stfd 8,120(11)\n\t"						\
	 "stfd 9,128(11)\n\t"						\
	 "stfd 10,136(11)\n\t"						\
	 "stfd 11,144(11)\n\t"						\
	 "stfd 12,152(11)\n\t"						\
	 "stfd 13,160(11)\n\t"						\
	 "b " #NAME "\n\t"						\
	 ".long 0\n\t"							\
	 ".byte 0,0,0,0,0,0,0,0\n\t"					\
	 ".size " #NAME ",.-" #NAME "\n")

typedef struct sf
{
  struct sf *backchain;
  long a1;
  long a2;
  long a3;
#if _CALL_ELF != 2
  long a4;
  long a5;
#endif
  unsigned long slot[100];
} stack_frame_t;

extern void func0_asm (double, double, double, double, double, double,
		       double, double, double, double, double, double,
		       double, double, 
		       _Decimal64, _Decimal128, _Decimal64);

WRAPPER(func0);

/* Fill up floating point registers with double arguments, forcing
   decimal float arguments into the parameter save area.  */
void __attribute__ ((noinline))
func0 (double a1, double a2, double a3, double a4, double a5, double a6,
       double a7, double a8, double a9, double a10, double a11, double a12,
       double a13, double a14, 
       _Decimal64 a15, _Decimal128 a16, _Decimal64 a17)
{
  stack_frame_t *sp;

  sp = __builtin_frame_address (0);
  sp = sp->backchain;

  if (a1 != gparms.fprs[0]) FAILURE
  if (a2 != gparms.fprs[1]) FAILURE
  if (a3 != gparms.fprs[2]) FAILURE
  if (a4 != gparms.fprs[3]) FAILURE
  if (a5 != gparms.fprs[4]) FAILURE
  if (a6 != gparms.fprs[5]) FAILURE
  if (a7 != gparms.fprs[6]) FAILURE
  if (a8 != gparms.fprs[7]) FAILURE
  if (a9 != gparms.fprs[8]) FAILURE
  if (a10 != gparms.fprs[9]) FAILURE
  if (a11 != gparms.fprs[10]) FAILURE
  if (a12 != gparms.fprs[11]) FAILURE
  if (a13 != gparms.fprs[12]) FAILURE
  if (a14 != *(double *)&sp->slot[13]) FAILURE
  if (a15 != *(_Decimal64 *)&sp->slot[14]) FAILURE
  if (a16 != *(_Decimal128 *)&sp->slot[15]) FAILURE
  if (a17 != *(_Decimal64 *)&sp->slot[17]) FAILURE
}

extern void func1_asm (double, double, double, double, double, double,
		       double, double, double, double, double, double,
		       double, _Decimal128 );

WRAPPER(func1);

void __attribute__ ((noinline))
func1 (double a1, double a2, double a3, double a4, double a5, double a6,
       double a7, double a8, double a9, double a10, double a11, double a12,
       double a13, _Decimal128 a14)
{
  stack_frame_t *sp;

  sp = __builtin_frame_address (0);
  sp = sp->backchain;

  if (a1 != gparms.fprs[0]) FAILURE
  if (a2 != gparms.fprs[1]) FAILURE
  if (a3 != gparms.fprs[2]) FAILURE
  if (a4 != gparms.fprs[3]) FAILURE
  if (a5 != gparms.fprs[4]) FAILURE
  if (a6 != gparms.fprs[5]) FAILURE
  if (a7 != gparms.fprs[6]) FAILURE
  if (a8 != gparms.fprs[7]) FAILURE
  if (a9 != gparms.fprs[8]) FAILURE
  if (a10 != gparms.fprs[9]) FAILURE
  if (a11 != gparms.fprs[10]) FAILURE
  if (a12 != gparms.fprs[11]) FAILURE
  if (a13 != gparms.fprs[12]) FAILURE
  if (a14 != *(_Decimal128 *)&sp->slot[13]) FAILURE
}

extern void func2_asm (double, double, double, double, double, double,
		       double, double, double, double, double, double,
		       _Decimal128);

WRAPPER(func2);

void __attribute__ ((noinline))
func2 (double a1, double a2, double a3, double a4, double a5, double a6,
       double a7, double a8, double a9, double a10, double a11, double a12,
       _Decimal128 a13)
{
  stack_frame_t *sp;

  sp = __builtin_frame_address (0);
  sp = sp->backchain;

  if (a1 != gparms.fprs[0]) FAILURE
  if (a2 != gparms.fprs[1]) FAILURE
  if (a3 != gparms.fprs[2]) FAILURE
  if (a4 != gparms.fprs[3]) FAILURE
  if (a5 != gparms.fprs[4]) FAILURE
  if (a6 != gparms.fprs[5]) FAILURE
  if (a7 != gparms.fprs[6]) FAILURE
  if (a8 != gparms.fprs[7]) FAILURE
  if (a9 != gparms.fprs[8]) FAILURE
  if (a10 != gparms.fprs[9]) FAILURE
  if (a11 != gparms.fprs[10]) FAILURE
  if (a12 != gparms.fprs[11]) FAILURE
  if (a13 != *(_Decimal128 *)&sp->slot[12]) FAILURE
}

extern void func3_asm (_Decimal64, _Decimal128, _Decimal64, _Decimal128,
		       _Decimal64, _Decimal128, _Decimal64, _Decimal128,
		       _Decimal64, _Decimal128);

WRAPPER(func3);

void __attribute__ ((noinline))
func3 (_Decimal64 a1, _Decimal128 a2, _Decimal64 a3, _Decimal128 a4,
       _Decimal64 a5, _Decimal128 a6, _Decimal64 a7, _Decimal128 a8,
       _Decimal64 a9, _Decimal128 a10)
{
  stack_frame_t *sp;

  sp = __builtin_frame_address (0);
  sp = sp->backchain;

  if (a1 != *(_Decimal64 *)&gparms.fprs[0]) FAILURE	/* f1        */
  if (a2 != *(_Decimal128 *)&gparms.fprs[1]) FAILURE	/* f2 & f3   */
  if (a3 != *(_Decimal64 *)&gparms.fprs[3]) FAILURE	/* f4        */
  if (a4 != *(_Decimal128 *)&gparms.fprs[5]) FAILURE	/* f6 & f7   */
  if (a5 != *(_Decimal64 *)&gparms.fprs[7]) FAILURE	/* f8        */
  if (a6 != *(_Decimal128 *)&gparms.fprs[9]) FAILURE	/* f10 & f11 */
  if (a7 != *(_Decimal64 *)&gparms.fprs[11]) FAILURE	/* f12       */
  if (a8 != *(_Decimal128 *)&sp->slot[10]) FAILURE
  if (a9 != *(_Decimal64 *)&sp->slot[12]) FAILURE
  if (a10 != *(_Decimal128 *)&sp->slot[13]) FAILURE
}

extern void func4_asm (_Decimal128, _Decimal64, _Decimal128, _Decimal64,
		       _Decimal128, _Decimal64, _Decimal128, _Decimal64);

WRAPPER(func4);

void __attribute__ ((noinline))
func4 (_Decimal128 a1, _Decimal64 a2, _Decimal128 a3, _Decimal64 a4,
       _Decimal128 a5, _Decimal64 a6, _Decimal128 a7, _Decimal64 a8)
{
  stack_frame_t *sp;

  sp = __builtin_frame_address (0);
  sp = sp->backchain;

  if (a1 != *(_Decimal128 *)&gparms.fprs[1]) FAILURE	/* f2 & f3   */
  if (a2 != *(_Decimal64 *)&gparms.fprs[3]) FAILURE	/* f4        */
  if (a3 != *(_Decimal128 *)&gparms.fprs[5]) FAILURE	/* f6 & f7   */
  if (a4 != *(_Decimal64 *)&gparms.fprs[7]) FAILURE	/* f8        */
  if (a5 != *(_Decimal128 *)&gparms.fprs[9]) FAILURE	/* f10 & f11 */
  if (a6 != *(_Decimal64 *)&gparms.fprs[11]) FAILURE	/* f12       */
  if (a7 != *(_Decimal128 *)&sp->slot[9]) FAILURE
  if (a8 != *(_Decimal64 *)&sp->slot[11]) FAILURE
}

extern void func5_asm (_Decimal32, _Decimal32, _Decimal32, _Decimal32,
		       _Decimal32, _Decimal32, _Decimal32, _Decimal32,
		       _Decimal32, _Decimal32, _Decimal32, _Decimal32,
		       _Decimal32, _Decimal32, _Decimal32, _Decimal32);

WRAPPER(func5);

void __attribute__ ((noinline))
func5 (_Decimal32 a1, _Decimal32 a2, _Decimal32 a3, _Decimal32 a4,
       _Decimal32 a5, _Decimal32 a6, _Decimal32 a7, _Decimal32 a8,
       _Decimal32 a9, _Decimal32 a10, _Decimal32 a11, _Decimal32 a12,
       _Decimal32 a13, _Decimal32 a14, _Decimal32 a15, _Decimal32 a16)
{
  stack_frame_t *sp;

  sp = __builtin_frame_address (0);
  sp = sp->backchain;

  /* _Decimal32 is passed in the lower half of an FPR or parameter slot.  */
  if (a1 != ((d32parm_t *)&gparms.fprs[0])->d) FAILURE		/* f1  */
  if (a2 != ((d32parm_t *)&gparms.fprs[1])->d) FAILURE		/* f2  */
  if (a3 != ((d32parm_t *)&gparms.fprs[2])->d) FAILURE		/* f3  */
  if (a4 != ((d32parm_t *)&gparms.fprs[3])->d) FAILURE		/* f4  */
  if (a5 != ((d32parm_t *)&gparms.fprs[4])->d) FAILURE		/* f5  */
  if (a6 != ((d32parm_t *)&gparms.fprs[5])->d) FAILURE		/* f6  */
  if (a7 != ((d32parm_t *)&gparms.fprs[6])->d) FAILURE		/* f7  */
  if (a8 != ((d32parm_t *)&gparms.fprs[7])->d) FAILURE		/* f8  */
  if (a9 != ((d32parm_t *)&gparms.fprs[8])->d) FAILURE		/* f9  */
  if (a10 != ((d32parm_t *)&gparms.fprs[9])->d) FAILURE		/* f10 */
  if (a11 != ((d32parm_t *)&gparms.fprs[10])->d) FAILURE	/* f11 */
  if (a12 != ((d32parm_t *)&gparms.fprs[11])->d) FAILURE	/* f12 */
  if (a13 != ((d32parm_t *)&gparms.fprs[12])->d) FAILURE	/* f13 */
  if (a14 != ((d32parm_t *)&sp->slot[13])->d) FAILURE
  if (a15 != ((d32parm_t *)&sp->slot[14])->d) FAILURE
  if (a16 != ((d32parm_t *)&sp->slot[15])->d) FAILURE
}

extern void func6_asm (_Decimal32, _Decimal64, _Decimal128,
		       _Decimal32, _Decimal64, _Decimal128,
		       _Decimal32, _Decimal64, _Decimal128,
		       _Decimal32, _Decimal64, _Decimal128);

WRAPPER(func6);

void __attribute__ ((noinline))
func6 (_Decimal32 a1, _Decimal64 a2, _Decimal128 a3,
       _Decimal32 a4, _Decimal64 a5, _Decimal128 a6,
       _Decimal32 a7, _Decimal64 a8, _Decimal128 a9,
       _Decimal32 a10, _Decimal64 a11, _Decimal128 a12)
{
  stack_frame_t *sp;

  sp = __builtin_frame_address (0);
  sp = sp->backchain;

  if (a1 != ((d32parm_t *)&gparms.fprs[0])->d) FAILURE		/* f1        */
  if (a2 != *(_Decimal64 *)&gparms.fprs[1]) FAILURE		/* f2        */
  if (a3 != *(_Decimal128 *)&gparms.fprs[3]) FAILURE		/* f4 & f5   */
  if (a4 != ((d32parm_t *)&gparms.fprs[5])->d) FAILURE		/* f6        */
  if (a5 != *(_Decimal64 *)&gparms.fprs[6]) FAILURE		/* f7        */
  if (a6 != *(_Decimal128 *)&gparms.fprs[7]) FAILURE		/* f8 & f9   */
  if (a7 != ((d32parm_t *)&gparms.fprs[9])->d) FAILURE		/* f10       */
  if (a8 != *(_Decimal64 *)&gparms.fprs[10]) FAILURE		/* f11       */
  if (a9 != *(_Decimal128 *)&gparms.fprs[11]) FAILURE		/* f12 & f13 */
  if (a10 != ((d32parm_t *)&sp->slot[12])->d) FAILURE
  if (a11 != *(_Decimal64 *)&sp->slot[13]) FAILURE
}

int
main (void)
{
  func0_asm (1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5, 10.5, 11.5, 12.5, 13.5,
	     14.5, 15.2dd, 16.2dl, 17.2dd);
  func1_asm (101.5, 102.5, 103.5, 104.5, 105.5, 106.5, 107.5, 108.5, 109.5,
	     110.5, 111.5, 112.5, 113.5, 114.2dd);
  func2_asm (201.5, 202.5, 203.5, 204.5, 205.5, 206.5, 207.5, 208.5, 209.5,
	     210.5, 211.5, 212.5, 213.2dd);
  func3_asm (301.2dd, 302.2dl, 303.2dd, 304.2dl, 305.2dd, 306.2dl, 307.2dd,
	     308.2dl, 309.2dd, 310.2dl);
  func4_asm (401.2dl, 402.2dd, 403.2dl, 404.2dd, 405.2dl, 406.2dd, 407.2dl,
	     408.2dd);
#if 0
  /* _Decimal32 doesn't yet follow the ABI; enable this when it does.  */
  func5_asm (501.2df, 502.2df, 503.2df, 504.2df, 505.2df, 506.2df, 507.2df,
	     508.2df, 509.2df, 510.2df, 511.2df, 512.2df, 513.2df, 514.2df,
	     515.2df, 516.2df);
  func6_asm (601.2df, 602.2dd, 603.2dl, 604.2df, 605.2dd, 606.2dl,
	     607.2df, 608.2dd, 609.2dl, 610.2df, 611.2dd, 612.2dl);
#endif

  if (failcnt != 0)
    abort ();

  return 0;
}
Commit	Line	Data
2d83f070	1	/* { dg-do run { target { powerpc64-- && { lp64 && dfprt } } } } */
4f4b0ab8	2	/* { dg-skip-if "" { powerpc--darwin* } } */
2d83f070 JJ	3	/* { dg-options "-std=gnu99 -O2 -fno-strict-aliasing" } */
	4
	5	/* Testcase to check for ABI compliance of parameter passing
	6	for the PowerPC64 ELF ABI for decimal float values. */
	7
	8	extern void abort (void);
	9	int failcnt = 0;
	10
	11	/* Support compiling the test to report individual failures; default is
	12	to abort as soon as a check fails. */
	13	#ifdef DBG
	14	#include <stdio.h>
	15	#define FAILURE { printf ("failed at line %d\n", __LINE__); failcnt++; }
	16	#else
	17	#define FAILURE abort ();
	18	#endif
	19
	20	typedef struct
	21	{
	22	int pad;
	23	_Decimal32 d;
	24	} d32parm_t;
	25
	26	typedef struct
	27	{
	28	unsigned long gprs[8];
	29	double fprs[13];
	30	} reg_parms_t;
	31
	32	reg_parms_t gparms;
	33
	34
c9485473	35	/* Wrapper to save the GPRs and FPRs and then jump to the real function. */
b54214fe UW	36	#if _CALL_ELF != 2
	37	#define FUNC_START(NAME) \
	38	"\t.globl\t" NAME "\n\t" \
	39	".section \".opd\",\"aw\"\n\t" \
	40	".align 3\n" \
	41	NAME ":\n\t" \
	42	".quad .L." NAME ",.TOC.@tocbase,0\n\t" \
	43	".text\n\t" \
	44	".type " NAME ", @function\n" \
	45	".L." NAME ":\n\t"
	46	#else
	47	#define FUNC_START(NAME) \
	48	"\t.globl\t" NAME "\n\t" \
	49	".text\n\t" \
	50	NAME ":\n" \
	51	"0:\taddis 2,12,(.TOC.-0b)@ha\n\t" \
	52	"addi 2,2,(.TOC.-0b)@l\n\t" \
	53	".localentry " NAME ",.-" NAME "\n\t"
	54	#endif
c9485473	55	#define WRAPPER(NAME) \
b54214fe	56	__asm__ (FUNC_START (#NAME "_asm") \
c9485473 MM	57	"ld 11,gparms@got(2)\n\t" \
	58	"std 3,0(11)\n\t" \
	59	"std 4,8(11)\n\t" \
	60	"std 5,16(11)\n\t" \
	61	"std 6,24(11)\n\t" \
	62	"std 7,32(11)\n\t" \
	63	"std 8,40(11)\n\t" \
	64	"std 9,48(11)\n\t" \
	65	"std 10,56(11)\n\t" \
	66	"stfd 1,64(11)\n\t" \
	67	"stfd 2,72(11)\n\t" \
	68	"stfd 3,80(11)\n\t" \
	69	"stfd 4,88(11)\n\t" \
	70	"stfd 5,96(11)\n\t" \
	71	"stfd 6,104(11)\n\t" \
	72	"stfd 7,112(11)\n\t" \
	73	"stfd 8,120(11)\n\t" \
	74	"stfd 9,128(11)\n\t" \
	75	"stfd 10,136(11)\n\t" \
	76	"stfd 11,144(11)\n\t" \
	77	"stfd 12,152(11)\n\t" \
	78	"stfd 13,160(11)\n\t" \
	79	"b " #NAME "\n\t" \
	80	".long 0\n\t" \
	81	".byte 0,0,0,0,0,0,0,0\n\t" \
	82	".size " #NAME ",.-" #NAME "\n")
2d83f070 JJ	83
	84	typedef struct sf
	85	{
	86	struct sf *backchain;
	87	long a1;
	88	long a2;
	89	long a3;
b54214fe	90	#if _CALL_ELF != 2
2d83f070 JJ	91	long a4;
2d83f070 JJ	92	long a5;
b54214fe	93	#endif
2d83f070 JJ	94	unsigned long slot[100];
	95	} stack_frame_t;
	96
c9485473 MM	97	extern void func0_asm (double, double, double, double, double, double,
	98	double, double, double, double, double, double,
	99	double, double,
	100	_Decimal64, _Decimal128, _Decimal64);
	101
	102	WRAPPER(func0);
	103
2d83f070 JJ	104	/* Fill up floating point registers with double arguments, forcing
	105	decimal float arguments into the parameter save area. */
	106	void __attribute__ ((noinline))
	107	func0 (double a1, double a2, double a3, double a4, double a5, double a6,
	108	double a7, double a8, double a9, double a10, double a11, double a12,
	109	double a13, double a14,
	110	_Decimal64 a15, _Decimal128 a16, _Decimal64 a17)
	111	{
2d83f070 JJ	112	stack_frame_t *sp;
2d83f070 JJ	113
2d83f070 JJ	114	sp = __builtin_frame_address (0);
	115	sp = sp->backchain;
	116
c9485473 MM	117	if (a1 != gparms.fprs[0]) FAILURE
	118	if (a2 != gparms.fprs[1]) FAILURE
	119	if (a3 != gparms.fprs[2]) FAILURE
	120	if (a4 != gparms.fprs[3]) FAILURE
	121	if (a5 != gparms.fprs[4]) FAILURE
	122	if (a6 != gparms.fprs[5]) FAILURE
	123	if (a7 != gparms.fprs[6]) FAILURE
	124	if (a8 != gparms.fprs[7]) FAILURE
	125	if (a9 != gparms.fprs[8]) FAILURE
	126	if (a10 != gparms.fprs[9]) FAILURE
	127	if (a11 != gparms.fprs[10]) FAILURE
	128	if (a12 != gparms.fprs[11]) FAILURE
	129	if (a13 != gparms.fprs[12]) FAILURE
2d83f070 JJ	130	if (a14 != (double )&sp->slot[13]) FAILURE
	131	if (a15 != (_Decimal64 )&sp->slot[14]) FAILURE
	132	if (a16 != (_Decimal128 )&sp->slot[15]) FAILURE
	133	if (a17 != (_Decimal64 )&sp->slot[17]) FAILURE
	134	}
	135
c9485473 MM	136	extern void func1_asm (double, double, double, double, double, double,
	137	double, double, double, double, double, double,
	138	double, _Decimal128 );
	139
	140	WRAPPER(func1);
	141
2d83f070 JJ	142	void __attribute__ ((noinline))
	143	func1 (double a1, double a2, double a3, double a4, double a5, double a6,
	144	double a7, double a8, double a9, double a10, double a11, double a12,
	145	double a13, _Decimal128 a14)
	146	{
2d83f070 JJ	147	stack_frame_t *sp;
2d83f070 JJ	148
2d83f070 JJ	149	sp = __builtin_frame_address (0);
	150	sp = sp->backchain;
	151
c9485473 MM	152	if (a1 != gparms.fprs[0]) FAILURE
	153	if (a2 != gparms.fprs[1]) FAILURE
	154	if (a3 != gparms.fprs[2]) FAILURE
	155	if (a4 != gparms.fprs[3]) FAILURE
	156	if (a5 != gparms.fprs[4]) FAILURE
	157	if (a6 != gparms.fprs[5]) FAILURE
	158	if (a7 != gparms.fprs[6]) FAILURE
	159	if (a8 != gparms.fprs[7]) FAILURE
	160	if (a9 != gparms.fprs[8]) FAILURE
	161	if (a10 != gparms.fprs[9]) FAILURE
	162	if (a11 != gparms.fprs[10]) FAILURE
	163	if (a12 != gparms.fprs[11]) FAILURE
	164	if (a13 != gparms.fprs[12]) FAILURE
2d83f070 JJ	165	if (a14 != (_Decimal128 )&sp->slot[13]) FAILURE
	166	}
	167
c9485473 MM	168	extern void func2_asm (double, double, double, double, double, double,
	169	double, double, double, double, double, double,
	170	_Decimal128);
	171
	172	WRAPPER(func2);
	173
2d83f070 JJ	174	void __attribute__ ((noinline))
	175	func2 (double a1, double a2, double a3, double a4, double a5, double a6,
	176	double a7, double a8, double a9, double a10, double a11, double a12,
	177	_Decimal128 a13)
	178	{
2d83f070 JJ	179	stack_frame_t *sp;
2d83f070 JJ	180
2d83f070 JJ	181	sp = __builtin_frame_address (0);
	182	sp = sp->backchain;
	183
c9485473 MM	184	if (a1 != gparms.fprs[0]) FAILURE
	185	if (a2 != gparms.fprs[1]) FAILURE
	186	if (a3 != gparms.fprs[2]) FAILURE
	187	if (a4 != gparms.fprs[3]) FAILURE
	188	if (a5 != gparms.fprs[4]) FAILURE
	189	if (a6 != gparms.fprs[5]) FAILURE
	190	if (a7 != gparms.fprs[6]) FAILURE
	191	if (a8 != gparms.fprs[7]) FAILURE
	192	if (a9 != gparms.fprs[8]) FAILURE
	193	if (a10 != gparms.fprs[9]) FAILURE
	194	if (a11 != gparms.fprs[10]) FAILURE
	195	if (a12 != gparms.fprs[11]) FAILURE
2d83f070 JJ	196	if (a13 != (_Decimal128 )&sp->slot[12]) FAILURE
	197	}
	198
c9485473 MM	199	extern void func3_asm (_Decimal64, _Decimal128, _Decimal64, _Decimal128,
	200	_Decimal64, _Decimal128, _Decimal64, _Decimal128,
	201	_Decimal64, _Decimal128);
	202
	203	WRAPPER(func3);
	204
2d83f070 JJ	205	void __attribute__ ((noinline))
	206	func3 (_Decimal64 a1, _Decimal128 a2, _Decimal64 a3, _Decimal128 a4,
	207	_Decimal64 a5, _Decimal128 a6, _Decimal64 a7, _Decimal128 a8,
	208	_Decimal64 a9, _Decimal128 a10)
	209	{
2d83f070 JJ	210	stack_frame_t *sp;
2d83f070 JJ	211
2d83f070 JJ	212	sp = __builtin_frame_address (0);
	213	sp = sp->backchain;
	214
c9485473 MM	215	if (a1 != (_Decimal64 )&gparms.fprs[0]) FAILURE /* f1 */
	216	if (a2 != (_Decimal128 )&gparms.fprs[1]) FAILURE /* f2 & f3 */
	217	if (a3 != (_Decimal64 )&gparms.fprs[3]) FAILURE /* f4 */
	218	if (a4 != (_Decimal128 )&gparms.fprs[5]) FAILURE /* f6 & f7 */
	219	if (a5 != (_Decimal64 )&gparms.fprs[7]) FAILURE /* f8 */
	220	if (a6 != (_Decimal128 )&gparms.fprs[9]) FAILURE /* f10 & f11 */
	221	if (a7 != (_Decimal64 )&gparms.fprs[11]) FAILURE /* f12 */
2d83f070 JJ	222	if (a8 != (_Decimal128 )&sp->slot[10]) FAILURE
	223	if (a9 != (_Decimal64 )&sp->slot[12]) FAILURE
	224	if (a10 != (_Decimal128 )&sp->slot[13]) FAILURE
	225	}
	226
c9485473 MM	227	extern void func4_asm (_Decimal128, _Decimal64, _Decimal128, _Decimal64,
	228	_Decimal128, _Decimal64, _Decimal128, _Decimal64);
	229
	230	WRAPPER(func4);
	231
2d83f070 JJ	232	void __attribute__ ((noinline))
	233	func4 (_Decimal128 a1, _Decimal64 a2, _Decimal128 a3, _Decimal64 a4,
	234	_Decimal128 a5, _Decimal64 a6, _Decimal128 a7, _Decimal64 a8)
	235	{
2d83f070 JJ	236	stack_frame_t *sp;
2d83f070 JJ	237
2d83f070 JJ	238	sp = __builtin_frame_address (0);
	239	sp = sp->backchain;
	240
c9485473 MM	241	if (a1 != (_Decimal128 )&gparms.fprs[1]) FAILURE /* f2 & f3 */
	242	if (a2 != (_Decimal64 )&gparms.fprs[3]) FAILURE /* f4 */
	243	if (a3 != (_Decimal128 )&gparms.fprs[5]) FAILURE /* f6 & f7 */
	244	if (a4 != (_Decimal64 )&gparms.fprs[7]) FAILURE /* f8 */
	245	if (a5 != (_Decimal128 )&gparms.fprs[9]) FAILURE /* f10 & f11 */
	246	if (a6 != (_Decimal64 )&gparms.fprs[11]) FAILURE /* f12 */
2d83f070 JJ	247	if (a7 != (_Decimal128 )&sp->slot[9]) FAILURE
	248	if (a8 != (_Decimal64 )&sp->slot[11]) FAILURE
	249	}
	250
c9485473 MM	251	extern void func5_asm (_Decimal32, _Decimal32, _Decimal32, _Decimal32,
	252	_Decimal32, _Decimal32, _Decimal32, _Decimal32,
	253	_Decimal32, _Decimal32, _Decimal32, _Decimal32,
	254	_Decimal32, _Decimal32, _Decimal32, _Decimal32);
	255
	256	WRAPPER(func5);
	257
2d83f070 JJ	258	void __attribute__ ((noinline))
	259	func5 (_Decimal32 a1, _Decimal32 a2, _Decimal32 a3, _Decimal32 a4,
	260	_Decimal32 a5, _Decimal32 a6, _Decimal32 a7, _Decimal32 a8,
	261	_Decimal32 a9, _Decimal32 a10, _Decimal32 a11, _Decimal32 a12,
	262	_Decimal32 a13, _Decimal32 a14, _Decimal32 a15, _Decimal32 a16)
	263	{
2d83f070 JJ	264	stack_frame_t *sp;
2d83f070 JJ	265
2d83f070 JJ	266	sp = __builtin_frame_address (0);
	267	sp = sp->backchain;
	268
	269	/* _Decimal32 is passed in the lower half of an FPR or parameter slot. */
c9485473 MM	270	if (a1 != ((d32parm_t )&gparms.fprs[0])->d) FAILURE / f1 */
	271	if (a2 != ((d32parm_t )&gparms.fprs[1])->d) FAILURE / f2 */
	272	if (a3 != ((d32parm_t )&gparms.fprs[2])->d) FAILURE / f3 */
	273	if (a4 != ((d32parm_t )&gparms.fprs[3])->d) FAILURE / f4 */
	274	if (a5 != ((d32parm_t )&gparms.fprs[4])->d) FAILURE / f5 */
	275	if (a6 != ((d32parm_t )&gparms.fprs[5])->d) FAILURE / f6 */
	276	if (a7 != ((d32parm_t )&gparms.fprs[6])->d) FAILURE / f7 */
	277	if (a8 != ((d32parm_t )&gparms.fprs[7])->d) FAILURE / f8 */
	278	if (a9 != ((d32parm_t )&gparms.fprs[8])->d) FAILURE / f9 */
	279	if (a10 != ((d32parm_t )&gparms.fprs[9])->d) FAILURE / f10 */
	280	if (a11 != ((d32parm_t )&gparms.fprs[10])->d) FAILURE / f11 */
	281	if (a12 != ((d32parm_t )&gparms.fprs[11])->d) FAILURE / f12 */
	282	if (a13 != ((d32parm_t )&gparms.fprs[12])->d) FAILURE / f13 */
2d83f070 JJ	283	if (a14 != ((d32parm_t *)&sp->slot[13])->d) FAILURE
	284	if (a15 != ((d32parm_t *)&sp->slot[14])->d) FAILURE
	285	if (a16 != ((d32parm_t *)&sp->slot[15])->d) FAILURE
	286	}
	287
c9485473 MM	288	extern void func6_asm (_Decimal32, _Decimal64, _Decimal128,
	289	_Decimal32, _Decimal64, _Decimal128,
	290	_Decimal32, _Decimal64, _Decimal128,
	291	_Decimal32, _Decimal64, _Decimal128);
	292
	293	WRAPPER(func6);
	294
2d83f070 JJ	295	void __attribute__ ((noinline))
	296	func6 (_Decimal32 a1, _Decimal64 a2, _Decimal128 a3,
	297	_Decimal32 a4, _Decimal64 a5, _Decimal128 a6,
	298	_Decimal32 a7, _Decimal64 a8, _Decimal128 a9,
	299	_Decimal32 a10, _Decimal64 a11, _Decimal128 a12)
	300	{
2d83f070 JJ	301	stack_frame_t *sp;
2d83f070 JJ	302
2d83f070 JJ	303	sp = __builtin_frame_address (0);
	304	sp = sp->backchain;
	305
c9485473 MM	306	if (a1 != ((d32parm_t )&gparms.fprs[0])->d) FAILURE / f1 */
	307	if (a2 != (_Decimal64 )&gparms.fprs[1]) FAILURE /* f2 */
	308	if (a3 != (_Decimal128 )&gparms.fprs[3]) FAILURE /* f4 & f5 */
	309	if (a4 != ((d32parm_t )&gparms.fprs[5])->d) FAILURE / f6 */
	310	if (a5 != (_Decimal64 )&gparms.fprs[6]) FAILURE /* f7 */
	311	if (a6 != (_Decimal128 )&gparms.fprs[7]) FAILURE /* f8 & f9 */
	312	if (a7 != ((d32parm_t )&gparms.fprs[9])->d) FAILURE / f10 */
	313	if (a8 != (_Decimal64 )&gparms.fprs[10]) FAILURE /* f11 */
	314	if (a9 != (_Decimal128 )&gparms.fprs[11]) FAILURE /* f12 & f13 */
2d83f070 JJ	315	if (a10 != ((d32parm_t *)&sp->slot[12])->d) FAILURE
	316	if (a11 != (_Decimal64 )&sp->slot[13]) FAILURE
	317	}
	318
	319	int
	320	main (void)
	321	{
c9485473 MM	322	func0_asm (1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5, 10.5, 11.5, 12.5, 13.5,
	323	14.5, 15.2dd, 16.2dl, 17.2dd);
	324	func1_asm (101.5, 102.5, 103.5, 104.5, 105.5, 106.5, 107.5, 108.5, 109.5,
	325	110.5, 111.5, 112.5, 113.5, 114.2dd);
	326	func2_asm (201.5, 202.5, 203.5, 204.5, 205.5, 206.5, 207.5, 208.5, 209.5,
	327	210.5, 211.5, 212.5, 213.2dd);
	328	func3_asm (301.2dd, 302.2dl, 303.2dd, 304.2dl, 305.2dd, 306.2dl, 307.2dd,
	329	308.2dl, 309.2dd, 310.2dl);
	330	func4_asm (401.2dl, 402.2dd, 403.2dl, 404.2dd, 405.2dl, 406.2dd, 407.2dl,
	331	408.2dd);
2d83f070 JJ	332	#if 0
2d83f070 JJ	333	/* _Decimal32 doesn't yet follow the ABI; enable this when it does. */
c9485473 MM	334	func5_asm (501.2df, 502.2df, 503.2df, 504.2df, 505.2df, 506.2df, 507.2df,
	335	508.2df, 509.2df, 510.2df, 511.2df, 512.2df, 513.2df, 514.2df,
	336	515.2df, 516.2df);
	337	func6_asm (601.2df, 602.2dd, 603.2dl, 604.2df, 605.2dd, 606.2dl,
	338	607.2df, 608.2dd, 609.2dl, 610.2df, 611.2dd, 612.2dl);
2d83f070 JJ	339	#endif
	340
	341	if (failcnt != 0)
	342	abort ();
	343
	344	return 0;
	345	}