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