Home | History | Annotate | Line # | Download | only in gen
setjmp.S revision 1.3.2.1
      1  1.3.2.1  nathanw /*	$NetBSD: setjmp.S,v 1.3.2.1 2001/10/08 20:18:02 nathanw Exp $	*/
      2      1.1  msaitoh 
      3      1.1  msaitoh /*-
      4      1.1  msaitoh  * Copyright (c) 1990 The Regents of the University of California.
      5      1.1  msaitoh  * All rights reserved.
      6      1.1  msaitoh  *
      7      1.1  msaitoh  * This code is derived from software contributed to Berkeley by
      8      1.1  msaitoh  * William Jolitz.
      9      1.1  msaitoh  *
     10      1.1  msaitoh  * Redistribution and use in source and binary forms, with or without
     11      1.1  msaitoh  * modification, are permitted provided that the following conditions
     12      1.1  msaitoh  * are met:
     13      1.1  msaitoh  * 1. Redistributions of source code must retain the above copyright
     14      1.1  msaitoh  *    notice, this list of conditions and the following disclaimer.
     15      1.1  msaitoh  * 2. Redistributions in binary form must reproduce the above copyright
     16      1.1  msaitoh  *    notice, this list of conditions and the following disclaimer in the
     17      1.1  msaitoh  *    documentation and/or other materials provided with the distribution.
     18      1.1  msaitoh  * 3. All advertising materials mentioning features or use of this software
     19      1.1  msaitoh  *    must display the following acknowledgement:
     20      1.1  msaitoh  *	This product includes software developed by the University of
     21      1.1  msaitoh  *	California, Berkeley and its contributors.
     22      1.1  msaitoh  * 4. Neither the name of the University nor the names of its contributors
     23      1.1  msaitoh  *    may be used to endorse or promote products derived from this software
     24      1.1  msaitoh  *    without specific prior written permission.
     25      1.1  msaitoh  *
     26      1.1  msaitoh  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     27      1.1  msaitoh  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     28      1.1  msaitoh  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     29      1.1  msaitoh  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     30      1.1  msaitoh  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     31      1.1  msaitoh  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     32      1.1  msaitoh  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     33      1.1  msaitoh  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     34      1.1  msaitoh  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     35      1.1  msaitoh  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     36      1.1  msaitoh  * SUCH DAMAGE.
     37      1.1  msaitoh  *
     38      1.1  msaitoh  *	from: @(#)setjmp.s	5.1 (Berkeley) 4/23/90
     39      1.1  msaitoh  */
     40      1.1  msaitoh 
     41      1.1  msaitoh #include <machine/asm.h>
     42      1.1  msaitoh #if defined(LIBC_SCCS)
     43  1.3.2.1  nathanw 	RCSID("$NetBSD: setjmp.S,v 1.3.2.1 2001/10/08 20:18:02 nathanw Exp $")
     44      1.1  msaitoh #endif
     45      1.1  msaitoh 
     46      1.1  msaitoh /*
     47      1.1  msaitoh  * C library -- _setjmp, _longjmp
     48      1.1  msaitoh  *
     49      1.1  msaitoh  *	longjmp(a,v)
     50      1.1  msaitoh  * will generate a "return(v)" from the last call to
     51      1.1  msaitoh  *	setjmp(a)
     52      1.1  msaitoh  * by restoring registers from the stack.
     53      1.1  msaitoh  * The previous signal state is restored.
     54      1.1  msaitoh  */
     55      1.1  msaitoh 
     56      1.1  msaitoh ENTRY(setjmp)
     57  1.3.2.1  nathanw 	sts.l	pr, @-r15
     58  1.3.2.1  nathanw 	mov.l	r4, @-r15
     59      1.1  msaitoh 	mov	#0, r4
     60      1.1  msaitoh 	mov.l	Lsigblock, r0
     61      1.1  msaitoh 	jsr	@r0
     62      1.1  msaitoh 	nop
     63      1.1  msaitoh 	mov.l	@r15+, r4
     64      1.1  msaitoh 	lds.l	@r15+, pr
     65  1.3.2.1  nathanw 
     66      1.1  msaitoh 	add	#4*11, r4
     67  1.3.2.1  nathanw 	mov.l	r0, @-r4	/* sigmask */
     68      1.1  msaitoh 	mov	#1, r0
     69  1.3.2.1  nathanw 	mov.l	r0, @-r4	/* savemask */
     70      1.1  msaitoh 	mov.l	r15, @-r4
     71      1.1  msaitoh 	mov.l	r14, @-r4
     72      1.1  msaitoh 	mov.l	r13, @-r4
     73      1.1  msaitoh 	mov.l	r12, @-r4
     74      1.1  msaitoh 	mov.l	r11, @-r4
     75      1.1  msaitoh 	mov.l	r10, @-r4
     76      1.1  msaitoh 	mov.l	r9, @-r4
     77      1.1  msaitoh 	mov.l	r8, @-r4
     78      1.1  msaitoh 	sts.l	pr, @-r4
     79      1.1  msaitoh 	rts
     80      1.1  msaitoh 	xor	r0, r0
     81      1.1  msaitoh 
     82  1.3.2.1  nathanw 	.align	2
     83      1.1  msaitoh Lsigblock:
     84      1.3  msaitoh 	.long	_C_LABEL(sigblock)
     85      1.1  msaitoh 
     86      1.1  msaitoh ENTRY(longjmp)
     87      1.1  msaitoh 	mov.l	r4, @-r15
     88      1.1  msaitoh 	mov.l	r5, @-r15
     89      1.1  msaitoh 	mov	r4, r0
     90      1.1  msaitoh 	add	#4*10, r0
     91      1.1  msaitoh 	mov.l	@r0, r4
     92      1.1  msaitoh 	mov.l	Lsigsetmask, r0
     93      1.1  msaitoh 	jsr	@r0
     94      1.1  msaitoh 	nop
     95      1.1  msaitoh 	mov.l	@r15+, r5
     96      1.1  msaitoh 	mov.l	@r15+, r4
     97  1.3.2.1  nathanw 
     98      1.1  msaitoh 	lds.l	@r4+, pr
     99      1.1  msaitoh 	mov.l	@r4+, r8
    100      1.1  msaitoh 	mov.l	@r4+, r9
    101      1.1  msaitoh 	mov.l	@r4+, r10
    102      1.1  msaitoh 	mov.l	@r4+, r11
    103      1.1  msaitoh 	mov.l	@r4+, r12
    104      1.1  msaitoh 	mov.l	@r4+, r13
    105      1.1  msaitoh 	mov.l	@r4+, r14
    106      1.1  msaitoh 	mov.l	@r4+, r15
    107      1.1  msaitoh 	mov	r5, r0
    108      1.1  msaitoh 	tst	r0, r0
    109      1.1  msaitoh 	bf	.L0
    110      1.1  msaitoh 	add	#1, r0
    111      1.1  msaitoh .L0:
    112      1.1  msaitoh 	rts
    113      1.1  msaitoh 	nop
    114      1.1  msaitoh 
    115      1.1  msaitoh 	.align	2
    116      1.1  msaitoh Lsigsetmask:
    117      1.3  msaitoh 	.long	_C_LABEL(sigsetmask)
    118