xref: /linux/arch/mips/kernel/r4k_fpu.S (revision 4949009eb8d40a441dcddcd96e101e77d31cf1b2)
1/*
2 * This file is subject to the terms and conditions of the GNU General Public
3 * License.  See the file "COPYING" in the main directory of this archive
4 * for more details.
5 *
6 * Copyright (C) 1996, 98, 99, 2000, 01 Ralf Baechle
7 *
8 * Multi-arch abstraction and asm macros for easier reading:
9 * Copyright (C) 1996 David S. Miller (davem@davemloft.net)
10 *
11 * Carsten Langgaard, carstenl@mips.com
12 * Copyright (C) 2000 MIPS Technologies, Inc.
13 * Copyright (C) 1999, 2001 Silicon Graphics, Inc.
14 */
15#include <asm/asm.h>
16#include <asm/errno.h>
17#include <asm/fpregdef.h>
18#include <asm/mipsregs.h>
19#include <asm/asm-offsets.h>
20#include <asm/regdef.h>
21
22/* preprocessor replaces the fp in ".set fp=64" with $30 otherwise */
23#undef fp
24
25	.macro	EX insn, reg, src
26	.set	push
27	SET_HARDFLOAT
28	.set	nomacro
29.ex\@:	\insn	\reg, \src
30	.set	pop
31	.section __ex_table,"a"
32	PTR	.ex\@, fault
33	.previous
34	.endm
35
36	.set	noreorder
37	.set	arch=r4000
38
39LEAF(_save_fp_context)
40	.set	push
41	SET_HARDFLOAT
42	cfc1	t1, fcr31
43	.set	pop
44
45#if defined(CONFIG_64BIT) || defined(CONFIG_CPU_MIPS32_R2)
46	.set	push
47	SET_HARDFLOAT
48#ifdef CONFIG_CPU_MIPS32_R2
49	.set	mips32r2
50	.set	fp=64
51	mfc0	t0, CP0_STATUS
52	sll	t0, t0, 5
53	bgez	t0, 1f			# skip storing odd if FR=0
54	 nop
55#endif
56	/* Store the 16 odd double precision registers */
57	EX	sdc1 $f1, SC_FPREGS+8(a0)
58	EX	sdc1 $f3, SC_FPREGS+24(a0)
59	EX	sdc1 $f5, SC_FPREGS+40(a0)
60	EX	sdc1 $f7, SC_FPREGS+56(a0)
61	EX	sdc1 $f9, SC_FPREGS+72(a0)
62	EX	sdc1 $f11, SC_FPREGS+88(a0)
63	EX	sdc1 $f13, SC_FPREGS+104(a0)
64	EX	sdc1 $f15, SC_FPREGS+120(a0)
65	EX	sdc1 $f17, SC_FPREGS+136(a0)
66	EX	sdc1 $f19, SC_FPREGS+152(a0)
67	EX	sdc1 $f21, SC_FPREGS+168(a0)
68	EX	sdc1 $f23, SC_FPREGS+184(a0)
69	EX	sdc1 $f25, SC_FPREGS+200(a0)
70	EX	sdc1 $f27, SC_FPREGS+216(a0)
71	EX	sdc1 $f29, SC_FPREGS+232(a0)
72	EX	sdc1 $f31, SC_FPREGS+248(a0)
731:	.set	pop
74#endif
75
76	.set push
77	SET_HARDFLOAT
78	/* Store the 16 even double precision registers */
79	EX	sdc1 $f0, SC_FPREGS+0(a0)
80	EX	sdc1 $f2, SC_FPREGS+16(a0)
81	EX	sdc1 $f4, SC_FPREGS+32(a0)
82	EX	sdc1 $f6, SC_FPREGS+48(a0)
83	EX	sdc1 $f8, SC_FPREGS+64(a0)
84	EX	sdc1 $f10, SC_FPREGS+80(a0)
85	EX	sdc1 $f12, SC_FPREGS+96(a0)
86	EX	sdc1 $f14, SC_FPREGS+112(a0)
87	EX	sdc1 $f16, SC_FPREGS+128(a0)
88	EX	sdc1 $f18, SC_FPREGS+144(a0)
89	EX	sdc1 $f20, SC_FPREGS+160(a0)
90	EX	sdc1 $f22, SC_FPREGS+176(a0)
91	EX	sdc1 $f24, SC_FPREGS+192(a0)
92	EX	sdc1 $f26, SC_FPREGS+208(a0)
93	EX	sdc1 $f28, SC_FPREGS+224(a0)
94	EX	sdc1 $f30, SC_FPREGS+240(a0)
95	EX	sw t1, SC_FPC_CSR(a0)
96	jr	ra
97	 li	v0, 0					# success
98	.set pop
99	END(_save_fp_context)
100
101#ifdef CONFIG_MIPS32_COMPAT
102	/* Save 32-bit process floating point context */
103LEAF(_save_fp_context32)
104	.set push
105	SET_HARDFLOAT
106	cfc1	t1, fcr31
107
108	mfc0	t0, CP0_STATUS
109	sll	t0, t0, 5
110	bgez	t0, 1f			# skip storing odd if FR=0
111	 nop
112
113	/* Store the 16 odd double precision registers */
114	EX      sdc1 $f1, SC32_FPREGS+8(a0)
115	EX      sdc1 $f3, SC32_FPREGS+24(a0)
116	EX      sdc1 $f5, SC32_FPREGS+40(a0)
117	EX      sdc1 $f7, SC32_FPREGS+56(a0)
118	EX      sdc1 $f9, SC32_FPREGS+72(a0)
119	EX      sdc1 $f11, SC32_FPREGS+88(a0)
120	EX      sdc1 $f13, SC32_FPREGS+104(a0)
121	EX      sdc1 $f15, SC32_FPREGS+120(a0)
122	EX      sdc1 $f17, SC32_FPREGS+136(a0)
123	EX      sdc1 $f19, SC32_FPREGS+152(a0)
124	EX      sdc1 $f21, SC32_FPREGS+168(a0)
125	EX      sdc1 $f23, SC32_FPREGS+184(a0)
126	EX      sdc1 $f25, SC32_FPREGS+200(a0)
127	EX      sdc1 $f27, SC32_FPREGS+216(a0)
128	EX      sdc1 $f29, SC32_FPREGS+232(a0)
129	EX      sdc1 $f31, SC32_FPREGS+248(a0)
130
131	/* Store the 16 even double precision registers */
1321:	EX	sdc1 $f0, SC32_FPREGS+0(a0)
133	EX	sdc1 $f2, SC32_FPREGS+16(a0)
134	EX	sdc1 $f4, SC32_FPREGS+32(a0)
135	EX	sdc1 $f6, SC32_FPREGS+48(a0)
136	EX	sdc1 $f8, SC32_FPREGS+64(a0)
137	EX	sdc1 $f10, SC32_FPREGS+80(a0)
138	EX	sdc1 $f12, SC32_FPREGS+96(a0)
139	EX	sdc1 $f14, SC32_FPREGS+112(a0)
140	EX	sdc1 $f16, SC32_FPREGS+128(a0)
141	EX	sdc1 $f18, SC32_FPREGS+144(a0)
142	EX	sdc1 $f20, SC32_FPREGS+160(a0)
143	EX	sdc1 $f22, SC32_FPREGS+176(a0)
144	EX	sdc1 $f24, SC32_FPREGS+192(a0)
145	EX	sdc1 $f26, SC32_FPREGS+208(a0)
146	EX	sdc1 $f28, SC32_FPREGS+224(a0)
147	EX	sdc1 $f30, SC32_FPREGS+240(a0)
148	EX	sw t1, SC32_FPC_CSR(a0)
149	cfc1	t0, $0				# implementation/version
150	EX	sw t0, SC32_FPC_EIR(a0)
151	.set pop
152
153	jr	ra
154	 li	v0, 0					# success
155	END(_save_fp_context32)
156#endif
157
158/*
159 * Restore FPU state:
160 *  - fp gp registers
161 *  - cp1 status/control register
162 */
163LEAF(_restore_fp_context)
164	EX	lw t1, SC_FPC_CSR(a0)
165
166#if defined(CONFIG_64BIT) || defined(CONFIG_CPU_MIPS32_R2)
167	.set	push
168	SET_HARDFLOAT
169#ifdef CONFIG_CPU_MIPS32_R2
170	.set	mips32r2
171	.set	fp=64
172	mfc0	t0, CP0_STATUS
173	sll	t0, t0, 5
174	bgez	t0, 1f			# skip loading odd if FR=0
175	 nop
176#endif
177	EX	ldc1 $f1, SC_FPREGS+8(a0)
178	EX	ldc1 $f3, SC_FPREGS+24(a0)
179	EX	ldc1 $f5, SC_FPREGS+40(a0)
180	EX	ldc1 $f7, SC_FPREGS+56(a0)
181	EX	ldc1 $f9, SC_FPREGS+72(a0)
182	EX	ldc1 $f11, SC_FPREGS+88(a0)
183	EX	ldc1 $f13, SC_FPREGS+104(a0)
184	EX	ldc1 $f15, SC_FPREGS+120(a0)
185	EX	ldc1 $f17, SC_FPREGS+136(a0)
186	EX	ldc1 $f19, SC_FPREGS+152(a0)
187	EX	ldc1 $f21, SC_FPREGS+168(a0)
188	EX	ldc1 $f23, SC_FPREGS+184(a0)
189	EX	ldc1 $f25, SC_FPREGS+200(a0)
190	EX	ldc1 $f27, SC_FPREGS+216(a0)
191	EX	ldc1 $f29, SC_FPREGS+232(a0)
192	EX	ldc1 $f31, SC_FPREGS+248(a0)
1931:	.set pop
194#endif
195	.set push
196	SET_HARDFLOAT
197	EX	ldc1 $f0, SC_FPREGS+0(a0)
198	EX	ldc1 $f2, SC_FPREGS+16(a0)
199	EX	ldc1 $f4, SC_FPREGS+32(a0)
200	EX	ldc1 $f6, SC_FPREGS+48(a0)
201	EX	ldc1 $f8, SC_FPREGS+64(a0)
202	EX	ldc1 $f10, SC_FPREGS+80(a0)
203	EX	ldc1 $f12, SC_FPREGS+96(a0)
204	EX	ldc1 $f14, SC_FPREGS+112(a0)
205	EX	ldc1 $f16, SC_FPREGS+128(a0)
206	EX	ldc1 $f18, SC_FPREGS+144(a0)
207	EX	ldc1 $f20, SC_FPREGS+160(a0)
208	EX	ldc1 $f22, SC_FPREGS+176(a0)
209	EX	ldc1 $f24, SC_FPREGS+192(a0)
210	EX	ldc1 $f26, SC_FPREGS+208(a0)
211	EX	ldc1 $f28, SC_FPREGS+224(a0)
212	EX	ldc1 $f30, SC_FPREGS+240(a0)
213	ctc1	t1, fcr31
214	.set pop
215	jr	ra
216	 li	v0, 0					# success
217	END(_restore_fp_context)
218
219#ifdef CONFIG_MIPS32_COMPAT
220LEAF(_restore_fp_context32)
221	/* Restore an o32 sigcontext.  */
222	.set push
223	SET_HARDFLOAT
224	EX	lw t1, SC32_FPC_CSR(a0)
225
226	mfc0	t0, CP0_STATUS
227	sll	t0, t0, 5
228	bgez	t0, 1f			# skip loading odd if FR=0
229	 nop
230
231	EX      ldc1 $f1, SC32_FPREGS+8(a0)
232	EX      ldc1 $f3, SC32_FPREGS+24(a0)
233	EX      ldc1 $f5, SC32_FPREGS+40(a0)
234	EX      ldc1 $f7, SC32_FPREGS+56(a0)
235	EX      ldc1 $f9, SC32_FPREGS+72(a0)
236	EX      ldc1 $f11, SC32_FPREGS+88(a0)
237	EX      ldc1 $f13, SC32_FPREGS+104(a0)
238	EX      ldc1 $f15, SC32_FPREGS+120(a0)
239	EX      ldc1 $f17, SC32_FPREGS+136(a0)
240	EX      ldc1 $f19, SC32_FPREGS+152(a0)
241	EX      ldc1 $f21, SC32_FPREGS+168(a0)
242	EX      ldc1 $f23, SC32_FPREGS+184(a0)
243	EX      ldc1 $f25, SC32_FPREGS+200(a0)
244	EX      ldc1 $f27, SC32_FPREGS+216(a0)
245	EX      ldc1 $f29, SC32_FPREGS+232(a0)
246	EX      ldc1 $f31, SC32_FPREGS+248(a0)
247
2481:	EX	ldc1 $f0, SC32_FPREGS+0(a0)
249	EX	ldc1 $f2, SC32_FPREGS+16(a0)
250	EX	ldc1 $f4, SC32_FPREGS+32(a0)
251	EX	ldc1 $f6, SC32_FPREGS+48(a0)
252	EX	ldc1 $f8, SC32_FPREGS+64(a0)
253	EX	ldc1 $f10, SC32_FPREGS+80(a0)
254	EX	ldc1 $f12, SC32_FPREGS+96(a0)
255	EX	ldc1 $f14, SC32_FPREGS+112(a0)
256	EX	ldc1 $f16, SC32_FPREGS+128(a0)
257	EX	ldc1 $f18, SC32_FPREGS+144(a0)
258	EX	ldc1 $f20, SC32_FPREGS+160(a0)
259	EX	ldc1 $f22, SC32_FPREGS+176(a0)
260	EX	ldc1 $f24, SC32_FPREGS+192(a0)
261	EX	ldc1 $f26, SC32_FPREGS+208(a0)
262	EX	ldc1 $f28, SC32_FPREGS+224(a0)
263	EX	ldc1 $f30, SC32_FPREGS+240(a0)
264	ctc1	t1, fcr31
265	jr	ra
266	 li	v0, 0					# success
267	.set pop
268	END(_restore_fp_context32)
269#endif
270
271	.set	reorder
272
273	.type	fault@function
274	.ent	fault
275fault:	li	v0, -EFAULT				# failure
276	jr	ra
277	.end	fault
278