| 1 | .data 4096 |
| 2 | #if __WORDSIZE == 32 |
| 3 | fmt_i: |
| 4 | .c "%s 0x%x = 0x%x (expected 0x%x)\n" |
| 5 | fmt_ext: |
| 6 | .c "%s 0x%x %d %d = 0x%x (expected 0x%x)\n" |
| 7 | fmt_dep: |
| 8 | .c "depi 0x%x 0x%x %d %d = 0x%x (expected 0x%x)\n" |
| 9 | #else |
| 10 | fmt_i: |
| 11 | .c "%s 0x%lx = 0x%lx (expected 0x%lx)\n" |
| 12 | fmt_ext: |
| 13 | .c "%s 0x%lx %ld %ld = 0x%lx (expected 0x%lx)\n" |
| 14 | fmt_dep: |
| 15 | .c "depi 0x%lx 0x%lx %ld %ld = 0x%lx (expected 0x%lx)\n" |
| 16 | #endif |
| 17 | fmt_d: |
| 18 | .c "%s %.12f = %.12f (expected %.12f)\n" |
| 19 | #define DEF(str) \ |
| 20 | S##str: \ |
| 21 | .c #str |
| 22 | DEF(negi) |
| 23 | DEF(comi) |
| 24 | DEF(exti_c) |
| 25 | DEF(exti_uc) |
| 26 | DEF(exti_s) |
| 27 | DEF(exti_us) |
| 28 | DEF(exti_i) |
| 29 | DEF(exti_ui) |
| 30 | DEF(htoni_us) |
| 31 | DEF(ntohi_us) |
| 32 | DEF(htoni_ui) |
| 33 | DEF(ntohi_ui) |
| 34 | DEF(htoni_ul) |
| 35 | DEF(ntohi_ul) |
| 36 | DEF(htoni) |
| 37 | DEF(ntohi) |
| 38 | DEF(bswapi_us) |
| 39 | DEF(bswapi_ui) |
| 40 | DEF(bswapi_ul) |
| 41 | DEF(bswapi) |
| 42 | DEF(cloi) |
| 43 | DEF(clzi) |
| 44 | DEF(ctoi) |
| 45 | DEF(ctzi) |
| 46 | DEF(rbiti) |
| 47 | DEF(popcnti) |
| 48 | DEF(exti) |
| 49 | DEF(exti_u) |
| 50 | DEF(negi_f) |
| 51 | DEF(absi_f) |
| 52 | DEF(sqrti_f) |
| 53 | DEF(negi_d) |
| 54 | DEF(absi_d) |
| 55 | DEF(sqrti_d) |
| 56 | ok: |
| 57 | .c "ok" |
| 58 | |
| 59 | #define CHECKI(OP, I0, I1) \ |
| 60 | OP %r0 I0 \ |
| 61 | beqi OP##_ok %r0 I1 \ |
| 62 | prepare \ |
| 63 | pushargi fmt_i \ |
| 64 | ellipsis \ |
| 65 | pushargi S##OP \ |
| 66 | pushargi I0 \ |
| 67 | pushargr %r0 \ |
| 68 | pushargi I1 \ |
| 69 | finishi @printf \ |
| 70 | calli @abort \ |
| 71 | OP##_ok: |
| 72 | #define CHECKEXT(OP, I0, I1, I2, I3) \ |
| 73 | OP %r0 I0 I1 I2 \ |
| 74 | beqi OP##_ok %r0 I3 \ |
| 75 | prepare \ |
| 76 | pushargi fmt_ext \ |
| 77 | ellipsis \ |
| 78 | pushargi S##OP \ |
| 79 | pushargi I0 \ |
| 80 | pushargi I1 \ |
| 81 | pushargi I2 \ |
| 82 | pushargr %r0 \ |
| 83 | pushargi I3 \ |
| 84 | finishi @printf \ |
| 85 | calli @abort \ |
| 86 | OP##_ok: |
| 87 | #define CHECKDEP(I0, I1, I2, I3, I4) \ |
| 88 | movi %r0 I0 \ |
| 89 | depi %r0 I1 I2 I3 \ |
| 90 | beqi dep_ok %r0 I4 \ |
| 91 | prepare \ |
| 92 | pushargi fmt_dep \ |
| 93 | ellipsis \ |
| 94 | pushargi I0 \ |
| 95 | pushargi I1 \ |
| 96 | pushargi I2 \ |
| 97 | pushargi I3 \ |
| 98 | pushargr %r0 \ |
| 99 | pushargi I4 \ |
| 100 | finishi @printf \ |
| 101 | calli @abort \ |
| 102 | dep_ok: |
| 103 | #define CHECKD(OP, I0, I1) \ |
| 104 | OP %f0 I0 \ |
| 105 | beqi_d OP##_ok %f0 I1 \ |
| 106 | prepare \ |
| 107 | pushargi fmt_d \ |
| 108 | ellipsis \ |
| 109 | pushargi S##OP \ |
| 110 | pushargi_d I0 \ |
| 111 | pushargr_d %f0 \ |
| 112 | pushargi_d I1 \ |
| 113 | finishi @printf \ |
| 114 | calli @abort \ |
| 115 | OP##_ok: |
| 116 | #define CHECKF(OP, I0, I1) \ |
| 117 | OP %f0 I0 \ |
| 118 | beqi_f OP##_ok %f0 I1 \ |
| 119 | extr_f_d %f0 %f0 \ |
| 120 | prepare \ |
| 121 | pushargi fmt_d \ |
| 122 | ellipsis \ |
| 123 | pushargi S##OP \ |
| 124 | pushargi_d I0 \ |
| 125 | pushargr_d %f0 \ |
| 126 | pushargi_d I1 \ |
| 127 | finishi @printf \ |
| 128 | calli @abort \ |
| 129 | OP##_ok: |
| 130 | |
| 131 | .code |
| 132 | prolog |
| 133 | |
| 134 | CHECKI(negi, 1, -1) |
| 135 | CHECKI(comi, 0, -1) |
| 136 | CHECKI(exti_c, 0xfff, -1) |
| 137 | CHECKI(exti_uc, 0xfff, 0xff) |
| 138 | CHECKI(exti_s, 0xfffff, -1) |
| 139 | CHECKI(exti_us, 0xfffff, 0xffff) |
| 140 | #if __BYTE_ORDER == __BIG_ENDIAN |
| 141 | CHECKI(htoni_us, 0xff1234, 0x1234) |
| 142 | CHECKI(ntohi_us, 0x7ffff, 0xffff) |
| 143 | #else |
| 144 | CHECKI(htoni_us, 0xff1234, 0x3412) |
| 145 | CHECKI(ntohi_us, 0x7ffff, 0xffff) |
| 146 | #endif |
| 147 | #if __BYTE_ORDER == __BIG_ENDIAN |
| 148 | # if __WORDSIZE == 32 |
| 149 | CHECKI(htoni_ui, 0x12345678, 0x12345678) |
| 150 | CHECKI(ntohi_ui, 0x78563412, 0x78563412) |
| 151 | # else |
| 152 | CHECKI(htoni_ui, 0x7f12345678, 0x12345678) |
| 153 | CHECKI(ntohi_ui, 0xf778563412, 0x78563412) |
| 154 | # endif |
| 155 | #else |
| 156 | # if __WORDSIZE == 32 |
| 157 | CHECKI(htoni_ui, 0x12345678, 0x78563412) |
| 158 | CHECKI(ntohi_ui, 0x78563412, 0x12345678) |
| 159 | # else |
| 160 | CHECKI(htoni_ui, 0x7f12345678, 0x78563412) |
| 161 | CHECKI(ntohi_ui, 0xf778563412, 0x12345678) |
| 162 | # endif |
| 163 | #endif |
| 164 | CHECKI(bswapi_us, 0x1234, 0x3412) |
| 165 | CHECKI(bswapi_ui, 0x12345678, 0x78563412) |
| 166 | #if __WORDSIZE == 32 |
| 167 | # if __BYTE_ORDER == __BIG_ENDIAN |
| 168 | CHECKI(htoni, 0x78563412, 0x78563412) |
| 169 | CHECKI(ntohi, 0x12345678, 0x12345678) |
| 170 | # else |
| 171 | CHECKI(htoni, 0x78563412, 0x12345678) |
| 172 | CHECKI(ntohi, 0x12345678, 0x78563412) |
| 173 | # endif |
| 174 | CHECKI(bswapi, 0x78563412, 0x12345678) |
| 175 | #else |
| 176 | # if __BYTE_ORDER == __BIG_ENDIAN |
| 177 | CHECKI(htoni_ul, 0xf0debc9a78563412, 0xf0debc9a78563412) |
| 178 | CHECKI(ntohi_ul, 0x123456789abcdef0, 0x123456789abcdef0) |
| 179 | CHECKI(htoni, 0x123456789abcdef0, 0x123456789abcdef0) |
| 180 | CHECKI(ntohi, 0xf0debc9a78563412, 0xf0debc9a78563412) |
| 181 | # else |
| 182 | CHECKI(htoni_ul, 0x123456789abcdef0, 0xf0debc9a78563412) |
| 183 | CHECKI(ntohi_ul, 0xf0debc9a78563412, 0x123456789abcdef0) |
| 184 | CHECKI(htoni, 0xf0debc9a78563412, 0x123456789abcdef0) |
| 185 | CHECKI(ntohi, 0x123456789abcdef0, 0xf0debc9a78563412) |
| 186 | # endif |
| 187 | CHECKI(exti_i, 0x80000000, 0xffffffff80000000) |
| 188 | CHECKI(exti_ui, 0x80000000, 0x80000000) |
| 189 | CHECKI(bswapi_ul, 0x123456789abcdef0, 0xf0debc9a78563412) |
| 190 | CHECKI(bswapi, 0xf0debc9a78563412, 0x123456789abcdef0) |
| 191 | #endif |
| 192 | #if __WORDSIZE == 32 |
| 193 | CHECKI(cloi, 0xfffffffe, 31) |
| 194 | CHECKI(clzi, 1, 31) |
| 195 | CHECKI(ctoi, 0x7fffffff, 31) |
| 196 | CHECKI(ctzi, 0x80000000, 31) |
| 197 | CHECKI(rbiti, 0x02468ace, 0x73516240) |
| 198 | CHECKI(popcnti, 0x8a13c851, 12) |
| 199 | #else |
| 200 | CHECKI(cloi, 0xfffffffffffffffe, 63) |
| 201 | CHECKI(clzi, 1, 63) |
| 202 | CHECKI(ctoi, 0x7fffffffffffffff, 63) |
| 203 | CHECKI(ctzi, 0x8000000000000000, 63) |
| 204 | CHECKI(rbiti, 0x02468ace013579bd, 0xbd9eac8073516240) |
| 205 | CHECKI(popcnti, 0x02468ace013579bd, 28) |
| 206 | #endif |
| 207 | #if __WORDSIZE == 32 |
| 208 | # if __BYTE_ORDER == __LITTLE_ENDIAN |
| 209 | CHECKEXT(exti, 0xa5a5a584, 1, 2, 0xfffffffe) |
| 210 | CHECKEXT(exti_u, 0xa5a5a584, 1, 2, 0x00000002) |
| 211 | CHECKDEP(0xa5a5a584, 1, 1, 2, 0xa5a5a582) |
| 212 | # else |
| 213 | CHECKEXT(exti, 0xa5a5a3b7, 29, 1, 0xffffffff) |
| 214 | CHECKEXT(exti_u, 0xa5a5a3b7, 29, 1, 0x00000001) |
| 215 | CHECKDEP(0xa5a5a3b7, 0, 29, 1, 0xa5a5a3b3) |
| 216 | # endif |
| 217 | #else |
| 218 | # if __BYTE_ORDER == __LITTLE_ENDIAN |
| 219 | CHECKEXT(exti, 0xa5a5a5a5a5a5a564, 1, 2, 0xfffffffffffffffe) |
| 220 | CHECKEXT(exti_u, 0xa5a5a5a5a5a5a564, 1, 2, 0x0000000000000002) |
| 221 | CHECKDEP(0xa5a5a5a5a5a5a564, 1, 1, 2, 0xa5a5a5a5a5a5a562) |
| 222 | # else |
| 223 | CHECKEXT(exti, 0xa5a5a5a5a5a59dc8, 60, 3, 0xfffffffffffffffc) |
| 224 | CHECKEXT(exti_u, 0xa5a5a5a5a5a59dc6, 61, 2, 0x0000000000000002) |
| 225 | CHECKDEP(0xa5a5a5a5a5a59dc6, 1, 61, 2, 0xa5a5a5a5a5a59dc2) |
| 226 | # endif |
| 227 | #endif |
| 228 | CHECKF(negi_f, 2.0, -2.0) |
| 229 | CHECKF(absi_f, -3.0, 3.0) |
| 230 | CHECKF(sqrti_f, 81.0, 9.0) |
| 231 | CHECKD(negi_d, -2.0, 2.0) |
| 232 | CHECKD(absi_d, -1.0, 1.0) |
| 233 | CHECKD(sqrti_d, 9.0, 3.0) |
| 234 | |
| 235 | prepare |
| 236 | pushargi ok |
| 237 | finishi @puts |
| 238 | ret |
| 239 | epilog |