xref: /openbmc/linux/arch/sparc/kernel/entry.S (revision 643d1f7f) 
1/* arch/sparc/kernel/entry.S:  Sparc trap low-level entry points.
2 *
3 * Copyright (C) 1995, 2007 David S. Miller (davem@davemloft.net)
4 * Copyright (C) 1996 Eddie C. Dost   (ecd@skynet.be)
5 * Copyright (C) 1996 Miguel de Icaza (miguel@nuclecu.unam.mx)
6 * Copyright (C) 1996-1999 Jakub Jelinek   (jj@sunsite.mff.cuni.cz)
7 * Copyright (C) 1997 Anton Blanchard (anton@progsoc.uts.edu.au)
8 */
9
10#include <linux/errno.h>
11
12#include <asm/head.h>
13#include <asm/asi.h>
14#include <asm/smp.h>
15#include <asm/kgdb.h>
16#include <asm/contregs.h>
17#include <asm/ptrace.h>
18#include <asm/asm-offsets.h>
19#include <asm/psr.h>
20#include <asm/vaddrs.h>
21#include <asm/memreg.h>
22#include <asm/page.h>
23#ifdef CONFIG_SUN4
24#include <asm/pgtsun4.h>
25#else
26#include <asm/pgtsun4c.h>
27#endif
28#include <asm/winmacro.h>
29#include <asm/signal.h>
30#include <asm/obio.h>
31#include <asm/mxcc.h>
32#include <asm/thread_info.h>
33#include <asm/param.h>
34#include <asm/unistd.h>
35
36#include <asm/asmmacro.h>
37
38#define curptr      g6
39
40/* These are just handy. */
41#define _SV	save	%sp, -STACKFRAME_SZ, %sp
42#define _RS     restore
43
44#define FLUSH_ALL_KERNEL_WINDOWS \
45	_SV; _SV; _SV; _SV; _SV; _SV; _SV; \
46	_RS; _RS; _RS; _RS; _RS; _RS; _RS;
47
48/* First, KGDB low level things.  This is a rewrite
49 * of the routines found in the sparc-stub.c asm() statement
50 * from the gdb distribution.  This is also dual-purpose
51 * as a software trap for userlevel programs.
52 */
53	.data
54	.align	4
55
56in_trap_handler:
57	.word	0
58
59	.text
60	.align	4
61
62#if 0 /* kgdb is dropped from 2.5.33 */
63! This function is called when any SPARC trap (except window overflow or
64! underflow) occurs.  It makes sure that the invalid register window is still
65! available before jumping into C code.  It will also restore the world if you
66! return from handle_exception.
67
68	.globl	trap_low
69trap_low:
70	rd	%wim, %l3
71	SAVE_ALL
72
73	sethi	%hi(in_trap_handler), %l4
74	ld	[%lo(in_trap_handler) + %l4], %l5
75	inc	%l5
76	st	%l5, [%lo(in_trap_handler) + %l4]
77
78	/* Make sure kgdb sees the same state we just saved. */
79	LOAD_PT_GLOBALS(sp)
80	LOAD_PT_INS(sp)
81	ld	[%sp + STACKFRAME_SZ + PT_Y], %l4
82	ld	[%sp + STACKFRAME_SZ + PT_WIM], %l3
83	ld	[%sp + STACKFRAME_SZ + PT_PSR], %l0
84	ld	[%sp + STACKFRAME_SZ + PT_PC], %l1
85	ld	[%sp + STACKFRAME_SZ + PT_NPC], %l2
86	rd	%tbr, %l5	/* Never changes... */
87
88	/* Make kgdb exception frame. */
89	sub	%sp,(16+1+6+1+72)*4,%sp	! Make room for input & locals
90 					! + hidden arg + arg spill
91					! + doubleword alignment
92					! + registers[72] local var
93	SAVE_KGDB_GLOBALS(sp)
94	SAVE_KGDB_INS(sp)
95	SAVE_KGDB_SREGS(sp, l4, l0, l3, l5, l1, l2)
96
97	/* We are increasing PIL, so two writes. */
98	or	%l0, PSR_PIL, %l0
99	wr	%l0, 0, %psr
100	WRITE_PAUSE
101	wr	%l0, PSR_ET, %psr
102	WRITE_PAUSE
103
104	call	handle_exception
105	 add	%sp, STACKFRAME_SZ, %o0	! Pass address of registers
106
107	/* Load new kgdb register set. */
108	LOAD_KGDB_GLOBALS(sp)
109	LOAD_KGDB_INS(sp)
110	LOAD_KGDB_SREGS(sp, l4, l0, l3, l5, l1, l2)
111	wr      %l4, 0x0, %y
112
113	sethi	%hi(in_trap_handler), %l4
114	ld	[%lo(in_trap_handler) + %l4], %l5
115	dec	%l5
116	st	%l5, [%lo(in_trap_handler) + %l4]
117
118	add	%sp,(16+1+6+1+72)*4,%sp	! Undo the kgdb trap frame.
119
120	/* Now take what kgdb did and place it into the pt_regs
121	 * frame which SparcLinux RESTORE_ALL understands.,
122	 */
123	STORE_PT_INS(sp)
124	STORE_PT_GLOBALS(sp)
125	STORE_PT_YREG(sp, g2)
126	STORE_PT_PRIV(sp, l0, l1, l2)
127
128	RESTORE_ALL
129#endif
130
131#if defined(CONFIG_BLK_DEV_FD) || defined(CONFIG_BLK_DEV_FD_MODULE)
132	.text
133	.align	4
134	.globl	floppy_hardint
135floppy_hardint:
136	/*
137	 * This code cannot touch registers %l0 %l1 and %l2
138	 * because SAVE_ALL depends on their values. It depends
139	 * on %l3 also, but we regenerate it before a call.
140	 * Other registers are:
141	 * %l3 -- base address of fdc registers
142	 * %l4 -- pdma_vaddr
143	 * %l5 -- scratch for ld/st address
144	 * %l6 -- pdma_size
145	 * %l7 -- scratch [floppy byte, ld/st address, aux. data]
146	 */
147
148	/* Do we have work to do? */
149	sethi	%hi(doing_pdma), %l7
150	ld	[%l7 + %lo(doing_pdma)], %l7
151	cmp	%l7, 0
152	be	floppy_dosoftint
153	 nop
154
155	/* Load fdc register base */
156	sethi	%hi(fdc_status), %l3
157	ld	[%l3 + %lo(fdc_status)], %l3
158
159	/* Setup register addresses */
160	sethi	%hi(pdma_vaddr), %l5	! transfer buffer
161	ld	[%l5 + %lo(pdma_vaddr)], %l4
162	sethi	%hi(pdma_size), %l5	! bytes to go
163	ld	[%l5 + %lo(pdma_size)], %l6
164next_byte:
165  	ldub	[%l3], %l7
166
167	andcc	%l7, 0x80, %g0		! Does fifo still have data
168	bz	floppy_fifo_emptied	! fifo has been emptied...
169	 andcc	%l7, 0x20, %g0		! in non-dma mode still?
170	bz	floppy_overrun		! nope, overrun
171	 andcc	%l7, 0x40, %g0		! 0=write 1=read
172	bz	floppy_write
173	 sub	%l6, 0x1, %l6
174
175	/* Ok, actually read this byte */
176	ldub	[%l3 + 1], %l7
177	orcc	%g0, %l6, %g0
178	stb	%l7, [%l4]
179	bne	next_byte
180	 add	%l4, 0x1, %l4
181
182	b	floppy_tdone
183	 nop
184
185floppy_write:
186	/* Ok, actually write this byte */
187	ldub	[%l4], %l7
188	orcc	%g0, %l6, %g0
189	stb	%l7, [%l3 + 1]
190	bne	next_byte
191	 add	%l4, 0x1, %l4
192
193	/* fall through... */
194floppy_tdone:
195	sethi	%hi(pdma_vaddr), %l5
196	st	%l4, [%l5 + %lo(pdma_vaddr)]
197	sethi	%hi(pdma_size), %l5
198	st	%l6, [%l5 + %lo(pdma_size)]
199	/* Flip terminal count pin */
200	set	auxio_register, %l7
201	ld	[%l7], %l7
202
203	set	sparc_cpu_model, %l5
204	ld	[%l5], %l5
205	subcc   %l5, 1, %g0		/* enum { sun4c = 1 }; */
206	be	1f
207	 ldub	[%l7], %l5
208
209	or	%l5, 0xc2, %l5
210	stb	%l5, [%l7]
211	andn    %l5, 0x02, %l5
212	b	2f
213	 nop
214
2151:
216	or      %l5, 0xf4, %l5
217	stb     %l5, [%l7]
218	andn    %l5, 0x04, %l5
219
2202:
221	/* Kill some time so the bits set */
222	WRITE_PAUSE
223	WRITE_PAUSE
224
225	stb     %l5, [%l7]
226
227	/* Prevent recursion */
228	sethi	%hi(doing_pdma), %l7
229	b	floppy_dosoftint
230	 st	%g0, [%l7 + %lo(doing_pdma)]
231
232	/* We emptied the FIFO, but we haven't read everything
233	 * as of yet.  Store the current transfer address and
234	 * bytes left to read so we can continue when the next
235	 * fast IRQ comes in.
236	 */
237floppy_fifo_emptied:
238	sethi	%hi(pdma_vaddr), %l5
239	st	%l4, [%l5 + %lo(pdma_vaddr)]
240	sethi	%hi(pdma_size), %l7
241	st	%l6, [%l7 + %lo(pdma_size)]
242
243	/* Restore condition codes */
244	wr	%l0, 0x0, %psr
245	WRITE_PAUSE
246
247	jmp	%l1
248	rett	%l2
249
250floppy_overrun:
251	sethi	%hi(pdma_vaddr), %l5
252	st	%l4, [%l5 + %lo(pdma_vaddr)]
253	sethi	%hi(pdma_size), %l5
254	st	%l6, [%l5 + %lo(pdma_size)]
255	/* Prevent recursion */
256	sethi	%hi(doing_pdma), %l7
257	st	%g0, [%l7 + %lo(doing_pdma)]
258
259	/* fall through... */
260floppy_dosoftint:
261	rd	%wim, %l3
262	SAVE_ALL
263
264	/* Set all IRQs off. */
265	or	%l0, PSR_PIL, %l4
266	wr	%l4, 0x0, %psr
267	WRITE_PAUSE
268	wr	%l4, PSR_ET, %psr
269	WRITE_PAUSE
270
271	mov	11, %o0			! floppy irq level (unused anyway)
272	mov	%g0, %o1		! devid is not used in fast interrupts
273	call	sparc_floppy_irq
274	 add	%sp, STACKFRAME_SZ, %o2	! struct pt_regs *regs
275
276	RESTORE_ALL
277
278#endif /* (CONFIG_BLK_DEV_FD) */
279
280	/* Bad trap handler */
281	.globl	bad_trap_handler
282bad_trap_handler:
283	SAVE_ALL
284
285	wr	%l0, PSR_ET, %psr
286	WRITE_PAUSE
287
288	add	%sp, STACKFRAME_SZ, %o0	! pt_regs
289	call	do_hw_interrupt
290	 mov	%l7, %o1		! trap number
291
292	RESTORE_ALL
293
294/* For now all IRQ's not registered get sent here. handler_irq() will
295 * see if a routine is registered to handle this interrupt and if not
296 * it will say so on the console.
297 */
298
299	.align	4
300	.globl	real_irq_entry, patch_handler_irq
301real_irq_entry:
302	SAVE_ALL
303
304#ifdef CONFIG_SMP
305	.globl	patchme_maybe_smp_msg
306
307	cmp	%l7, 12
308patchme_maybe_smp_msg:
309	bgu	maybe_smp4m_msg
310	 nop
311#endif
312
313real_irq_continue:
314	or	%l0, PSR_PIL, %g2
315	wr	%g2, 0x0, %psr
316	WRITE_PAUSE
317	wr	%g2, PSR_ET, %psr
318	WRITE_PAUSE
319	mov	%l7, %o0		! irq level
320patch_handler_irq:
321	call	handler_irq
322	 add	%sp, STACKFRAME_SZ, %o1	! pt_regs ptr
323	or	%l0, PSR_PIL, %g2	! restore PIL after handler_irq
324	wr	%g2, PSR_ET, %psr	! keep ET up
325	WRITE_PAUSE
326
327	RESTORE_ALL
328
329#ifdef CONFIG_SMP
330	/* SMP per-cpu ticker interrupts are handled specially. */
331smp4m_ticker:
332	bne	real_irq_continue+4
333	 or	%l0, PSR_PIL, %g2
334	wr	%g2, 0x0, %psr
335	WRITE_PAUSE
336	wr	%g2, PSR_ET, %psr
337	WRITE_PAUSE
338	call	smp4m_percpu_timer_interrupt
339	 add	%sp, STACKFRAME_SZ, %o0
340	wr	%l0, PSR_ET, %psr
341	WRITE_PAUSE
342	RESTORE_ALL
343
344	/* Here is where we check for possible SMP IPI passed to us
345	 * on some level other than 15 which is the NMI and only used
346	 * for cross calls.  That has a separate entry point below.
347	 */
348maybe_smp4m_msg:
349	GET_PROCESSOR4M_ID(o3)
350	set	sun4m_interrupts, %l5
351	ld	[%l5], %o5
352	sethi	%hi(0x40000000), %o2
353	sll	%o3, 12, %o3
354	ld	[%o5 + %o3], %o1
355	andcc	%o1, %o2, %g0
356	be,a	smp4m_ticker
357	 cmp	%l7, 14
358	st	%o2, [%o5 + 0x4]
359	WRITE_PAUSE
360	ld	[%o5], %g0
361	WRITE_PAUSE
362	or	%l0, PSR_PIL, %l4
363	wr	%l4, 0x0, %psr
364	WRITE_PAUSE
365	wr	%l4, PSR_ET, %psr
366	WRITE_PAUSE
367	call	smp_reschedule_irq
368	 nop
369
370	RESTORE_ALL
371
372	.align	4
373	.globl	linux_trap_ipi15_sun4m
374linux_trap_ipi15_sun4m:
375	SAVE_ALL
376	sethi	%hi(0x80000000), %o2
377	GET_PROCESSOR4M_ID(o0)
378	set	sun4m_interrupts, %l5
379	ld	[%l5], %o5
380	sll	%o0, 12, %o0
381	add	%o5, %o0, %o5
382	ld	[%o5], %o3
383	andcc	%o3, %o2, %g0
384	be	1f			! Must be an NMI async memory error
385	 st	%o2, [%o5 + 4]
386	WRITE_PAUSE
387	ld	[%o5], %g0
388	WRITE_PAUSE
389	or	%l0, PSR_PIL, %l4
390	wr	%l4, 0x0, %psr
391	WRITE_PAUSE
392	wr	%l4, PSR_ET, %psr
393	WRITE_PAUSE
394	call	smp4m_cross_call_irq
395	 nop
396	b	ret_trap_lockless_ipi
397	 clr	%l6
3981:
399	/* NMI async memory error handling. */
400	sethi	%hi(0x80000000), %l4
401	sethi	%hi(0x4000), %o3
402	sub	%o5, %o0, %o5
403	add	%o5, %o3, %l5
404	st	%l4, [%l5 + 0xc]
405	WRITE_PAUSE
406	ld	[%l5], %g0
407	WRITE_PAUSE
408	or	%l0, PSR_PIL, %l4
409	wr	%l4, 0x0, %psr
410	WRITE_PAUSE
411	wr	%l4, PSR_ET, %psr
412	WRITE_PAUSE
413	call	sun4m_nmi
414	 nop
415	st	%l4, [%l5 + 0x8]
416	WRITE_PAUSE
417	ld	[%l5], %g0
418	WRITE_PAUSE
419	RESTORE_ALL
420
421	.globl	smp4d_ticker
422	/* SMP per-cpu ticker interrupts are handled specially. */
423smp4d_ticker:
424	SAVE_ALL
425	or	%l0, PSR_PIL, %g2
426	sethi	%hi(CC_ICLR), %o0
427	sethi	%hi(1 << 14), %o1
428	or	%o0, %lo(CC_ICLR), %o0
429	stha	%o1, [%o0] ASI_M_MXCC	/* Clear PIL 14 in MXCC's ICLR */
430	wr	%g2, 0x0, %psr
431	WRITE_PAUSE
432	wr	%g2, PSR_ET, %psr
433	WRITE_PAUSE
434	call	smp4d_percpu_timer_interrupt
435	 add	%sp, STACKFRAME_SZ, %o0
436	wr	%l0, PSR_ET, %psr
437	WRITE_PAUSE
438	RESTORE_ALL
439
440	.align	4
441	.globl	linux_trap_ipi15_sun4d
442linux_trap_ipi15_sun4d:
443	SAVE_ALL
444	sethi	%hi(CC_BASE), %o4
445	sethi	%hi(MXCC_ERR_ME|MXCC_ERR_PEW|MXCC_ERR_ASE|MXCC_ERR_PEE), %o2
446	or	%o4, (CC_EREG - CC_BASE), %o0
447	ldda	[%o0] ASI_M_MXCC, %o0
448	andcc	%o0, %o2, %g0
449	bne	1f
450	 sethi	%hi(BB_STAT2), %o2
451	lduba	[%o2] ASI_M_CTL, %o2
452	andcc	%o2, BB_STAT2_MASK, %g0
453	bne	2f
454	 or	%o4, (CC_ICLR - CC_BASE), %o0
455	sethi	%hi(1 << 15), %o1
456	stha	%o1, [%o0] ASI_M_MXCC	/* Clear PIL 15 in MXCC's ICLR */
457	or	%l0, PSR_PIL, %l4
458	wr	%l4, 0x0, %psr
459	WRITE_PAUSE
460	wr	%l4, PSR_ET, %psr
461	WRITE_PAUSE
462	call	smp4d_cross_call_irq
463	 nop
464	b	ret_trap_lockless_ipi
465	 clr	%l6
466
4671:	/* MXCC error */
4682:	/* BB error */
469	/* Disable PIL 15 */
470	set	CC_IMSK, %l4
471	lduha	[%l4] ASI_M_MXCC, %l5
472	sethi	%hi(1 << 15), %l7
473	or	%l5, %l7, %l5
474	stha	%l5, [%l4] ASI_M_MXCC
475	/* FIXME */
4761:	b,a	1b
477
478#endif /* CONFIG_SMP */
479
480	/* This routine handles illegal instructions and privileged
481	 * instruction attempts from user code.
482	 */
483	.align	4
484	.globl	bad_instruction
485bad_instruction:
486	sethi	%hi(0xc1f80000), %l4
487	ld	[%l1], %l5
488	sethi	%hi(0x81d80000), %l7
489	and	%l5, %l4, %l5
490	cmp	%l5, %l7
491	be	1f
492	SAVE_ALL
493
494	wr	%l0, PSR_ET, %psr		! re-enable traps
495	WRITE_PAUSE
496
497	add	%sp, STACKFRAME_SZ, %o0
498	mov	%l1, %o1
499	mov	%l2, %o2
500	call	do_illegal_instruction
501	 mov	%l0, %o3
502
503	RESTORE_ALL
504
5051:	/* unimplemented flush - just skip */
506	jmpl	%l2, %g0
507	 rett	%l2 + 4
508
509	.align	4
510	.globl	priv_instruction
511priv_instruction:
512	SAVE_ALL
513
514	wr	%l0, PSR_ET, %psr
515	WRITE_PAUSE
516
517	add	%sp, STACKFRAME_SZ, %o0
518	mov	%l1, %o1
519	mov	%l2, %o2
520	call	do_priv_instruction
521	 mov	%l0, %o3
522
523	RESTORE_ALL
524
525	/* This routine handles unaligned data accesses. */
526	.align	4
527	.globl	mna_handler
528mna_handler:
529	andcc	%l0, PSR_PS, %g0
530	be	mna_fromuser
531	 nop
532
533	SAVE_ALL
534
535	wr	%l0, PSR_ET, %psr
536	WRITE_PAUSE
537
538	ld	[%l1], %o1
539	call	kernel_unaligned_trap
540	 add	%sp, STACKFRAME_SZ, %o0
541
542	RESTORE_ALL
543
544mna_fromuser:
545	SAVE_ALL
546
547	wr	%l0, PSR_ET, %psr		! re-enable traps
548	WRITE_PAUSE
549
550	ld	[%l1], %o1
551	call	user_unaligned_trap
552	 add	%sp, STACKFRAME_SZ, %o0
553
554	RESTORE_ALL
555
556	/* This routine handles floating point disabled traps. */
557	.align	4
558	.globl	fpd_trap_handler
559fpd_trap_handler:
560	SAVE_ALL
561
562	wr	%l0, PSR_ET, %psr		! re-enable traps
563	WRITE_PAUSE
564
565	add	%sp, STACKFRAME_SZ, %o0
566	mov	%l1, %o1
567	mov	%l2, %o2
568	call	do_fpd_trap
569	 mov	%l0, %o3
570
571	RESTORE_ALL
572
573	/* This routine handles Floating Point Exceptions. */
574	.align	4
575	.globl	fpe_trap_handler
576fpe_trap_handler:
577	set	fpsave_magic, %l5
578	cmp	%l1, %l5
579	be	1f
580	 sethi	%hi(fpsave), %l5
581	or	%l5, %lo(fpsave), %l5
582	cmp	%l1, %l5
583	bne	2f
584	 sethi	%hi(fpsave_catch2), %l5
585	or	%l5, %lo(fpsave_catch2), %l5
586	wr	%l0, 0x0, %psr
587	WRITE_PAUSE
588	jmp	%l5
589	 rett	%l5 + 4
5901:
591	sethi	%hi(fpsave_catch), %l5
592	or	%l5, %lo(fpsave_catch), %l5
593	wr	%l0, 0x0, %psr
594	WRITE_PAUSE
595	jmp	%l5
596	 rett	%l5 + 4
597
5982:
599	SAVE_ALL
600
601	wr	%l0, PSR_ET, %psr		! re-enable traps
602	WRITE_PAUSE
603
604	add	%sp, STACKFRAME_SZ, %o0
605	mov	%l1, %o1
606	mov	%l2, %o2
607	call	do_fpe_trap
608	 mov	%l0, %o3
609
610	RESTORE_ALL
611
612	/* This routine handles Tag Overflow Exceptions. */
613	.align	4
614	.globl	do_tag_overflow
615do_tag_overflow:
616	SAVE_ALL
617
618	wr	%l0, PSR_ET, %psr		! re-enable traps
619	WRITE_PAUSE
620
621	add	%sp, STACKFRAME_SZ, %o0
622	mov	%l1, %o1
623	mov	%l2, %o2
624	call	handle_tag_overflow
625	 mov	%l0, %o3
626
627	RESTORE_ALL
628
629	/* This routine handles Watchpoint Exceptions. */
630	.align	4
631	.globl	do_watchpoint
632do_watchpoint:
633	SAVE_ALL
634
635	wr	%l0, PSR_ET, %psr		! re-enable traps
636	WRITE_PAUSE
637
638	add	%sp, STACKFRAME_SZ, %o0
639	mov	%l1, %o1
640	mov	%l2, %o2
641	call	handle_watchpoint
642	 mov	%l0, %o3
643
644	RESTORE_ALL
645
646	/* This routine handles Register Access Exceptions. */
647	.align	4
648	.globl	do_reg_access
649do_reg_access:
650	SAVE_ALL
651
652	wr	%l0, PSR_ET, %psr		! re-enable traps
653	WRITE_PAUSE
654
655	add	%sp, STACKFRAME_SZ, %o0
656	mov	%l1, %o1
657	mov	%l2, %o2
658	call	handle_reg_access
659	 mov	%l0, %o3
660
661	RESTORE_ALL
662
663	/* This routine handles Co-Processor Disabled Exceptions. */
664	.align	4
665	.globl	do_cp_disabled
666do_cp_disabled:
667	SAVE_ALL
668
669	wr	%l0, PSR_ET, %psr		! re-enable traps
670	WRITE_PAUSE
671
672	add	%sp, STACKFRAME_SZ, %o0
673	mov	%l1, %o1
674	mov	%l2, %o2
675	call	handle_cp_disabled
676	 mov	%l0, %o3
677
678	RESTORE_ALL
679
680	/* This routine handles Co-Processor Exceptions. */
681	.align	4
682	.globl	do_cp_exception
683do_cp_exception:
684	SAVE_ALL
685
686	wr	%l0, PSR_ET, %psr		! re-enable traps
687	WRITE_PAUSE
688
689	add	%sp, STACKFRAME_SZ, %o0
690	mov	%l1, %o1
691	mov	%l2, %o2
692	call	handle_cp_exception
693	 mov	%l0, %o3
694
695	RESTORE_ALL
696
697	/* This routine handles Hardware Divide By Zero Exceptions. */
698	.align	4
699	.globl	do_hw_divzero
700do_hw_divzero:
701	SAVE_ALL
702
703	wr	%l0, PSR_ET, %psr		! re-enable traps
704	WRITE_PAUSE
705
706	add	%sp, STACKFRAME_SZ, %o0
707	mov	%l1, %o1
708	mov	%l2, %o2
709	call	handle_hw_divzero
710	 mov	%l0, %o3
711
712	RESTORE_ALL
713
714	.align	4
715	.globl	do_flush_windows
716do_flush_windows:
717	SAVE_ALL
718
719	wr	%l0, PSR_ET, %psr
720	WRITE_PAUSE
721
722	andcc	%l0, PSR_PS, %g0
723	bne	dfw_kernel
724	 nop
725
726	call	flush_user_windows
727	 nop
728
729	/* Advance over the trap instruction. */
730	ld	[%sp + STACKFRAME_SZ + PT_NPC], %l1
731	add	%l1, 0x4, %l2
732	st	%l1, [%sp + STACKFRAME_SZ + PT_PC]
733	st	%l2, [%sp + STACKFRAME_SZ + PT_NPC]
734
735	RESTORE_ALL
736
737	.globl	flush_patch_one
738
739	/* We get these for debugging routines using __builtin_return_address() */
740dfw_kernel:
741flush_patch_one:
742	FLUSH_ALL_KERNEL_WINDOWS
743
744	/* Advance over the trap instruction. */
745	ld	[%sp + STACKFRAME_SZ + PT_NPC], %l1
746	add	%l1, 0x4, %l2
747	st	%l1, [%sp + STACKFRAME_SZ + PT_PC]
748	st	%l2, [%sp + STACKFRAME_SZ + PT_NPC]
749
750	RESTORE_ALL
751
752	/* The getcc software trap.  The user wants the condition codes from
753	 * the %psr in register %g1.
754	 */
755
756	.align	4
757	.globl	getcc_trap_handler
758getcc_trap_handler:
759	srl	%l0, 20, %g1	! give user
760	and	%g1, 0xf, %g1	! only ICC bits in %psr
761	jmp	%l2		! advance over trap instruction
762	rett	%l2 + 0x4	! like this...
763
764	/* The setcc software trap.  The user has condition codes in %g1
765	 * that it would like placed in the %psr.  Be careful not to flip
766	 * any unintentional bits!
767	 */
768
769	.align	4
770	.globl	setcc_trap_handler
771setcc_trap_handler:
772	sll	%g1, 0x14, %l4
773	set	PSR_ICC, %l5
774	andn	%l0, %l5, %l0	! clear ICC bits in %psr
775	and	%l4, %l5, %l4	! clear non-ICC bits in user value
776	or	%l4, %l0, %l4	! or them in... mix mix mix
777
778	wr	%l4, 0x0, %psr	! set new %psr
779	WRITE_PAUSE		! TI scumbags...
780
781	jmp	%l2		! advance over trap instruction
782	rett	%l2 + 0x4	! like this...
783
784	.align	4
785	.globl	linux_trap_nmi_sun4c
786linux_trap_nmi_sun4c:
787	SAVE_ALL
788
789	/* Ugh, we need to clear the IRQ line.  This is now
790	 * a very sun4c specific trap handler...
791	 */
792	sethi	%hi(interrupt_enable), %l5
793	ld	[%l5 + %lo(interrupt_enable)], %l5
794	ldub	[%l5], %l6
795	andn	%l6, INTS_ENAB, %l6
796	stb	%l6, [%l5]
797
798	/* Now it is safe to re-enable traps without recursion. */
799	or	%l0, PSR_PIL, %l0
800	wr	%l0, PSR_ET, %psr
801	WRITE_PAUSE
802
803	/* Now call the c-code with the pt_regs frame ptr and the
804	 * memory error registers as arguments.  The ordering chosen
805	 * here is due to unlatching semantics.
806	 */
807	sethi	%hi(AC_SYNC_ERR), %o0
808	add	%o0, 0x4, %o0
809	lda	[%o0] ASI_CONTROL, %o2	! sync vaddr
810	sub	%o0, 0x4, %o0
811	lda	[%o0] ASI_CONTROL, %o1	! sync error
812	add	%o0, 0xc, %o0
813	lda	[%o0] ASI_CONTROL, %o4	! async vaddr
814	sub	%o0, 0x4, %o0
815	lda	[%o0] ASI_CONTROL, %o3	! async error
816	call	sparc_lvl15_nmi
817	 add	%sp, STACKFRAME_SZ, %o0
818
819	RESTORE_ALL
820
821	.align	4
822	.globl	invalid_segment_patch1_ff
823	.globl	invalid_segment_patch2_ff
824invalid_segment_patch1_ff:	cmp	%l4, 0xff
825invalid_segment_patch2_ff:	mov	0xff, %l3
826
827	.align	4
828	.globl	invalid_segment_patch1_1ff
829	.globl	invalid_segment_patch2_1ff
830invalid_segment_patch1_1ff:	cmp	%l4, 0x1ff
831invalid_segment_patch2_1ff:	mov	0x1ff, %l3
832
833	.align	4
834	.globl	num_context_patch1_16, num_context_patch2_16
835num_context_patch1_16:		mov	0x10, %l7
836num_context_patch2_16:		mov	0x10, %l7
837
838	.align	4
839	.globl	vac_linesize_patch_32
840vac_linesize_patch_32:		subcc	%l7, 32, %l7
841
842	.align	4
843	.globl	vac_hwflush_patch1_on, vac_hwflush_patch2_on
844
845/*
846 * Ugly, but we cant use hardware flushing on the sun4 and we'd require
847 * two instructions (Anton)
848 */
849#ifdef CONFIG_SUN4
850vac_hwflush_patch1_on:		nop
851#else
852vac_hwflush_patch1_on:		addcc	%l7, -PAGE_SIZE, %l7
853#endif
854
855vac_hwflush_patch2_on:		sta	%g0, [%l3 + %l7] ASI_HWFLUSHSEG
856
857	.globl	invalid_segment_patch1, invalid_segment_patch2
858	.globl	num_context_patch1
859	.globl	vac_linesize_patch, vac_hwflush_patch1
860	.globl	vac_hwflush_patch2
861
862	.align	4
863	.globl	sun4c_fault
864
865! %l0 = %psr
866! %l1 = %pc
867! %l2 = %npc
868! %l3 = %wim
869! %l7 = 1 for textfault
870! We want error in %l5, vaddr in %l6
871sun4c_fault:
872#ifdef CONFIG_SUN4
873	sethi	%hi(sun4c_memerr_reg), %l4
874	ld	[%l4+%lo(sun4c_memerr_reg)], %l4  ! memerr ctrl reg addr
875	ld	[%l4], %l6		! memerr ctrl reg
876	ld	[%l4 + 4], %l5		! memerr vaddr reg
877	andcc	%l6, 0x80, %g0		! check for error type
878	st	%g0, [%l4 + 4]		! clear the error
879	be	0f			! normal error
880	 sethi	%hi(AC_BUS_ERROR), %l4	! bus err reg addr
881
882	call	prom_halt	! something weird happened
883					! what exactly did happen?
884					! what should we do here?
885
8860:	or	%l4, %lo(AC_BUS_ERROR), %l4	! bus err reg addr
887	lduba	[%l4] ASI_CONTROL, %l6	! bus err reg
888
889	cmp    %l7, 1			! text fault?
890	be	1f			! yes
891	 nop
892
893	ld     [%l1], %l4		! load instruction that caused fault
894	srl	%l4, 21, %l4
895	andcc	%l4, 1, %g0		! store instruction?
896
897	be	1f			! no
898	 sethi	%hi(SUN4C_SYNC_BADWRITE), %l4 ! yep
899					! %lo(SUN4C_SYNC_BADWRITE) = 0
900	or	%l4, %l6, %l6		! set write bit to emulate sun4c
9011:
902#else
903	sethi	%hi(AC_SYNC_ERR), %l4
904	add	%l4, 0x4, %l6			! AC_SYNC_VA in %l6
905	lda	[%l6] ASI_CONTROL, %l5		! Address
906	lda	[%l4] ASI_CONTROL, %l6		! Error, retained for a bit
907#endif
908
909	andn	%l5, 0xfff, %l5			! Encode all info into l7
910	srl	%l6, 14, %l4
911
912	and	%l4, 2, %l4
913	or	%l5, %l4, %l4
914
915	or	%l4, %l7, %l7			! l7 = [addr,write,txtfault]
916
917	andcc	%l0, PSR_PS, %g0
918	be	sun4c_fault_fromuser
919	 andcc	%l7, 1, %g0			! Text fault?
920
921	be	1f
922	 sethi	%hi(KERNBASE), %l4
923
924	mov	%l1, %l5			! PC
925
9261:
927	cmp	%l5, %l4
928	blu	sun4c_fault_fromuser
929	 sethi	%hi(~((1 << SUN4C_REAL_PGDIR_SHIFT) - 1)), %l4
930
931	/* If the kernel references a bum kernel pointer, or a pte which
932	 * points to a non existant page in ram, we will run this code
933	 * _forever_ and lock up the machine!!!!! So we must check for
934	 * this condition, the AC_SYNC_ERR bits are what we must examine.
935	 * Also a parity error would make this happen as well.  So we just
936	 * check that we are in fact servicing a tlb miss and not some
937	 * other type of fault for the kernel.
938	 */
939	andcc	%l6, 0x80, %g0
940	be	sun4c_fault_fromuser
941	 and	%l5, %l4, %l5
942
943	/* Test for NULL pte_t * in vmalloc area. */
944	sethi   %hi(VMALLOC_START), %l4
945	cmp     %l5, %l4
946	blu,a   invalid_segment_patch1
947	 lduXa	[%l5] ASI_SEGMAP, %l4
948
949	sethi   %hi(swapper_pg_dir), %l4
950	srl     %l5, SUN4C_PGDIR_SHIFT, %l6
951	or      %l4, %lo(swapper_pg_dir), %l4
952	sll     %l6, 2, %l6
953	ld      [%l4 + %l6], %l4
954#ifdef CONFIG_SUN4
955	sethi	%hi(PAGE_MASK), %l6
956	andcc	%l4, %l6, %g0
957#else
958	andcc   %l4, PAGE_MASK, %g0
959#endif
960	be      sun4c_fault_fromuser
961	 lduXa  [%l5] ASI_SEGMAP, %l4
962
963invalid_segment_patch1:
964	cmp	%l4, 0x7f
965	bne	1f
966	 sethi	%hi(sun4c_kfree_ring), %l4
967	or	%l4, %lo(sun4c_kfree_ring), %l4
968	ld	[%l4 + 0x18], %l3
969	deccc	%l3			! do we have a free entry?
970	bcs,a	2f			! no, unmap one.
971	 sethi	%hi(sun4c_kernel_ring), %l4
972
973	st	%l3, [%l4 + 0x18]	! sun4c_kfree_ring.num_entries--
974
975	ld	[%l4 + 0x00], %l6	! entry = sun4c_kfree_ring.ringhd.next
976	st	%l5, [%l6 + 0x08]	! entry->vaddr = address
977
978	ld	[%l6 + 0x00], %l3	! next = entry->next
979	ld	[%l6 + 0x04], %l7	! entry->prev
980
981	st	%l7, [%l3 + 0x04]	! next->prev = entry->prev
982	st	%l3, [%l7 + 0x00]	! entry->prev->next = next
983
984	sethi	%hi(sun4c_kernel_ring), %l4
985	or	%l4, %lo(sun4c_kernel_ring), %l4
986					! head = &sun4c_kernel_ring.ringhd
987
988	ld	[%l4 + 0x00], %l7	! head->next
989
990	st	%l4, [%l6 + 0x04]	! entry->prev = head
991	st	%l7, [%l6 + 0x00]	! entry->next = head->next
992	st	%l6, [%l7 + 0x04]	! head->next->prev = entry
993
994	st	%l6, [%l4 + 0x00]	! head->next = entry
995
996	ld	[%l4 + 0x18], %l3
997	inc	%l3			! sun4c_kernel_ring.num_entries++
998	st	%l3, [%l4 + 0x18]
999	b	4f
1000	 ld	[%l6 + 0x08], %l5
1001
10022:
1003	or	%l4, %lo(sun4c_kernel_ring), %l4
1004					! head = &sun4c_kernel_ring.ringhd
1005
1006	ld	[%l4 + 0x04], %l6	! entry = head->prev
1007
1008	ld	[%l6 + 0x08], %l3	! tmp = entry->vaddr
1009
1010	! Flush segment from the cache.
1011#ifdef CONFIG_SUN4
1012	sethi	%hi((128 * 1024)), %l7
1013#else
1014	sethi	%hi((64 * 1024)), %l7
1015#endif
10169:
1017vac_hwflush_patch1:
1018vac_linesize_patch:
1019	subcc	%l7, 16, %l7
1020	bne	9b
1021vac_hwflush_patch2:
1022	 sta	%g0, [%l3 + %l7] ASI_FLUSHSEG
1023
1024	st	%l5, [%l6 + 0x08]	! entry->vaddr = address
1025
1026	ld	[%l6 + 0x00], %l5	! next = entry->next
1027	ld	[%l6 + 0x04], %l7	! entry->prev
1028
1029	st	%l7, [%l5 + 0x04]	! next->prev = entry->prev
1030	st	%l5, [%l7 + 0x00]	! entry->prev->next = next
1031	st	%l4, [%l6 + 0x04]	! entry->prev = head
1032
1033	ld	[%l4 + 0x00], %l7	! head->next
1034
1035	st	%l7, [%l6 + 0x00]	! entry->next = head->next
1036	st	%l6, [%l7 + 0x04]	! head->next->prev = entry
1037	st	%l6, [%l4 + 0x00]	! head->next = entry
1038
1039	mov	%l3, %l5		! address = tmp
1040
10414:
1042num_context_patch1:
1043	mov	0x08, %l7
1044
1045	ld	[%l6 + 0x08], %l4
1046	ldub	[%l6 + 0x0c], %l3
1047	or	%l4, %l3, %l4		! encode new vaddr/pseg into l4
1048
1049	sethi	%hi(AC_CONTEXT), %l3
1050	lduba	[%l3] ASI_CONTROL, %l6
1051
1052	/* Invalidate old mapping, instantiate new mapping,
1053	 * for each context.  Registers l6/l7 are live across
1054	 * this loop.
1055	 */
10563:	deccc	%l7
1057	sethi	%hi(AC_CONTEXT), %l3
1058	stba	%l7, [%l3] ASI_CONTROL
1059invalid_segment_patch2:
1060	mov	0x7f, %l3
1061	stXa	%l3, [%l5] ASI_SEGMAP
1062	andn	%l4, 0x1ff, %l3
1063	bne	3b
1064	 stXa	%l4, [%l3] ASI_SEGMAP
1065
1066	sethi	%hi(AC_CONTEXT), %l3
1067	stba	%l6, [%l3] ASI_CONTROL
1068
1069	andn	%l4, 0x1ff, %l5
1070
10711:
1072	sethi	%hi(VMALLOC_START), %l4
1073	cmp	%l5, %l4
1074
1075	bgeu	1f
1076	 mov	1 << (SUN4C_REAL_PGDIR_SHIFT - PAGE_SHIFT), %l7
1077
1078	sethi	%hi(KERNBASE), %l6
1079
1080	sub	%l5, %l6, %l4
1081	srl	%l4, PAGE_SHIFT, %l4
1082	sethi	%hi((SUN4C_PAGE_KERNEL & 0xf4000000)), %l3
1083	or	%l3, %l4, %l3
1084
1085	sethi	%hi(PAGE_SIZE), %l4
1086
10872:
1088	sta	%l3, [%l5] ASI_PTE
1089	deccc	%l7
1090	inc	%l3
1091	bne	2b
1092	 add	%l5, %l4, %l5
1093
1094	b	7f
1095	 sethi	%hi(sun4c_kernel_faults), %l4
1096
10971:
1098	srl	%l5, SUN4C_PGDIR_SHIFT, %l3
1099	sethi	%hi(swapper_pg_dir), %l4
1100	or	%l4, %lo(swapper_pg_dir), %l4
1101	sll	%l3, 2, %l3
1102	ld	[%l4 + %l3], %l4
1103#ifndef CONFIG_SUN4
1104	and	%l4, PAGE_MASK, %l4
1105#else
1106	sethi	%hi(PAGE_MASK), %l6
1107	and	%l4, %l6, %l4
1108#endif
1109
1110	srl	%l5, (PAGE_SHIFT - 2), %l6
1111	and	%l6, ((SUN4C_PTRS_PER_PTE - 1) << 2), %l6
1112	add	%l6, %l4, %l6
1113
1114	sethi	%hi(PAGE_SIZE), %l4
1115
11162:
1117	ld	[%l6], %l3
1118	deccc	%l7
1119	sta	%l3, [%l5] ASI_PTE
1120	add	%l6, 0x4, %l6
1121	bne	2b
1122	 add	%l5, %l4, %l5
1123
1124	sethi	%hi(sun4c_kernel_faults), %l4
11257:
1126	ld	[%l4 + %lo(sun4c_kernel_faults)], %l3
1127	inc	%l3
1128	st	%l3, [%l4 + %lo(sun4c_kernel_faults)]
1129
1130	/* Restore condition codes */
1131	wr	%l0, 0x0, %psr
1132	WRITE_PAUSE
1133	jmp	%l1
1134	 rett	%l2
1135
1136sun4c_fault_fromuser:
1137	SAVE_ALL
1138	 nop
1139
1140	mov	%l7, %o1		! Decode the info from %l7
1141	mov	%l7, %o2
1142	and	%o1, 1, %o1		! arg2 = text_faultp
1143	mov	%l7, %o3
1144	and	%o2, 2, %o2		! arg3 = writep
1145	andn	%o3, 0xfff, %o3		! arg4 = faulting address
1146
1147	wr	%l0, PSR_ET, %psr
1148	WRITE_PAUSE
1149
1150	call	do_sun4c_fault
1151	 add	%sp, STACKFRAME_SZ, %o0	! arg1 = pt_regs ptr
1152
1153	RESTORE_ALL
1154
1155	.align	4
1156	.globl	srmmu_fault
1157srmmu_fault:
1158	mov	0x400, %l5
1159	mov	0x300, %l4
1160
1161	lda	[%l5] ASI_M_MMUREGS, %l6	! read sfar first
1162	lda	[%l4] ASI_M_MMUREGS, %l5	! read sfsr last
1163
1164	andn	%l6, 0xfff, %l6
1165	srl	%l5, 6, %l5			! and encode all info into l7
1166
1167	and	%l5, 2, %l5
1168	or	%l5, %l6, %l6
1169
1170	or	%l6, %l7, %l7			! l7 = [addr,write,txtfault]
1171
1172	SAVE_ALL
1173
1174	mov	%l7, %o1
1175	mov	%l7, %o2
1176	and	%o1, 1, %o1		! arg2 = text_faultp
1177	mov	%l7, %o3
1178	and	%o2, 2, %o2		! arg3 = writep
1179	andn	%o3, 0xfff, %o3		! arg4 = faulting address
1180
1181	wr	%l0, PSR_ET, %psr
1182	WRITE_PAUSE
1183
1184	call	do_sparc_fault
1185	 add	%sp, STACKFRAME_SZ, %o0	! arg1 = pt_regs ptr
1186
1187	RESTORE_ALL
1188
1189#ifdef CONFIG_SUNOS_EMUL
1190	/* SunOS uses syscall zero as the 'indirect syscall' it looks
1191	 * like indir_syscall(scall_num, arg0, arg1, arg2...);  etc.
1192	 * This is complete brain damage.
1193	 */
1194	.globl	sunos_indir
1195sunos_indir:
1196	mov	%o7, %l4
1197	cmp	%o0, NR_SYSCALLS
1198	blu,a	1f
1199	 sll	%o0, 0x2, %o0
1200
1201	sethi	%hi(sunos_nosys), %l6
1202	b	2f
1203	 or	%l6, %lo(sunos_nosys), %l6
1204
12051:
1206	set	sunos_sys_table, %l7
1207	ld	[%l7 + %o0], %l6
1208
12092:
1210	mov	%o1, %o0
1211	mov	%o2, %o1
1212	mov	%o3, %o2
1213	mov	%o4, %o3
1214	mov	%o5, %o4
1215	call	%l6
1216	 mov	%l4, %o7
1217#endif
1218
1219	.align	4
1220	.globl	sys_nis_syscall
1221sys_nis_syscall:
1222	mov	%o7, %l5
1223	add	%sp, STACKFRAME_SZ, %o0		! pt_regs *regs arg
1224	call	c_sys_nis_syscall
1225	 mov	%l5, %o7
1226
1227	.align 4
1228	.globl	sys_ptrace
1229sys_ptrace:
1230	call	do_ptrace
1231	 add	%sp, STACKFRAME_SZ, %o0
1232
1233	ld	[%curptr + TI_FLAGS], %l5
1234	andcc	%l5, _TIF_SYSCALL_TRACE, %g0
1235	be	1f
1236	 nop
1237
1238	call	syscall_trace
1239	 nop
1240
12411:
1242	RESTORE_ALL
1243
1244	.align	4
1245	.globl	sys_execve
1246sys_execve:
1247	mov	%o7, %l5
1248	add	%sp, STACKFRAME_SZ, %o0		! pt_regs *regs arg
1249	call	sparc_execve
1250	 mov	%l5, %o7
1251
1252	.align	4
1253	.globl	sys_pipe
1254sys_pipe:
1255	mov	%o7, %l5
1256	add	%sp, STACKFRAME_SZ, %o0		! pt_regs *regs arg
1257	call	sparc_pipe
1258	 mov	%l5, %o7
1259
1260	.align	4
1261	.globl	sys_sigaltstack
1262sys_sigaltstack:
1263	mov	%o7, %l5
1264	mov	%fp, %o2
1265	call	do_sigaltstack
1266	 mov	%l5, %o7
1267
1268	.align	4
1269	.globl	sys_sigstack
1270sys_sigstack:
1271	mov	%o7, %l5
1272	mov	%fp, %o2
1273	call	do_sys_sigstack
1274	 mov	%l5, %o7
1275
1276	.align	4
1277	.globl	sys_sigreturn
1278sys_sigreturn:
1279	call	do_sigreturn
1280	 add	%sp, STACKFRAME_SZ, %o0
1281
1282	ld	[%curptr + TI_FLAGS], %l5
1283	andcc	%l5, _TIF_SYSCALL_TRACE, %g0
1284	be	1f
1285	 nop
1286
1287	call	syscall_trace
1288	 nop
1289
12901:
1291	/* We don't want to muck with user registers like a
1292	 * normal syscall, just return.
1293	 */
1294	RESTORE_ALL
1295
1296	.align	4
1297	.globl	sys_rt_sigreturn
1298sys_rt_sigreturn:
1299	call	do_rt_sigreturn
1300	 add	%sp, STACKFRAME_SZ, %o0
1301
1302	ld	[%curptr + TI_FLAGS], %l5
1303	andcc	%l5, _TIF_SYSCALL_TRACE, %g0
1304	be	1f
1305	 nop
1306
1307	call	syscall_trace
1308	 nop
1309
13101:
1311	/* We are returning to a signal handler. */
1312	RESTORE_ALL
1313
1314	/* Now that we have a real sys_clone, sys_fork() is
1315	 * implemented in terms of it.  Our _real_ implementation
1316	 * of SunOS vfork() will use sys_vfork().
1317	 *
1318	 * XXX These three should be consolidated into mostly shared
1319	 * XXX code just like on sparc64... -DaveM
1320	 */
1321	.align	4
1322	.globl	sys_fork, flush_patch_two
1323sys_fork:
1324	mov	%o7, %l5
1325flush_patch_two:
1326	FLUSH_ALL_KERNEL_WINDOWS;
1327	ld	[%curptr + TI_TASK], %o4
1328	rd	%psr, %g4
1329	WRITE_PAUSE
1330	mov	SIGCHLD, %o0			! arg0:	clone flags
1331	rd	%wim, %g5
1332	WRITE_PAUSE
1333	mov	%fp, %o1			! arg1:	usp
1334	std	%g4, [%o4 + AOFF_task_thread + AOFF_thread_fork_kpsr]
1335	add	%sp, STACKFRAME_SZ, %o2		! arg2:	pt_regs ptr
1336	mov	0, %o3
1337	call	sparc_do_fork
1338	 mov	%l5, %o7
1339
1340	/* Whee, kernel threads! */
1341	.globl	sys_clone, flush_patch_three
1342sys_clone:
1343	mov	%o7, %l5
1344flush_patch_three:
1345	FLUSH_ALL_KERNEL_WINDOWS;
1346	ld	[%curptr + TI_TASK], %o4
1347	rd	%psr, %g4
1348	WRITE_PAUSE
1349
1350	/* arg0,1: flags,usp  -- loaded already */
1351	cmp	%o1, 0x0			! Is new_usp NULL?
1352	rd	%wim, %g5
1353	WRITE_PAUSE
1354	be,a	1f
1355	 mov	%fp, %o1			! yes, use callers usp
1356	andn	%o1, 7, %o1			! no, align to 8 bytes
13571:
1358	std	%g4, [%o4 + AOFF_task_thread + AOFF_thread_fork_kpsr]
1359	add	%sp, STACKFRAME_SZ, %o2		! arg2:	pt_regs ptr
1360	mov	0, %o3
1361	call	sparc_do_fork
1362	 mov	%l5, %o7
1363
1364	/* Whee, real vfork! */
1365	.globl	sys_vfork, flush_patch_four
1366sys_vfork:
1367flush_patch_four:
1368	FLUSH_ALL_KERNEL_WINDOWS;
1369	ld	[%curptr + TI_TASK], %o4
1370	rd	%psr, %g4
1371	WRITE_PAUSE
1372	rd	%wim, %g5
1373	WRITE_PAUSE
1374	std	%g4, [%o4 + AOFF_task_thread + AOFF_thread_fork_kpsr]
1375	sethi	%hi(0x4000 | 0x0100 | SIGCHLD), %o0
1376	mov	%fp, %o1
1377	or	%o0, %lo(0x4000 | 0x0100 | SIGCHLD), %o0
1378	sethi	%hi(sparc_do_fork), %l1
1379	mov	0, %o3
1380	jmpl	%l1 + %lo(sparc_do_fork), %g0
1381	 add	%sp, STACKFRAME_SZ, %o2
1382
1383        .align  4
1384linux_sparc_ni_syscall:
1385	sethi   %hi(sys_ni_syscall), %l7
1386	b       syscall_is_too_hard
1387	 or     %l7, %lo(sys_ni_syscall), %l7
1388
1389linux_fast_syscall:
1390	andn	%l7, 3, %l7
1391	mov	%i0, %o0
1392	mov	%i1, %o1
1393	mov 	%i2, %o2
1394	jmpl	%l7 + %g0, %g0
1395	 mov	%i3, %o3
1396
1397linux_syscall_trace:
1398	call	syscall_trace
1399	 nop
1400	mov	%i0, %o0
1401	mov	%i1, %o1
1402	mov	%i2, %o2
1403	mov	%i3, %o3
1404	b	2f
1405	 mov	%i4, %o4
1406
1407	.globl	ret_from_fork
1408ret_from_fork:
1409	call	schedule_tail
1410	 mov	%g3, %o0
1411	b	ret_sys_call
1412	 ld	[%sp + STACKFRAME_SZ + PT_I0], %o0
1413
1414	/* Linux native and SunOS system calls enter here... */
1415	.align	4
1416	.globl	linux_sparc_syscall
1417linux_sparc_syscall:
1418	/* Direct access to user regs, must faster. */
1419	cmp	%g1, NR_SYSCALLS
1420	bgeu	linux_sparc_ni_syscall
1421	 sll	%g1, 2, %l4
1422	ld	[%l7 + %l4], %l7
1423	andcc	%l7, 1, %g0
1424	bne	linux_fast_syscall
1425	 /* Just do first insn from SAVE_ALL in the delay slot */
1426
1427	.globl	syscall_is_too_hard
1428syscall_is_too_hard:
1429	SAVE_ALL_HEAD
1430	 rd	%wim, %l3
1431
1432	wr	%l0, PSR_ET, %psr
1433	mov	%i0, %o0
1434	mov	%i1, %o1
1435	mov	%i2, %o2
1436
1437	ld	[%curptr + TI_FLAGS], %l5
1438	mov	%i3, %o3
1439	andcc	%l5, _TIF_SYSCALL_TRACE, %g0
1440	mov	%i4, %o4
1441	bne	linux_syscall_trace
1442	 mov	%i0, %l5
14432:
1444	call	%l7
1445	 mov	%i5, %o5
1446
1447	st	%o0, [%sp + STACKFRAME_SZ + PT_I0]
1448
1449	.globl	ret_sys_call
1450ret_sys_call:
1451	ld	[%curptr + TI_FLAGS], %l6
1452	cmp	%o0, -ERESTART_RESTARTBLOCK
1453	ld	[%sp + STACKFRAME_SZ + PT_PSR], %g3
1454	set	PSR_C, %g2
1455	bgeu	1f
1456	 andcc	%l6, _TIF_SYSCALL_TRACE, %g0
1457
1458	/* System call success, clear Carry condition code. */
1459	andn	%g3, %g2, %g3
1460	clr	%l6
1461	st	%g3, [%sp + STACKFRAME_SZ + PT_PSR]
1462	bne	linux_syscall_trace2
1463	 ld	[%sp + STACKFRAME_SZ + PT_NPC], %l1 /* pc = npc */
1464	add	%l1, 0x4, %l2			/* npc = npc+4 */
1465	st	%l1, [%sp + STACKFRAME_SZ + PT_PC]
1466	b	ret_trap_entry
1467	 st	%l2, [%sp + STACKFRAME_SZ + PT_NPC]
14681:
1469	/* System call failure, set Carry condition code.
1470	 * Also, get abs(errno) to return to the process.
1471	 */
1472	sub	%g0, %o0, %o0
1473	or	%g3, %g2, %g3
1474	st	%o0, [%sp + STACKFRAME_SZ + PT_I0]
1475	mov	1, %l6
1476	st	%g3, [%sp + STACKFRAME_SZ + PT_PSR]
1477	bne	linux_syscall_trace2
1478	 ld	[%sp + STACKFRAME_SZ + PT_NPC], %l1 /* pc = npc */
1479	add	%l1, 0x4, %l2			/* npc = npc+4 */
1480	st	%l1, [%sp + STACKFRAME_SZ + PT_PC]
1481	b	ret_trap_entry
1482	 st	%l2, [%sp + STACKFRAME_SZ + PT_NPC]
1483
1484linux_syscall_trace2:
1485	call	syscall_trace
1486	 add	%l1, 0x4, %l2			/* npc = npc+4 */
1487	st	%l1, [%sp + STACKFRAME_SZ + PT_PC]
1488	b	ret_trap_entry
1489	 st	%l2, [%sp + STACKFRAME_SZ + PT_NPC]
1490
1491
1492	/*
1493	 * Solaris system calls and indirect system calls enter here.
1494         *
1495	 * I have named the solaris indirect syscalls like that because
1496	 * it seems like Solaris has some fast path syscalls that can
1497	 * be handled as indirect system calls. - mig
1498	 */
1499
1500linux_syscall_for_solaris:
1501	sethi	%hi(sys_call_table), %l7
1502	b	linux_sparc_syscall
1503	 or	%l7, %lo(sys_call_table), %l7
1504
1505	.align	4
1506	.globl	solaris_syscall
1507solaris_syscall:
1508	cmp	%g1,59
1509	be	linux_syscall_for_solaris
1510	 cmp	%g1,2
1511	be	linux_syscall_for_solaris
1512	 cmp    %g1,42
1513	be      linux_syscall_for_solaris
1514	 cmp	%g1,119
1515	be,a	linux_syscall_for_solaris
1516	 mov	2, %g1
15171:
1518	SAVE_ALL_HEAD
1519	 rd	%wim, %l3
1520
1521	wr	%l0, PSR_ET, %psr
1522	nop
1523	nop
1524	mov	%i0, %l5
1525
1526	call	do_solaris_syscall
1527	 add	%sp, STACKFRAME_SZ, %o0
1528
1529	st	%o0, [%sp + STACKFRAME_SZ + PT_I0]
1530	set	PSR_C, %g2
1531	cmp	%o0, -ERESTART_RESTARTBLOCK
1532	bgeu	1f
1533	 ld	[%sp + STACKFRAME_SZ + PT_PSR], %g3
1534
1535	/* System call success, clear Carry condition code. */
1536	andn	%g3, %g2, %g3
1537	clr	%l6
1538	b	2f
1539	 st	%g3, [%sp + STACKFRAME_SZ + PT_PSR]
1540
15411:
1542	/* System call failure, set Carry condition code.
1543	 * Also, get abs(errno) to return to the process.
1544	 */
1545	sub	%g0, %o0, %o0
1546	mov	1, %l6
1547	st	%o0, [%sp + STACKFRAME_SZ + PT_I0]
1548	or	%g3, %g2, %g3
1549	st	%g3, [%sp + STACKFRAME_SZ + PT_PSR]
1550
1551	/* Advance the pc and npc over the trap instruction.
1552	 * If the npc is unaligned (has a 1 in the lower byte), it means
1553	 * the kernel does not want us to play magic (ie, skipping over
1554	 * traps).  Mainly when the Solaris code wants to set some PC and
1555	 * nPC (setcontext).
1556	 */
15572:
1558	ld	[%sp + STACKFRAME_SZ + PT_NPC], %l1	/* pc  = npc   */
1559	andcc	%l1, 1, %g0
1560	bne	1f
1561	 add	%l1, 0x4, %l2			/* npc = npc+4 */
1562	st	%l1, [%sp + STACKFRAME_SZ + PT_PC]
1563	b	ret_trap_entry
1564	 st	%l2, [%sp + STACKFRAME_SZ + PT_NPC]
1565
1566	/* kernel knows what it is doing, fixup npc and continue */
15671:
1568	sub	%l1, 1, %l1
1569 	b	ret_trap_entry
1570	 st	%l1, [%sp + STACKFRAME_SZ + PT_NPC]
1571
1572#ifndef CONFIG_SUNOS_EMUL
1573	.align	4
1574	.globl	sunos_syscall
1575sunos_syscall:
1576	SAVE_ALL_HEAD
1577	 rd	%wim, %l3
1578	wr	%l0, PSR_ET, %psr
1579	nop
1580	nop
1581	mov	%i0, %l5
1582	call	do_sunos_syscall
1583	 add	%sp, STACKFRAME_SZ, %o0
1584#endif
1585
1586	/* {net, open}bsd system calls enter here... */
1587	.align	4
1588	.globl	bsd_syscall
1589bsd_syscall:
1590	/* Direct access to user regs, must faster. */
1591	cmp	%g1, NR_SYSCALLS
1592	blu,a	1f
1593	 sll	%g1, 2, %l4
1594
1595	set	sys_ni_syscall, %l7
1596	b	bsd_is_too_hard
1597	 nop
1598
15991:
1600	ld	[%l7 + %l4], %l7
1601
1602	.globl	bsd_is_too_hard
1603bsd_is_too_hard:
1604	rd	%wim, %l3
1605	SAVE_ALL
1606
1607	wr	%l0, PSR_ET, %psr
1608	WRITE_PAUSE
1609
16102:
1611	mov	%i0, %o0
1612	mov	%i1, %o1
1613	mov	%i2, %o2
1614	mov	%i0, %l5
1615	mov	%i3, %o3
1616	mov	%i4, %o4
1617	call	%l7
1618	 mov	%i5, %o5
1619
1620	st	%o0, [%sp + STACKFRAME_SZ + PT_I0]
1621	set	PSR_C, %g2
1622	cmp	%o0, -ERESTART_RESTARTBLOCK
1623	bgeu	1f
1624	 ld	[%sp + STACKFRAME_SZ + PT_PSR], %g3
1625
1626	/* System call success, clear Carry condition code. */
1627	andn	%g3, %g2, %g3
1628	clr	%l6
1629	b	2f
1630	 st	%g3, [%sp + STACKFRAME_SZ + PT_PSR]
1631
16321:
1633	/* System call failure, set Carry condition code.
1634	 * Also, get abs(errno) to return to the process.
1635	 */
1636	sub	%g0, %o0, %o0
1637#if 0 /* XXX todo XXX */
1638	sethi	%hi(bsd_xlatb_rorl), %o3
1639	or	%o3, %lo(bsd_xlatb_rorl), %o3
1640	sll	%o0, 2, %o0
1641	ld	[%o3 + %o0], %o0
1642#endif
1643	mov	1, %l6
1644	st	%o0, [%sp + STACKFRAME_SZ + PT_I0]
1645	or	%g3, %g2, %g3
1646	st	%g3, [%sp + STACKFRAME_SZ + PT_PSR]
1647
1648	/* Advance the pc and npc over the trap instruction. */
16492:
1650	ld	[%sp + STACKFRAME_SZ + PT_NPC], %l1	/* pc  = npc   */
1651	add	%l1, 0x4, %l2			/* npc = npc+4 */
1652	st	%l1, [%sp + STACKFRAME_SZ + PT_PC]
1653	b	ret_trap_entry
1654	 st	%l2, [%sp + STACKFRAME_SZ + PT_NPC]
1655
1656/* Saving and restoring the FPU state is best done from lowlevel code.
1657 *
1658 * void fpsave(unsigned long *fpregs, unsigned long *fsr,
1659 *             void *fpqueue, unsigned long *fpqdepth)
1660 */
1661
1662	.globl	fpsave
1663fpsave:
1664	st	%fsr, [%o1]	! this can trap on us if fpu is in bogon state
1665	ld	[%o1], %g1
1666	set	0x2000, %g4
1667	andcc	%g1, %g4, %g0
1668	be	2f
1669	 mov	0, %g2
1670
1671	/* We have an fpqueue to save. */
16721:
1673	std	%fq, [%o2]
1674fpsave_magic:
1675	st	%fsr, [%o1]
1676	ld	[%o1], %g3
1677	andcc	%g3, %g4, %g0
1678	add	%g2, 1, %g2
1679	bne	1b
1680	 add	%o2, 8, %o2
1681
16822:
1683	st	%g2, [%o3]
1684
1685	std	%f0, [%o0 + 0x00]
1686	std	%f2, [%o0 + 0x08]
1687	std	%f4, [%o0 + 0x10]
1688	std	%f6, [%o0 + 0x18]
1689	std	%f8, [%o0 + 0x20]
1690	std	%f10, [%o0 + 0x28]
1691	std	%f12, [%o0 + 0x30]
1692	std	%f14, [%o0 + 0x38]
1693	std	%f16, [%o0 + 0x40]
1694	std	%f18, [%o0 + 0x48]
1695	std	%f20, [%o0 + 0x50]
1696	std	%f22, [%o0 + 0x58]
1697	std	%f24, [%o0 + 0x60]
1698	std	%f26, [%o0 + 0x68]
1699	std	%f28, [%o0 + 0x70]
1700	retl
1701	 std	%f30, [%o0 + 0x78]
1702
1703	/* Thanks for Theo Deraadt and the authors of the Sprite/netbsd/openbsd
1704	 * code for pointing out this possible deadlock, while we save state
1705	 * above we could trap on the fsr store so our low level fpu trap
1706	 * code has to know how to deal with this.
1707	 */
1708fpsave_catch:
1709	b	fpsave_magic + 4
1710	 st	%fsr, [%o1]
1711
1712fpsave_catch2:
1713	b	fpsave + 4
1714	 st	%fsr, [%o1]
1715
1716	/* void fpload(unsigned long *fpregs, unsigned long *fsr); */
1717
1718	.globl	fpload
1719fpload:
1720	ldd	[%o0 + 0x00], %f0
1721	ldd	[%o0 + 0x08], %f2
1722	ldd	[%o0 + 0x10], %f4
1723	ldd	[%o0 + 0x18], %f6
1724	ldd	[%o0 + 0x20], %f8
1725	ldd	[%o0 + 0x28], %f10
1726	ldd	[%o0 + 0x30], %f12
1727	ldd	[%o0 + 0x38], %f14
1728	ldd	[%o0 + 0x40], %f16
1729	ldd	[%o0 + 0x48], %f18
1730	ldd	[%o0 + 0x50], %f20
1731	ldd	[%o0 + 0x58], %f22
1732	ldd	[%o0 + 0x60], %f24
1733	ldd	[%o0 + 0x68], %f26
1734	ldd	[%o0 + 0x70], %f28
1735	ldd	[%o0 + 0x78], %f30
1736	ld	[%o1], %fsr
1737	retl
1738	 nop
1739
1740	/* __ndelay and __udelay take two arguments:
1741	 * 0 - nsecs or usecs to delay
1742	 * 1 - per_cpu udelay_val (loops per jiffy)
1743	 *
1744	 * Note that ndelay gives HZ times higher resolution but has a 10ms
1745	 * limit.  udelay can handle up to 1s.
1746	 */
1747	.globl	__ndelay
1748__ndelay:
1749	save	%sp, -STACKFRAME_SZ, %sp
1750	mov	%i0, %o0
1751	call	.umul			! round multiplier up so large ns ok
1752	 mov	0x1ae, %o1		! 2**32 / (1 000 000 000 / HZ)
1753	call	.umul
1754	 mov	%i1, %o1		! udelay_val
1755	ba	delay_continue
1756	 mov	%o1, %o0		! >>32 later for better resolution
1757
1758	.globl	__udelay
1759__udelay:
1760	save	%sp, -STACKFRAME_SZ, %sp
1761	mov	%i0, %o0
1762	sethi	%hi(0x10c7), %o1	! round multiplier up so large us ok
1763	call	.umul
1764	 or	%o1, %lo(0x10c7), %o1	! 2**32 / 1 000 000
1765	call	.umul
1766	 mov	%i1, %o1		! udelay_val
1767	sethi	%hi(0x028f4b62), %l0	! Add in rounding constant * 2**32,
1768	or	%g0, %lo(0x028f4b62), %l0
1769	addcc	%o0, %l0, %o0		! 2**32 * 0.009 999
1770	bcs,a	3f
1771	 add	%o1, 0x01, %o1
17723:
1773	call	.umul
1774	 mov	HZ, %o0			! >>32 earlier for wider range
1775
1776delay_continue:
1777	cmp	%o0, 0x0
17781:
1779	bne	1b
1780	 subcc	%o0, 1, %o0
1781
1782	ret
1783	restore
1784
1785	/* Handle a software breakpoint */
1786	/* We have to inform parent that child has stopped */
1787	.align 4
1788	.globl breakpoint_trap
1789breakpoint_trap:
1790	rd	%wim,%l3
1791	SAVE_ALL
1792	wr 	%l0, PSR_ET, %psr
1793	WRITE_PAUSE
1794
1795	st	%i0, [%sp + STACKFRAME_SZ + PT_G0] ! for restarting syscalls
1796	call	sparc_breakpoint
1797	 add	%sp, STACKFRAME_SZ, %o0
1798
1799	RESTORE_ALL
1800
1801	.align	4
1802	.globl	__handle_exception, flush_patch_exception
1803__handle_exception:
1804flush_patch_exception:
1805	FLUSH_ALL_KERNEL_WINDOWS;
1806	ldd	[%o0], %o6
1807	jmpl	%o7 + 0xc, %g0			! see asm-sparc/processor.h
1808	 mov	1, %g1				! signal EFAULT condition
1809
1810	.align	4
1811	.globl	kill_user_windows, kuw_patch1_7win
1812	.globl	kuw_patch1
1813kuw_patch1_7win:	sll	%o3, 6, %o3
1814
1815	/* No matter how much overhead this routine has in the worst
1816	 * case scenerio, it is several times better than taking the
1817	 * traps with the old method of just doing flush_user_windows().
1818	 */
1819kill_user_windows:
1820	ld	[%g6 + TI_UWINMASK], %o0	! get current umask
1821	orcc	%g0, %o0, %g0			! if no bits set, we are done
1822	be	3f				! nothing to do
1823	 rd	%psr, %o5			! must clear interrupts
1824	or	%o5, PSR_PIL, %o4		! or else that could change
1825	wr	%o4, 0x0, %psr			! the uwinmask state
1826	WRITE_PAUSE				! burn them cycles
18271:
1828	ld	[%g6 + TI_UWINMASK], %o0	! get consistent state
1829	orcc	%g0, %o0, %g0			! did an interrupt come in?
1830	be	4f				! yep, we are done
1831	 rd	%wim, %o3			! get current wim
1832	srl	%o3, 1, %o4			! simulate a save
1833kuw_patch1:
1834	sll	%o3, 7, %o3			! compute next wim
1835	or	%o4, %o3, %o3			! result
1836	andncc	%o0, %o3, %o0			! clean this bit in umask
1837	bne	kuw_patch1			! not done yet
1838	 srl	%o3, 1, %o4			! begin another save simulation
1839	wr	%o3, 0x0, %wim			! set the new wim
1840	st	%g0, [%g6 + TI_UWINMASK]	! clear uwinmask
18414:
1842	wr	%o5, 0x0, %psr			! re-enable interrupts
1843	WRITE_PAUSE				! burn baby burn
18443:
1845	retl					! return
1846	 st	%g0, [%g6 + TI_W_SAVED]		! no windows saved
1847
1848	.align	4
1849	.globl	restore_current
1850restore_current:
1851	LOAD_CURRENT(g6, o0)
1852	retl
1853	 nop
1854
1855#ifdef CONFIG_PCI
1856#include <asm/pcic.h>
1857
1858	.align	4
1859	.globl	linux_trap_ipi15_pcic
1860linux_trap_ipi15_pcic:
1861	rd	%wim, %l3
1862	SAVE_ALL
1863
1864	/*
1865	 * First deactivate NMI
1866	 * or we cannot drop ET, cannot get window spill traps.
1867	 * The busy loop is necessary because the PIO error
1868	 * sometimes does not go away quickly and we trap again.
1869	 */
1870	sethi	%hi(pcic_regs), %o1
1871	ld	[%o1 + %lo(pcic_regs)], %o2
1872
1873	! Get pending status for printouts later.
1874	ld	[%o2 + PCI_SYS_INT_PENDING], %o0
1875
1876	mov	PCI_SYS_INT_PENDING_CLEAR_ALL, %o1
1877	stb	%o1, [%o2 + PCI_SYS_INT_PENDING_CLEAR]
18781:
1879	ld	[%o2 + PCI_SYS_INT_PENDING], %o1
1880	andcc	%o1, ((PCI_SYS_INT_PENDING_PIO|PCI_SYS_INT_PENDING_PCI)>>24), %g0
1881	bne	1b
1882	 nop
1883
1884	or	%l0, PSR_PIL, %l4
1885	wr	%l4, 0x0, %psr
1886	WRITE_PAUSE
1887	wr	%l4, PSR_ET, %psr
1888	WRITE_PAUSE
1889
1890	call	pcic_nmi
1891	 add	%sp, STACKFRAME_SZ, %o1	! struct pt_regs *regs
1892	RESTORE_ALL
1893
1894	.globl	pcic_nmi_trap_patch
1895pcic_nmi_trap_patch:
1896	sethi	%hi(linux_trap_ipi15_pcic), %l3
1897	jmpl	%l3 + %lo(linux_trap_ipi15_pcic), %g0
1898	 rd	%psr, %l0
1899	.word	0
1900
1901#endif /* CONFIG_PCI */
1902
1903/* End of entry.S */
1904