setjmp.S revision 1.18.2.1
1 1.18.2.1 perseant /* $NetBSD: setjmp.S,v 1.18.2.1 2025/08/02 05:54:32 perseant Exp $ */ 2 1.9 christos 3 1.1 cgd /*- 4 1.1 cgd * Copyright (c) 1990 The Regents of the University of California. 5 1.1 cgd * All rights reserved. 6 1.1 cgd * 7 1.1 cgd * This code is derived from software contributed to Berkeley by 8 1.1 cgd * William Jolitz. 9 1.1 cgd * 10 1.1 cgd * Redistribution and use in source and binary forms, with or without 11 1.1 cgd * modification, are permitted provided that the following conditions 12 1.1 cgd * are met: 13 1.1 cgd * 1. Redistributions of source code must retain the above copyright 14 1.1 cgd * notice, this list of conditions and the following disclaimer. 15 1.1 cgd * 2. Redistributions in binary form must reproduce the above copyright 16 1.1 cgd * notice, this list of conditions and the following disclaimer in the 17 1.1 cgd * documentation and/or other materials provided with the distribution. 18 1.13 agc * 3. Neither the name of the University nor the names of its contributors 19 1.1 cgd * may be used to endorse or promote products derived from this software 20 1.1 cgd * without specific prior written permission. 21 1.1 cgd * 22 1.1 cgd * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 23 1.1 cgd * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 24 1.1 cgd * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 25 1.1 cgd * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 26 1.1 cgd * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 27 1.1 cgd * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 28 1.1 cgd * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 29 1.1 cgd * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 30 1.1 cgd * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 31 1.1 cgd * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 32 1.1 cgd * SUCH DAMAGE. 33 1.3 jtc * 34 1.3 jtc * from: @(#)setjmp.s 5.1 (Berkeley) 4/23/90 35 1.1 cgd */ 36 1.1 cgd 37 1.7 jtc #include <machine/asm.h> 38 1.3 jtc #if defined(LIBC_SCCS) 39 1.18.2.1 perseant RCSID("$NetBSD: setjmp.S,v 1.18.2.1 2025/08/02 05:54:32 perseant Exp $") 40 1.3 jtc #endif 41 1.1 cgd 42 1.1 cgd /* 43 1.1 cgd * C library -- _setjmp, _longjmp 44 1.1 cgd * 45 1.1 cgd * longjmp(a,v) 46 1.1 cgd * will generate a "return(v)" from the last call to 47 1.1 cgd * setjmp(a) 48 1.1 cgd * by restoring registers from the stack. 49 1.1 cgd * The previous signal state is restored. 50 1.1 cgd */ 51 1.1 cgd 52 1.18 riastrad /* 53 1.18 riastrad * setjmp(jmp_buf env@esp[4,8)) 54 1.18 riastrad * 55 1.18 riastrad * ELF symbol: __setjmp14, because the size of jmp_buf changed on some 56 1.18 riastrad * platforms in 1.4. 57 1.18 riastrad */ 58 1.14 christos ENTRY(__setjmp14) 59 1.18 riastrad /* 60 1.18 riastrad * Save the callee-saves registers: %ebp, %ebx, %edi, %esi, 61 1.18 riastrad * plus %esp and the return address on the stack since it 62 1.18 riastrad * will be overwritten if the caller makes any subroutine 63 1.18 riastrad * calls before longjmp. 64 1.18 riastrad */ 65 1.18 riastrad movl 4(%esp),%ecx /* ecx := env */ 66 1.18 riastrad movl 0(%esp),%edx /* edx := return address */ 67 1.18 riastrad movl %edx,0(%ecx) 68 1.18 riastrad movl %ebx,4(%ecx) 69 1.18 riastrad movl %esp,8(%ecx) 70 1.14 christos movl %ebp,12(%ecx) 71 1.14 christos movl %esi,16(%ecx) 72 1.14 christos movl %edi,20(%ecx) 73 1.14 christos 74 1.14 christos /* Get the signal mask. */ 75 1.14 christos leal 24(%ecx),%edx 76 1.12 christos 77 1.12 christos PIC_PROLOGUE 78 1.18 riastrad pushl %edx /* oset (signal mask saved to) */ 79 1.18 riastrad pushl $0 /* set := NULL */ 80 1.18 riastrad pushl $0 /* how := 0 (ignored) */ 81 1.14 christos call PIC_PLT(_C_LABEL(__sigprocmask14)) 82 1.18 riastrad addl $12,%esp /* pop sigprocmask args */ 83 1.12 christos PIC_EPILOGUE 84 1.12 christos 85 1.18 riastrad xorl %eax,%eax /* return 0 first time around */ 86 1.1 cgd ret 87 1.17 uebayasi END(__setjmp14) 88 1.1 cgd 89 1.18 riastrad /* 90 1.18 riastrad * longjmp(jmp_buf env@esp[4,8), int val@[8,12)) 91 1.18 riastrad * 92 1.18 riastrad * ELF symbol: __longjmp14, because the size of jmp_buf changed on some 93 1.18 riastrad * platforms in 1.4. 94 1.18 riastrad */ 95 1.14 christos ENTRY(__longjmp14) 96 1.18 riastrad /* 97 1.18 riastrad * Restore the callee-saves registers: %ebp, %ebx, %edi, %esi, 98 1.18 riastrad * plus %esp and the return address on the stack. 99 1.18 riastrad */ 100 1.18 riastrad movl 4(%esp),%edx /* edx := env */ 101 1.18 riastrad movl 8(%esp),%eax /* eax := val */ 102 1.18 riastrad movl 0(%edx),%ecx /* ecx := return address */ 103 1.18 riastrad movl 4(%edx),%ebx 104 1.18 riastrad movl 8(%edx),%esp 105 1.18 riastrad movl 12(%edx),%ebp 106 1.18 riastrad movl 16(%edx),%esi 107 1.18 riastrad movl 20(%edx),%edi 108 1.18 riastrad movl %ecx,0(%esp) /* restore return address */ 109 1.18 riastrad 110 1.14 christos /* Restore the signal mask. */ 111 1.18 riastrad leal 24(%edx),%edx 112 1.18 riastrad 113 1.18 riastrad pushl %eax /* save val@eax */ 114 1.12 christos 115 1.12 christos PIC_PROLOGUE 116 1.18 riastrad pushl $0 /* oset := NULL */ 117 1.18 riastrad pushl %edx /* set (signal mask restored from) */ 118 1.18 riastrad pushl $3 /* how := SIG_SETMASK */ 119 1.14 christos call PIC_PLT(_C_LABEL(__sigprocmask14)) 120 1.18 riastrad addl $12,%esp /* pop sigprocmask args */ 121 1.12 christos PIC_EPILOGUE 122 1.12 christos 123 1.18 riastrad popl %eax /* restore val@eax */ 124 1.18 riastrad 125 1.18 riastrad testl %eax,%eax /* val == 0? */ 126 1.18 riastrad jz 3f /* jump if val == 0 */ 127 1.18 riastrad ret /* return val@eax */ 128 1.18 riastrad 129 1.18 riastrad 3: incl %eax /* val@eax := 1 */ 130 1.18 riastrad ret /* return val@eax */ 131 1.17 uebayasi END(__longjmp14) 132
Indexes created Fri Oct 03 02:09:57 GMT 2025