_setjmp.S revision 106904
1// $FreeBSD: head/lib/libc/ia64/gen/_setjmp.S 106904 2002-11-14 06:40:23Z marcel $ 2// 3// Copyright (c) 1999, 2000 4// Intel Corporation. 5// All rights reserved. 6// 7// Redistribution and use in source and binary forms, with or without 8// modification, are permitted provided that the following conditions 9// are met: 10// 11// 1. Redistributions of source code must retain the above copyright 12// notice, this list of conditions and the following disclaimer. 13// 14// 2. Redistributions in binary form must reproduce the above copyright 15// notice, this list of conditions and the following disclaimer in the 16// documentation and/or other materials provided with the distribution. 17// 18// 3. All advertising materials mentioning features or use of this software 19// must display the following acknowledgement: 20// 21// This product includes software developed by Intel Corporation and 22// its contributors. 23// 24// 4. Neither the name of Intel Corporation or its contributors may be 25// used to endorse or promote products derived from this software 26// without specific prior written permission. 27// 28// THIS SOFTWARE IS PROVIDED BY INTEL CORPORATION AND CONTRIBUTORS ``AS IS'' 29// AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 30// IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 31// ARE DISCLAIMED. IN NO EVENT SHALL INTEL CORPORATION OR CONTRIBUTORS BE 32// LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 33// CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 34// SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 35// INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 36// CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 37// ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF 38// THE POSSIBILITY OF SUCH DAMAGE. 39// 40// 41 42// 43// Module Name: 44// 45// setjmp.s 46// 47// Abstract: 48// 49// Contains an implementation of setjmp and longjmp for the 50// IA-64 architecture. 51 52 .file "setjmp.s" 53 54#define LOCORE 55#include <machine/asm.h> 56#include <machine/setjmp.h> 57 58// int _setjmp(struct jmp_buffer *) 59// 60// Setup a non-local goto. 61// 62// Description: 63// 64// SetJump stores the current register set in the area pointed to 65// by "save". It returns zero. Subsequent calls to "LongJump" will 66// restore the registers and return non-zero to the same location. 67// 68// On entry, r32 contains the pointer to the jmp_buffer 69// 70 71ENTRY(_setjmp, 1) 72 add r10 = J_PREDS, r32 // skip Unats & pfs save area 73 add r11 = J_BSP, r32 74 // 75 // save immediate context 76 // 77 mov r2 = ar.bsp // save backing store pointer 78 mov r3 = pr // save predicates 79 flushrs 80 ;; 81 // 82 // save user Unat register 83 // 84 mov r16 = ar.lc // save loop count register 85 mov r14 = ar.unat // save user Unat register 86 87 st8 [r10] = r3, J_LC-J_PREDS 88 st8 [r11] = r2, J_R4-J_BSP 89 ;; 90 st8 [r10] = r16, J_R5-J_LC 91 st8 [r32] = r14, J_NATS // Note: Unat at the 92 // beginning of the save area 93 mov r15 = ar.pfs 94 ;; 95 // 96 // save preserved general registers & NaT's 97 // 98 .mem.offset 0,0 99 st8.spill [r11] = r4, J_R6-J_R4 100 .mem.offset 8,0 101 st8.spill [r10] = r5, J_R7-J_R5 102 ;; 103 .mem.offset 16,0 104 st8.spill [r11] = r6, J_SP-J_R6 105 .mem.offset 24,0 106 st8.spill [r10] = r7, J_F3-J_R7 107 ;; 108 st8.spill [r11] = sp, J_F2-J_SP 109 mov r16 = ar.rsc 110 ;; 111 // 112 // save spilled Unat and pfs registers 113 // 114 mov r2 = ar.unat // save Unat register after spill 115 mov ar.rsc = r0 116 ;; 117 st8 [r32] = r2, J_PFS-J_NATS // save unat for spilled regs 118 mov r17 = ar.rnat 119 ;; 120 st8 [r32] = r15, J_RNAT-J_PFS // save pfs 121 mov ar.rsc = r16 122 // 123 // save floating registers 124 // 125 stf.spill [r11] = f2, J_F4-J_F2 126 stf.spill [r10] = f3, J_F5-J_F3 127 ;; 128 stf.spill [r11] = f4, J_F16-J_F4 129 stf.spill [r10] = f5, J_F17-J_F5 130 ;; 131 stf.spill [r11] = f16, J_F18-J_F16 132 stf.spill [r10] = f17, J_F19-J_F17 133 ;; 134 stf.spill [r11] = f18, J_F20-J_F18 135 stf.spill [r10] = f19, J_F21-J_F19 136 ;; 137 stf.spill [r11] = f20, J_F22-J_F20 138 stf.spill [r10] = f21, J_F23-J_F21 139 ;; 140 stf.spill [r11] = f22, J_F24-J_F22 141 stf.spill [r10] = f23, J_F25-J_F23 142 ;; 143 stf.spill [r11] = f24, J_F26-J_F24 144 stf.spill [r10] = f25, J_F27-J_F25 145 ;; 146 stf.spill [r11] = f26, J_F28-J_F26 147 stf.spill [r10] = f27, J_F29-J_F27 148 ;; 149 stf.spill [r11] = f28, J_F30-J_F28 150 stf.spill [r10] = f29, J_F31-J_F29 151 ;; 152 stf.spill [r11] = f30, J_FPSR-J_F30 153 stf.spill [r10] = f31, J_B0-J_F31 // size of f31 + fpsr 154 ;; 155 st8 [r32] = r17 156 // 157 // save FPSR register & branch registers 158 // 159 mov r2 = ar.fpsr // save fpsr register 160 mov r3 = b0 161 ;; 162 st8 [r11] = r2, J_B1-J_FPSR 163 st8 [r10] = r3, J_B2-J_B0 164 mov r2 = b1 165 mov r3 = b2 166 ;; 167 st8 [r11] = r2, J_B3-J_B1 168 st8 [r10] = r3, J_B4-J_B2 169 mov r2 = b3 170 mov r3 = b4 171 ;; 172 st8 [r11] = r2, J_B5-J_B3 173 st8 [r10] = r3 174 mov r2 = b5 175 ;; 176 st8 [r11] = r2 177 ;; 178 // 179 // return 180 // 181 mov r8 = r0 // return 0 from setjmp 182 mov ar.unat = r14 // restore unat 183 br.ret.sptk b0 184 185END(_setjmp) 186 187 188// 189// void _longjmp(struct jmp_buffer *, int val) 190// 191// Perform a non-local goto. 192// 193// Description: 194// 195// LongJump initializes the register set to the values saved by a 196// previous 'SetJump' and jumps to the return location saved by that 197// 'SetJump'. This has the effect of unwinding the stack and returning 198// for a second time to the 'SetJump'. 199// 200 201 WEAK_ALIAS(_longjmp,___longjmp) 202ENTRY(___longjmp, 2) 203 mov r14 = ar.rsc // get user RSC conf 204 mov r8 = r33 // return value 205 add r10 = J_PFS, r32 // get address of pfs 206 ;; 207 mov ar.rsc = r0 208 add r11 = J_NATS, r32 209 add r17 = J_RNAT, r32 210 ;; 211 ld8 r15 = [r10], J_BSP-J_PFS // get pfs 212 ld8 r2 = [r11], J_LC-J_NATS // get unat for spilled regs 213 mov r31 = r32 214 ;; 215 loadrs 216 mov ar.unat = r2 217 cmp.eq p6,p0=0,r8 // Return value 0? 218 ;; 219 ld8 r16 = [r10], J_PREDS-J_BSP // get backing store pointer 220 ld8 r17 = [r17] // ar.rnat 221 mov ar.pfs = r15 222 ;; 223 mov ar.bspstore = r16 224(p6) add r8 = 1, r0 225 ;; 226 mov ar.rnat = r17 227 mov ar.rsc = r14 // restore RSC conf 228 229 ld8 r3 = [r11], J_R4-J_LC // get lc register 230 ld8 r2 = [r10], J_R5-J_PREDS // get predicates 231 ;; 232 mov pr = r2, -1 233 mov ar.lc = r3 234 // 235 // restore preserved general registers & NaT's 236 // 237 ld8.fill r4 = [r11], J_R6-J_R4 238 ;; 239 ld8.fill r5 = [r10], J_R7-J_R5 240 ld8.fill r6 = [r11], J_SP-J_R6 241 ;; 242 ld8.fill r7 = [r10], J_F2-J_R7 243 ld8.fill sp = [r11], J_F3-J_SP 244 ;; 245 // 246 // restore floating registers 247 // 248 ldf.fill f2 = [r10], J_F4-J_F2 249 ldf.fill f3 = [r11], J_F5-J_F3 250 ;; 251 ldf.fill f4 = [r10], J_F16-J_F4 252 ldf.fill f5 = [r11], J_F17-J_F5 253 ;; 254 ldf.fill f16 = [r10], J_F18-J_F16 255 ldf.fill f17 = [r11], J_F19-J_F17 256 ;; 257 ldf.fill f18 = [r10], J_F20-J_F18 258 ldf.fill f19 = [r11], J_F21-J_F19 259 ;; 260 ldf.fill f20 = [r10], J_F22-J_F20 261 ldf.fill f21 = [r11], J_F23-J_F21 262 ;; 263 ldf.fill f22 = [r10], J_F24-J_F22 264 ldf.fill f23 = [r11], J_F25-J_F23 265 ;; 266 ldf.fill f24 = [r10], J_F26-J_F24 267 ldf.fill f25 = [r11], J_F27-J_F25 268 ;; 269 ldf.fill f26 = [r10], J_F28-J_F26 270 ldf.fill f27 = [r11], J_F29-J_F27 271 ;; 272 ldf.fill f28 = [r10], J_F30-J_F28 273 ldf.fill f29 = [r11], J_F31-J_F29 274 ;; 275 ldf.fill f30 = [r10], J_FPSR-J_F30 276 ldf.fill f31 = [r11], J_B0-J_F31 ;; 277 278 // 279 // restore branch registers and fpsr 280 // 281 ld8 r16 = [r10], J_B1-J_FPSR // get fpsr 282 ld8 r17 = [r11], J_B2-J_B0 // get return pointer 283 ;; 284 mov ar.fpsr = r16 285 mov b0 = r17 286 ld8 r2 = [r10], J_B3-J_B1 287 ld8 r3 = [r11], J_B4-J_B2 288 ;; 289 mov b1 = r2 290 mov b2 = r3 291 ld8 r2 = [r10], J_B5-J_B3 292 ld8 r3 = [r11], 293 ;; 294 mov b3 = r2 295 mov b4 = r3 296 ld8 r2 = [r10] 297 ld8 r21 = [r31] // get user unat 298 ;; 299 mov b5 = r2 300 mov ar.unat = r21 301 302 // 303 // invalidate ALAT 304 // 305 invala ;; 306 307 br.ret.sptk b0 308 309END(___longjmp) 310