1/* $OpenBSD: setjmp.S,v 1.3 2020/07/02 08:59:45 kettenis Exp $ */ 2/* 3 * Copyright (c) 2020 Dale Rahn. All rights reserved. 4 * 5 * 6 * Redistribution and use in source and binary forms, with or without 7 * modification, are permitted provided that the following conditions 8 * are met: 9 * 1. Redistributions of source code must retain the above copyright 10 * notice, this list of conditions and the following disclaimer. 11 * 2. Redistributions in binary form must reproduce the above copyright 12 * notice, this list of conditions and the following disclaimer in the 13 * documentation and/or other materials provided with the distribution. 14 * 15 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR 16 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES 17 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 18 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, 19 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT 20 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 21 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY 22 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 23 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF 24 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 25 */ 26 27#include "SYS.h" 28#include <machine/asm.h> 29 30/* int setjmp(jmp_buf env) */ 31 32#define JMP_r1 0x08 33#define JMP_r14 0x10 34#define JMP_r15 0x18 35#define JMP_r16 0x20 36#define JMP_r17 0x28 37#define JMP_r18 0x30 38#define JMP_r19 0x38 39#define JMP_r20 0x40 40#define JMP_r21 0x48 41#define JMP_r22 0x50 42#define JMP_r23 0x58 43#define JMP_r24 0x60 44#define JMP_r25 0x68 45#define JMP_r26 0x70 46#define JMP_r27 0x78 47#define JMP_r28 0x80 48#define JMP_r29 0x88 49#define JMP_r30 0x90 50#define JMP_r31 0x98 51#define JMP_lr 0xa0 52#define JMP_cr 0xa8 53#define JMP_ctr 0xb0 54#define JMP_xer 0xb8 55#define JMP_sig 0xc0 56 57 .section .openbsd.randomdata,"aw",@progbits 58 .balign 4 59 .globl __jmpxor 60 .hidden __jmpxor 61__jmpxor: 62 .zero 8*2 # (r1, lr) 63 END(__jmpxor) 64 .type __jmpxor,@object 65 66 67/* int setjmp(jmp_buf env); */ 68ENTRY(setjmp) 69 mr %r5, %r3 /* save jmpbuf addr in r5 */ 70 li %r3, 1 /* how = SIG_BLOCK */ 71 li %r4, 0 /* oset = empty */ 72 li %r0, SYS_sigprocmask 73 sc 74 std %r3, JMP_sig(%r5) 75 b 1f 76 nop 77 78ENTRY(_setjmp) 79 mr %r5, %r3 /* save jmpbuf addr in r5 */ 801: 81 addis %r7, %r2, __jmpxor@toc@ha 82 addi %r7, %r7, __jmpxor@toc@l 83 ld %r0, 0(%r7) /* xor for r1 */ 84 ld %r7, 8(%r7) /* xor for lr, overwrite addr */ 85 86 /* r1, r14-r31 */ 87 xor %r0, %r0, %r1 /* use and overwrite the r1 xor */ 88 std %r0, JMP_r1(%r5) 89 std %r14, JMP_r14(%r5) 90 std %r15, JMP_r15(%r5) 91 std %r16, JMP_r16(%r5) 92 std %r17, JMP_r17(%r5) 93 std %r18, JMP_r18(%r5) 94 std %r19, JMP_r19(%r5) 95 std %r20, JMP_r20(%r5) 96 std %r21, JMP_r21(%r5) 97 std %r22, JMP_r22(%r5) 98 std %r23, JMP_r23(%r5) 99 std %r24, JMP_r24(%r5) 100 std %r25, JMP_r25(%r5) 101 std %r26, JMP_r26(%r5) 102 std %r27, JMP_r27(%r5) 103 std %r28, JMP_r28(%r5) 104 std %r29, JMP_r29(%r5) 105 std %r30, JMP_r30(%r5) 106 std %r31, JMP_r31(%r5) 107 /* lr, cr, ctr, xer */ 108 mflr %r6 109 xor %r7, %r6, %r7 /* use and overwrite the lr xor */ 110 std %r7, JMP_lr(%r5) 111 mfcr %r0 112 std %r0, JMP_cr(%r5) 113 mfctr %r0 114 std %r0, JMP_ctr(%r5) 115 mfxer %r0 116 std %r0, JMP_xer(%r5) 117 /* floating point is all caller save */ 118 li %r3, 0 119 blr 120END(_setjmp) 121END(setjmp) 122 123 124/* void longjmp(jmp_buf env, int val); */ 125ENTRY(longjmp) 126 mr %r5, %r3 /* save jmpbuf addr in r5 */ 127 mr %r6, %r4 /* save val in r6 */ 128 li %r3, 3 /* how = SIG_SETMASK */ 129 ld %r4, JMP_sig(%r5) /* oset from the jmpbuf */ 130 li %r0, SYS_sigprocmask 131 sc 132 nop 133 b 1f 134 nop 135 136/* _longjmp(jmp_buf env, int val); */ 137 138ENTRY(_longjmp) 139 mr %r5, %r3 /* save jmpbuf addr in r5 */ 140 mr %r6, %r4 /* save val in r6 */ 1411: 142 addis %r9, %r2, __jmpxor@toc@ha 143 addi %r9, %r9, __jmpxor@toc@l 144 ld %r8, 0(%r9) /* xor for r1 */ 145 ld %r9, 8(%r9) /* xor for lr, overwrite addr */ 146 147 /* r1, r14-r31 */ 148 ld %r0, JMP_r1(%r5) 149 xor %r1, %r0, %r8 /* use the r1 xor */ 150 ld %r14, JMP_r14(%r5) 151 ld %r15, JMP_r15(%r5) 152 ld %r16, JMP_r16(%r5) 153 ld %r17, JMP_r17(%r5) 154 ld %r18, JMP_r18(%r5) 155 ld %r19, JMP_r19(%r5) 156 ld %r20, JMP_r20(%r5) 157 ld %r21, JMP_r21(%r5) 158 ld %r22, JMP_r22(%r5) 159 ld %r23, JMP_r23(%r5) 160 ld %r24, JMP_r24(%r5) 161 ld %r25, JMP_r25(%r5) 162 ld %r26, JMP_r26(%r5) 163 ld %r27, JMP_r27(%r5) 164 ld %r28, JMP_r28(%r5) 165 ld %r29, JMP_r29(%r5) 166 ld %r30, JMP_r30(%r5) 167 ld %r31, JMP_r31(%r5) 168 /* cr, lr, ctr, xer */ 169 ld %r8, JMP_cr(%r5) /* overwrite the r1 xor */ 170 mtcr %r8 171 ld %r0, JMP_lr(%r5) 172 xor %r0, %r0, %r9 /* use the lr xor */ 173 mtlr %r0 174 ld %r9, JMP_ctr(%r5) /* overwrite the lr xor */ 175 mtctr %r9 176 ld %r0, JMP_xer(%r5) 177 mtxer %r0 178 /* floating point is all caller save */ 179 180 /* if return val in r6 == 0, return 1, not 0 */ 181 mr %r3, %r6 182 cmpwi %r6, 0 183 bnelr 184 li %r3, 1 185 blr 186END(_longjmp) 187END(longjmp) 188