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