12fe8fb19SBen Gras/* 22fe8fb19SBen Gras * Copyright (c) 1980, 1993 32fe8fb19SBen Gras * The Regents of the University of California. All rights reserved. 42fe8fb19SBen Gras * 52fe8fb19SBen Gras * Redistribution and use in source and binary forms, with or without 62fe8fb19SBen Gras * modification, are permitted provided that the following conditions 72fe8fb19SBen Gras * are met: 82fe8fb19SBen Gras * 1. Redistributions of source code must retain the above copyright 92fe8fb19SBen Gras * notice, this list of conditions and the following disclaimer. 102fe8fb19SBen Gras * 2. Redistributions in binary form must reproduce the above copyright 112fe8fb19SBen Gras * notice, this list of conditions and the following disclaimer in the 122fe8fb19SBen Gras * documentation and/or other materials provided with the distribution. 132fe8fb19SBen Gras * 3. Neither the name of the University nor the names of its contributors 142fe8fb19SBen Gras * may be used to endorse or promote products derived from this software 152fe8fb19SBen Gras * without specific prior written permission. 162fe8fb19SBen Gras * 172fe8fb19SBen Gras * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 182fe8fb19SBen Gras * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 192fe8fb19SBen Gras * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 202fe8fb19SBen Gras * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 212fe8fb19SBen Gras * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 222fe8fb19SBen Gras * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 232fe8fb19SBen Gras * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 242fe8fb19SBen Gras * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 252fe8fb19SBen Gras * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 262fe8fb19SBen Gras * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 272fe8fb19SBen Gras * SUCH DAMAGE. 282fe8fb19SBen Gras */ 292fe8fb19SBen Gras 30*e415d488SLionel Sambuc#include "DEFS.h" 31*e415d488SLionel Sambuc 322fe8fb19SBen Gras#if defined(LIBC_SCCS) && !defined(lint) 332fe8fb19SBen Gras /* .asciz "@(#)_setjmp.s 8.1 (Berkeley) 6/4/93" */ 34*e415d488SLionel SambucRCSID("$NetBSD: _setjmp.S,v 1.10 2011/01/25 02:38:15 matt Exp $") 352fe8fb19SBen Gras#endif /* LIBC_SCCS and not lint */ 362fe8fb19SBen Gras 372fe8fb19SBen Gras/* 382fe8fb19SBen Gras * C library -- _setjmp, _longjmp 392fe8fb19SBen Gras * 402fe8fb19SBen Gras * _longjmp(a,v) 412fe8fb19SBen Gras * will generate a "return(v)" from 422fe8fb19SBen Gras * the last call to 432fe8fb19SBen Gras * _setjmp(a) 442fe8fb19SBen Gras * by restoring registers from the stack, 452fe8fb19SBen Gras * The previous signal state is NOT restored. 462fe8fb19SBen Gras * 472fe8fb19SBen Gras * Even though we don't use sigreturn14, we still store things in a sigcontext 482fe8fb19SBen Gras * in order to be consistent. 492fe8fb19SBen Gras */ 502fe8fb19SBen Gras 512fe8fb19SBen GrasENTRY(_setjmp, R6) 522fe8fb19SBen Gras movl 4(%ap),%r0 532fe8fb19SBen Gras movl 12(%fp),12(%r0) # save frame pointer of caller 542fe8fb19SBen Gras movl 16(%fp),20(%r0) # save pc of caller 552fe8fb19SBen Gras movl 8(%fp),16(%r0) # save ap of caller 562fe8fb19SBen Gras clrl %r1 # clear arg count 572fe8fb19SBen Gras bbc $13,6(%fp),1f # was this a callg? 582fe8fb19SBen Gras addl3 $1,(%ap),%r1 # get real arg count+1 for calls 592fe8fb19SBen Gras1: moval 24(%fp)[%r1],8(%r0) # save sp of caller 602fe8fb19SBen Gras movpsl 24(%r0) # save current psl 612fe8fb19SBen Gras movw 4(%fp),24(%r0) # save psw of caller 622fe8fb19SBen Gras movq %r6,44(%r0) # save r6/r7 632fe8fb19SBen Gras movq %r8,52(%r0) # save r8/r9 642fe8fb19SBen Gras movq %r10,60(%r0) # save r10/r11 652fe8fb19SBen Gras clrl %r0 662fe8fb19SBen Gras ret 67*e415d488SLionel SambucEND(_setjmp) 682fe8fb19SBen Gras 692fe8fb19SBen GrasENTRY(_longjmp, 0) 702fe8fb19SBen Gras movl 8(%ap),%r0 # return(v) 712fe8fb19SBen Gras movl 4(%ap),%r1 # fetch buffer 722fe8fb19SBen Gras tstl 12(%r1) # is fp null 732fe8fb19SBen Gras beql botch 742fe8fb19SBen Gras movq 44(%r1),%r6 # restore r6/r7 752fe8fb19SBen Gras movq 52(%r1),%r8 # restore r8/r9 762fe8fb19SBen Gras movq 60(%r1),%r10 # restore r10/r11 772fe8fb19SBen Gras movl 16(%r1),%ap # restore ap 782fe8fb19SBen Gras movl 8(%r1),%sp # restore sp 792fe8fb19SBen Gras movl 12(%r1),%fp # restore fp 802fe8fb19SBen Gras movq 20(%r1),-(%sp) # save pc/psl to new stack 812fe8fb19SBen Gras rei # and go back to saved pc/psl 822fe8fb19SBen Gras 832fe8fb19SBen Grasbotch: 842fe8fb19SBen Gras calls $0,_C_LABEL(longjmperror) 852fe8fb19SBen Gras halt 86*e415d488SLionel SambucEND(_longjmp) 87