* Copyright (c) 1990 The Regents of the University of California.
* This code is derived from software contributed to Berkeley by
* the Systems Programming Group of the University of Utah Computer
* %sccs.include.redist.c%
#if defined(LIBC_SCCS) && !defined(lint)
.asciz "@(#)setjmp.s 5.1 (Berkeley) %G%"
#endif /* LIBC_SCCS and not lint */
* C library -- setjmp, longjmp
* will generate a "return(v)" from
* by restoring registers from the stack,
* and a struct sigcontext, see <signal.h>
subql #8,sp /* space for sigstack args/rvals */
clrl sp@ /* don't change it... */
movl sp,sp@(4) /* ...but return the current val */
jsr _sigstack /* note: onstack returned in sp@(4) */
clrl sp@ /* don't change mask, just return */
jsr _sigblock /* old value */
movl sp@(4),d1 /* old onstack value */
movl sp@(4),a0 /* save area pointer */
movl d1,a0@+ /* save old onstack value */
movl d0,a0@+ /* save old signal mask */
lea sp@(4),a1 /* adjust saved SP since we won't rts */
movl a1,a0@+ /* save old SP */
movl a6,a0@+ /* save old FP */
movl sp@,a0@+ /* save old PC */
moveml #0x3CFC,a0@ /* save remaining non-scratch regs */
movl sp@(4),a0 /* save area pointer */
tstl a0@(8) /* ensure non-zero SP */
movl sp@(8),d0 /* grab return value */
moveq #1,d0 /* else make non-zero */
moveml a0@(28),#0x3CFC /* restore non-scratch regs */
movl a0,sp@- /* let sigreturn */
jsr _sigreturn /* finish for us */