xref: /netbsd/lib/libc/arch/mips/gen/setjmp.S (revision c4a72b64)
1/*	$NetBSD: setjmp.S,v 1.14 2002/11/10 18:10:25 thorpej Exp $	*/
2
3/*-
4 * Copyright (c) 1991, 1993
5 *	The Regents of the University of California.  All rights reserved.
6 *
7 * This code is derived from software contributed to Berkeley by
8 * Ralph Campbell.
9 *
10 * Redistribution and use in source and binary forms, with or without
11 * modification, are permitted provided that the following conditions
12 * are met:
13 * 1. Redistributions of source code must retain the above copyright
14 *    notice, this list of conditions and the following disclaimer.
15 * 2. Redistributions in binary form must reproduce the above copyright
16 *    notice, this list of conditions and the following disclaimer in the
17 *    documentation and/or other materials provided with the distribution.
18 * 3. All advertising materials mentioning features or use of this software
19 *    must display the following acknowledgement:
20 *	This product includes software developed by the University of
21 *	California, Berkeley and its contributors.
22 * 4. Neither the name of the University nor the names of its contributors
23 *    may be used to endorse or promote products derived from this software
24 *    without specific prior written permission.
25 *
26 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
27 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
28 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
29 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
30 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
31 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
32 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
33 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
34 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
35 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
36 * SUCH DAMAGE.
37 */
38
39#include <machine/cdefs.h>
40#include <sys/syscall.h>
41#include <mips/regnum.h>
42#include <mips/asm.h>
43#include <machine/signal.h>
44#include <machine/setjmp.h>
45
46#if defined(LIBC_SCCS) && !defined(lint)
47	ASMSTR("from: @(#)setjmp.s	8.1 (Berkeley) 6/4/93")
48	ASMSTR("$NetBSD: setjmp.S,v 1.14 2002/11/10 18:10:25 thorpej Exp $")
49#endif /* LIBC_SCCS and not lint */
50
51#ifdef __ABICALLS__
52	.abicalls
53#endif
54
55/*
56 * C library -- setjmp, longjmp
57 *
58 *	longjmp(a,v)
59 * will generate a "return(v)" from
60 * the last call to
61 *	setjmp(a)
62 * by restoring registers from the stack,
63 * and a struct sigcontext, see <signal.h>
64 */
65
66#define SETJMP_FRAME_SIZE	(CALLFRAME_SIZ + 12)
67
68NON_LEAF(setjmp, SETJMP_FRAME_SIZE, ra)
69	.mask	0x80000000, (CALLFRAME_RA - CALLFRAME_SIZ)
70#ifdef __ABICALLS__
71	.set	noreorder
72	.cpload	t9
73	.set	reorder
74#endif
75	subu	sp, sp, SETJMP_FRAME_SIZE	# allocate stack frame
76#ifdef __ABICALLS__
77	.cprestore 16
78#endif
79	sw	ra, CALLFRAME_RA(sp)		# save state
80	sw	a0, SETJMP_FRAME_SIZE(sp)
81	move	a0, zero			# get current signal mask
82	jal	_C_LABEL(sigblock)
83	lw	v1, SETJMP_FRAME_SIZE(sp)	# v1 = jmpbuf
84	sw	v0, (1 * 4)(v1)			# save sc_mask = sigblock(0)
85	move	a0, zero
86	addu	a1, sp, CALLFRAME_SIZ	# pointer to struct sigaltstack
87	jal	_C_LABEL(__sigaltstack14)
88	lw	a0, SETJMP_FRAME_SIZE(sp)	# restore jmpbuf
89	lw	v1, CALLFRAME_SIZ+8(sp)	# get old ss_onstack
90	and	v1, v1, 1			# extract onstack flag
91	sw	v1, 0(a0)			# save it in sc_onstack
92	lw	ra, CALLFRAME_RA(sp)
93	addu	sp, sp, SETJMP_FRAME_SIZE
94	blt	v0, zero, botch			# check for sigstack() error
95	REG_PROLOGUE
96	REG_S	ra, (2 * 4)(a0)			# sc_pc = return address
97	REG_LI	v0, 0xACEDBADE			# sigcontext magic number
98	REG_S	v0, (_OFFSETOF_SC_REGS + SZREG * ZERO)(a0) # saved in sc_regs[0]
99	REG_S	s0, (_OFFSETOF_SC_REGS + SZREG * S0)(a0)
100	REG_S	s1, (_OFFSETOF_SC_REGS + SZREG * S1)(a0)
101	REG_S	s2, (_OFFSETOF_SC_REGS + SZREG * S2)(a0)
102	REG_S	s3, (_OFFSETOF_SC_REGS + SZREG * S3)(a0)
103	REG_S	s4, (_OFFSETOF_SC_REGS + SZREG * S4)(a0)
104	REG_S	s5, (_OFFSETOF_SC_REGS + SZREG * S5)(a0)
105	REG_S	s6, (_OFFSETOF_SC_REGS + SZREG * S6)(a0)
106	REG_S	s7, (_OFFSETOF_SC_REGS + SZREG * S7)(a0)
107	REG_S	gp, (_OFFSETOF_SC_REGS + SZREG * GP)(a0)
108	REG_S	sp, (_OFFSETOF_SC_REGS + SZREG * SP)(a0)
109	REG_S	s8, (_OFFSETOF_SC_REGS + SZREG * S8)(a0)
110	li	v0, 1				# be nice if we could tell
111	sw	v0, (_OFFSETOF_SC_REGS + 34 * SZREG)(a0)	# sc_fpused = 1
112	cfc1	v0, $31
113	swc1	$f20, (20 * 4 + _OFFSETOF_SC_FPREGS)(a0)
114	swc1	$f21, (21 * 4 + _OFFSETOF_SC_FPREGS)(a0)
115	swc1	$f22, (22 * 4 + _OFFSETOF_SC_FPREGS)(a0)
116	swc1	$f23, (23 * 4 + _OFFSETOF_SC_FPREGS)(a0)
117	swc1	$f24, (24 * 4 + _OFFSETOF_SC_FPREGS)(a0)
118	swc1	$f25, (25 * 4 + _OFFSETOF_SC_FPREGS)(a0)
119	swc1	$f26, (26 * 4 + _OFFSETOF_SC_FPREGS)(a0)
120	swc1	$f27, (27 * 4 + _OFFSETOF_SC_FPREGS)(a0)
121	swc1	$f28, (28 * 4 + _OFFSETOF_SC_FPREGS)(a0)
122	swc1	$f29, (29 * 4 + _OFFSETOF_SC_FPREGS)(a0)
123	swc1	$f30, (30 * 4 + _OFFSETOF_SC_FPREGS)(a0)
124	swc1	$f31, (31 * 4 + _OFFSETOF_SC_FPREGS)(a0)
125	sw	v0, ((32 * 4) + _OFFSETOF_SC_FPREGS)(a0)
126	REG_EPILOGUE
127	move	v0, zero
128	j	ra
129END(setjmp)
130
131LEAF(longjmp)
132#ifdef __ABICALLS__
133	.set	noreorder
134	.cpload	t9
135	.set	reorder
136	subu	sp, sp, 32
137	.cprestore 16
138#endif
139	REG_PROLOGUE
140	/* save return value in sc_regs[V0] */
141	REG_S	a1, (_OFFSETOF_SC_REGS + V0 * SZREG)(a0)
142	REG_EPILOGUE
143	li	v0, SYS_compat_13_sigreturn13
144	syscall
145botch:
146	jal	_C_LABEL(longjmperror)
147	jal	_C_LABEL(abort)
148END(longjmp)
149