deps/lightning/check/ranger.tst

   1 #define M64     67108864
   2
   3 #define aB1     (1<<1)
   4 #define aB2     (1<<2)
   5 #define aB3     (1<<3)
   6 #define aB4     (1<<4)
   7 #define aB5     (1<<5)
   8 #define aB6     (1<<6)
   9 #define aB7     (1<<7)
  10 #define aB8     (1<<8)
  11 #define aB9     (1<<9)
  12 #define aB10    (1<<10)
  13 #define aB11    (1<<11)
  14 #define aB12    (1<<12)
  15 #define aB13    (1<<13)
  16 #define aB14    (1<<14)
  17 #define aB15    (1<<15)
  18 #define aB16    (1<<16)
  19 #define aB17    (1<<17)
  20 #define aB18    (1<<18)
  21 #define aB19    (1<<19)
  22 #define aB20    (1<<20)
  23 #define aB21    (1<<21)
  24 #define aB22    (1<<22)
  25 #define aB23    (1<<23)
  26 #define aB24    (1<<24)
  27 #define aB25    (1<<25)
  28 #define aB26    (1<<26)
  29 #define bB1     (-aB1)
  30 #define bB2     (-aB2)
  31 #define bB3     (-aB3)
  32 #define bB4     (-aB4)
  33 #define bB5     (-aB5)
  34 #define bB6     (-aB6)
  35 #define bB7     (-aB7)
  36 #define bB8     (-aB8)
  37 #define bB9     (-aB9)
  38 #define bB10    (-aB10)
  39 #define bB11    (-aB11)
  40 #define bB12    (-aB12)
  41 #define bB13    (-aB13)
  42 #define bB14    (-aB14)
  43 #define bB15    (-aB15)
  44 #define bB16    (-aB16)
  45 #define bB17    (-aB17)
  46 #define bB18    (-aB18)
  47 #define bB19    (-aB19)
  48 #define bB20    (-aB20)
  49 #define bB21    (-aB21)
  50 #define bB22    (-aB22)
  51 #define bB23    (-aB23)
  52 #define bB24    (-aB24)
  53 #define bB25    (-aB25)
  54 #define bB26    (-aB26)
  55 #define cB1     (aB1-1)
  56 #define cB2     (aB2-1)
  57 #define cB3     (aB3-1)
  58 #define cB4     (aB4-1)
  59 #define cB5     (aB5-1)
  60 #define cB6     (aB6-1)
  61 #define cB7     (aB7-1)
  62 #define cB8     (aB8-1)
  63 #define cB9     (aB9-1)
  64 #define cB10    (aB10-1)
  65 #define cB11    (aB11-1)
  66 #define cB12    (aB12-1)
  67 #define cB13    (aB13-1)
  68 #define cB14    (aB14-1)
  69 #define cB15    (aB15-1)
  70 #define cB16    (aB16-1)
  71 #define cB17    (aB17-1)
  72 #define cB18    (aB18-1)
  73 #define cB19    (aB19-1)
  74 #define cB20    (aB20-1)
  75 #define cB21    (aB21-1)
  76 #define cB22    (aB22-1)
  77 #define cB23    (aB23-1)
  78 #define cB24    (aB24-1)
  79 #define cB25    (aB25-1)
  80 #define cB26    (aB26-1)
  81 #define dB1     (-aB1+1)
  82 #define dB2     (-aB2+1)
  83 #define dB3     (-aB3+1)
  84 #define dB4     (-aB4+1)
  85 #define dB5     (-aB5+1)
  86 #define dB6     (-aB6+1)
  87 #define dB7     (-aB7+1)
  88 #define dB8     (-aB8+1)
  89 #define dB9     (-aB9+1)
  90 #define dB10    (-aB10+1)
  91 #define dB11    (-aB11+1)
  92 #define dB12    (-aB12+1)
  93 #define dB13    (-aB13+1)
  94 #define dB14    (-aB14+1)
  95 #define dB15    (-aB15+1)
  96 #define dB16    (-aB16+1)
  97 #define dB17    (-aB17+1)
  98 #define dB18    (-aB18+1)
  99 #define dB19    (-aB19+1)
 100 #define dB20    (-aB20+1)
 101 #define dB21    (-aB21+1)
 102 #define dB22    (-aB22+1)
 103 #define dB23    (-aB23+1)
 104 #define dB24    (-aB24+1)
 105 #define dB25    (-aB25+1)
 106 #define dB26    (-aB26+1)
 107
 108 #define add(a, b)               $(a + b)
 109 #define sub(a, b)               $(a - b)
 110 #define rsb(a, b)               $(b - a)
 111 #define mul(a, b)               $(a * b)
 112 #define div(a, b)               $(a / b)
 113 #define rem(a, b)               $(a % b)
 114 #define and(a, b)               $(a & b)
 115 #define or(a, b)                $(a | b)
 116 #define xor(a, b)               $(a ^ b)
 117
 118 #define alu2(N, X, L, R, V)                                     \
 119         movi %r1 L                                              \
 120         movi %r2 R                                              \
 121         N##r %r0 %r1 %r2                                        \
 122         beqi X %r0 V                                            \
 123         calli @abort                                            \
 124 X:
 125 #define alu1(N, M)                                              \
 126         alu2(N, N##M##1, 3, $(M##1), N(3, M##1))                \
 127         alu2(N, N##M##2, 3, $(M##2), N(3, M##2))                \
 128         alu2(N, N##M##3, 3, $(M##3), N(3, M##3))                \
 129         alu2(N, N##M##4, 3, $(M##4), N(3, M##4))                \
 130         alu2(N, N##M##5, 3, $(M##5), N(3, M##5))                \
 131         alu2(N, N##M##6, 3, $(M##6), N(3, M##6))                \
 132         alu2(N, N##M##7, 3, $(M##7), N(3, M##7))                \
 133         alu2(N, N##M##8, 3, $(M##8), N(3, M##8))                \
 134         alu2(N, N##M##9, 3, $(M##9), N(3, M##9))                \
 135         alu2(N, N##M##10, 3, $(M##10), N(3, M##10))             \
 136         alu2(N, N##M##11, 3, $(M##11), N(3, M##11))             \
 137         alu2(N, N##M##12, 3, $(M##12), N(3, M##12))             \
 138         alu2(N, N##M##13, 3, $(M##13), N(3, M##13))             \
 139         alu2(N, N##M##14, 3, $(M##14), N(3, M##14))             \
 140         alu2(N, N##M##15, 3, $(M##15), N(3, M##15))             \
 141         alu2(N, N##M##16, 3, $(M##16), N(3, M##16))             \
 142         alu2(N, N##M##17, 3, $(M##17), N(3, M##17))             \
 143         alu2(N, N##M##18, 3, $(M##18), N(3, M##18))             \
 144         alu2(N, N##M##19, 3, $(M##19), N(3, M##19))             \
 145         alu2(N, N##M##20, 3, $(M##20), N(3, M##20))             \
 146         alu2(N, N##M##21, 3, $(M##21), N(3, M##21))             \
 147         alu2(N, N##M##22, 3, $(M##22), N(3, M##22))             \
 148         alu2(N, N##M##23, 3, $(M##23), N(3, M##23))             \
 149         alu2(N, N##M##24, 3, $(M##24), N(3, M##24))             \
 150         alu2(N, N##M##25, 3, $(M##25), N(3, M##25))             \
 151         alu2(N, N##M##26, 3, $(M##26), N(3, M##26))
 152
 153 #define alu(N)                                                  \
 154         alu1(N, aB)                                             \
 155         alu1(N, bB)                                             \
 156         alu1(N, cB)                                             \
 157         alu1(N, dB)
 158
 159 #define _lsh(N)                                                 \
 160         alu2(lsh, L##N, 3, N, $(3<<N))
 161 #define _rsh(N)                                                 \
 162         alu2(rsh, R##N, $(1<<63), N, $((1<<63)>>N))
 163
 164 #if __WORDSIZE == 32
 165 #  define xsh64(X)                      /**/
 166 #else
 167 #  define xsh64(X)                                              \
 168         _##X##sh(32)                                            \
 169         _##X##sh(33)                                            \
 170         _##X##sh(34)                                            \
 171         _##X##sh(35)                                            \
 172         _##X##sh(36)                                            \
 173         _##X##sh(37)                                            \
 174         _##X##sh(38)                                            \
 175         _##X##sh(39)                                            \
 176         _##X##sh(40)                                            \
 177         _##X##sh(41)                                            \
 178         _##X##sh(42)                                            \
 179         _##X##sh(43)                                            \
 180         _##X##sh(44)                                            \
 181         _##X##sh(45)                                            \
 182         _##X##sh(46)                                            \
 183         _##X##sh(47)                                            \
 184         _##X##sh(48)                                            \
 185         _##X##sh(49)                                            \
 186         _##X##sh(50)                                            \
 187         _##X##sh(51)                                            \
 188         _##X##sh(52)                                            \
 189         _##X##sh(53)                                            \
 190         _##X##sh(54)                                            \
 191         _##X##sh(55)                                            \
 192         _##X##sh(56)                                            \
 193         _##X##sh(57)                                            \
 194         _##X##sh(58)                                            \
 195         _##X##sh(59)                                            \
 196         _##X##sh(60)                                            \
 197         _##X##sh(61)                                            \
 198         _##X##sh(62)                                            \
 199         _##X##sh(63)
 200 #endif
 201
 202 #define xsh(X)                                                  \
 203         _##X##sh(0)                                             \
 204         _##X##sh(1)                                             \
 205         _##X##sh(2)                                             \
 206         _##X##sh(3)                                             \
 207         _##X##sh(4)                                             \
 208         _##X##sh(5)                                             \
 209         _##X##sh(6)                                             \
 210         _##X##sh(7)                                             \
 211         _##X##sh(8)                                             \
 212         _##X##sh(9)                                             \
 213         _##X##sh(10)                                            \
 214         _##X##sh(11)                                            \
 215         _##X##sh(12)                                            \
 216         _##X##sh(13)                                            \
 217         _##X##sh(14)                                            \
 218         _##X##sh(15)                                            \
 219         _##X##sh(16)                                            \
 220         _##X##sh(17)                                            \
 221         _##X##sh(18)                                            \
 222         _##X##sh(19)                                            \
 223         _##X##sh(20)                                            \
 224         _##X##sh(21)                                            \
 225         _##X##sh(22)                                            \
 226         _##X##sh(23)                                            \
 227         _##X##sh(24)                                            \
 228         _##X##sh(25)                                            \
 229         _##X##sh(26)                                            \
 230         _##X##sh(27)                                            \
 231         _##X##sh(28)                                            \
 232         _##X##sh(29)                                            \
 233         _##X##sh(30)                                            \
 234         _##X##sh(31)                                            \
 235         xsh64(X)
 236
 237 #define lsh()                                                   \
 238         xsh(l)
 239 #define rsh()                                                   \
 240         xsh(r)
 241
 242 #define reset(V)                                                \
 243         prepare                                                 \
 244                 pushargi buf                                    \
 245                 pushargi V                                      \
 246                 pushargi $(M64 + 8)                             \
 247         finishi @memset
 248
 249 #define stx(T, N, O, V)                                         \
 250         movi %r0 V                                              \
 251         movi %r1 O                                              \
 252         stxr##T %r1 %v0 %r0
 253 #define stx8(T, M, V)                                           \
 254         stx(T, 3, $(M##B3), V)                                  \
 255         stx(T, 4, $(M##B4), V)                                  \
 256         stx(T, 5, $(M##B5), V)                                  \
 257         stx(T, 6, $(M##B6), V)                                  \
 258         stx(T, 7, $(M##B7), V)                                  \
 259         stx(T, 8, $(M##B8), V)                                  \
 260         stx(T, 9, $(M##B9), V)                                  \
 261         stx(T, 10, $(M##B10), V)                                \
 262         stx(T, 11, $(M##B11), V)                                \
 263         stx(T, 12, $(M##B12), V)                                \
 264         stx(T, 13, $(M##B13), V)                                \
 265         stx(T, 14, $(M##B14), V)                                \
 266         stx(T, 15, $(M##B15), V)                                \
 267         stx(T, 16, $(M##B16), V)                                \
 268         stx(T, 17, $(M##B17), V)                                \
 269         stx(T, 18, $(M##B18), V)                                \
 270         stx(T, 19, $(M##B19), V)                                \
 271         stx(T, 20, $(M##B20), V)                                \
 272         stx(T, 21, $(M##B21), V)                                \
 273         stx(T, 22, $(M##B22), V)                                \
 274         stx(T, 23, $(M##B23), V)                                \
 275         stx(T, 24, $(M##B24), V)                                \
 276         stx(T, 25, $(M##B25), V)                                \
 277         stx(T, 26, $(M##B26), V)
 278 #define stx4(T, M, V)                                           \
 279         stx(T, 2, $(M##B2), V)                                  \
 280         stx8(T, M, V)
 281 #define stx2(T, M, V)                                           \
 282         stx(T, 1, $(M##B1), V)                                  \
 283         stx4(T, M, V)
 284 #define ldx(T, N, M, O, V)                                      \
 285         movi %r0 0                                              \
 286         ldxi##T %r0 %v0 O                                       \
 287         beqi ldx##T##N##M %r0 V                                 \
 288         calli @abort                                            \
 289 ldx##T##N##M:
 290 #define ldx8(T, M, V)                                           \
 291         ldx(T, 3, M, $(M##B3), V)                               \
 292         ldx(T, 4, M, $(M##B4), V)                               \
 293         ldx(T, 5, M, $(M##B5), V)                               \
 294         ldx(T, 6, M, $(M##B6), V)                               \
 295         ldx(T, 7, M, $(M##B7), V)                               \
 296         ldx(T, 8, M, $(M##B8), V)                               \
 297         ldx(T, 9, M, $(M##B9), V)                               \
 298         ldx(T, 10, M, $(M##B10), V)                             \
 299         ldx(T, 11, M, $(M##B11), V)                             \
 300         ldx(T, 12, M, $(M##B12), V)                             \
 301         ldx(T, 13, M, $(M##B13), V)                             \
 302         ldx(T, 14, M, $(M##B14), V)                             \
 303         ldx(T, 15, M, $(M##B15), V)                             \
 304         ldx(T, 16, M, $(M##B16), V)                             \
 305         ldx(T, 17, M, $(M##B17), V)                             \
 306         ldx(T, 18, M, $(M##B18), V)                             \
 307         ldx(T, 19, M, $(M##B19), V)                             \
 308         ldx(T, 20, M, $(M##B20), V)                             \
 309         ldx(T, 21, M, $(M##B21), V)                             \
 310         ldx(T, 22, M, $(M##B22), V)                             \
 311         ldx(T, 23, M, $(M##B23), V)                             \
 312         ldx(T, 24, M, $(M##B24), V)                             \
 313         ldx(T, 25, M, $(M##B25), V)                             \
 314         ldx(T, 26, M, $(M##B26), V)
 315 #define ldx4(T, M, V)                                           \
 316         ldx(T, 2, M, $(M##B2), V)                               \
 317         ldx8(T, M, V)
 318 #define ldx2(T, M, V)                                           \
 319         ldx(T, 1, M, $(M##B1), V)                               \
 320         ldx4(T, M, V)
 321
 322 #define stf(T, N, O, V)                                         \
 323         movi##T %f0 V                                           \
 324         movi %r0 O                                              \
 325         stxr##T %r0 %v0 %f0
 326 #define stf8(T, M, V)                                           \
 327         stf(T, 3, $(M##B3), V)                                  \
 328         stf(T, 4, $(M##B4), V)                                  \
 329         stf(T, 5, $(M##B5), V)                                  \
 330         stf(T, 6, $(M##B6), V)                                  \
 331         stf(T, 7, $(M##B7), V)                                  \
 332         stf(T, 8, $(M##B8), V)                                  \
 333         stf(T, 9, $(M##B9), V)                                  \
 334         stf(T, 10, $(M##B10), V)                                \
 335         stf(T, 11, $(M##B11), V)                                \
 336         stf(T, 12, $(M##B12), V)                                \
 337         stf(T, 13, $(M##B13), V)                                \
 338         stf(T, 14, $(M##B14), V)                                \
 339         stf(T, 15, $(M##B15), V)                                \
 340         stf(T, 16, $(M##B16), V)                                \
 341         stf(T, 17, $(M##B17), V)                                \
 342         stf(T, 18, $(M##B18), V)                                \
 343         stf(T, 19, $(M##B19), V)                                \
 344         stf(T, 20, $(M##B20), V)                                \
 345         stf(T, 21, $(M##B21), V)                                \
 346         stf(T, 22, $(M##B22), V)                                \
 347         stf(T, 23, $(M##B23), V)                                \
 348         stf(T, 24, $(M##B24), V)                                \
 349         stf(T, 25, $(M##B25), V)                                \
 350         stf(T, 26, $(M##B26), V)
 351 #define stf4(T, M, V)                                           \
 352         stf(T, 2, $(M##B2), V)                                  \
 353         stf8(T, M, V)
 354 #define ldf(T, N, M, O, V)                                      \
 355         movi##T %f0 0                                           \
 356         ldxi##T %f0 %v0 O                                       \
 357         beqi##T ldf##T##N##M %f0 V                              \
 358         calli @abort                                            \
 359 ldf##T##N##M:
 360 #define ldf8(T, M, V)                                           \
 361         ldf(T, 3, M, $(M##B3), V)                               \
 362         ldf(T, 4, M, $(M##B4), V)                               \
 363         ldf(T, 5, M, $(M##B5), V)                               \
 364         ldf(T, 6, M, $(M##B6), V)                               \
 365         ldf(T, 7, M, $(M##B7), V)                               \
 366         ldf(T, 8, M, $(M##B8), V)                               \
 367         ldf(T, 9, M, $(M##B9), V)                               \
 368         ldf(T, 10, M, $(M##B10), V)                             \
 369         ldf(T, 11, M, $(M##B11), V)                             \
 370         ldf(T, 12, M, $(M##B12), V)                             \
 371         ldf(T, 13, M, $(M##B13), V)                             \
 372         ldf(T, 14, M, $(M##B14), V)                             \
 373         ldf(T, 15, M, $(M##B15), V)                             \
 374         ldf(T, 16, M, $(M##B16), V)                             \
 375         ldf(T, 17, M, $(M##B17), V)                             \
 376         ldf(T, 18, M, $(M##B18), V)                             \
 377         ldf(T, 19, M, $(M##B19), V)                             \
 378         ldf(T, 20, M, $(M##B20), V)                             \
 379         ldf(T, 21, M, $(M##B21), V)                             \
 380         ldf(T, 22, M, $(M##B22), V)                             \
 381         ldf(T, 23, M, $(M##B23), V)                             \
 382         ldf(T, 24, M, $(M##B24), V)                             \
 383         ldf(T, 25, M, $(M##B25), V)                             \
 384         ldf(T, 26, M, $(M##B26), V)
 385 #define ldf4(T, M, V)                                           \
 386         ldf(T, 2, M, $(M##B2), V)                               \
 387         ldf8(T, M, V)
 388
 389 #define ldst_c()                                                \
 390         reset(0xa5)                                             \
 391         movi %v0 buf                                            \
 392         stx2(_c, a, 0x5a)                                       \
 393         ldx2(_c, a, 0x5a)                                       \
 394         reset(0xa5)                                             \
 395         movi %v0 $(buf + M64)                                   \
 396         stx2(_c, b, 0x5a)                                       \
 397         ldx2(_c, b, 0x5a)
 398 #define ldst_uc()                                               \
 399         reset(0xa5)                                             \
 400         movi %v0 buf                                            \
 401         stx2(_c, a, 0x5a)                                       \
 402         ldx2(_uc, a, 0x5a)                                      \
 403         movi %v0 $(buf + M64)                                   \
 404         stx2(_c, b, 0x5a)                                       \
 405         ldx2(_uc, b, 0x5a)
 406 #define ldst_s()                                                \
 407         reset(0xa5)                                             \
 408         movi %v0 buf                                            \
 409         stx2(_s, a, 0x5a5a)                                     \
 410         ldx2(_s, a, 0x5a5a)                                     \
 411         reset(0xa5)                                             \
 412         movi %v0 $(buf + M64)                                   \
 413         stx2(_s, b, 0x5a5a)                                     \
 414         ldx2(_s, b, 0x5a5a)
 415 #define ldst_us()                                               \
 416         reset(0xa5)                                             \
 417         movi %v0 buf                                            \
 418         stx2(_s, a, 0x5a5a)                                     \
 419         ldx2(_us, a, 0x5a5a)                                    \
 420         reset(0xa5)                                             \
 421         movi %v0 $(buf + M64)                                   \
 422         stx2(_s, b, 0x5a5a)                                     \
 423         ldx2(_us, b, 0x5a5a)
 424 #define ldst_i()                                                \
 425         reset(0xa5)                                             \
 426         movi %v0 buf                                            \
 427         stx4(_i, a, 0x5a5a5a5a)                                 \
 428         ldx4(_i, a, 0x5a5a5a5a)                                 \
 429         reset(0xa5)                                             \
 430         movi %v0 $(buf + M64)                                   \
 431         stx4(_i, b, 0x5a5a5a5a)                                 \
 432         ldx4(_i, b, 0x5a5a5a5a)
 433 #define ldst_ui()                                               \
 434         reset(0xa5)                                             \
 435         movi %v0 buf                                            \
 436         stx4(_i, a, 0x5a5a5a5a)                                 \
 437         ldx4(_ui, a, 0x5a5a5a5a)                                \
 438         reset(0xa5)                                             \
 439         movi %v0 $(buf + M64)                                   \
 440         stx4(_i, b, 0x5a5a5a5a)                                 \
 441         ldx4(_ui, b, 0x5a5a5a5a)
 442 #define ldst_l()                                                \
 443         reset(0xa5)                                             \
 444         movi %v0 buf                                            \
 445         stx8(_l, a, 0x5a5a5a5a5a5a5a5a)                         \
 446         ldx8(_l, a, 0x5a5a5a5a5a5a5a5a)                         \
 447         reset(0xa5)                                             \
 448         movi %v0 $(buf + M64)                                   \
 449         stx8(_l, b, 0x5a5a5a5a5a5a5a5a)                         \
 450         ldx8(_l, b, 0x5a5a5a5a5a5a5a5a)
 451 #define ldst_f()                                                \
 452         reset(0xa5)                                             \
 453         movi %v0 buf                                            \
 454         stf4(_f, a, 0.5)                                        \
 455         ldf4(_f, a, 0.5)                                        \
 456         reset(0xa5)                                             \
 457         movi %v0 $(buf + M64)                                   \
 458         stf4(_f, b, 0.5)                                        \
 459         ldf4(_f, b, 0.5)
 460 #define ldst_d()                                                \
 461         reset(0xa5)                                             \
 462         movi %v0 buf                                            \
 463         stf8(_d, a, 0.5)                                        \
 464         ldf8(_d, a, 0.5)                                        \
 465         reset(0xa5)                                             \
 466         movi %v0 $(buf + M64)                                   \
 467         stf8(_d, b, 0.5)                                        \
 468         ldf8(_d, b, 0.5)
 469
 470 .data           67112960
 471 buf:
 472 .size           M64
 473 .size           8
 474 ok:
 475 .c              "ok"
 476
 477 .code
 478         prolog
 479
 480         alu(add)
 481         alu(sub)
 482         alu(rsb)
 483         alu(mul)
 484         alu(div)
 485         alu(rem)
 486         lsh()
 487         rsh()
 488         alu(and)
 489         alu(or)
 490         alu(xor)
 491         ldst_c()
 492         ldst_uc()
 493         ldst_s()
 494         ldst_us()
 495         ldst_i()
 496 #if __WORDSIZE == 64
 497         ldst_ui()
 498         ldst_l()
 499 #endif
 500         ldst_f()
 501         ldst_d()
 502
 503         prepare
 504                 pushargi ok
 505         finishi @puts
 506         ret
 507         epilog