1 /* dl.c - arch-dependent part of loadable module support */
3 * GRUB -- GRand Unified Bootloader
4 * Copyright (C) 2002,2004,2005,2007,2009 Free Software Foundation, Inc.
6 * GRUB is free software: you can redistribute it and/or modify
7 * it under the terms of the GNU General Public License as published by
8 * the Free Software Foundation, either version 3 of the License, or
9 * (at your option) any later version.
11 * GRUB 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
14 * GNU General Public License for more details.
16 * You should have received a copy of the GNU General Public License
17 * along with GRUB. If not, see <http://www.gnu.org/licenses/>.
22 #include <grub/misc.h>
24 #include <grub/i18n.h>
26 /* Check if EHDR is a valid ELF header. */
28 grub_arch_dl_check_header (void *ehdr
)
32 /* Check the magic numbers. */
33 if (e
->e_ident
[EI_CLASS
] != ELFCLASS64
34 || e
->e_ident
[EI_DATA
] != ELFDATA2MSB
35 || e
->e_machine
!= EM_SPARCV9
)
36 return grub_error (GRUB_ERR_BAD_OS
, N_("invalid arch-dependent ELF magic"));
41 #pragma GCC diagnostic ignored "-Wcast-align"
43 /* Relocate symbols. */
45 grub_arch_dl_relocate_symbols (grub_dl_t mod
, void *ehdr
)
52 /* Find a symbol table. */
53 for (i
= 0, s
= (Elf_Shdr
*) ((char *) e
+ e
->e_shoff
);
55 i
++, s
= (Elf_Shdr
*) ((char *) s
+ e
->e_shentsize
))
56 if (s
->sh_type
== SHT_SYMTAB
)
60 return grub_error (GRUB_ERR_BAD_MODULE
, N_("no symbol table"));
62 entsize
= s
->sh_entsize
;
64 for (i
= 0, s
= (Elf_Shdr
*) ((char *) e
+ e
->e_shoff
);
66 i
++, s
= (Elf_Shdr
*) ((char *) s
+ e
->e_shentsize
))
67 if (s
->sh_type
== SHT_RELA
)
69 grub_dl_segment_t seg
;
71 /* Find the target segment. */
72 for (seg
= mod
->segment
; seg
; seg
= seg
->next
)
73 if (seg
->section
== s
->sh_info
)
80 for (rel
= (Elf_Rela
*) ((char *) e
+ s
->sh_offset
),
81 max
= rel
+ s
->sh_size
/ s
->sh_entsize
;
89 if (seg
->size
< rel
->r_offset
)
90 return grub_error (GRUB_ERR_BAD_MODULE
,
91 "reloc offset is out of the segment");
93 addr
= (Elf_Word
*) ((char *) seg
->addr
+ rel
->r_offset
);
94 sym
= (Elf_Sym
*) ((char *) mod
->symtab
95 + entsize
* ELF_R_SYM (rel
->r_info
));
97 value
= sym
->st_value
+ rel
->r_addend
;
98 switch (ELF_R_TYPE (rel
->r_info
) & 0xff)
100 case R_SPARC_32
: /* 3 V-word32 */
101 if (value
& 0xFFFFFFFF00000000)
102 return grub_error (GRUB_ERR_BAD_MODULE
,
103 "address out of 32 bits range");
106 case R_SPARC_WDISP30
: /* 7 V-disp30 */
107 if (((value
- (Elf_Addr
) addr
) & 0xFFFFFFFF00000000) &&
108 (((value
- (Elf_Addr
) addr
) & 0xFFFFFFFF00000000)
109 != 0xFFFFFFFF00000000))
110 return grub_error (GRUB_ERR_BAD_MODULE
,
111 "displacement out of 30 bits range");
112 *addr
= (*addr
& 0xC0000000) |
113 (((grub_int32_t
) ((value
- (Elf_Addr
) addr
) >> 2)) &
116 case R_SPARC_HH22
: /* 9 V-imm22 */
117 *addr
= (*addr
& 0xFFC00000) | ((value
>> 42) & 0x3FFFFF);
119 case R_SPARC_HM10
: /* 12 T-simm13 */
120 *addr
= (*addr
& 0xFFFFFC00) | ((value
>> 32) & 0x3FF);
122 case R_SPARC_HI22
: /* 9 V-imm22 */
123 *addr
= (*addr
& 0xFFC00000) | ((value
>> 10) & 0x3FFFFF);
125 case R_SPARC_LO10
: /* 12 T-simm13 */
126 *addr
= (*addr
& 0xFFFFFC00) | (value
& 0x3FF);
128 case R_SPARC_64
: /* 32 V-xwords64 */
129 *(Elf_Xword
*) addr
= value
;
132 *addr
= (*addr
& ~0x1fff)
133 | (((value
& 0x3ff) +
134 (ELF_R_TYPE (rel
->r_info
) >> 8))
138 return grub_error (GRUB_ERR_NOT_IMPLEMENTED_YET
,
139 N_("relocation 0x%x is not implemented yet"),
140 ELF_R_TYPE (rel
->r_info
));
146 return GRUB_ERR_NONE
;