1 /* Native Client support for ELF 2 Copyright (C) 2012-2016 Free Software Foundation, Inc. 3 4 This file is part of BFD, the Binary File Descriptor library. 5 6 This program 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. 10 11 This program 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. 15 16 You should have received a copy of the GNU General Public License 17 along with this program. If not, see <http://www.gnu.org/licenses/>. */ 18 19 #include "sysdep.h" 20 #include "bfd.h" 21 #include "libbfd.h" 22 #include "elf-bfd.h" 23 #include "elf-nacl.h" 24 #include "elf/common.h" 25 #include "elf/internal.h" 26 27 static bfd_boolean 28 segment_executable (struct elf_segment_map *seg) 29 { 30 if (seg->p_flags_valid) 31 return (seg->p_flags & PF_X) != 0; 32 else 33 { 34 /* The p_flags value has not been computed yet, 35 so we have to look through the sections. */ 36 unsigned int i; 37 for (i = 0; i < seg->count; ++i) 38 if (seg->sections[i]->flags & SEC_CODE) 39 return TRUE; 40 } 41 return FALSE; 42 } 43 44 /* Determine if this segment is eligible to receive the file and program 45 headers. It must be read-only and non-executable. 46 Its first section must start far enough past the page boundary to 47 allow space for the headers. */ 48 static bfd_boolean 49 segment_eligible_for_headers (struct elf_segment_map *seg, 50 bfd_vma minpagesize, bfd_vma sizeof_headers) 51 { 52 unsigned int i; 53 if (seg->count == 0 || seg->sections[0]->lma % minpagesize < sizeof_headers) 54 return FALSE; 55 for (i = 0; i < seg->count; ++i) 56 { 57 if ((seg->sections[i]->flags & (SEC_CODE|SEC_READONLY)) != SEC_READONLY) 58 return FALSE; 59 } 60 return TRUE; 61 } 62 63 64 /* We permute the segment_map to get BFD to do the file layout we want: 65 The first non-executable PT_LOAD segment appears first in the file 66 and contains the ELF file header and phdrs. */ 67 bfd_boolean 68 nacl_modify_segment_map (bfd *abfd, struct bfd_link_info *info) 69 { 70 const struct elf_backend_data *const bed = get_elf_backend_data (abfd); 71 struct elf_segment_map **m = &elf_seg_map (abfd); 72 struct elf_segment_map **first_load = NULL; 73 struct elf_segment_map **last_load = NULL; 74 bfd_boolean moved_headers = FALSE; 75 int sizeof_headers; 76 77 if (info != NULL && info->user_phdrs) 78 /* The linker script used PHDRS explicitly, so don't change what the 79 user asked for. */ 80 return TRUE; 81 82 if (info != NULL) 83 /* We're doing linking, so evalute SIZEOF_HEADERS as in a linker script. */ 84 sizeof_headers = bfd_sizeof_headers (abfd, info); 85 else 86 { 87 /* We're not doing linking, so this is objcopy or suchlike. 88 We just need to collect the size of the existing headers. */ 89 struct elf_segment_map *seg; 90 sizeof_headers = bed->s->sizeof_ehdr; 91 for (seg = *m; seg != NULL; seg = seg->next) 92 sizeof_headers += bed->s->sizeof_phdr; 93 } 94 95 while (*m != NULL) 96 { 97 struct elf_segment_map *seg = *m; 98 99 if (seg->p_type == PT_LOAD) 100 { 101 bfd_boolean executable = segment_executable (seg); 102 103 if (executable 104 && seg->count > 0 105 && seg->sections[0]->vma % bed->minpagesize == 0) 106 { 107 asection *lastsec = seg->sections[seg->count - 1]; 108 bfd_vma end = lastsec->vma + lastsec->size; 109 if (end % bed->minpagesize != 0) 110 { 111 /* This is an executable segment that starts on a page 112 boundary but does not end on a page boundary. Fill 113 it out to a whole page with code fill (the tail of 114 the segment will not be within any section). Thus 115 the entire code segment can be mapped from the file 116 as whole pages and that mapping will contain only 117 valid instructions. 118 119 To accomplish this, we must fake out the code in 120 assign_file_positions_for_load_sections (elf.c) so 121 that it advances past the rest of the final page, 122 rather than trying to put the next (unaligned, or 123 unallocated) section. We do this by appending a 124 dummy section record to this element in the segment 125 map. No such output section ever actually exists, 126 but this gets the layout logic to advance the file 127 positions past this partial page. Since we are 128 lying to BFD like this, nothing will ever know to 129 write the section contents. So we do that by hand 130 after the fact, in nacl_final_write_processing, below. */ 131 132 struct elf_segment_map *newseg; 133 asection *sec; 134 struct bfd_elf_section_data *secdata; 135 136 BFD_ASSERT (!seg->p_size_valid); 137 138 secdata = bfd_zalloc (abfd, sizeof *secdata); 139 if (secdata == NULL) 140 return FALSE; 141 142 sec = bfd_zalloc (abfd, sizeof *sec); 143 if (sec == NULL) 144 return FALSE; 145 146 /* Fill in only the fields that actually affect the logic 147 in assign_file_positions_for_load_sections. */ 148 sec->vma = end; 149 sec->lma = lastsec->lma + lastsec->size; 150 sec->size = bed->minpagesize - (end % bed->minpagesize); 151 sec->flags = (SEC_ALLOC | SEC_LOAD 152 | SEC_READONLY | SEC_CODE | SEC_LINKER_CREATED); 153 sec->used_by_bfd = secdata; 154 155 secdata->this_hdr.sh_type = SHT_PROGBITS; 156 secdata->this_hdr.sh_flags = SHF_ALLOC | SHF_EXECINSTR; 157 secdata->this_hdr.sh_addr = sec->vma; 158 secdata->this_hdr.sh_size = sec->size; 159 160 newseg = bfd_alloc (abfd, 161 sizeof *newseg + ((seg->count + 1) 162 * sizeof (asection *))); 163 if (newseg == NULL) 164 return FALSE; 165 memcpy (newseg, seg, 166 sizeof *newseg + (seg->count * sizeof (asection *))); 167 newseg->sections[newseg->count++] = sec; 168 *m = seg = newseg; 169 } 170 } 171 172 /* First, we're just finding the earliest PT_LOAD. 173 By the normal rules, this will be the lowest-addressed one. 174 We only have anything interesting to do if it's executable. */ 175 last_load = m; 176 if (first_load == NULL) 177 { 178 if (!executable) 179 goto next; 180 first_load = m; 181 } 182 /* Now that we've noted the first PT_LOAD, we're looking for 183 the first non-executable PT_LOAD with a nonempty p_filesz. */ 184 else if (!moved_headers 185 && segment_eligible_for_headers (seg, bed->minpagesize, 186 sizeof_headers)) 187 { 188 /* This is the one we were looking for! 189 190 First, clear the flags on previous segments that 191 say they include the file header and phdrs. */ 192 struct elf_segment_map *prevseg; 193 for (prevseg = *first_load; 194 prevseg != seg; 195 prevseg = prevseg->next) 196 if (prevseg->p_type == PT_LOAD) 197 { 198 prevseg->includes_filehdr = 0; 199 prevseg->includes_phdrs = 0; 200 } 201 202 /* This segment will include those headers instead. */ 203 seg->includes_filehdr = 1; 204 seg->includes_phdrs = 1; 205 206 moved_headers = TRUE; 207 } 208 } 209 210 next: 211 m = &seg->next; 212 } 213 214 if (first_load != last_load && moved_headers) 215 { 216 /* Now swap the first and last PT_LOAD segments' 217 positions in segment_map. */ 218 struct elf_segment_map *first = *first_load; 219 struct elf_segment_map *last = *last_load; 220 *first_load = first->next; 221 first->next = last->next; 222 last->next = first; 223 } 224 225 return TRUE; 226 } 227 228 /* After nacl_modify_segment_map has done its work, the file layout has 229 been done as we wanted. But the PT_LOAD phdrs are no longer in the 230 proper order for the ELF rule that they must appear in ascending address 231 order. So find the two segments we swapped before, and swap them back. */ 232 bfd_boolean 233 nacl_modify_program_headers (bfd *abfd, struct bfd_link_info *info) 234 { 235 struct elf_segment_map **m = &elf_seg_map (abfd); 236 Elf_Internal_Phdr *phdr = elf_tdata (abfd)->phdr; 237 Elf_Internal_Phdr *p = phdr; 238 239 if (info != NULL && info->user_phdrs) 240 /* The linker script used PHDRS explicitly, so don't change what the 241 user asked for. */ 242 return TRUE; 243 244 /* Find the PT_LOAD that contains the headers (should be the first). */ 245 while (*m != NULL) 246 { 247 if ((*m)->p_type == PT_LOAD && (*m)->includes_filehdr) 248 break; 249 250 m = &(*m)->next; 251 ++p; 252 } 253 254 if (*m != NULL) 255 { 256 struct elf_segment_map **first_load_seg = m; 257 Elf_Internal_Phdr *first_load_phdr = p; 258 struct elf_segment_map **next_load_seg = NULL; 259 Elf_Internal_Phdr *next_load_phdr = NULL; 260 261 /* Now move past that first one and find the PT_LOAD that should be 262 before it by address order. */ 263 264 m = &(*m)->next; 265 ++p; 266 267 while (*m != NULL) 268 { 269 if (p->p_type == PT_LOAD && p->p_vaddr < first_load_phdr->p_vaddr) 270 { 271 next_load_seg = m; 272 next_load_phdr = p; 273 break; 274 } 275 276 m = &(*m)->next; 277 ++p; 278 } 279 280 /* Swap their positions in the segment_map back to how they used to be. 281 The phdrs have already been set up by now, so we have to slide up 282 the earlier ones to insert the one that should be first. */ 283 if (next_load_seg != NULL) 284 { 285 Elf_Internal_Phdr move_phdr; 286 struct elf_segment_map *first_seg = *first_load_seg; 287 struct elf_segment_map *next_seg = *next_load_seg; 288 struct elf_segment_map *first_next = first_seg->next; 289 struct elf_segment_map *next_next = next_seg->next; 290 291 if (next_load_seg == &first_seg->next) 292 { 293 *first_load_seg = next_seg; 294 next_seg->next = first_seg; 295 first_seg->next = next_next; 296 } 297 else 298 { 299 *first_load_seg = first_next; 300 *next_load_seg = next_next; 301 302 first_seg->next = *next_load_seg; 303 *next_load_seg = first_seg; 304 305 next_seg->next = *first_load_seg; 306 *first_load_seg = next_seg; 307 } 308 309 move_phdr = *next_load_phdr; 310 memmove (first_load_phdr + 1, first_load_phdr, 311 (next_load_phdr - first_load_phdr) * sizeof move_phdr); 312 *first_load_phdr = move_phdr; 313 } 314 } 315 316 return TRUE; 317 } 318 319 void 320 nacl_final_write_processing (bfd *abfd, bfd_boolean linker ATTRIBUTE_UNUSED) 321 { 322 struct elf_segment_map *seg; 323 for (seg = elf_seg_map (abfd); seg != NULL; seg = seg->next) 324 if (seg->p_type == PT_LOAD 325 && seg->count > 1 326 && seg->sections[seg->count - 1]->owner == NULL) 327 { 328 /* This is a fake section added in nacl_modify_segment_map, above. 329 It's not a real BFD section, so nothing wrote its contents. 330 Now write out its contents. */ 331 332 asection *sec = seg->sections[seg->count - 1]; 333 char *fill; 334 335 BFD_ASSERT (sec->flags & SEC_LINKER_CREATED); 336 BFD_ASSERT (sec->flags & SEC_CODE); 337 BFD_ASSERT (sec->size > 0); 338 339 fill = abfd->arch_info->fill (sec->size, bfd_big_endian (abfd), TRUE); 340 341 if (fill == NULL 342 || bfd_seek (abfd, sec->filepos, SEEK_SET) != 0 343 || bfd_bwrite (fill, sec->size, abfd) != sec->size) 344 { 345 /* We don't have a proper way to report an error here. So 346 instead fudge things so that elf_write_shdrs_and_ehdr will 347 fail. */ 348 elf_elfheader (abfd)->e_shoff = (file_ptr) -1; 349 } 350 351 free (fill); 352 } 353 } 354