deps/lightning/check/clobber.tst

   1 /* do not bother about result of operations, only ensure valid arguments
   2  * and that registers not modified by the operation are not clobbered  */
   3
   4 #define IV0             0x10000
   5 #define IV1             0x10001
   6 #define IV2             0x10002
   7 #define IV3             0x10003
   8 #define IV4             0x10004
   9 #define IV5             0x10005
  10 #define FV0             100.0
  11 #define FV1             101.0
  12 #define FV2             102.0
  13 #define FV3             103.0
  14 #define FV4             104.0
  15 #define FV5             105.0
  16 #define IR0             r0
  17 #define IR1             r1
  18 #define IR2             r2
  19 #define IR3             v0
  20 #define IR4             v1
  21 #define IR5             v2
  22 #define FR0             f0
  23 #define FR1             f1
  24 #define FR2             f2
  25 #define FR3             f3
  26 #define FR4             f4
  27 #define FR5             f5
  28
  29 #define setup()                                                 \
  30         movi %r0 IV0                                            \
  31         movi %r1 IV1                                            \
  32         movi %r2 IV2                                            \
  33         movi %v0 IV3                                            \
  34         movi %v1 IV4                                            \
  35         movi %v2 IV5
  36 #define setup_f()                                               \
  37         movi_f %f0 FV0                                          \
  38         movi_f %f1 FV1                                          \
  39         movi_f %f2 FV2                                          \
  40         movi_f %f3 FV3                                          \
  41         movi_f %f4 FV4                                          \
  42         movi_f %f5 FV5
  43 #define setup_d()                                               \
  44         movi_d %f0 FV0                                          \
  45         movi_d %f1 FV1                                          \
  46         movi_d %f2 FV2                                          \
  47         movi_d %f3 FV3                                          \
  48         movi_d %f4 FV4                                          \
  49         movi_d %f5 FV5
  50
  51 #define check(label, rn)                                        \
  52         beqi label %IR##rn IV##rn                               \
  53         calli @abort                                            \
  54 label:
  55 #define check1(k, l, i0)                                        \
  56         check(k##l##i0##_0, i0)
  57 #define check2(k, l, i0, i1)                                    \
  58         check(k##l##i0##i1##_0, i0)                             \
  59         check(k##l##i0##i1##_1, i1)
  60 #define check3(k, l, i0, i1, i2)                                \
  61         check(k##l##i0##i1##i2##_0, i0)                         \
  62         check(k##l##i0##i1##i2##_1, i1)                         \
  63         check(k##l##i0##i1##i2##_2, i2)
  64 #define check4(k, l, i0, i1, i2, i3)                            \
  65         check(k##l##i0##i1##i2##i3##_0, i0)                     \
  66         check(k##l##i0##i1##i2##i3##_1, i1)                     \
  67         check(k##l##i0##i1##i2##i3##_2, i2)                     \
  68         check(k##l##i0##i1##i2##i3##_3, i3)
  69 #define check5(k, l, i0, i1, i2, i3, i4)                        \
  70         check(k##l##i0##i1##i2##i3##i4##_0, i0)                 \
  71         check(k##l##i0##i1##i2##i3##i4##_1, i1)                 \
  72         check(k##l##i0##i1##i2##i3##i3##_2, i2)                 \
  73         check(k##l##i0##i1##i2##i3##i4##_3, i3)                 \
  74         check(k##l##i0##i1##i2##i3##i4##_4, i4)
  75 #define check6(k, l, i0, i1, i2, i3, i4, i5)                    \
  76         check(k##l##i0##i1##i2##i3##i4##i5##_0, i0)             \
  77         check(k##l##i0##i1##i2##i3##i4##i5##_1, i1)             \
  78         check(k##l##i0##i1##i2##i3##i3##i5##_2, i2)             \
  79         check(k##l##i0##i1##i2##i3##i4##i5##_3, i3)             \
  80         check(k##l##i0##i1##i2##i3##i4##i5##_4, i4)             \
  81         check(k##l##i0##i1##i2##i3##i4##i5##_5, i5)
  82
  83 #define checkf(f, label, rn)                                    \
  84         beqi##f label %FR##rn FV##rn                            \
  85         calli @abort                                            \
  86 label:
  87 #define checkf1(f, k, l, i0)                                    \
  88         checkf(f, f##k##l##i0##_0, i0)
  89 #define checkf2(f, k, l, i0, i1)                                \
  90         checkf(f, f##k##l##i0##i1##_0, i0)                      \
  91         checkf(f, f##k##l##i0##i1##_1, i1)
  92 #define checkf3(f, k, l, i0, i1, i2)                            \
  93         checkf(f, f##k##l##i0##i1##i2##_0, i0)                  \
  94         checkf(f, f##k##l##i0##i1##i2##_1, i1)                  \
  95         checkf(f, f##k##l##i0##i1##i2##_2, i2)
  96 #define checkf4(f, k, l, i0, i1, i2, i3)                        \
  97         checkf(f, f##k##l##i0##i1##i2##i3##_0, i0)              \
  98         checkf(f, f##k##l##i0##i1##i2##i3##_1, i1)              \
  99         checkf(f, f##k##l##i0##i1##i2##i3##_2, i2)              \
 100         checkf(f, f##k##l##i0##i1##i2##i3##_3, i3)
 101 #define checkf5(f, k, l, i0, i1, i2, i3, i4)                    \
 102         checkf(f, f##k##l##i0##i1##i2##i3##i4##_0, i0)          \
 103         checkf(f, f##k##l##i0##i1##i2##i3##i4##_1, i1)          \
 104         checkf(f, f##k##l##i0##i1##i2##i3##i3##_2, i2)          \
 105         checkf(f, f##k##l##i0##i1##i2##i3##i4##_3, i3)          \
 106         checkf(f, f##k##l##i0##i1##i2##i3##i4##_4, i4)
 107 #define checkf6(f, k, l, i0, i1, i2, i3, i4, i5)                \
 108         checkf(f, f##k##l##i0##i1##i2##i3##i4##i5##_0, i0)      \
 109         checkf(f, f##k##l##i0##i1##i2##i3##i4##i5##_1, i1)      \
 110         checkf(f, f##k##l##i0##i1##i2##i3##i3##i5##_2, i2)      \
 111         checkf(f, f##k##l##i0##i1##i2##i3##i4##i5##_3, i3)      \
 112         checkf(f, f##k##l##i0##i1##i2##i3##i4##i5##_4, i4)      \
 113         checkf(f, f##k##l##i0##i1##i2##i3##i4##i5##_5, i5)
 114
 115 #define alui(l, op, i0, i1, i2, i3, i4, i5)                     \
 116         setup()                                                 \
 117         movi %IR##i0 1                                          \
 118         op##i %IR##i1 %IR##i0 1                                 \
 119         check4(i, l, i2, i3, i4, i5)
 120 #define aluic(l, op, i0, i1, i2, i3, i4, i5)                    \
 121         setup()                                                 \
 122         movi %IR##i0 1                                          \
 123         op##i %IR##i0 %IR##i0 1                                 \
 124         check5(ic, l, i1, i2, i3, i4, i5)
 125 #define alur(l, op, i0, i1, i2, i3, i4, i5)                     \
 126         setup()                                                 \
 127         movi %IR##i0 1                                          \
 128         movi %IR##i1 1                                          \
 129         op##r %IR##i2 %IR##i0 %IR##i1                           \
 130         check3(r, l, i3, i4, i5)
 131 #define alurc0(l, op, i0, i1, i2, i3, i4, i5)                   \
 132         setup()                                                 \
 133         movi %IR##i0 1                                          \
 134         movi %IR##i1 1                                          \
 135         op##r %IR##i0 %IR##i0 %IR##i1                           \
 136         check4(r0, l, i2, i3, i4, i5)
 137 #define alurc1(l, op, i0, i1, i2, i3, i4, i5)                   \
 138         setup()                                                 \
 139         movi %IR##i0 1                                          \
 140         movi %IR##i1 1                                          \
 141         op##r %IR##i1 %IR##i0 %IR##i1                           \
 142         check4(r1, l, i2, i3, i4, i5)
 143 #define alurc2(l, op, i0, i1, i2, i3, i4, i5)                   \
 144         setup()                                                 \
 145         movi %IR##i0 1                                          \
 146         op##r %IR##i0 %IR##i0 %IR##i0                           \
 147         check5(r2, l, i1, i2, i3, i4, i5)
 148 #define   xalu(l, op, i0, i1, i2, i3, i4, i5)                   \
 149           alui(l, op, i0, i1,   i2, i3, i4, i5)                 \
 150          aluic(l, op, i0,               i1, i2, i3, i4, i5)     \
 151           alur(l, op, i0, i1, i2,       i3, i4, i5)             \
 152         alurc0(l, op, i0, i1,   i2, i3, i4, i5)                 \
 153         alurc1(l, op, i0, i1,   i2, i3, i4, i5)                 \
 154         alurc2(l, op, i0,               i1, i2, i3, i4, i5)
 155
 156 #if __ia64__
 157 #  define alu(l, op)                                            \
 158          xalu(l, op, 0, 1, 2, 3, 4, 5)
 159 #else
 160 #  define alu(l, op)                                            \
 161          xalu(l, op, 0, 1, 2, 3, 4, 5)                          \
 162          xalu(l, op, 1, 2, 3, 4, 5, 0)                          \
 163          xalu(l, op, 2, 3, 4, 5, 0, 1)                          \
 164          xalu(l, op, 3, 4, 5, 0, 1, 2)                          \
 165          xalu(l, op, 4, 5, 0, 1, 2, 3)                          \
 166          xalu(l, op, 5, 0, 1, 2, 3, 4)
 167 #endif
 168
 169 #define fopi(f, l, op, f0, f1, f2, f3, f4, f5)                  \
 170         setup##f()                                              \
 171         movi##f %FR##f0 1.0                                     \
 172         op##i##f %FR##f1 %FR##f0 1.0                            \
 173         checkf4(f, i, l, f2, f3, f4, f5)
 174 #define fopic(f, l, op, f0, f1, f2, f3, f4, f5)                 \
 175         setup##f()                                              \
 176         movi##f %FR##f0 1.0                                     \
 177         op##i##f %FR##f0 %FR##f0 1.0                            \
 178         checkf5(f, ic, l, f1, f2, f3, f4, f5)
 179 #define fopr(f, l, op, f0, f1, f2, f3, f4, f5)                  \
 180         setup##f()                                              \
 181         movi##f %FR##f0 1.0                                     \
 182         movi##f %FR##f1 1.0                                     \
 183         op##r##f %FR##f2 %FR##f0 %FR##f1                        \
 184         checkf3(f, r, l, f3, f4, f5)
 185 #define foprc0(f, l, op, f0, f1, f2, f3, f4, f5)                \
 186         setup##f()                                              \
 187         movi##f %FR##f0 1.0                                     \
 188         movi##f %FR##f1 1.0                                     \
 189         op##r##f %FR##f0 %FR##f0 %FR##f1                        \
 190         checkf4(f, r0, l, f2, f3, f4, f5)
 191 #define foprc1(f, l, op, f0, f1, f2, f3, f4, f5)                \
 192         setup##f()                                              \
 193         movi##f %FR##f0 1.0                                     \
 194         movi##f %FR##f1 1.0                                     \
 195         op##r##f %FR##f1 %FR##f0 %FR##f1                        \
 196         checkf4(f, r1, l, f2, f3, f4, f5)
 197 #define foprc2(f, l, op, f0, f1, f2, f3, f4, f5)                \
 198         setup##f()                                              \
 199         movi##f %FR##f0 1.0                                     \
 200         op##r##f %FR##f0 %FR##f0 %FR##f0                        \
 201         checkf5(f, r2, l, f1, f2, f3, f4, f5)
 202 #define   xfop(f, l, op, f0, f1, f2, f3, f4, f5)                \
 203           fopi(f, l, op, f0, f1, f2,            f3, f4, f5)     \
 204          fopic(f, l, op, f0, f1, f2,            f3, f4, f5)     \
 205           fopr(f, l, op, f0, f1, f2,            f3, f4, f5)     \
 206         foprc0(f, l, op, f0, f1,                f2, f3, f4, f5) \
 207         foprc1(f, l, op, f0, f1,                f2, f3, f4, f5) \
 208         foprc2(f, l, op, f0, f1,                f2, f3, f4, f5)
 209 #if __ia64__
 210 #  define xxfop(l, op, f, f0, f1, f2, f3, f4, f5)               \
 211            xfop(_f, l, op, f0, f1, f2, f3, f4, f5)
 212 #else
 213 #  define xxfop(l, op, f, f0, f1, f2, f3, f4, f5)               \
 214            xfop(_f, l, op, f0, f1, f2, f3, f4, f5)              \
 215            xfop(_d, l, op, f0, f1, f2, f3, f4, f5)
 216 #endif
 217 #if __ia64__
 218 #  define fop(l, op)                                            \
 219         xxfop(l, op, f, 0, 1, 2, 3, 4, 5)
 220 #else
 221 #  define fop(l, op)                                            \
 222         xxfop(l, op, f, 0, 1, 2, 3, 4, 5)                       \
 223         xxfop(l, op, f, 1, 2, 3, 4, 5, 0)                       \
 224         xxfop(l, op, f, 2, 3, 4, 5, 0, 1)                       \
 225         xxfop(l, op, f, 3, 4, 5, 0, 1, 2)                       \
 226         xxfop(l, op, f, 4, 5, 0, 1, 2, 3)                       \
 227         xxfop(l, op, f, 5, 0, 1, 2, 3, 4)
 228 #endif
 229
 230 #define aluxii(l, op, i0, i1, i2, i3, i4, i5)                   \
 231         setup()                                                 \
 232         movi %IR##i0 1                                          \
 233         op##ci %IR##i1 %IR##i0 1                                \
 234         op##xi %IR##i2 %IR##i0 1                                \
 235         check3(ii, l, i3, i4, i5)
 236 #define aluxir(l, op, i0, i1, i2, i3, i4, i5)                   \
 237         setup()                                                 \
 238         movi %IR##i0 1                                          \
 239         op##ci %IR##i1 %IR##i0 1                                \
 240         op##xr %IR##i2 %IR##i0 %IR##i1                          \
 241         check3(ir, l, i3, i4, i5)
 242 #define aluxri(l, op, i0, i1, i2, i3, i4, i5)                   \
 243         setup()                                                 \
 244         movi %IR##i0 1                                          \
 245         movi %IR##i1 1                                          \
 246         op##cr %IR##i2 %IR##i0 %IR##i1                          \
 247         op##xi %IR##i0 %IR##i1 1                                \
 248         check3(ri, l, i3, i4, i5)
 249 #define aluxrr(l, op, i0, i1, i2, i3, i4, i5)                   \
 250         setup()                                                 \
 251         movi %IR##i0 1                                          \
 252         movi %IR##i1 1                                          \
 253         op##cr %IR##i2 %IR##i0 %IR##i1                          \
 254         op##xr %IR##i2 %IR##i0 %IR##i1                          \
 255         check3(rr, l, i3, i4, i5)
 256 #define  xalux(l, op, i0, i1, i2, i3, i4, i5)                   \
 257         aluxii(l, op, i0, i1, i2,       i3, i4, i5)             \
 258         aluxir(l, op, i0, i1, i2,       i3, i4, i5)             \
 259         aluxri(l, op, i0, i1, i2,       i3, i4, i5)             \
 260         aluxrr(l, op, i0, i1, i2,       i3, i4, i5)
 261 #if __ia64__
 262 #  define alux(l, op)                                           \
 263          xalux(l, op, 0, 1, 2, 3, 4, 5)
 264 #else
 265 #  define alux(l, op)                                           \
 266          xalux(l, op, 0, 1, 2, 3, 4, 5)                         \
 267          xalux(l, op, 1, 2, 3, 4, 5, 0)                         \
 268          xalux(l, op, 2, 3, 4, 5, 0, 1)                         \
 269          xalux(l, op, 3, 4, 5, 0, 1, 2)                         \
 270          xalux(l, op, 4, 5, 0, 1, 2, 3)                         \
 271          xalux(l, op, 5, 0, 1, 2, 3, 4)
 272 #endif
 273
 274 #define alui_u(l, op, i0, i1, i2, i3, i4, i5)                   \
 275         setup()                                                 \
 276         movi %IR##i0 1                                          \
 277         op##i_u %IR##i1 %IR##i0 1                               \
 278         check4(i_u, l, i2, i3, i4, i5)
 279 #define aluic_u(l, op, i0, i1, i2, i3, i4, i5)                  \
 280         setup()                                                 \
 281         movi %IR##i0 1                                          \
 282         op##i_u %IR##i0 %IR##i0 1                               \
 283         check5(ic_u, l, i1, i2, i3, i4, i5)
 284 #define alur_u(l, op, i0, i1, i2, i3, i4, i5)                   \
 285         setup()                                                 \
 286         movi %IR##i0 1                                          \
 287         movi %IR##i1 1                                          \
 288         op##r_u %IR##i2 %IR##i0 %IR##i1                         \
 289         check3(r_u, l, i3, i4, i5)
 290 #define alurc0_u(l, op, i0, i1, i2, i3, i4, i5)                 \
 291         setup()                                                 \
 292         movi %IR##i0 1                                          \
 293         movi %IR##i1 1                                          \
 294         op##r_u %IR##i0 %IR##i0 %IR##i1                         \
 295         check4(r0_u, l, i2, i3, i4, i5)
 296 #define alurc1_u(l, op, i0, i1, i2, i3, i4, i5)                 \
 297         setup()                                                 \
 298         movi %IR##i0 1                                          \
 299         movi %IR##i1 1                                          \
 300         op##r_u %IR##i1 %IR##i0 %IR##i1                         \
 301         check4(r1_u, l, i2, i3, i4, i5)
 302 #define alurc2_u(l, op, i0, i1, i2, i3, i4, i5)                 \
 303         setup()                                                 \
 304         movi %IR##i0 1                                          \
 305         op##r_u %IR##i0 %IR##i0 %IR##i0                         \
 306         check5(r2_u, l, i1, i2, i3, i4, i5)
 307 #define   xalu_u(l, op, i0, i1, i2, i3, i4, i5)                 \
 308           alui_u(l, op, i0, i1, i2, i3, i4, i5)                 \
 309          aluic_u(l, op, i0,             i1, i2, i3, i4, i5)     \
 310           alur_u(l, op, i0, i1, i2,     i3, i4, i5)             \
 311         alurc0_u(l, op, i0, i1, i2, i3, i4, i5)                 \
 312         alurc1_u(l, op, i0, i1, i2, i3, i4, i5)                 \
 313         alurc2_u(l, op, i0,             i1, i2, i3, i4, i5)
 314 #if __ia64__
 315 #  define alu_u(l, op)                                          \
 316          xalu_u(l, op, 0, 1, 2, 3, 4, 5)
 317 #else
 318 #  define alu_u(l, op)                                          \
 319          xalu_u(l, op, 0, 1, 2, 3, 4, 5)                        \
 320          xalu_u(l, op, 1, 2, 3, 4, 5, 0)                        \
 321          xalu_u(l, op, 2, 3, 4, 5, 0, 1)                        \
 322          xalu_u(l, op, 3, 4, 5, 0, 1, 2)                        \
 323          xalu_u(l, op, 4, 5, 0, 1, 2, 3)                        \
 324          xalu_u(l, op, 5, 0, 1, 2, 3, 4)
 325 #endif
 326
 327 #define unir(l, op, i0, i1, i2, i3, i4, i5)                     \
 328         setup()                                                 \
 329         movi %IR##i0 1                                          \
 330         op %IR##i1 %IR##i0                                      \
 331         check4(rr, l, i2, i3, i4, i5)
 332 #define unirc(l, op, i0, i1, i2, i3, i4, i5)                    \
 333         setup()                                                 \
 334         movi %IR##i0 1                                          \
 335         op %IR##i0 %IR##i0                                      \
 336         check5(rc, l, i1, i2, i3, i4, i5)
 337 #define   xuni(l, op, i0, i1, i2, i3, i4, i5)                   \
 338           unir(l, op, i0, i1,   i2, i3, i4, i5)                 \
 339          unirc(l, op, i0,               i1, i2, i3, i4, i5)
 340 #if __ia64__
 341 #  define uni(l, op)                                            \
 342          xuni(l, op, 0, 1, 2, 3, 4, 5)
 343 #else
 344 #  define uni(l, op)                                            \
 345          xuni(l, op, 0, 1, 2, 3, 4, 5)                          \
 346          xuni(l, op, 1, 2, 3, 4, 5, 0)                          \
 347          xuni(l, op, 2, 3, 4, 5, 0, 1)                          \
 348          xuni(l, op, 3, 4, 5, 0, 1, 2)                          \
 349          xuni(l, op, 4, 5, 0, 1, 2, 3)                          \
 350          xuni(l, op, 5, 0, 1, 2, 3, 4)
 351 #endif
 352
 353 #define unfr(f, l, op, f0, f1, f2, f3, f4, f5)                  \
 354         setup##f()                                              \
 355         movi##f %FR##f0 1                                       \
 356         op##f %FR##f1 %FR##f0                                   \
 357         checkf4(f, rr, l, f2, f3, f4, f5)
 358 #define unfrc(f, l, op, f0, f1, f2, f3, f4, f5)                 \
 359         setup##f()                                              \
 360         movi##f %FR##f0 1                                       \
 361         op##f %FR##f0 %FR##f0                                   \
 362         checkf5(f, rc, l, f1, f2, f3, f4, f5)
 363 #define   xunf(f, l, op, f0, f1, f2, f3, f4, f5)                \
 364           unfr(f, l, op, f0, f1,        f2, f3, f4, f5)         \
 365          unfrc(f, l, op, f0,            f1, f2, f3, f4, f5)
 366 #define xxunf(l, op, f0, f1, f2, f3, f4, f5)                    \
 367          xunf(_f, l, op, f0, f1, f2, f3, f4, f5)                \
 368          xunf(_d, l, op, f0, f1, f2, f3, f4, f5)
 369 #if __ia64__
 370 #  define unf(l, op)                                            \
 371         xxunf(l, op, 0, 1, 2, 3, 4, 5)
 372 #else
 373 #  define unf(l, op)                                            \
 374         xxunf(l, op, 0, 1, 2, 3, 4, 5)                          \
 375         xxunf(l, op, 1, 2, 3, 4, 5, 0)                          \
 376         xxunf(l, op, 2, 3, 4, 5, 0, 1)                          \
 377         xxunf(l, op, 3, 4, 5, 0, 1, 2)                          \
 378         xxunf(l, op, 4, 5, 0, 1, 2, 3)                          \
 379         xxunf(l, op, 5, 0, 1, 2, 3, 4)
 380 #endif
 381
 382 #define fcpi(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)    \
 383         setup()                                                 \
 384         setup##f()                                              \
 385         movi##f %FR##f0 1.0                                     \
 386         op##i##f %IR##r0 %FR##f0 1.0                            \
 387         check5(i##f##f0, l, r1, r2, r3, r4, r5)                 \
 388         checkf5(f, i##r0, l, f1, f2, f3, f4, f5)
 389 #define fcpr(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)    \
 390         setup()                                                 \
 391         setup##f()                                              \
 392         movi##f %FR##f0 1.0                                     \
 393         movi##f %FR##f1 1.0                                     \
 394         op##r##f %IR##r0 %FR##f0 %FR##f1                        \
 395         check5(r##f##f0, l, r1, r2, r3, r4, r5)                 \
 396         checkf4(f, r##r0, l, f2, f3, f4, f5)
 397 #define fcprc(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)   \
 398         setup()                                                 \
 399         setup##f()                                              \
 400         movi##f %FR##f0 1.0                                     \
 401         op##r##f %IR##r0 %FR##f0 %FR##f0                        \
 402         check5(rc##f##f0, l, r1, r2, r3, r4, r5)                \
 403         checkf5(f, rc##r0, l, f1, f2, f3, f4, f5)
 404 #if __ia64__
 405 #  define ifcp(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)  \
 406           fcpi(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)
 407 #else
 408 #  define ifcp(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)  \
 409           fcpi(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)  \
 410           fcpr(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)  \
 411          fcprc(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)  \
 412           fcpi(f, l, op, r1,r2,r3,r4,r5,r0, f0,f1,f2,f3,f4,f5)  \
 413           fcpr(f, l, op, r1,r2,r3,r4,r5,r0, f0,f1,f2,f3,f4,f5)  \
 414          fcprc(f, l, op, r1,r2,r3,r4,r5,r0, f0,f1,f2,f3,f4,f5)  \
 415           fcpi(f, l, op, r2,r3,r4,r5,r0,r1, f0,f1,f2,f3,f4,f5)  \
 416           fcpr(f, l, op, r2,r3,r4,r5,r0,r1, f0,f1,f2,f3,f4,f5)  \
 417          fcprc(f, l, op, r2,r3,r4,r5,r0,r1, f0,f1,f2,f3,f4,f5)  \
 418           fcpi(f, l, op, r3,r4,r5,r0,r1,r2, f0,f1,f2,f3,f4,f5)  \
 419           fcpr(f, l, op, r3,r4,r5,r0,r1,r2, f0,f1,f2,f3,f4,f5)  \
 420          fcprc(f, l, op, r3,r4,r5,r0,r1,r2, f0,f1,f2,f3,f4,f5)  \
 421           fcpi(f, l, op, r4,r5,r0,r1,r2,r3, f0,f1,f2,f3,f4,f5)  \
 422           fcpr(f, l, op, r4,r5,r0,r1,r2,r3, f0,f1,f2,f3,f4,f5)  \
 423          fcprc(f, l, op, r4,r5,r0,r1,r2,r3, f0,f1,f2,f3,f4,f5)  \
 424           fcpi(f, l, op, r5,r0,r1,r2,r3,r4, f0,f1,f2,f3,f4,f5)  \
 425           fcpr(f, l, op, r5,r0,r1,r2,r3,r4, f0,f1,f2,f3,f4,f5)  \
 426          fcprc(f, l, op, r5,r0,r1,r2,r3,r4, f0,f1,f2,f3,f4,f5)
 427 #endif
 428 #if __ia64__
 429 #  define xfcp(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)  \
 430           ifcp(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)
 431 #else
 432 #  define xfcp(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)  \
 433           ifcp(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)  \
 434           ifcp(f, l, op, r0,r1,r2,r3,r4,r5, f1,f2,f3,f4,f5,f0)  \
 435           ifcp(f, l, op, r0,r1,r2,r3,r4,r5, f2,f3,f4,f5,f0,f1)  \
 436           ifcp(f, l, op, r0,r1,r2,r3,r4,r5, f3,f4,f5,f0,f1,f2)  \
 437           ifcp(f, l, op, r0,r1,r2,r3,r4,r5, f4,f5,f0,f1,f2,f3)  \
 438           ifcp(f, l, op, r0,r1,r2,r3,r4,r5, f5,f0,f1,f2,f3,f4)
 439 #endif
 440 #if __ia64__
 441 #  define fcmp(l, op)                                           \
 442           xfcp(_f, l, op, 0, 1, 2, 3, 4, 5, 0, 1, 2, 3, 4, 5)
 443 #else
 444 #  define fcmp(l, op)                                           \
 445           xfcp(_f, l, op, 0, 1, 2, 3, 4, 5, 0, 1, 2, 3, 4, 5)   \
 446           xfcp(_d, l, op, 0, 1, 2, 3, 4, 5, 0, 1, 2, 3, 4, 5)
 447 #endif
 448
 449 #define imvi(l, i0, i1, i2, i3, i4, i5)                         \
 450         setup()                                                 \
 451         movi %IR##i0 1                                          \
 452         check5(i, l, i1, i2, i3, i4, i5)
 453 #define imvr(l, i0, i1, i2, i3, i4, i5)                         \
 454         setup()                                                 \
 455         movi %IR##i1 1                                          \
 456         movr %IR##i0 %IR##i1                                    \
 457         check4(r, l, i2, i3, i4, i5)
 458 #define xmvi(l, i0, i1, i2, i3, i4, i5)                         \
 459         imvi(l, i0,     i1, i2, i3, i4, i5)                     \
 460         imvr(l, i0, i1, i2, i3, i4, i5)
 461 #if __ia64__
 462 #  define mvi(l)                                                \
 463          xmvi(l, 0, 1, 2, 3, 4, 5)
 464 #else
 465 #  define mvi(l)                                                \
 466          xmvi(l, 0, 1, 2, 3, 4, 5)                              \
 467          xmvi(l, 1, 2, 3, 4, 5, 0)                              \
 468          xmvi(l, 2, 3, 4, 5, 0, 1)                              \
 469          xmvi(l, 3, 4, 5, 0, 1, 2)                              \
 470          xmvi(l, 4, 5, 0, 1, 2, 3)                              \
 471          xmvi(l, 5, 0, 1, 2, 3, 4)
 472 #endif
 473
 474 #define fmvi(f, l, f0, f1, f2, f3, f4, f5)                      \
 475         setup##f()                                              \
 476         movi##f %FR##f0 1                                       \
 477         checkf5(f, i, l, f1, f2, f3, f4, f5)
 478 #define fmvr(f, l, f0, f1, f2, f3, f4, f5)                      \
 479         setup##f()                                              \
 480         movi##f %FR##f1 1                                       \
 481         movr##f %FR##f0 %FR##f1                                 \
 482         checkf4(f, r, l, f2, f3, f4, f5)
 483 #define xmvf(f, l, f0, f1, f2, f3, f4, f5)                      \
 484         fmvi(f, l, f0, f1, f2, f3, f4, f5)                      \
 485         fmvr(f, l, f0, f1,      f2, f3, f4, f5)
 486 #if __ia64__
 487 #  define xxmvf(f, l)                                           \
 488           xmvf(f, l, 0, 1, 2, 3, 4, 5)
 489 #else
 490 #  define xxmvf(f, l)                                           \
 491            xmvf(f, l, 0, 1, 2, 3, 4, 5)                         \
 492            xmvf(f, l, 1, 2, 3, 4, 5, 0)                         \
 493            xmvf(f, l, 2, 3, 4, 5, 0, 1)                         \
 494            xmvf(f, l, 3, 4, 5, 0, 1, 2)                         \
 495            xmvf(f, l, 4, 5, 0, 1, 2, 3)                         \
 496            xmvf(f, l, 5, 0, 1, 2, 3, 4)
 497 #endif
 498 #define   mvf(l)                                                \
 499         xxmvf(_f, l)                                            \
 500         xxmvf(_d, l)
 501
 502 #define f2fr(f, l, op, f0, f1, f2, f3, f4, f5)                  \
 503         setup##f()                                              \
 504         movi##f %FR##f0 1                                       \
 505         op %FR##f1 %FR##f0                                      \
 506         checkf4(f, rr, l, f2, f3, f4, f5)
 507 #define f2frc(f, l, op, f0, f1, f2, f3, f4, f5)                 \
 508         setup##f()                                              \
 509         movi##f %FR##f0 1                                       \
 510         op %FR##f0 %FR##f0                                      \
 511         checkf5(f, rc, l, f1, f2, f3, f4, f5)
 512 #define  xf2f(f, l, op, f0, f1, f2, f3, f4, f5)                 \
 513          f2fr(f, l, op, f0, f1, f2, f3, f4, f5)                 \
 514         f2frc(f, l, op, f0,             f1, f2, f3, f4, f5)
 515 #if __ia64__
 516 #  define f2f(l, f, op)                                         \
 517          xf2f(f, l, op, 0, 1, 2, 3, 4, 5)
 518 #else
 519 #  define f2f(l, f, op)                                         \
 520          xf2f(f, l, op, 0, 1, 2, 3, 4, 5)                       \
 521          xf2f(f, l, op, 1, 2, 3, 4, 5, 0)                       \
 522          xf2f(f, l, op, 2, 3, 4, 5, 0, 1)                       \
 523          xf2f(f, l, op, 3, 4, 5, 0, 1, 2)                       \
 524          xf2f(f, l, op, 4, 5, 0, 1, 2, 3)                       \
 525          xf2f(f, l, op, 5, 0, 1, 2, 3, 4)
 526 #endif
 527
 528 #define f2ir(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)    \
 529         setup()                                                 \
 530         setup##f()                                              \
 531         movi##f %FR##f0 1                                       \
 532         op##f %IR##r0 %FR##f0                                   \
 533         check5(r##f##f0, l, r1, r2, r3, r4, r5)                 \
 534         checkf5(f, i##r0, l, f1, f2, f3, f4, f5)
 535 #if __ia64__
 536 #  define if2i(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)  \
 537           f2ir(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)
 538 #  define xf2i(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)  \
 539           if2i(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)
 540 #else
 541 #  define if2i(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)  \
 542           f2ir(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)  \
 543           f2ir(f, l, op, r1,r2,r3,r4,r5,r0, f0,f1,f2,f3,f4,f5)  \
 544           f2ir(f, l, op, r2,r3,r4,r5,r0,r1, f0,f1,f2,f3,f4,f5)  \
 545           f2ir(f, l, op, r3,r4,r5,r0,r1,r2, f0,f1,f2,f3,f4,f5)  \
 546           f2ir(f, l, op, r4,r5,r0,r1,r2,r3, f0,f1,f2,f3,f4,f5)  \
 547           f2ir(f, l, op, r5,r0,r1,r2,r3,r4, f0,f1,f2,f3,f4,f5)
 548 #  define xf2i(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)  \
 549           if2i(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)  \
 550           if2i(f, l, op, r0,r1,r2,r3,r4,r5, f1,f2,f3,f4,f5,f0)  \
 551           if2i(f, l, op, r0,r1,r2,r3,r4,r5, f2,f3,f4,f5,f0,f1)  \
 552           if2i(f, l, op, r0,r1,r2,r3,r4,r5, f3,f4,f5,f0,f1,f2)  \
 553           if2i(f, l, op, r0,r1,r2,r3,r4,r5, f4,f5,f0,f1,f2,f3)  \
 554           if2i(f, l, op, r0,r1,r2,r3,r4,r5, f5,f0,f1,f2,f3,f4)
 555 #endif
 556 #define f2i(l, op)                                              \
 557         xf2i(_f, l, op, 0, 1, 2, 3, 4, 5, 0, 1, 2, 3, 4, 5)     \
 558         xf2i(_d, l, op, 0, 1, 2, 3, 4, 5, 0, 1, 2, 3, 4, 5)
 559
 560 #define i2fr(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)    \
 561         setup()                                                 \
 562         setup##f()                                              \
 563         movi %IR##r0 1                                          \
 564         op##f %FR##f0 %IR##r0                                   \
 565         check5(r##f##f0, l, r1, r2, r3, r4, r5)                 \
 566         checkf5(f, i##r0, l, f1, f2, f3, f4, f5)
 567 #if __ia64__
 568 #  define ii2f(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)  \
 569           i2fr(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)
 570 #  define xi2f(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)  \
 571           ii2f(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)
 572 #else
 573 #  define ii2f(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)  \
 574           i2fr(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)  \
 575           i2fr(f, l, op, r1,r2,r3,r4,r5,r0, f0,f1,f2,f3,f4,f5)  \
 576           i2fr(f, l, op, r2,r3,r4,r5,r0,r1, f0,f1,f2,f3,f4,f5)  \
 577           i2fr(f, l, op, r3,r4,r5,r0,r1,r2, f0,f1,f2,f3,f4,f5)  \
 578           i2fr(f, l, op, r4,r5,r0,r1,r2,r3, f0,f1,f2,f3,f4,f5)  \
 579           i2fr(f, l, op, r5,r0,r1,r2,r3,r4, f0,f1,f2,f3,f4,f5)
 580 #  define xi2f(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)  \
 581           ii2f(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)  \
 582           ii2f(f, l, op, r0,r1,r2,r3,r4,r5, f1,f2,f3,f4,f5,f0)  \
 583           ii2f(f, l, op, r0,r1,r2,r3,r4,r5, f2,f3,f4,f5,f0,f1)  \
 584           ii2f(f, l, op, r0,r1,r2,r3,r4,r5, f3,f4,f5,f0,f1,f2)  \
 585           ii2f(f, l, op, r0,r1,r2,r3,r4,r5, f4,f5,f0,f1,f2,f3)  \
 586           ii2f(f, l, op, r0,r1,r2,r3,r4,r5, f5,f0,f1,f2,f3,f4)
 587 #endif
 588 #define i2f(l, op)                                              \
 589         xi2f(_f, l, op, 0, 1, 2, 3, 4, 5, 0, 1, 2, 3, 4, 5)     \
 590         xi2f(_d, l, op, 0, 1, 2, 3, 4, 5, 0, 1, 2, 3, 4, 5)
 591
 592 #define off_c           1
 593 #define off_uc          off_c
 594 #define off_s           2
 595 #define off_us          off_s
 596 #define off_i           4
 597 #define off_ui          off_i
 598 #define off_l           8
 599 #define off_f           4
 600 #define off_d           8
 601
 602 #define ildi(i, l, r0, r1, r2, r3, r4, r5)                      \
 603         setup()                                                 \
 604         ldi##i %IR##r0 buff                                     \
 605         check5(ldi##i, l, r1, r2, r3, r4, r5)
 606 #define ildr(i, l, r0, r1, r2, r3, r4, r5)                      \
 607         setup()                                                 \
 608         movi %IR##r1 buff                                       \
 609         ldr##i %IR##r0 %IR##r1                                  \
 610         check4(ldr##i, l, r2, r3, r4, r5)
 611 #define ildr0(i, l, r0, r1, r2, r3, r4, r5)                     \
 612         setup()                                                 \
 613         movi %IR##r0 buff                                       \
 614         ldr##i %IR##r0 %IR##r0                                  \
 615         check5(ldr##i, l, r1, r2, r3, r4, r5)
 616 #define ildxi(i, l, r0, r1, r2, r3, r4, r5)                     \
 617         setup()                                                 \
 618         movi %IR##r1 buff                                       \
 619         ldxi##i %IR##r0 %IR##r1 off##i                          \
 620         check4(ldxi##i, l, r2, r3, r4, r5)
 621 #define ildxr(i, l, r0, r1, r2, r3, r4, r5)                     \
 622         setup()                                                 \
 623         movi %IR##r1 buff                                       \
 624         movi %IR##r2 off##i                                     \
 625         ldxr##i %IR##r0 %IR##r1 %IR##r2                         \
 626         check3(ldxr##i, l, r3, r4, r5)
 627 #define ildxr0(i, l, r0, r1, r2, r3, r4, r5)                    \
 628         setup()                                                 \
 629         movi %IR##r1 buff                                       \
 630         movi %IR##r0 off##i                                     \
 631         ldxr##i %IR##r0 %IR##r1 %IR##r0                         \
 632         check4(ldxr0##i, l, r2, r3, r4, r5)
 633 #define ildxr1(i, l, r0, r1, r2, r3, r4, r5)                    \
 634         setup()                                                 \
 635         movi %IR##r0 buff                                       \
 636         movi %IR##r1 off##i                                     \
 637         ldxr##i %IR##r0 %IR##r0 %IR##r1                         \
 638         check4(ldxr1##i, l, r2, r3, r4, r5)
 639 #define  xxldi(i, l, r0, r1, r2, r3, r4, r5)                    \
 640           ildi(i, l, r0, r1, r2, r3, r4, r5)                    \
 641           ildr(i, l, r0, r1, r2, r3, r4, r5)                    \
 642          ildr0(i, l, r0, r1, r2, r3, r4, r5)                    \
 643          ildxi(i, l, r0, r1, r2, r3, r4, r5)                    \
 644          ildxr(i, l, r0, r1, r2, r3, r4, r5)                    \
 645         ildxr0(i, l, r0, r1, r2, r3, r4, r5)                    \
 646         ildxr1(i, l, r0, r1, r2, r3, r4, r5)
 647 #if __WORDSIZE == 32
 648 #define xxxldi(l, r0, r1, r2, r3, r4, r5)
 649 #else
 650 #define xxxldi(l, r0, r1, r2, r3, r4, r5)                       \
 651          xxldi(_ui, l, r0, r1, r2, r3, r4, r5)                  \
 652          xxldi( _l, l, r0, r1, r2, r3, r4, r5)
 653 #endif
 654 #define   xldi(l, r0, r1, r2, r3, r4, r5)                       \
 655          xxldi( _c, l, r0, r1, r2, r3, r4, r5)                  \
 656          xxldi(_uc, l, r0, r1, r2, r3, r4, r5)                  \
 657          xxldi( _s, l, r0, r1, r2, r3, r4, r5)                  \
 658          xxldi(_us, l, r0, r1, r2, r3, r4, r5)                  \
 659          xxldi( _i, l, r0, r1, r2, r3, r4, r5)                  \
 660         xxxldi(l, r0, r1, r2, r3, r4, r5)
 661 #if __ia64__
 662 #  define ldi(l)                                                \
 663          xldi(l, 0, 1, 2, 3, 4, 5)
 664 #else
 665 #  define ldi(l)                                                \
 666          xldi(l, 0, 1, 2, 3, 4, 5)                              \
 667          xldi(l, 1, 2, 3, 4, 5, 0)                              \
 668          xldi(l, 2, 3, 4, 5, 0, 1)                              \
 669          xldi(l, 3, 4, 5, 0, 1, 2)                              \
 670          xldi(l, 4, 5, 0, 1, 2, 3)                              \
 671          xldi(l, 5, 0, 1, 2, 3, 4)
 672 #endif
 673
 674 #define fldi(f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)        \
 675         setup()                                                 \
 676         setup##f()                                              \
 677         ldi##f %FR##f0 buff                                     \
 678         check6(ldi##f##r0##f0, l, r0, r1, r2, r3, r4, r5)       \
 679         checkf5(f, ldi##r0##f0, l, f1, f2, f3, f4, f5)
 680 #define fldr(f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)        \
 681         setup()                                                 \
 682         setup##f()                                              \
 683         movi %IR##r0 buff                                       \
 684         ldr##f %FR##f0 %IR##r0                                  \
 685         check5(ldr##f##r0##f0, l, r1, r2, r3, r4, r5)           \
 686         checkf5(f, ldr##r0##f0, l, f1, f2, f3, f4, f5)
 687 #define fldxi(f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)       \
 688         setup()                                                 \
 689         setup##f()                                              \
 690         movi %IR##r0 buff                                       \
 691         ldxi##f %FR##f0 %IR##r0 off##f                          \
 692         check5(ldxi##f##r0##f0, l, r1, r2, r3, r4, r5)          \
 693         checkf5(f, ldxi##r0##f0, l, f1, f2, f3, f4, f5)
 694 #define fldxr(f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)       \
 695         setup()                                                 \
 696         setup##f()                                              \
 697         movi %IR##r0 buff                                       \
 698         movi %IR##r1 off##f                                     \
 699         ldxr##f %FR##f0 %IR##r0 %IR##r1                         \
 700         check4(ldxr##f##r0##f0, l, r2, r3, r4, r5)              \
 701         checkf5(f, ldxr##r0##f0, l, f1, f2, f3, f4, f5)
 702 #define   xldf(f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)      \
 703         fldi(f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)        \
 704         fldr(f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)        \
 705         fldxi(f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)       \
 706         fldxr(f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)
 707 #define  xxldf(l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)         \
 708           xldf(_f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)     \
 709           xldf(_d, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)
 710 #if __ia64__
 711 #  define ixldf(l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)        \
 712           xxldf(l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)
 713 #else
 714 #  define fxldf(l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)        \
 715           xxldf(l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)        \
 716           xxldf(l, r0,r1,r2,r3,r4,r5, f1,f2,f3,f4,f5,f0)        \
 717           xxldf(l, r0,r1,r2,r3,r4,r5, f2,f3,f4,f5,f0,f1)        \
 718           xxldf(l, r0,r1,r2,r3,r4,r5, f3,f4,f5,f0,f1,f2)        \
 719           xxldf(l, r0,r1,r2,r3,r4,r5, f4,f5,f0,f1,f2,f3)        \
 720           xxldf(l, r0,r1,r2,r3,r4,r5, f5,f0,f1,f2,f3,f4)
 721 #  define ixldf(l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)        \
 722           fxldf(l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)        \
 723           fxldf(l, r1,r2,r3,r4,r5,r0, f0,f1,f2,f3,f4,f5)        \
 724           fxldf(l, r2,r3,r4,r5,r0,r1, f0,f1,f2,f3,f4,f5)        \
 725           fxldf(l, r3,r4,r5,r0,r1,r2, f0,f1,f2,f3,f4,f5)        \
 726           fxldf(l, r4,r5,r0,r1,r2,r3, f0,f1,f2,f3,f4,f5)        \
 727           fxldf(l, r5,r0,r1,r2,r3,r4, f0,f1,f2,f3,f4,f5)
 728 #endif
 729 #define   ldf(l)                                                \
 730         ixldf(l, 0,1,2,3,4,5, 0,1,2,3,4,5)
 731
 732 #define isti(i, l, r0, r1, r2, r3, r4, r5)                      \
 733         setup()                                                 \
 734         sti##i buff %IR##r0                                     \
 735         check5(sti##i, l, r1, r2, r3, r4, r5)
 736 #define istr(i, l, r0, r1, r2, r3, r4, r5)                      \
 737         setup()                                                 \
 738         movi %IR##r1 buff                                       \
 739         str##i %IR##r1 %IR##r0                                  \
 740         check4(str##i, l, r2, r3, r4, r5)
 741 #define istr0(i, l, r0, r1, r2, r3, r4, r5)                     \
 742         setup()                                                 \
 743         movi %IR##r1 buff                                       \
 744         str##i %IR##r1 %IR##r0                                  \
 745         check4(str0##i, l, r2, r3, r4, r5)
 746 #define istxi(i, l, r0, r1, r2, r3, r4, r5)                     \
 747         setup()                                                 \
 748         movi %IR##r1 buff                                       \
 749         stxi##i off##i %IR##r1 %IR##r0                          \
 750         check4(stxi##i, l, r2, r3, r4, r5)
 751 #define istxr(i, l, r0, r1, r2, r3, r4, r5)                     \
 752         setup()                                                 \
 753         movi %IR##r1 buff                                       \
 754         movi %IR##r2 off##i                                     \
 755         stxr##i %IR##r2 %IR##r1 %IR##r0                         \
 756         check3(stxr##i, l, r3, r4, r5)
 757 #define istxr0(i, l, r0, r1, r2, r3, r4, r5)                    \
 758         setup()                                                 \
 759         movi %IR##r1 buff                                       \
 760         movi %IR##r0 off##i                                     \
 761         stxr##i %IR##r0 %IR##r1 %IR##r0                         \
 762         check4(stxr0##i, l, r2, r3, r4, r5)
 763 #define istxr1(i, l, r0, r1, r2, r3, r4, r5)                    \
 764         setup()                                                 \
 765         movi %IR##r0 buff                                       \
 766         movi %IR##r1 off##i                                     \
 767         stxr##i %IR##r1 %IR##r0 %IR##r0                         \
 768         check4(stxr1##i, l, r2, r3, r4, r5)
 769 #define  xxsti(i, l, r0, r1, r2, r3, r4, r5)                    \
 770           isti(i, l, r0, r1, r2, r3, r4, r5)                    \
 771           istr(i, l, r0, r1, r2, r3, r4, r5)                    \
 772          istr0(i, l, r0, r1, r2, r3, r4, r5)                    \
 773          istxi(i, l, r0, r1, r2, r3, r4, r5)                    \
 774          istxr(i, l, r0, r1, r2, r3, r4, r5)                    \
 775         istxr0(i, l, r0, r1, r2, r3, r4, r5)                    \
 776         istxr1(i, l, r0, r1, r2, r3, r4, r5)
 777 #if __WORDSIZE == 32
 778 #define xxxsti(l, r0, r1, r2, r3, r4, r5)
 779 #else
 780 #define xxxsti(l, r0, r1, r2, r3, r4, r5)                       \
 781          xxsti( _l, l, r0, r1, r2, r3, r4, r5)
 782 #endif
 783 #define   xsti(l, r0, r1, r2, r3, r4, r5)                       \
 784          xxsti( _c, l, r0, r1, r2, r3, r4, r5)                  \
 785          xxsti( _s, l, r0, r1, r2, r3, r4, r5)                  \
 786          xxsti( _i, l, r0, r1, r2, r3, r4, r5)                  \
 787         xxxsti(l, r0, r1, r2, r3, r4, r5)
 788 #if __ia64__
 789 #  define sti(l)                                                \
 790          xsti(l, 0, 1, 2, 3, 4, 5)
 791 #else
 792 #  define sti(l)                                                \
 793          xsti(l, 0, 1, 2, 3, 4, 5)                              \
 794          xsti(l, 1, 2, 3, 4, 5, 0)                              \
 795          xsti(l, 2, 3, 4, 5, 0, 1)                              \
 796          xsti(l, 3, 4, 5, 0, 1, 2)                              \
 797          xsti(l, 4, 5, 0, 1, 2, 3)                              \
 798          xsti(l, 5, 0, 1, 2, 3, 4)
 799 #endif
 800
 801 #define fsti(f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)        \
 802         setup()                                                 \
 803         setup##f()                                              \
 804         sti##f buff %FR##f0                                     \
 805         check6(sti##f##r0##f0, l, r0, r1, r2, r3, r4, r5)       \
 806         checkf5(f, sti##r0##f0, l, f1, f2, f3, f4, f5)
 807 #define fstr(f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)        \
 808         setup()                                                 \
 809         setup##f()                                              \
 810         movi %IR##r0 buff                                       \
 811         str##f %IR##r0 %FR##f0                                  \
 812         check5(str##f##r0##f0, l, r1, r2, r3, r4, r5)           \
 813         checkf5(f, str##r0##f0, l, f1, f2, f3, f4, f5)
 814 #define fstxi(f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)       \
 815         setup()                                                 \
 816         setup##f()                                              \
 817         movi %IR##r0 buff                                       \
 818         stxi##f off##f %IR##r0 %FR##f0                          \
 819         check5(stxi##f##r0##f0, l, r1, r2, r3, r4, r5)          \
 820         checkf5(f, stxi##r0##f0, l, f1, f2, f3, f4, f5)
 821 #define fstxr(f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)       \
 822         setup()                                                 \
 823         setup##f()                                              \
 824         movi %IR##r0 buff                                       \
 825         movi %IR##r1 off##f                                     \
 826         stxr##f %IR##r1 %IR##r0 %FR##f0                         \
 827         check4(stxr##f##r0##f0, l, r2, r3, r4, r5)              \
 828         checkf5(f, stxr##r0##f0, l, f1, f2, f3, f4, f5)
 829 #define   xstf(f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)      \
 830         fsti(f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)        \
 831         fstr(f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)        \
 832         fstxi(f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)       \
 833         fstxr(f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)
 834 #define  xxstf(l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)         \
 835           xstf(_f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)     \
 836           xstf(_d, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)
 837 #if __ia64__
 838 #  define ixstf(l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)        \
 839           xxstf(l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)
 840 #else
 841 #  define fxstf(l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)        \
 842           xxstf(l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)        \
 843           xxstf(l, r0,r1,r2,r3,r4,r5, f1,f2,f3,f4,f5,f0)        \
 844           xxstf(l, r0,r1,r2,r3,r4,r5, f2,f3,f4,f5,f0,f1)        \
 845           xxstf(l, r0,r1,r2,r3,r4,r5, f3,f4,f5,f0,f1,f2)        \
 846           xxstf(l, r0,r1,r2,r3,r4,r5, f4,f5,f0,f1,f2,f3)        \
 847           xxstf(l, r0,r1,r2,r3,r4,r5, f5,f0,f1,f2,f3,f4)
 848 # define ixstf(l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)         \
 849           fxstf(l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)        \
 850           fxstf(l, r1,r2,r3,r4,r5,r0, f0,f1,f2,f3,f4,f5)        \
 851           fxstf(l, r2,r3,r4,r5,r0,r1, f0,f1,f2,f3,f4,f5)        \
 852           fxstf(l, r3,r4,r5,r0,r1,r2, f0,f1,f2,f3,f4,f5)        \
 853           fxstf(l, r4,r5,r0,r1,r2,r3, f0,f1,f2,f3,f4,f5)        \
 854           fxstf(l, r5,r0,r1,r2,r3,r4, f0,f1,f2,f3,f4,f5)
 855 #endif
 856 #define   stf(l)                                                \
 857         ixstf(l, 0,1,2,3,4,5, 0,1,2,3,4,5)
 858
 859 /* Need a valid jump or simple optimization will remove it */
 860 #define bri(l, op, u, il, ir, r0, r1, r2, r3, r4, r5)           \
 861         setup()                                                 \
 862         movi %IR##r0 il                                         \
 863         b##op##i##u i##l##op##r0 %IR##r0 ir                     \
 864         calli @abort                                            \
 865 i##l##op##r0:                                                   \
 866         check5(i, l, r1, r2, r3, r4, r5)
 867 #define brr(l, op, u, il, ir, r0, r1, r2, r3, r4, r5)           \
 868         setup()                                                 \
 869         movi %IR##r0 il                                         \
 870         movi %IR##r1 ir                                         \
 871         b##op##r##u r##l##op##r0 %IR##r0 %IR##r1                \
 872         calli @abort                                            \
 873 r##l##op##r0:                                                   \
 874         check4(r, l, r2, r3, r4, r5)
 875 #define  xjmpi(l, op, u, il, ir, r0, r1, r2, r3, r4, r5)        \
 876            bri(l, op, u, il, ir, r0, r1, r2, r3, r4, r5)        \
 877            brr(l, op, u, il, ir, r0, r1, r2, r3, r4, r5)
 878 #if __ia64__
 879 #  define jmpi(l, op, u, il, ir)                                \
 880          xjmpi(l, op, u, il, ir, 0, 1, 2, 3, 4, 5)
 881 #else
 882 #  define jmpi(l, op, u, il, ir)                                \
 883          xjmpi(l, op, u, il, ir, 0, 1, 2, 3, 4, 5)              \
 884          xjmpi(l, op, u, il, ir, 1, 2, 3, 4, 5, 0)              \
 885          xjmpi(l, op, u, il, ir, 2, 3, 4, 5, 0, 1)              \
 886          xjmpi(l, op, u, il, ir, 3, 4, 5, 0, 1, 2)              \
 887          xjmpi(l, op, u, il, ir, 4, 5, 0, 1, 2, 3)              \
 888          xjmpi(l, op, u, il, ir, 5, 0, 1, 2, 3, 4)
 889 #endif
 890
 891 #define bfi(f, l, op, il, ir, f0, f1, f2, f3, f4, f5)           \
 892         setup##f()                                              \
 893         movi##f %FR##f0 il                                      \
 894         b##op##i##f i##l##op##f##f0 %FR##f0 ir                  \
 895         calli @abort                                            \
 896 i##l##op##f##f0:                                                \
 897         checkf5(f, i, l, f1, f2, f3, f4, f5)
 898 #define bff(f, l, op, il, ir, f0, f1, f2, f3, f4, f5)           \
 899         setup##f()                                              \
 900         movi##f %FR##f0 il                                      \
 901         movi##f %FR##f1 ir                                      \
 902         b##op##r##f r##l##op##f##f0 %FR##f0 %FR##f1             \
 903         calli @abort                                            \
 904 r##l##op##f##f0:                                                \
 905         checkf4(f, r, l, f2, f3, f4, f5)
 906 #define  xjmpf(f, l, op, il, ir, f0, f1, f2, f3, f4, f5)        \
 907            bfi(f, l, op, il, ir, f0, f1, f2, f3, f4, f5)        \
 908            bff(f, l, op, il, ir, f0, f1, f2, f3, f4, f5)
 909 #define xxjmpf(l, op, il, ir, f0, f1, f2, f3, f4, f5)           \
 910          xjmpf(_f, l, op, il, ir, f0, f1, f2, f3, f4, f5)       \
 911          xjmpf(_d, l, op, il, ir, f0, f1, f2, f3, f4, f5)
 912 #if __ia64__
 913 #  define jmpf(l, op, il, ir)                                   \
 914         xxjmpf(l, op, il, ir, 0, 1, 2, 3, 4, 5)
 915 #else
 916 #  define jmpf(l, op, il, ir)                                   \
 917         xxjmpf(l, op, il, ir, 0, 1, 2, 3, 4, 5)                 \
 918         xxjmpf(l, op, il, ir, 1, 2, 3, 4, 5, 0)                 \
 919         xxjmpf(l, op, il, ir, 2, 3, 4, 5, 0, 1)                 \
 920         xxjmpf(l, op, il, ir, 3, 4, 5, 0, 1, 2)                 \
 921         xxjmpf(l, op, il, ir, 4, 5, 0, 1, 2, 3)                 \
 922         xxjmpf(l, op, il, ir, 5, 0, 1, 2, 3, 4)
 923 #endif
 924
 925 .data   32
 926 buff:
 927 .size   16
 928 ok:
 929 .c      "ok\n"
 930
 931 .code
 932         prolog
 933
 934           alu(__LINE__, add)
 935          alux(__LINE__, add)
 936           fop(__LINE__, add)
 937           alu(__LINE__, sub)
 938          alux(__LINE__, sub)
 939           fop(__LINE__, sub)
 940           alu(__LINE__, mul)
 941           fop(__LINE__, mul)
 942           alu(__LINE__, div)
 943         alu_u(__LINE__, div)
 944           fop(__LINE__, div)
 945           alu(__LINE__, rem)
 946         alu_u(__LINE__, rem)
 947           alu(__LINE__, and)
 948           alu(__LINE__, or)
 949           alu(__LINE__, xor)
 950           alu(__LINE__, lsh)
 951           alu(__LINE__, rsh)
 952         alu_u(__LINE__, rsh)
 953           uni(__LINE__, negr)
 954           unf(__LINE__, negr)
 955           uni(__LINE__, comr)
 956           unf(__LINE__, absr)
 957           unf(__LINE__, sqrtr)
 958           alu(__LINE__, lt)
 959         alu_u(__LINE__, lt)
 960          fcmp(__LINE__, lt)
 961           alu(__LINE__, le)
 962         alu_u(__LINE__, le)
 963          fcmp(__LINE__, le)
 964           alu(__LINE__, eq)
 965          fcmp(__LINE__, eq)
 966           alu(__LINE__, ge)
 967         alu_u(__LINE__, ge)
 968          fcmp(__LINE__, ge)
 969           alu(__LINE__, gt)
 970         alu_u(__LINE__, gt)
 971          fcmp(__LINE__, gt)
 972           alu(__LINE__, ne)
 973          fcmp(__LINE__, ne)
 974          fcmp(__LINE__, unlt)
 975          fcmp(__LINE__, unle)
 976          fcmp(__LINE__, uneq)
 977          fcmp(__LINE__, unge)
 978          fcmp(__LINE__, ungt)
 979          fcmp(__LINE__, ltgt)
 980          fcmp(__LINE__, ord)
 981          fcmp(__LINE__, unord)
 982           mvi(__LINE__)
 983           mvf(__LINE__)
 984           uni(__LINE__, extr_c)
 985           uni(__LINE__, extr_uc)
 986           uni(__LINE__, extr_s)
 987           uni(__LINE__, extr_us)
 988 #if __WORDSIZE == 64
 989           uni(__LINE__, extr_ui)
 990 #endif
 991           uni(__LINE__, htonr)
 992           f2f(__LINE__, _f, extr_d_f)
 993           f2f(__LINE__, _d, extr_f_d)
 994           f2i(__LINE__, truncr)
 995           i2f(__LINE__, extr)
 996           ldi(__LINE__)
 997           ldf(__LINE__)
 998           sti(__LINE__)
 999           stf(__LINE__)
1000          jmpi(__LINE__, lt,   ,  0,  1)
1001          jmpi(__LINE__, lt, _u,  0,  1)
1002          jmpf(__LINE__, lt,      0,  1)
1003          jmpi(__LINE__, le,   ,  1,  1)
1004          jmpi(__LINE__, le, _u,  1,  1)
1005          jmpf(__LINE__, le,      1,  1)
1006          jmpi(__LINE__, eq,   , -1, -1)
1007          jmpf(__LINE__, eq,     -1, -1)
1008          jmpi(__LINE__, ge,   ,  2,  2)
1009          jmpi(__LINE__, ge, _u,  2,  2)
1010          jmpf(__LINE__, ge,      2,  2)
1011          jmpi(__LINE__, gt,   ,  2,  1)
1012          jmpi(__LINE__, gt, _u,  2,  1)
1013          jmpf(__LINE__, gt,      2,  1)
1014          jmpi(__LINE__, ne,   ,  3,  2)
1015          jmpf(__LINE__, ne,      3,  2)
1016          jmpi(__LINE__, ms, , 1, 1)
1017          jmpi(__LINE__, mc, , 1, 2)
1018 #if __WORDSIZE == 32
1019 #  define ix7f          0x7fffffff
1020 #  define ix80          0x80000000
1021 #  define ixff          0xffffffff
1022 #else
1023 #  define ix7f          0x7fffffffffffffff
1024 #  define ix80          0x8000000000000000
1025 #  define ixff          0xffffffffffffffff
1026 #endif
1027          jmpi(__LINE__, oadd,   , ix7f, 1)
1028          jmpi(__LINE__, oadd, _u, ixff, 1)
1029          jmpi(__LINE__, xadd,   , ix80, 1)
1030          jmpi(__LINE__, xadd, _u, ix7f, 1)
1031          jmpi(__LINE__, osub,   , ix80, 1)
1032          jmpi(__LINE__, osub, _u,    0, 1)
1033          jmpi(__LINE__, xsub,   , ix7f, 1)
1034          jmpi(__LINE__, xsub, _u, ix80, 1)
1035          jmpf(__LINE__, unlt,        0, 1)
1036          jmpf(__LINE__, unle,        1, 1)
1037          jmpf(__LINE__, uneq,        2, 2)
1038          jmpf(__LINE__, unge,        3, 3)
1039          jmpf(__LINE__, ungt,        4, 3)
1040          jmpf(__LINE__, ltgt,        5, 4)
1041          jmpf(__LINE__, ord,         0, 0)
1042          jmpf(__LINE__, unord,       0, $(0.0 / 0.0))
1043
1044         prepare
1045                 pushargi ok
1046                 ellipsis
1047         finishi @printf
1048
1049         ret
1050         epilog