| 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 |