Line data Source code
1 : /* Initialization of S/390 specific backend library.
2 : Copyright (C) 2005, 2006, 2013 Red Hat, Inc.
3 : This file is part of elfutils.
4 :
5 : This file is free software; you can redistribute it and/or modify
6 : it under the terms of either
7 :
8 : * the GNU Lesser General Public License as published by the Free
9 : Software Foundation; either version 3 of the License, or (at
10 : your option) any later version
11 :
12 : or
13 :
14 : * the GNU General Public License as published by the Free
15 : Software Foundation; either version 2 of the License, or (at
16 : your option) any later version
17 :
18 : or both in parallel, as here.
19 :
20 : elfutils is distributed in the hope that it will be useful, but
21 : WITHOUT ANY WARRANTY; without even the implied warranty of
22 : MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
23 : General Public License for more details.
24 :
25 : You should have received copies of the GNU General Public License and
26 : the GNU Lesser General Public License along with this program. If
27 : not, see <http://www.gnu.org/licenses/>. */
28 :
29 : #ifdef HAVE_CONFIG_H
30 : # include <config.h>
31 : #endif
32 :
33 : #define BACKEND s390_
34 : #define RELOC_PREFIX R_390_
35 : #include "libebl_CPU.h"
36 :
37 : /* This defines the common reloc hooks based on arm_reloc.def. */
38 : #include "common-reloc.c"
39 :
40 : extern __typeof (s390_core_note) s390x_core_note;
41 :
42 :
43 : Ebl *
44 92 : s390_init (Elf *elf __attribute__ ((unused)),
45 : GElf_Half machine __attribute__ ((unused)),
46 : Ebl *eh)
47 : {
48 : /* We handle it. */
49 92 : s390_init_reloc (eh);
50 92 : HOOK (eh, reloc_simple_type);
51 92 : HOOK (eh, check_special_symbol);
52 92 : HOOK (eh, register_info);
53 92 : HOOK (eh, return_value_location);
54 92 : if (eh->class == ELFCLASS64)
55 53 : eh->core_note = s390x_core_note;
56 : else
57 39 : HOOK (eh, core_note);
58 92 : HOOK (eh, abi_cfi);
59 : /* gcc/config/ #define DWARF_FRAME_REGISTERS 34.
60 : But from the gcc/config/s390/s390.h "Register usage." comment it looks as
61 : if #32 (Argument pointer) and #33 (Condition code) are not used for
62 : unwinding. */
63 92 : eh->frame_nregs = 32;
64 92 : HOOK (eh, set_initial_registers_tid);
65 92 : if (eh->class == ELFCLASS32)
66 39 : HOOK (eh, normalize_pc);
67 92 : HOOK (eh, unwind);
68 :
69 : /* Only the 64-bit format uses the incorrect hash table entry size. */
70 92 : if (eh->class == ELFCLASS64)
71 53 : eh->sysvhash_entrysize = sizeof (Elf64_Xword);
72 :
73 92 : return eh;
74 : }
|