Greg Kroah-Hartman | b244131 | 2017-11-01 15:07:57 +0100 | [diff] [blame] | 1 | // SPDX-License-Identifier: GPL-2.0 |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 2 | /* |
| 3 | * arch/alpha/lib/fpreg.c |
| 4 | * |
| 5 | * (C) Copyright 1998 Linus Torvalds |
| 6 | */ |
| 7 | |
Al Viro | 00fc0e0 | 2016-01-11 09:51:29 -0500 | [diff] [blame] | 8 | #include <linux/compiler.h> |
| 9 | #include <linux/export.h> |
| 10 | |
Akinobu Mita | 4b417d0 | 2006-03-26 01:39:01 -0800 | [diff] [blame] | 11 | #if defined(CONFIG_ALPHA_EV6) || defined(CONFIG_ALPHA_EV67) |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 12 | #define STT(reg,val) asm volatile ("ftoit $f"#reg",%0" : "=r"(val)); |
| 13 | #else |
| 14 | #define STT(reg,val) asm volatile ("stt $f"#reg",%0" : "=m"(val)); |
| 15 | #endif |
| 16 | |
| 17 | unsigned long |
| 18 | alpha_read_fp_reg (unsigned long reg) |
| 19 | { |
| 20 | unsigned long val; |
| 21 | |
| 22 | switch (reg) { |
| 23 | case 0: STT( 0, val); break; |
| 24 | case 1: STT( 1, val); break; |
| 25 | case 2: STT( 2, val); break; |
| 26 | case 3: STT( 3, val); break; |
| 27 | case 4: STT( 4, val); break; |
| 28 | case 5: STT( 5, val); break; |
| 29 | case 6: STT( 6, val); break; |
| 30 | case 7: STT( 7, val); break; |
| 31 | case 8: STT( 8, val); break; |
| 32 | case 9: STT( 9, val); break; |
| 33 | case 10: STT(10, val); break; |
| 34 | case 11: STT(11, val); break; |
| 35 | case 12: STT(12, val); break; |
| 36 | case 13: STT(13, val); break; |
| 37 | case 14: STT(14, val); break; |
| 38 | case 15: STT(15, val); break; |
| 39 | case 16: STT(16, val); break; |
| 40 | case 17: STT(17, val); break; |
| 41 | case 18: STT(18, val); break; |
| 42 | case 19: STT(19, val); break; |
| 43 | case 20: STT(20, val); break; |
| 44 | case 21: STT(21, val); break; |
| 45 | case 22: STT(22, val); break; |
| 46 | case 23: STT(23, val); break; |
| 47 | case 24: STT(24, val); break; |
| 48 | case 25: STT(25, val); break; |
| 49 | case 26: STT(26, val); break; |
| 50 | case 27: STT(27, val); break; |
| 51 | case 28: STT(28, val); break; |
| 52 | case 29: STT(29, val); break; |
| 53 | case 30: STT(30, val); break; |
| 54 | case 31: STT(31, val); break; |
| 55 | default: return 0; |
| 56 | } |
| 57 | return val; |
| 58 | } |
Al Viro | 00fc0e0 | 2016-01-11 09:51:29 -0500 | [diff] [blame] | 59 | EXPORT_SYMBOL(alpha_read_fp_reg); |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 60 | |
Akinobu Mita | 4b417d0 | 2006-03-26 01:39:01 -0800 | [diff] [blame] | 61 | #if defined(CONFIG_ALPHA_EV6) || defined(CONFIG_ALPHA_EV67) |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 62 | #define LDT(reg,val) asm volatile ("itoft %0,$f"#reg : : "r"(val)); |
| 63 | #else |
| 64 | #define LDT(reg,val) asm volatile ("ldt $f"#reg",%0" : : "m"(val)); |
| 65 | #endif |
| 66 | |
| 67 | void |
| 68 | alpha_write_fp_reg (unsigned long reg, unsigned long val) |
| 69 | { |
| 70 | switch (reg) { |
| 71 | case 0: LDT( 0, val); break; |
| 72 | case 1: LDT( 1, val); break; |
| 73 | case 2: LDT( 2, val); break; |
| 74 | case 3: LDT( 3, val); break; |
| 75 | case 4: LDT( 4, val); break; |
| 76 | case 5: LDT( 5, val); break; |
| 77 | case 6: LDT( 6, val); break; |
| 78 | case 7: LDT( 7, val); break; |
| 79 | case 8: LDT( 8, val); break; |
| 80 | case 9: LDT( 9, val); break; |
| 81 | case 10: LDT(10, val); break; |
| 82 | case 11: LDT(11, val); break; |
| 83 | case 12: LDT(12, val); break; |
| 84 | case 13: LDT(13, val); break; |
| 85 | case 14: LDT(14, val); break; |
| 86 | case 15: LDT(15, val); break; |
| 87 | case 16: LDT(16, val); break; |
| 88 | case 17: LDT(17, val); break; |
| 89 | case 18: LDT(18, val); break; |
| 90 | case 19: LDT(19, val); break; |
| 91 | case 20: LDT(20, val); break; |
| 92 | case 21: LDT(21, val); break; |
| 93 | case 22: LDT(22, val); break; |
| 94 | case 23: LDT(23, val); break; |
| 95 | case 24: LDT(24, val); break; |
| 96 | case 25: LDT(25, val); break; |
| 97 | case 26: LDT(26, val); break; |
| 98 | case 27: LDT(27, val); break; |
| 99 | case 28: LDT(28, val); break; |
| 100 | case 29: LDT(29, val); break; |
| 101 | case 30: LDT(30, val); break; |
| 102 | case 31: LDT(31, val); break; |
| 103 | } |
| 104 | } |
Al Viro | 00fc0e0 | 2016-01-11 09:51:29 -0500 | [diff] [blame] | 105 | EXPORT_SYMBOL(alpha_write_fp_reg); |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 106 | |
Akinobu Mita | 4b417d0 | 2006-03-26 01:39:01 -0800 | [diff] [blame] | 107 | #if defined(CONFIG_ALPHA_EV6) || defined(CONFIG_ALPHA_EV67) |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 108 | #define STS(reg,val) asm volatile ("ftois $f"#reg",%0" : "=r"(val)); |
| 109 | #else |
| 110 | #define STS(reg,val) asm volatile ("sts $f"#reg",%0" : "=m"(val)); |
| 111 | #endif |
| 112 | |
| 113 | unsigned long |
| 114 | alpha_read_fp_reg_s (unsigned long reg) |
| 115 | { |
| 116 | unsigned long val; |
| 117 | |
| 118 | switch (reg) { |
| 119 | case 0: STS( 0, val); break; |
| 120 | case 1: STS( 1, val); break; |
| 121 | case 2: STS( 2, val); break; |
| 122 | case 3: STS( 3, val); break; |
| 123 | case 4: STS( 4, val); break; |
| 124 | case 5: STS( 5, val); break; |
| 125 | case 6: STS( 6, val); break; |
| 126 | case 7: STS( 7, val); break; |
| 127 | case 8: STS( 8, val); break; |
| 128 | case 9: STS( 9, val); break; |
| 129 | case 10: STS(10, val); break; |
| 130 | case 11: STS(11, val); break; |
| 131 | case 12: STS(12, val); break; |
| 132 | case 13: STS(13, val); break; |
| 133 | case 14: STS(14, val); break; |
| 134 | case 15: STS(15, val); break; |
| 135 | case 16: STS(16, val); break; |
| 136 | case 17: STS(17, val); break; |
| 137 | case 18: STS(18, val); break; |
| 138 | case 19: STS(19, val); break; |
| 139 | case 20: STS(20, val); break; |
| 140 | case 21: STS(21, val); break; |
| 141 | case 22: STS(22, val); break; |
| 142 | case 23: STS(23, val); break; |
| 143 | case 24: STS(24, val); break; |
| 144 | case 25: STS(25, val); break; |
| 145 | case 26: STS(26, val); break; |
| 146 | case 27: STS(27, val); break; |
| 147 | case 28: STS(28, val); break; |
| 148 | case 29: STS(29, val); break; |
| 149 | case 30: STS(30, val); break; |
| 150 | case 31: STS(31, val); break; |
| 151 | default: return 0; |
| 152 | } |
| 153 | return val; |
| 154 | } |
Al Viro | 00fc0e0 | 2016-01-11 09:51:29 -0500 | [diff] [blame] | 155 | EXPORT_SYMBOL(alpha_read_fp_reg_s); |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 156 | |
Akinobu Mita | 4b417d0 | 2006-03-26 01:39:01 -0800 | [diff] [blame] | 157 | #if defined(CONFIG_ALPHA_EV6) || defined(CONFIG_ALPHA_EV67) |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 158 | #define LDS(reg,val) asm volatile ("itofs %0,$f"#reg : : "r"(val)); |
| 159 | #else |
| 160 | #define LDS(reg,val) asm volatile ("lds $f"#reg",%0" : : "m"(val)); |
| 161 | #endif |
| 162 | |
| 163 | void |
| 164 | alpha_write_fp_reg_s (unsigned long reg, unsigned long val) |
| 165 | { |
| 166 | switch (reg) { |
| 167 | case 0: LDS( 0, val); break; |
| 168 | case 1: LDS( 1, val); break; |
| 169 | case 2: LDS( 2, val); break; |
| 170 | case 3: LDS( 3, val); break; |
| 171 | case 4: LDS( 4, val); break; |
| 172 | case 5: LDS( 5, val); break; |
| 173 | case 6: LDS( 6, val); break; |
| 174 | case 7: LDS( 7, val); break; |
| 175 | case 8: LDS( 8, val); break; |
| 176 | case 9: LDS( 9, val); break; |
| 177 | case 10: LDS(10, val); break; |
| 178 | case 11: LDS(11, val); break; |
| 179 | case 12: LDS(12, val); break; |
| 180 | case 13: LDS(13, val); break; |
| 181 | case 14: LDS(14, val); break; |
| 182 | case 15: LDS(15, val); break; |
| 183 | case 16: LDS(16, val); break; |
| 184 | case 17: LDS(17, val); break; |
| 185 | case 18: LDS(18, val); break; |
| 186 | case 19: LDS(19, val); break; |
| 187 | case 20: LDS(20, val); break; |
| 188 | case 21: LDS(21, val); break; |
| 189 | case 22: LDS(22, val); break; |
| 190 | case 23: LDS(23, val); break; |
| 191 | case 24: LDS(24, val); break; |
| 192 | case 25: LDS(25, val); break; |
| 193 | case 26: LDS(26, val); break; |
| 194 | case 27: LDS(27, val); break; |
| 195 | case 28: LDS(28, val); break; |
| 196 | case 29: LDS(29, val); break; |
| 197 | case 30: LDS(30, val); break; |
| 198 | case 31: LDS(31, val); break; |
| 199 | } |
| 200 | } |
Al Viro | 00fc0e0 | 2016-01-11 09:51:29 -0500 | [diff] [blame] | 201 | EXPORT_SYMBOL(alpha_write_fp_reg_s); |