1/* Copyright (c) 1995, 2002 Red Hat Incorporated.
2 * All rights reserved.
3 *
4 * Redistribution and use in source and binary forms, with or without
5 * modification, are permitted provided that the following conditions are met:
6 *
7 *    Redistributions of source code must retain the above copyright
8 *    notice, this list of conditions and the following disclaimer.
9 *
10 *    Redistributions in binary form must reproduce the above copyright
11 *    notice, this list of conditions and the following disclaimer in the
12 *    documentation and/or other materials provided with the distribution.
13 *
14 *    The name of Red Hat Incorporated may not be used to endorse
15 *    or promote products derived from this software without specific
16 *    prior written permission.
17 *
18 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
19 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
20 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
21 * ARE DISCLAIMED.  IN NO EVENT SHALL RED HAT INCORPORATED BE LIABLE FOR ANY
22 * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
23 * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
24 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
25 * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
26 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
27 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
28 */
29
30/* Note I don't know an easy way to get the FP version into the
31   traditional C library and the non-FP version into the soft-float
32   library.  Maybe we'll have to have -msoft-float trigger something
33   like -DSOFT_FLOAT if this issue ever arises.  */
34
35#include "DEFS.h"
36
37#if 0
38	.SPACE $PRIVATE$
39	.SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
40	.SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
41	.SPACE $TEXT$
42	.SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
43	.SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
44	.IMPORT $global$,DATA
45	.IMPORT $$dyncall,MILLICODE
46; gcc_compiled.:
47#endif
48	TEXT_SEGMENT
49
50	.align 4
51	.EXPORT setjmp,ENTRY,PRIV_LEV=3,ARGW0=GR,RTNVAL=GR
52setjmp
53	.PROC
54	.CALLINFO FRAME=64,NO_CALLS,SAVE_SP,ENTRY_GR=3
55	.ENTRY
56	stwm  %r30,4(%r26)
57	stwm  %r2,4(%r26)
58	stwm  %r3,4(%r26)
59	stwm  %r4,4(%r26)
60	stwm  %r5,4(%r26)
61	stwm  %r6,4(%r26)
62	stwm  %r7,4(%r26)
63	stwm  %r8,4(%r26)
64	stwm  %r9,4(%r26)
65	stwm  %r10,4(%r26)
66	stwm  %r11,4(%r26)
67	stwm  %r12,4(%r26)
68	stwm  %r13,4(%r26)
69	stwm  %r14,4(%r26)
70	stwm  %r15,4(%r26)
71	stwm  %r16,4(%r26)
72	stwm  %r17,4(%r26)
73	stwm  %r18,4(%r26)
74	stwm  %r27,4(%r26)
75#ifdef FP
76	; jmp_buf may only have a 4 byte alignment, so handle FP stores
77	; very carefully.
78	fstds %fr12,-16(%r30)
79	ldw -16(%r30),%r28
80	stwm  %r28,4(%r26)
81	ldw -12(%r30),%r28
82	stwm  %r28,4(%r26)
83	fstds %fr13,-16(%r30)
84	ldw -16(%r30),%r28
85	stwm  %r28,4(%r26)
86	ldw -12(%r30),%r28
87	stwm  %r28,4(%r26)
88	fstds %fr14,-16(%r30)
89	ldw -16(%r30),%r28
90	stwm  %r28,4(%r26)
91	ldw -12(%r30),%r28
92	stwm  %r28,4(%r26)
93	fstds %fr15,-16(%r30)
94	ldw -16(%r30),%r28
95	stwm  %r28,4(%r26)
96	ldw -12(%r30),%r28
97	stwm  %r28,4(%r26)
98#endif
99
100	bv 0(%r2)
101	copy %r0,%r28
102	.EXIT
103	.PROCEND
104	.align 4
105	.EXPORT longjmp,ENTRY,PRIV_LEV=3,ARGW0=GR,ARGW1=GR,RTNVAL=GR
106longjmp
107	.PROC
108	.CALLINFO FRAME=64,NO_CALLS,SAVE_SP,ENTRY_GR=3
109	.ENTRY
110	ldwm 4(%r26),%r30
111	ldwm 4(%r26),%r2
112	ldwm 4(%r26),%r3
113	ldwm 4(%r26),%r4
114	ldwm 4(%r26),%r5
115	ldwm 4(%r26),%r6
116	ldwm 4(%r26),%r7
117	ldwm 4(%r26),%r8
118	ldwm 4(%r26),%r9
119	ldwm 4(%r26),%r10
120	ldwm 4(%r26),%r11
121	ldwm 4(%r26),%r12
122	ldwm 4(%r26),%r13
123	ldwm 4(%r26),%r14
124	ldwm 4(%r26),%r15
125	ldwm 4(%r26),%r16
126	ldwm 4(%r26),%r17
127	ldwm 4(%r26),%r18
128	ldwm 4(%r26),%r27
129#ifdef FP
130	ldwm 4(%r26),%r28
131	stw %r28,-16(%r30)
132	ldwm 4(%r26),%r28
133	stw %r28,-12(%r30)
134	fldds -16(%r30),%fr12
135	ldwm 4(%r26),%r28
136	stw %r28,-16(%r30)
137	ldwm 4(%r26),%r28
138	stw %r28,-12(%r30)
139	fldds -16(%r30),%fr13
140	ldwm 4(%r26),%r28
141	stw %r28,-16(%r30)
142	ldwm 4(%r26),%r28
143	stw %r28,-12(%r30)
144	fldds -16(%r30),%fr14
145	ldwm 4(%r26),%r28
146	stw %r28,-16(%r30)
147	ldwm 4(%r26),%r28
148	stw %r28,-12(%r30)
149	fldds -16(%r30),%fr15
150#endif
151	comclr,<> %r0,%r25,%r0
152	ldi 1,%r25
153	bv 0(%r2)
154	copy %r25,%r28
155	.EXIT
156	.PROCEND
157