1/* Get current user context.
2   Copyright (C) 2008-2021 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   <https://www.gnu.org/licenses/>.  */
18
19#include <sysdep.h>
20
21#include "ucontext_i.h"
22
23
24	/* Trampoline function. Non-standard calling ABI.  */
25	/* Can not use ENTRY(__getcontext_ret) here.  */
26	.type	__getcontext_ret, @function
27	.hidden	__getcontext_ret
28__getcontext_ret:
29	.proc
30	.callinfo FRAME=0,NO_CALLS
31	/* r26-r23 contain original r3-r6, but because setcontext
32	   does not reload r3-r6 (it's using them as temporaries)
33	   we must save them elsewhere and swap them back in.  */
34	copy	%r23, %r3
35	copy	%r24, %r4
36	copy	%r25, %r5
37	copy	%r26, %r6
38	/* r20 contains original return pointer.  */
39	bv	0(%r20)
40	copy	%r0, %ret0
41	.procend
42	.size	__getcontext_ret, .-__getcontext_ret
43
44
45ENTRY(__getcontext)
46	/* Save the registers.  */
47	stw	%r0, oR0(%r26)
48	stw	%r1, oR1(%r26)
49	/* stw	%r2, oR2(%r26) - used for trampoline.  */
50	stw	%r3, oR3(%r26)
51	stw	%r4, oR4(%r26)
52	stw	%r5, oR5(%r26)
53	stw	%r6, oR6(%r26)
54	stw	%r7, oR7(%r26)
55	stw	%r8, oR8(%r26)
56	stw	%r9, oR9(%r26)
57	stw	%r10, oR10(%r26)
58	stw	%r11, oR11(%r26)
59	stw	%r12, oR12(%r26)
60	stw	%r13, oR13(%r26)
61	stw	%r14, oR14(%r26)
62	stw	%r15, oR15(%r26)
63	stw	%r16, oR16(%r26)
64	stw	%r17, oR17(%r26)
65	stw	%r18, oR18(%r26)
66	stw	%r19, oR19(%r26)
67	/* stw	%r20, oR20(%r26) - used for trampoline.  */
68	stw	%r21, oR21(%r26)
69	stw	%r22, oR22(%r26)
70	/* stw	%r23, oR23(%r26) - used for trampoline.  */
71	/* stw	%r24, oR24(%r26) - used for trampoline.  */
72	/* stw	%r25, oR25(%r26) - used for trampoline.  */
73	/* stw	%r26, oR26(%r26) - used for trampoline.  */
74	stw	%r27, oR27(%r26)
75	stw	%r28, oR28(%r26)
76	stw	%r29, oR29(%r26)
77	stw	%sp, oR30(%r26)
78	stw	%r31, oR31(%r26)
79
80	stw	%r0, oUC_FLAGS(%r26)
81	/* stw	%r0, oUC_LINK(%r26) - Do not overwrite.  */
82	stw	%sp, oSS_SP(%r26)
83	stw	%r0, oSS_FLAGS(%r26)
84	stw	%r0, oSS_SIZE(%r26)
85
86	stw	%r0, oSC_FLAGS(%r26)
87
88	stw	%r0, oIASQ0(%r26)
89	stw	%r0, oIASQ1(%r26)
90	stw	%r0, oIAOQ0(%r26)
91	stw	%r0, oIAOQ1(%r26)
92	stw	%r0, oSAR(%r26) /* used as flag in swapcontext().  */
93
94
95	/* Store floating-point regs.  */
96	ldo	oFPREGS0(%r26),%r1
97	fstds,ma %fr0, 8(%r1)
98	fstds,ma %fr1, 8(%r1)
99	fstds,ma %fr2, 8(%r1)
100	fstds,ma %fr3, 8(%r1)
101	fstds,ma %fr4, 8(%r1)
102	fstds,ma %fr5, 8(%r1)
103	fstds,ma %fr6, 8(%r1)
104	fstds,ma %fr7, 8(%r1)
105	fstds,ma %fr8, 8(%r1)
106	fstds,ma %fr9, 8(%r1)
107	fstds,ma %fr10, 8(%r1)
108	fstds,ma %fr11, 8(%r1)
109	fstds,ma %fr12, 8(%r1)
110	fstds,ma %fr13, 8(%r1)
111	fstds,ma %fr14, 8(%r1)
112	fstds,ma %fr15, 8(%r1)
113	fstds,ma %fr16, 8(%r1)
114	fstds,ma %fr17, 8(%r1)
115	fstds,ma %fr18, 8(%r1)
116	fstds,ma %fr19, 8(%r1)
117	fstds,ma %fr20, 8(%r1)
118	fstds,ma %fr21, 8(%r1)
119	fstds,ma %fr22, 8(%r1)
120	fstds,ma %fr23, 8(%r1)
121	fstds,ma %fr24, 8(%r1)
122	fstds,ma %fr25, 8(%r1)
123	fstds,ma %fr26, 8(%r1)
124	fstds,ma %fr27, 8(%r1)
125	fstds,ma %fr28, 8(%r1)
126	fstds,ma %fr29, 8(%r1)
127	fstds,ma %fr30, 8(%r1)
128	fstds	 %fr31, 0(%r1)
129
130	/* Prologue */
131	stw	%r2, -20(%sp)
132	.cfi_offset 2, -20
133	stwm	%r4, 64(%sp)
134	.cfi_def_cfa_offset -64
135	.cfi_offset 4, 0
136#ifdef PIC
137	stw	%r19, -32(%sp)
138	.cfi_offset 19, 32
139#endif
140
141	/* Set up the trampoline registers.
142	   r20, r23, r24, r25, r26 and r2 are clobbered
143	   by call to getcontext() anyway. Reuse them.  */
144	stw	%r2, oR20(%r26)
145	stw	%r3, oR23(%r26)
146	stw	%r4, oR24(%r26)
147	stw	%r5, oR25(%r26)
148	stw	%r6, oR26(%r26)
149#ifdef PIC
150	addil	LT%__getcontext_ret, %r19
151	ldw     RT%__getcontext_ret(%r1), %r1
152#else
153	ldil	L%__getcontext_ret, %r1
154	ldo     R%__getcontext_ret(%r1), %r1
155#endif
156	stw	%r1, oR2(%r26)
157
158	/* Save the current signal mask.  */
159	/* sigprocmask(SIG_BLOCK, NULL, &ucp->uc_sigmask);  */
160	ldo	oSIGMASK(%r26), %r24
161	copy	%r0, %r25
162	bl	__sigprocmask, %r2
163	ldi	SIG_BLOCK, %r26
164
165	/* Epilogue */
166	ldw	-84(%sp), %r2
167#ifdef PIC
168	ldw	-32(%sp), %r19
169#endif
170	bv	%r0(%r2)
171	ldwm	-64(%sp), %r4
172END(__getcontext)
173
174weak_alias (__getcontext, getcontext)
175