1/* Override generic sotruss-lib.c to define actual functions for s390.
2 Copyright (C) 2012-2022 Free Software Foundation, Inc.
3
4 This file is part of the GNU C Library.
5
6 The GNU C Library is free software; you can redistribute it and/or
7 modify it under the terms of the GNU Lesser General Public
8 License as published by the Free Software Foundation; either
9 version 2.1 of the License, or (at your option) any later version.
10
11 The GNU C Library is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 Lesser General Public License for more details.
15
16 You should have received a copy of the GNU Lesser General Public
17 License along with the GNU C Library. If not, see
18 <https://www.gnu.org/licenses/>. */
19
20#define HAVE_ARCH_PLTENTER
21#define HAVE_ARCH_PLTEXIT
22
23#include <elf/sotruss-lib.c>
24
25#if __ELF_NATIVE_CLASS == 32
26# define la_s390_gnu_pltenter la_s390_32_gnu_pltenter
27# define la_s390_gnu_pltexit la_s390_32_gnu_pltexit
28# define La_s390_regs La_s390_32_regs
29# define La_s390_retval La_s390_32_retval
30#else
31# define la_s390_gnu_pltenter la_s390_64_gnu_pltenter
32# define la_s390_gnu_pltexit la_s390_64_gnu_pltexit
33# define La_s390_regs La_s390_64_regs
34# define La_s390_retval La_s390_64_retval
35#endif
36
37ElfW(Addr)
38la_s390_gnu_pltenter (ElfW(Sym) *sym,
39 unsigned int ndx __attribute__ ((unused)),
40 uintptr_t *refcook, uintptr_t *defcook,
41 La_s390_regs *regs, unsigned int *flags,
42 const char *symname, long int *framesizep)
43{
44 print_enter (refcook, defcook, symname,
45 regs->reg1: lr_r2, regs->reg2: lr_r3, regs->reg3: lr_r4, flags: *flags);
46
47 /* No need to copy anything, we will not need the parameters in any case. */
48 *framesizep = 0;
49
50 return sym->st_value;
51}
52
53unsigned int
54la_s390_gnu_pltexit (ElfW(Sym) *sym, unsigned int ndx, uintptr_t *refcook,
55 uintptr_t *defcook,
56 const struct La_s390_regs *inregs,
57 struct La_s390_retval *outregs, const char *symname)
58{
59 print_exit (refcook, defcook, symname, reg: outregs->lrv_r2);
60
61 return 0;
62}
63

source code of glibc/sysdeps/s390/sotruss-lib.c