projects / thirdparty / glibc.git / blame
| Commit | Line | Data |
|---|---|---|
| 5bccf609 | 1 | /* Get current user context. |
| 581c785b | 2 | Copyright (C) 2008-2022 Free Software Foundation, Inc. |
| 5bccf609 | 3 | This file is part of the GNU C Library. |
| 5bccf609 CD |
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 | |
| ab84e3ff | 16 | License along with the GNU C Library. If not, see |
| 5a82c748 | 17 | <https://www.gnu.org/licenses/>. */ |
| 5bccf609 CD |
18 | |
| 19 | #include <sysdep.h> | |
| 20 | ||
| 21 | #include "ucontext_i.h" | |
| 22 | ||
| 23 | ||
| 131fafa7 | 24 | /* Trampoline function. Non-standard calling ABI. */ |
| 5bccf609 CD |
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 | |
| 131fafa7 CD |
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. */ | |
| 5bccf609 CD |
34 | copy %r23, %r3 |
| 35 | copy %r24, %r4 | |
| 36 | copy %r25, %r5 | |
| 37 | copy %r26, %r6 | |
| 131fafa7 | 38 | /* r20 contains original return pointer. */ |
| 5bccf609 CD |
39 | bv 0(%r20) |
| 40 | copy %r0, %ret0 | |
| 41 | .procend | |
| 42 | .size __getcontext_ret, .-__getcontext_ret | |
| 43 | ||
| 44 | ||
| 45 | ENTRY(__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) | |
| 131fafa7 | 77 | stw %sp, oR30(%r26) |
| 5bccf609 CD |
78 | stw %r31, oR31(%r26) |
| 79 | ||
| 80 | stw %r0, oUC_FLAGS(%r26) | |
| 81 | /* stw %r0, oUC_LINK(%r26) - Do not overwrite. */ | |
| 131fafa7 | 82 | stw %sp, oSS_SP(%r26) |
| 5bccf609 CD |
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 */ | |
| 8da92e72 JDA |
131 | stw %r2, -20(%sp) |
| 132 | .cfi_offset 2, -20 | |
| 131fafa7 | 133 | stwm %r4, 64(%sp) |
| ce1917d0 JDA |
134 | .cfi_def_cfa_offset -64 |
| 135 | .cfi_offset 4, 0 | |
| 5bccf609 | 136 | #ifdef PIC |
| 131fafa7 | 137 | stw %r19, -32(%sp) |
| ce1917d0 | 138 | .cfi_offset 19, 32 |
| 5bccf609 CD |
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) | |
| 388784cf JDA |
149 | #ifdef PIC |
| 150 | addil LT%__getcontext_ret, %r19 | |
| 151 | ldw RT%__getcontext_ret(%r1), %r1 | |
| 152 | #else | |
| 5bccf609 CD |
153 | ldil L%__getcontext_ret, %r1 |
| 154 | ldo R%__getcontext_ret(%r1), %r1 | |
| 388784cf | 155 | #endif |
| 5bccf609 CD |
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 | |
| 3785b31c | 162 | bl __sigprocmask, %r2 |
| 5bccf609 CD |
163 | ldi SIG_BLOCK, %r26 |
| 164 | ||
| 165 | /* Epilogue */ | |
| 131fafa7 | 166 | ldw -84(%sp), %r2 |
| 5bccf609 | 167 | #ifdef PIC |
| cc407f4e | 168 | ldw -32(%sp), %r19 |
| 5bccf609 CD |
169 | #endif |
| 170 | bv %r0(%r2) | |
| 131fafa7 | 171 | ldwm -64(%sp), %r4 |
| 5bccf609 CD |
172 | END(__getcontext) |
| 173 | ||
| 174 | weak_alias (__getcontext, getcontext) |