1/* longjmp for PA-RISC.
2   Copyright (C) 1997, 1998 Free Software Foundation, Inc.
3   This file is part of the GNU C Library.
4
5   The GNU C Library is free software; you can redistribute it and/or
6   modify it under the terms of the GNU Lesser General Public
7   License as published by the Free Software Foundation; either
8   version 2.1 of the License, or (at your option) any later version.
9
10   The GNU C Library is distributed in the hope that it will be useful,
11   but WITHOUT ANY WARRANTY; without even the implied warranty of
12   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13   Lesser General Public License for more details.
14
15   You should have received a copy of the GNU Lesser General Public
16   License along with the GNU C Library; if not, see
17   <http://www.gnu.org/licenses/>.  */
18
19/* __longjmp(jmpbuf, val) */
20
21	.text
22	.align 4
23	.globl __longjmp
24	.export __longjmp, code
25	.proc
26	.callinfo
27__longjmp:
28	/* set return value */
29	copy	%r25, %r28
30
31	ldw	0(%r26), %r3
32	ldw	8(%r26), %r4
33	ldw	12(%r26), %r5
34	ldw	16(%r26), %r6
35	ldw	20(%r26), %r7
36	ldw	24(%r26), %r8
37	ldw	28(%r26), %r9
38	ldw	32(%r26), %r10
39	ldw	36(%r26), %r11
40	ldw	40(%r26), %r12
41	ldw	44(%r26), %r13
42	ldw	48(%r26), %r14
43	ldw	52(%r26), %r15
44	ldw	56(%r26), %r16
45	ldw	60(%r26), %r17
46	ldw	64(%r26), %r18
47	ldw	68(%r26), %r19
48	ldw	72(%r26), %r27
49	ldw	76(%r26), %r30
50
51	ldw	80(%r26), %rp
52
53	ldo	88(%r26),%r20
54	fldds,ma 8(%r20), %fr12
55	fldds,ma 8(%r20), %fr13
56	fldds,ma 8(%r20), %fr14
57	fldds,ma 8(%r20), %fr15
58	fldds,ma 8(%r20), %fr16
59	fldds,ma 8(%r20), %fr17
60	fldds,ma 8(%r20), %fr18
61	fldds,ma 8(%r20), %fr19
62	fldds,ma 8(%r20), %fr20
63	fldds	 0(%r20), %fr21
64
65	bv,n	%r0(%r2)
66	.procend
67
68libc_hidden_def(__longjmp)
69