1 | /* Copyright (C) 2001-2024 Free Software Foundation, Inc. |
2 | This file is part of the GNU C Library. |
3 | |
4 | The GNU C Library is free software; you can redistribute it and/or |
5 | modify it under the terms of the GNU Lesser General Public |
6 | License as published by the Free Software Foundation; either |
7 | version 2.1 of the License, or (at your option) any later version. |
8 | |
9 | The GNU C Library is distributed in the hope that it will be useful, |
10 | but WITHOUT ANY WARRANTY; without even the implied warranty of |
11 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
12 | Lesser General Public License for more details. |
13 | |
14 | You should have received a copy of the GNU Lesser General Public |
15 | License along with the GNU C Library; if not, see |
16 | <https://www.gnu.org/licenses/>. */ |
17 | |
18 | #include <sysdep.h> |
19 | #include <tls.h> |
20 | |
21 | |
22 | /* The following code is only used in the shared library when we |
23 | compile the reentrant version. Otherwise each system call defines |
24 | each own version. */ |
25 | |
26 | /* The syscall stubs jump here when they detect an error. */ |
27 | |
28 | #undef CALL_MCOUNT |
29 | #define CALL_MCOUNT |
30 | |
31 | .text |
32 | ENTRY(__syscall_error) |
33 | #ifndef PIC |
34 | # if IS_IN (libc) |
35 | # define SYSCALL_ERROR_ERRNO __libc_errno |
36 | # else |
37 | # define SYSCALL_ERROR_ERRNO errno |
38 | # endif |
39 | basr %r1,0 |
40 | 0: lg %r1,1f-0b(%r1) |
41 | ear %r3,%a0 |
42 | sllg %r3,%r3,32 |
43 | ear %r3,%a1 |
44 | lcr %r2,%r2 |
45 | st %r2,0(%r1,%r3) |
46 | lghi %r2,-1 |
47 | br %r14 |
48 | 1: .quad SYSCALL_ERROR_ERRNO@ntpoff |
49 | #else |
50 | # if RTLD_PRIVATE_ERRNO |
51 | larl %r1,rtld_errno |
52 | lcr %r2,%r2 |
53 | st %r2,0(%r1) |
54 | lghi %r2,-1 |
55 | br %r14 |
56 | # else |
57 | # if IS_IN (libc) |
58 | # define SYSCALL_ERROR_ERRNO __libc_errno |
59 | # else |
60 | # define SYSCALL_ERROR_ERRNO errno |
61 | # endif |
62 | larl %r1,_GLOBAL_OFFSET_TABLE_ |
63 | lg %r1,SYSCALL_ERROR_ERRNO@gotntpoff(%r1) |
64 | ear %r3,%a0 |
65 | sllg %r3,%r3,32 |
66 | ear %r3,%a1 |
67 | lcr %r2,%r2 |
68 | st %r2,0(%r1,%r3) |
69 | lghi %r2,-1 |
70 | br %r14 |
71 | # endif |
72 | #endif |
73 | |
74 | END (__syscall_error) |
75 | |