1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
|
/* PowerPC support code for fibers and multithreading.
Copyright (C) 2019-2025 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 3, or (at your option) any later
version.
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
Under Section 7 of GPL version 3, you are granted additional
permissions described in the GCC Runtime Library Exception, version
3.1, as published by the Free Software Foundation.
You should have received a copy of the GNU General Public License and
a copy of the GCC Runtime Library Exception along with this program;
see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
<http://www.gnu.org/licenses/>. */
#include "../common/threadasm.S"
#if !defined(__PPC64__) && !defined(__MACH__)
/**
* Performs a context switch.
*
* r3 - old context pointer
* r4 - new context pointer
*
*/
.text
.globl CSYM(fiber_switchContext)
.type CSYM(fiber_switchContext), @function
.align 2
CSYM(fiber_switchContext):
.cfi_startproc
/* Save linkage area */
mflr 0
mfcr 5
stw 0, 8(1)
stw 5, 4(1)
/* Save GPRs */
stw 11, (-1 * 4)(1)
stw 13, (-2 * 4)(1)
stw 14, (-3 * 4)(1)
stw 15, (-4 * 4)(1)
stw 16, (-5 * 4)(1)
stw 17, (-6 * 4)(1)
stw 18, (-7 * 4)(1)
stw 19, (-8 * 4)(1)
stw 20, (-9 * 4)(1)
stw 21, (-10 * 4)(1)
stw 22, (-11 * 4)(1)
stw 23, (-12 * 4)(1)
stw 24, (-13 * 4)(1)
stw 25, (-14 * 4)(1)
stw 26, (-15 * 4)(1)
stw 27, (-16 * 4)(1)
stw 28, (-17 * 4)(1)
stw 29, (-18 * 4)(1)
stw 30, (-19 * 4)(1)
stwu 31, (-20 * 4)(1)
/* We update the stack pointer here, since we do not want the GC to
scan the floating point registers. */
/* Save FPRs */
stfd 14, (-1 * 8)(1)
stfd 15, (-2 * 8)(1)
stfd 16, (-3 * 8)(1)
stfd 17, (-4 * 8)(1)
stfd 18, (-5 * 8)(1)
stfd 19, (-6 * 8)(1)
stfd 20, (-7 * 8)(1)
stfd 21, (-8 * 8)(1)
stfd 22, (-9 * 8)(1)
stfd 23, (-10 * 8)(1)
stfd 24, (-11 * 8)(1)
stfd 25, (-12 * 8)(1)
stfd 26, (-13 * 8)(1)
stfd 27, (-14 * 8)(1)
stfd 28, (-15 * 8)(1)
stfd 29, (-16 * 8)(1)
stfd 30, (-17 * 8)(1)
stfd 31, (-18 * 8)(1)
/* Update the old stack pointer */
stw 1, 0(3)
/* Set new stack pointer */
addi 1, 4, 20 * 4
/* Restore linkage area */
lwz 0, 8(1)
lwz 5, 4(1)
/* Restore GPRs */
lwz 11, (-1 * 4)(1)
lwz 13, (-2 * 4)(1)
lwz 14, (-3 * 4)(1)
lwz 15, (-4 * 4)(1)
lwz 16, (-5 * 4)(1)
lwz 17, (-6 * 4)(1)
lwz 18, (-7 * 4)(1)
lwz 19, (-8 * 4)(1)
lwz 20, (-9 * 4)(1)
lwz 21, (-10 * 4)(1)
lwz 22, (-11 * 4)(1)
lwz 23, (-12 * 4)(1)
lwz 24, (-13 * 4)(1)
lwz 25, (-14 * 4)(1)
lwz 26, (-15 * 4)(1)
lwz 27, (-16 * 4)(1)
lwz 28, (-17 * 4)(1)
lwz 29, (-18 * 4)(1)
lwz 30, (-19 * 4)(1)
lwz 31, (-20 * 4)(1)
/* Restore FPRs */
lfd 14, (-1 * 8)(4)
lfd 15, (-2 * 8)(4)
lfd 16, (-3 * 8)(4)
lfd 17, (-4 * 8)(4)
lfd 18, (-5 * 8)(4)
lfd 19, (-6 * 8)(4)
lfd 20, (-7 * 8)(4)
lfd 21, (-8 * 8)(4)
lfd 22, (-9 * 8)(4)
lfd 23, (-10 * 8)(4)
lfd 24, (-11 * 8)(4)
lfd 25, (-12 * 8)(4)
lfd 26, (-13 * 8)(4)
lfd 27, (-14 * 8)(4)
lfd 28, (-15 * 8)(4)
lfd 29, (-16 * 8)(4)
lfd 30, (-17 * 8)(4)
lfd 31, (-18 * 8)(4)
/* Set condition and link register */
mtcr 5
mtlr 0
/* Return and switch context */
blr
.cfi_endproc
.size CSYM(fiber_switchContext),.-CSYM(fiber_switchContext)
#elif defined(__MACH__)
/* Implementation for Darwin/macOS preserving callee-saved regs.
FIXME : There is no unwind frame.
FIXME : not sure if we should save the vsave reg (perhaps using the slot we have
r11 in at present). */
/* Darwin has a red zone (220 bytes for PPC 288 for PPC64) which we can write
to before the stack is updated without worrying about it being clobbered by
signals or hardware interrupts.
The stack will be 16byte aligned on entry with:
PPC PPC64
SP-> +---------------------------------------+
| back chain to caller | 0 0
+---------------------------------------+
| slot to save CR | 4 8
+---------------------------------------+
| slot to save LR | 8 16
+---------------------------------------+
| etc.. etc.. as per C calling conv. | */
# if __PPC64__
# define LD ld
# define ST std
# define STU stdu
# define SZ 8
# define MACHINE ppc64
# define RED_ZONE 288
# else
# define LD lwz
# define ST stw
# define STU stwu
# define SZ 4
# define MACHINE ppc7400
# define RED_ZONE 220
# endif
# define SAVE_VECTORS 0
/**
* Performs a context switch.
*
* r3 - old context pointer
* r4 - new context pointer
*
*/
.machine MACHINE
.text
.globl CSYM(fiber_switchContext)
.align 2
CSYM(fiber_switchContext):
LFB0:
/* Get the link reg. */
mflr r0
/* Get the callee-saved crs (well all of them, actually). */
mfcr r12
/* Save GPRs, we save the static chain here too although it is not clear if we need to. */
ST r31, ( -1 * SZ)(r1)
ST r30, ( -2 * SZ)(r1)
ST r29, ( -3 * SZ)(r1)
ST r28, ( -4 * SZ)(r1)
ST r27, ( -5 * SZ)(r1)
ST r26, ( -6 * SZ)(r1)
ST r25, ( -7 * SZ)(r1)
ST r24, ( -8 * SZ)(r1)
ST r23, ( -9 * SZ)(r1)
ST r22, (-10 * SZ)(r1)
ST r21, (-11 * SZ)(r1)
ST r20, (-12 * SZ)(r1)
ST r19, (-13 * SZ)(r1)
ST r18, (-14 * SZ)(r1)
ST r17, (-15 * SZ)(r1)
ST r16, (-16 * SZ)(r1)
ST r15, (-17 * SZ)(r1)
ST r14, (-18 * SZ)(r1)
ST r13, (-19 * SZ)(r1)
/* Save the lr and cr into the normal function linkage area. */
ST r0, 2*SZ(r1)
ST r12, SZ(r1)
/* We update the stack pointer here, since we do not want the GC to
scan the floating point registers. We are still 16-byte aligned. */
STU r11, (-20 * SZ)(r1)
/* Update the stack pointer in the old context as per comment above. */
ST r1, 0(r3)
/* Save FPRs - same for PPC and PPC64 */
stfd f14, (-18 * 8)(r1)
stfd f15, (-17 * 8)(r1)
stfd f16, (-16 * 8)(r1)
stfd f17, (-15 * 8)(r1)
stfd f18, (-14 * 8)(r1)
stfd f19, (-13 * 8)(r1)
stfd f20, (-12 * 8)(r1)
stfd f21, (-11 * 8)(r1)
stfd f22, (-10 * 8)(r1)
stfd f23, ( -9 * 8)(r1)
stfd f24, ( -8 * 8)(r1)
stfd f25, ( -7 * 8)(r1)
stfd f26, ( -6 * 8)(r1)
stfd f27, ( -5 * 8)(r1)
stfd f28, ( -4 * 8)(r1)
stfd f29, ( -3 * 8)(r1)
stfd f30, ( -2 * 8)(r1)
stfd f31, ( -1 * 8)(r1)
#if SAVE_VECTORS
/* We are still 16byte aligned - so we are ok for vector saves.
but the combined size of the vectors (12 x 16) + the FPRs (144) exceeds the
red zone size so we need to adjust the stack again - note this means careful
ordering is needed on the restore. */
addi r1, r1, -(12*16+18*8)
li r11, 0
stvx v20,r11,r1
addi r11, r11, 16
stvx v21,r11,r1
addi r11, r11, 16
stvx v22,r11,r1
addi r11, r11, 16
stvx v23,r11,r1
addi r11, r11, 16
stvx v24,r11,r1
addi r11, r11, 16
stvx v25,r11,r1
addi r11, r11, 16
stvx v26,r11,r1
addi r11, r11, 16
stvx v27,r11,r1
addi r11, r11, 16
stvx v28,r11,r1
addi r11, r11, 16
stvx v29,r11,r1
addi r11, r11, 16
stvx v30,r11,r1
addi r11, r11, 16
stvx v31,r11,r1
/* Now do the same thing in reverse - starting with r4 pointing to
the block of GPRs - stage 1 point to the saved vectors and fprs. */
addi r1, r4, -(12*16+18*8)
li r11, 0
lvx v20,r11,r1
addi r11, r11, 16
lvx v21,r11,r1
addi r11, r11, 16
lvx v22,r11,r1
addi r11, r11, 16
lvx v23,r11,r1
addi r11, r11, 16
lvx v24,r11,r1
addi r11, r11, 16
lvx v25,r11,r1
addi r11, r11, 16
lvx v26,r11,r1
addi r11, r11, 16
lvx v27,r11,r1
addi r11, r11, 16
lvx v28,r11,r1
addi r11, r11, 16
lvx v29,r11,r1
addi r11, r11, 16
lvx v30,r11,r1
addi r11, r11, 16
lvx v31,r11,r1
#endif
/* Now it is safe to update the stack pointer since the combined
size of the GPRs and FPRs will not exceed the red zone. */
addi r1, r4, 20 * SZ
/* Restore FPRs */
lfd f14, (-18 * 8)(r4)
lfd f15, (-17 * 8)(r4)
lfd f16, (-16 * 8)(r4)
lfd f17, (-15 * 8)(r4)
lfd f18, (-14 * 8)(r4)
lfd f19, (-13 * 8)(r4)
lfd f20, (-12 * 8)(r4)
lfd f21, (-11 * 8)(r4)
lfd f22, (-10 * 8)(r4)
lfd f23, ( -9 * 8)(r4)
lfd f24, ( -8 * 8)(r4)
lfd f25, ( -7 * 8)(r4)
lfd f26, ( -6 * 8)(r4)
lfd f27, ( -5 * 8)(r4)
lfd f28, ( -4 * 8)(r4)
lfd f29, ( -3 * 8)(r4)
lfd f30, ( -2 * 8)(r4)
lfd f31, ( -1 * 8)(r4)
/* Pick up lr and cr */
LD r0, 2*SZ(r1)
LD r12, SZ(r1)
/* Restore GPRs */
LD r11, (-20 * SZ)(r1)
LD r13, (-19 * SZ)(r1)
LD r14, (-18 * SZ)(r1)
LD r15, (-17 * SZ)(r1)
LD r16, (-16 * SZ)(r1)
LD r17, (-15 * SZ)(r1)
LD r18, (-14 * SZ)(r1)
LD r19, (-13 * SZ)(r1)
LD r20, (-12 * SZ)(r1)
LD r21, (-11 * SZ)(r1)
LD r22, (-10 * SZ)(r1)
LD r23, ( -9 * SZ)(r1)
LD r24, ( -8 * SZ)(r1)
LD r25, ( -7 * SZ)(r1)
LD r26, ( -6 * SZ)(r1)
LD r27, ( -5 * SZ)(r1)
LD r28, ( -4 * SZ)(r1)
LD r29, ( -3 * SZ)(r1)
LD r30, ( -2 * SZ)(r1)
LD r31, ( -1 * SZ)(r1)
/* Set cr and lr */
mtcr r12
mtlr r0
/* Return and switch context */
blr
LFE0:
/* Minimal CFI / FDE which does not describe the stacking of the GPRs - but only that
the routine has been entered/exited. */
# if __PPC64__
# define DATA_ALIGN 0x78
# define ALIGN_SIZE 3
# define ADDRD .quad
# else
# define DATA_ALIGN 0x7c
# define ALIGN_SIZE 3
# define ADDRD .long
# endif
.section __TEXT,__eh_frame,coalesced,no_toc+strip_static_syms+live_support
EH_frame1:
.set L$set$0,LECIE1-LSCIE1
.long L$set$0 ; Length of Common Information Entry
LSCIE1:
.long 0 ; CIE Identifier Tag
.byte 0x3 ; CIE Version
.ascii "zR\0" ; CIE Augmentation
.byte 0x1 ; uleb128 0x1; CIE Code Alignment Factor
.byte DATA_ALIGN ; sleb128 -4/-8; CIE Data Alignment Factor
.byte 0x41 ; uleb128 0x41; CIE RA Column
.byte 0x1 ; uleb128 0x1; Augmentation size
.byte 0x10 ; FDE Encoding (pcrel)
.byte 0xc ; DW_CFA_def_cfa
.byte 0x1 ; uleb128 0x1
.byte 0 ; uleb128 0
.p2align ALIGN_SIZE,0
LECIE1:
LSFDE1:
.set L$set$1,LEFDE1-LASFDE1
.long L$set$1 ; FDE Length
LASFDE1:
.long LASFDE1-EH_frame1 ; FDE CIE offset
ADDRD LFB0-. ; FDE initial location
.set L$set$2,LFE0-LFB0
ADDRD L$set$2 ; FDE address range
.byte 0 ; uleb128 0; Augmentation size
.p2align ALIGN_SIZE,0
LEFDE1:
#endif /* defined(__MACH__) */
|
