2 // Copyright (c) 1999, 2000
4 // All rights reserved.
6 // Redistribution and use in source and binary forms, with or without
7 // modification, are permitted provided that the following conditions
10 // 1. Redistributions of source code must retain the above copyright
11 // notice, this list of conditions and the following disclaimer.
13 // 2. Redistributions in binary form must reproduce the above copyright
14 // notice, this list of conditions and the following disclaimer in the
15 // documentation and/or other materials provided with the distribution.
17 // 3. All advertising materials mentioning features or use of this software
18 // must display the following acknowledgement:
20 // This product includes software developed by Intel Corporation and
23 // 4. Neither the name of Intel Corporation or its contributors may be
24 // used to endorse or promote products derived from this software
25 // without specific prior written permission.
27 // THIS SOFTWARE IS PROVIDED BY INTEL CORPORATION AND CONTRIBUTORS ``AS IS''
28 // AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
29 // IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
30 // ARE DISCLAIMED. IN NO EVENT SHALL INTEL CORPORATION OR CONTRIBUTORS BE
31 // LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
32 // CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
33 // SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
34 // INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
35 // CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
36 // ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
37 // THE POSSIBILITY OF SUCH DAMAGE.
48 // Contains an implementation of setjmp and longjmp for the
49 // IA-64 architecture.
53 #include <machine/asm.h>
54 RCSID("$NetBSD: _setjmp.S,v 1.1 2015/04/17 12:51:05 martin Exp $");
56 #include <machine/setjmp.h>
58 // int _setjmp(struct jmp_buffer *)
60 // Setup a non-local goto.
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.
68 // On entry, r32 contains the pointer to the jmp_buffer
72 add r10 = J_PREDS, r32 // skip Unats & pfs save area
75 // save immediate context
77 mov r2 = ar.bsp // save backing store pointer
78 mov r3 = pr // save predicates
82 // save user Unat register
84 mov r16 = ar.lc // save loop count register
85 mov r14 = ar.unat // save user Unat register
87 st8 [r10] = r3, J_LC-J_PREDS
88 st8 [r11] = r2, J_R4-J_BSP
90 st8 [r10] = r16, J_R5-J_LC
91 st8 [r32] = r14, J_NATS // Note: Unat at the
92 // beginning of the save area
96 // save preserved general registers & NaT's
99 st8.spill [r11] = r4, J_R6-J_R4
101 st8.spill [r10] = r5, J_R7-J_R5
104 st8.spill [r11] = r6, J_SP-J_R6
106 st8.spill [r10] = r7, J_F3-J_R7
108 st8.spill [r11] = sp, J_F2-J_SP
112 // save spilled Unat and pfs registers
114 mov r2 = ar.unat // save Unat register after spill
117 st8 [r32] = r2, J_PFS-J_NATS // save unat for spilled regs
120 st8 [r32] = r15, J_RNAT-J_PFS // save pfs
123 // save floating registers
125 stf.spill [r11] = f2, J_F4-J_F2
126 stf.spill [r10] = f3, J_F5-J_F3
128 stf.spill [r11] = f4, J_F16-J_F4
129 stf.spill [r10] = f5, J_F17-J_F5
131 stf.spill [r11] = f16, J_F18-J_F16
132 stf.spill [r10] = f17, J_F19-J_F17
134 stf.spill [r11] = f18, J_F20-J_F18
135 stf.spill [r10] = f19, J_F21-J_F19
137 stf.spill [r11] = f20, J_F22-J_F20
138 stf.spill [r10] = f21, J_F23-J_F21
140 stf.spill [r11] = f22, J_F24-J_F22
141 stf.spill [r10] = f23, J_F25-J_F23
143 stf.spill [r11] = f24, J_F26-J_F24
144 stf.spill [r10] = f25, J_F27-J_F25
146 stf.spill [r11] = f26, J_F28-J_F26
147 stf.spill [r10] = f27, J_F29-J_F27
149 stf.spill [r11] = f28, J_F30-J_F28
150 stf.spill [r10] = f29, J_F31-J_F29
152 stf.spill [r11] = f30, J_FPSR-J_F30
153 stf.spill [r10] = f31, J_B0-J_F31 // size of f31 + fpsr
157 // save FPSR register & branch registers
159 mov r2 = ar.fpsr // save fpsr register
162 st8 [r11] = r2, J_B1-J_FPSR
163 st8 [r10] = r3, J_B2-J_B0
167 st8 [r11] = r2, J_B3-J_B1
168 st8 [r10] = r3, J_B4-J_B2
172 st8 [r11] = r2, J_B5-J_B3
181 mov r8 = r0 // return 0 from setjmp
182 mov ar.unat = r14 // restore unat
189 // void _longjmp(struct jmp_buffer *, int val)
191 // Perform a non-local goto.
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'.
202 mov r14 = ar.rsc // get user RSC conf
203 mov r8 = r33 // return value
204 add r10 = J_PFS, r32 // get address of pfs
207 add r11 = J_NATS, r32
208 add r17 = J_RNAT, r32
210 ld8 r15 = [r10], J_BSP-J_PFS // get pfs
211 ld8 r2 = [r11], J_LC-J_NATS // get unat for spilled regs
216 cmp.eq p6,p0=0,r8 // Return value 0?
218 ld8 r16 = [r10], J_PREDS-J_BSP // get backing store pointer
219 ld8 r17 = [r17] // ar.rnat
222 mov ar.bspstore = r16
226 mov ar.rsc = r14 // restore RSC conf
228 ld8 r3 = [r11], J_R4-J_LC // get lc register
229 ld8 r2 = [r10], J_R5-J_PREDS // get predicates
234 // restore preserved general registers & NaT's
236 ld8.fill r4 = [r11], J_R6-J_R4
238 ld8.fill r5 = [r10], J_R7-J_R5
239 ld8.fill r6 = [r11], J_SP-J_R6
241 ld8.fill r7 = [r10], J_F2-J_R7
242 ld8.fill sp = [r11], J_F3-J_SP
245 // restore floating registers
247 ldf.fill f2 = [r10], J_F4-J_F2
248 ldf.fill f3 = [r11], J_F5-J_F3
250 ldf.fill f4 = [r10], J_F16-J_F4
251 ldf.fill f5 = [r11], J_F17-J_F5
253 ldf.fill f16 = [r10], J_F18-J_F16
254 ldf.fill f17 = [r11], J_F19-J_F17
256 ldf.fill f18 = [r10], J_F20-J_F18
257 ldf.fill f19 = [r11], J_F21-J_F19
259 ldf.fill f20 = [r10], J_F22-J_F20
260 ldf.fill f21 = [r11], J_F23-J_F21
262 ldf.fill f22 = [r10], J_F24-J_F22
263 ldf.fill f23 = [r11], J_F25-J_F23
265 ldf.fill f24 = [r10], J_F26-J_F24
266 ldf.fill f25 = [r11], J_F27-J_F25
268 ldf.fill f26 = [r10], J_F28-J_F26
269 ldf.fill f27 = [r11], J_F29-J_F27
271 ldf.fill f28 = [r10], J_F30-J_F28
272 ldf.fill f29 = [r11], J_F31-J_F29
274 ldf.fill f30 = [r10], J_FPSR-J_F30
275 ldf.fill f31 = [r11], J_B0-J_F31 ;;
278 // restore branch registers and fpsr
280 ld8 r16 = [r10], J_B1-J_FPSR // get fpsr
281 ld8 r17 = [r11], J_B2-J_B0 // get return pointer
285 ld8 r2 = [r10], J_B3-J_B1
286 ld8 r3 = [r11], J_B4-J_B2
290 ld8 r2 = [r10], J_B5-J_B3
296 ld8 r21 = [r31] // get user unat