_setjmp.S revision 85518
185518Sjake/* 285518Sjake * Copyright (c) 1992, 1993 385518Sjake * The Regents of the University of California. All rights reserved. 485518Sjake * 585518Sjake * This software was developed by the Computer Systems Engineering group 685518Sjake * at Lawrence Berkeley Laboratory under DARPA contract BG 91-66 and 785518Sjake * contributed to Berkeley. 885518Sjake * 985518Sjake * Redistribution and use in source and binary forms, with or without 1085518Sjake * modification, are permitted provided that the following conditions 1185518Sjake * are met: 1285518Sjake * 1. Redistributions of source code must retain the above copyright 1385518Sjake * notice, this list of conditions and the following disclaimer. 1485518Sjake * 2. Redistributions in binary form must reproduce the above copyright 1585518Sjake * notice, this list of conditions and the following disclaimer in the 1685518Sjake * documentation and/or other materials provided with the distribution. 1785518Sjake * 3. All advertising materials mentioning features or use of this software 1885518Sjake * must display the following acknowledgement: 1985518Sjake * This product includes software developed by the University of 2085518Sjake * California, Berkeley and its contributors. 2185518Sjake * 4. Neither the name of the University nor the names of its contributors 2285518Sjake * may be used to endorse or promote products derived from this software 2385518Sjake * without specific prior written permission. 2485518Sjake * 2585518Sjake * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 2685518Sjake * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 2785518Sjake * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 2885518Sjake * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 2985518Sjake * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 3085518Sjake * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 3185518Sjake * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 3285518Sjake * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 3385518Sjake * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 3485518Sjake * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 3585518Sjake * SUCH DAMAGE. 3685518Sjake * 3785518Sjake * from: Header: _setjmp.s,v 1.1 91/07/06 16:45:53 torek Exp 3885518Sjake */ 3985518Sjake 4085518Sjake#if defined(LIBC_SCCS) && !defined(lint) 4185518Sjake#if 0 4285518Sjake .asciz "@(#)_setjmp.s 8.1 (Berkeley) 6/4/93" 4385518Sjake#else 4485518Sjake RCSID("$NetBSD: _setjmp.S,v 1.4 1998/10/08 02:27:59 eeh Exp $") 4585518Sjake#endif 4685518Sjake#endif /* LIBC_SCCS and not lint */ 4785518Sjake 4885518Sjake#if defined(SYSLIBC_RCS) && !defined(lint) 4985518Sjake .text 5085518Sjake .asciz "$FreeBSD: head/lib/libc/sparc64/gen/_setjmp.S 85518 2001-10-26 05:40:07Z jake $" 5185518Sjake#endif /* SYSLIBC_RCS and not lint */ 5285518Sjake 5385518Sjake#include <machine/asm.h> 5485518Sjake 5585518Sjake/* 5685518Sjake * C library -- _setjmp, _longjmp 5785518Sjake * 5885518Sjake * _longjmp(a,v) 5985518Sjake * will generate a "return(v?v:1)" from 6085518Sjake * the last call to 6185518Sjake * _setjmp(a) 6285518Sjake * by unwinding the call stack. 6385518Sjake * The previous signal state is NOT restored. 6485518Sjake */ 6585518Sjake 6685518Sjake#define JB_SP 0x0 6785518Sjake#define JB_PC 0x8 6885518Sjake#define JB_FP 0x10 6985518Sjake 7085518SjakeENTRY(_setjmp) 7185518Sjake stx %sp, [%o0 + JB_SP] /* store caller's stack pointer */ 7285518Sjake stx %o7, [%o0 + JB_PC] /* ... return pc */ 7385518Sjake stx %fp, [%o0 + JB_FP] /* ... and frame pointer */ 7485518Sjake retl 7585518Sjake clr %o0 ! return 0 7685518Sjake 7785518SjakeENTRY(_longjmp) 7885518Sjake mov 1, %g6 7985518Sjake movrnz %o1, %o1, %g6 ! compute v ? v : 1 in a global register 8085518Sjake mov %o0, %g1 ! save a in another global register 8185518Sjake ldx [%g1 + JB_FP], %g7 /* get caller's frame */ 8285518Sjake1: cmp %fp, %g7 ! compare against desired frame 8385518Sjake bl,a 1b ! if below, 8485518Sjake restore ! pop frame and loop 8585518Sjake be,a 2f ! if there, 8685518Sjake ldx [%g1 + JB_SP], %o2 ! fetch return %sp 8785518Sjake 8885518Sjake.Lbotch: 8985518Sjake call CNAME(longjmperror) ! otherwise, went too far; bomb out 9085518Sjake nop 9185518Sjake illtrap 9285518Sjake 9385518Sjake2: cmp %o2, %sp ! %sp must not decrease 9485518Sjake bge,a 3f 9585518Sjake mov %o2, %sp ! it is OK, put it in place 9685518Sjake b,a .Lbotch 9785518Sjake nop 9885518Sjake3: ldx [%g1 + JB_PC], %o3 ! fetch pc 9985518Sjake jmp %o3 + 8 ! success, return %g6 10085518Sjake mov %g6, %o0 10185518Sjake 102