| 1 | #include "ldst.inc" |
| 2 | |
| 3 | #if __WORDSIZE == 64 |
| 4 | # define LDSTL(N, R0, R1) \ |
| 5 | movi %R0 $(t0 + $offui) \ |
| 6 | str_i %R0 %R1 \ |
| 7 | movi %R0 $(t0 + $offl) \ |
| 8 | movi %R1 L##N \ |
| 9 | str_l %R0 %R1 |
| 10 | |
| 11 | # define SI(C, N, x, X, R0) \ |
| 12 | movi %R0 $(t0 + $off##x) \ |
| 13 | ldr_##x %R0 %R0 \ |
| 14 | beqi L##x##C %R0 L##X##N \ |
| 15 | calli @abort \ |
| 16 | L##x##C: |
| 17 | |
| 18 | # define LDRL(C, N, R0, R1) \ |
| 19 | UI(C, N, i, I, R0) \ |
| 20 | SI(C, N, l, L, R0) |
| 21 | #else |
| 22 | # define LDSTL(C, R0, R1) |
| 23 | # define SI(C, N, x, X, R0) \ |
| 24 | movi %R0 $(t0 + $off##x) \ |
| 25 | ldr_##x %R0 %R0 \ |
| 26 | beqi L##x##C %R0 I##X##N \ |
| 27 | calli @abort \ |
| 28 | L##x##C: |
| 29 | |
| 30 | # define LDRL(C, N, R0, R1) |
| 31 | |
| 32 | #endif |
| 33 | |
| 34 | #define UI(C, N, x, X, R0) \ |
| 35 | movi %R0 $(t0 + $offu##x) \ |
| 36 | ldr_u##x %R0 %R0 \ |
| 37 | beqi Lu##x##C %R0 X##N \ |
| 38 | calli @abort \ |
| 39 | Lu##x##C: |
| 40 | |
| 41 | #define LDST1(X, N, R0, R1) \ |
| 42 | movi %R0 $(t0 + $offc) \ |
| 43 | movi %R1 C##N \ |
| 44 | str_c %R0 %R1 \ |
| 45 | movi %R0 $(t0 + $offuc) \ |
| 46 | str_c %R0 %R1 \ |
| 47 | movi %R0 $(t0 + $offs) \ |
| 48 | movi %R1 S##N \ |
| 49 | str_s %R0 %R1 \ |
| 50 | movi %R0 $(t0 + $offus) \ |
| 51 | str_s %R0 %R1 \ |
| 52 | movi %R0 $(t0 + $offi) \ |
| 53 | movi %R1 I##N \ |
| 54 | str_i %R0 %R1 \ |
| 55 | LDSTL(N, R0, R1) \ |
| 56 | movi %R0 $(t0 + $offf) \ |
| 57 | SI(X, N, c, C, R0) \ |
| 58 | UI(X, N, c, C, R0) \ |
| 59 | SI(X, N, s, S, R0) \ |
| 60 | UI(X, N, s, S, R0) \ |
| 61 | SI(X, N, i, I, R0) \ |
| 62 | LDRL(X, N, R0, R1) \ |
| 63 | |
| 64 | #define LDST0(R0, R1) \ |
| 65 | LDST1(0_##R0##_##R1, 0, R0, R1) \ |
| 66 | LDST1(1_##R0##_##R1, 1, R0, R1) \ |
| 67 | LDST1(2_##R0##_##R1, 2, R0, R1) \ |
| 68 | LDST1(3_##R0##_##R1, 3, R0, R1) |
| 69 | |
| 70 | #define LDST(V0, V1, V2, R0, R1, R2) \ |
| 71 | LDST0(V0, V1) \ |
| 72 | LDST0(V0, V2) \ |
| 73 | LDST0(V0, R0) \ |
| 74 | LDST0(V0, R1) \ |
| 75 | LDST0(V0, R2) \ |
| 76 | LDST0(V1, V0) \ |
| 77 | LDST0(V1, V2) \ |
| 78 | LDST0(V1, R0) \ |
| 79 | LDST0(V1, R1) \ |
| 80 | LDST0(V1, R2) \ |
| 81 | LDST0(V2, R0) \ |
| 82 | LDST0(V2, R1) \ |
| 83 | LDST0(V2, R2) |
| 84 | |
| 85 | .code |
| 86 | prolog |
| 87 | |
| 88 | /* Simple test to simplify validating encodings before |
| 89 | * brute force tests */ |
| 90 | movi %r0 $(t0 + $offc) |
| 91 | movi %r1 0x81 |
| 92 | str_c %r0 %r1 |
| 93 | movi %r0 $(t0 + $offuc) |
| 94 | str_c %r0 %r1 |
| 95 | movi %r0 $(t0 + $offs) |
| 96 | movi %r1 0x8001 |
| 97 | str_s %r0 %r1 |
| 98 | movi %r0 $(t0 + $offus) |
| 99 | str_s %r0 %r1 |
| 100 | movi %r0 $(t0 + $offi) |
| 101 | movi %r1 0x80000001 |
| 102 | str_i %r0 %r1 |
| 103 | #if __WORDSIZE == 64 |
| 104 | movi %r0 $(t0 + $offui) |
| 105 | str_i %r0 %r1 |
| 106 | movi %r0 $(t0 + $offl) |
| 107 | movi %r1 0x8000000000000001 |
| 108 | str_l %r0 %r1 |
| 109 | #endif |
| 110 | movi %r0 $(t0 + $offc) |
| 111 | ldr_c %r0 %r0 |
| 112 | beqi Lc %r0 XC |
| 113 | calli @abort |
| 114 | Lc: |
| 115 | movi %r0 $(t0 + $offuc) |
| 116 | ldr_uc %r0 %r0 |
| 117 | beqi Luc %r0 0x81 |
| 118 | calli @abort |
| 119 | Luc: |
| 120 | movi %r0 $(t0 + $offs) |
| 121 | ldr_s %r0 %r0 |
| 122 | beqi Ls %r0 XS |
| 123 | calli @abort |
| 124 | Ls: |
| 125 | movi %r0 $(t0 + $offus) |
| 126 | ldr_us %r0 %r0 |
| 127 | beqi Lus %r0 0x8001 |
| 128 | calli @abort |
| 129 | Lus: |
| 130 | movi %r0 $(t0 + $offi) |
| 131 | ldr_i %r0 %r0 |
| 132 | beqi Li %r0 XI |
| 133 | calli @abort |
| 134 | Li: |
| 135 | #if __WORDSIZE == 64 |
| 136 | movi %r0 $(t0 + $offui) |
| 137 | ldr_ui %r0 %r0 |
| 138 | beqi Lui %r0 0x80000001 |
| 139 | calli @abort |
| 140 | Lui: |
| 141 | movi %r0 $(t0 + $offl) |
| 142 | ldr_l %r0 %r0 |
| 143 | beqi Ll %r0 0x8000000000000001 |
| 144 | calli @abort |
| 145 | Ll: |
| 146 | #endif |
| 147 | |
| 148 | LDST(v0, v1, v2, r0, r1, r2) |
| 149 | // just to know did not abort |
| 150 | prepare |
| 151 | pushargi ok |
| 152 | ellipsis |
| 153 | finishi @printf |
| 154 | ret |
| 155 | epilog |