gcc/testsuite/gcc.target/powerpc/ppc64-abi-dfp-1.c

   1 /* { dg-do run { target { powerpc64-*-* && { lp64 && dfprt } } } } */
   2 /* { dg-skip-if "" { powerpc*-*-darwin* } } */
   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
  35 /* Wrapper to save the GPRs and FPRs and then jump to the real function.  */
  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
  55 #define WRAPPER(NAME)                                                   \
  56 __asm__ (FUNC_START (#NAME "_asm")                                      \
  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")
  83
  84 typedef struct sf
  85 {
  86   struct sf *backchain;
  87   long a1;
  88   long a2;
  89   long a3;
  90 #if _CALL_ELF != 2
  91   long a4;
  92   long a5;
  93 #endif
  94   unsigned long slot[100];
  95 } stack_frame_t;
  96
  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
 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 {
 112   stack_frame_t *sp;
 113
 114   sp = __builtin_frame_address (0);
 115   sp = sp->backchain;
 116
 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
 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
 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
 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 {
 147   stack_frame_t *sp;
 148
 149   sp = __builtin_frame_address (0);
 150   sp = sp->backchain;
 151
 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
 165   if (a14 != *(_Decimal128 *)&sp->slot[13]) FAILURE
 166 }
 167
 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
 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 {
 179   stack_frame_t *sp;
 180
 181   sp = __builtin_frame_address (0);
 182   sp = sp->backchain;
 183
 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
 196   if (a13 != *(_Decimal128 *)&sp->slot[12]) FAILURE
 197 }
 198
 199 extern void func3_asm (_Decimal64, _Decimal128, _Decimal64, _Decimal128,
 200                        _Decimal64, _Decimal128, _Decimal64, _Decimal128,
 201                        _Decimal64, _Decimal128);
 202
 203 WRAPPER(func3);
 204
 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 {
 210   stack_frame_t *sp;
 211
 212   sp = __builtin_frame_address (0);
 213   sp = sp->backchain;
 214
 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       */
 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
 227 extern void func4_asm (_Decimal128, _Decimal64, _Decimal128, _Decimal64,
 228                        _Decimal128, _Decimal64, _Decimal128, _Decimal64);
 229
 230 WRAPPER(func4);
 231
 232 void __attribute__ ((noinline))
 233 func4 (_Decimal128 a1, _Decimal64 a2, _Decimal128 a3, _Decimal64 a4,
 234        _Decimal128 a5, _Decimal64 a6, _Decimal128 a7, _Decimal64 a8)
 235 {
 236   stack_frame_t *sp;
 237
 238   sp = __builtin_frame_address (0);
 239   sp = sp->backchain;
 240
 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       */
 247   if (a7 != *(_Decimal128 *)&sp->slot[9]) FAILURE
 248   if (a8 != *(_Decimal64 *)&sp->slot[11]) FAILURE
 249 }
 250
 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
 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 {
 264   stack_frame_t *sp;
 265
 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.  */
 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 */
 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
 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
 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 {
 301   stack_frame_t *sp;
 302
 303   sp = __builtin_frame_address (0);
 304   sp = sp->backchain;
 305
 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 */
 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 {
 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);
 332 #if 0
 333   /* _Decimal32 doesn't yet follow the ABI; enable this when it does.  */
 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);
 339 #endif
 340
 341   if (failcnt != 0)
 342     abort ();
 343
 344   return 0;
 345 }