1 # This shell script emits a C file. -*- C -*- 2 # It does some substitutions. 3 if [ -z "$MACHINE" ]; then 4 OUTPUT_ARCH=${ARCH} 5 else 6 OUTPUT_ARCH=${ARCH}:${MACHINE} 7 fi 8 fragment <<EOF 9 /* This file is part of GLD, the Gnu Linker. 10 Copyright (C) 1995-2014 Free Software Foundation, Inc. 11 12 This file is part of the GNU Binutils. 13 14 This program is free software; you can redistribute it and/or modify 15 it under the terms of the GNU General Public License as published by 16 the Free Software Foundation; either version 3 of the License, or 17 (at your option) any later version. 18 19 This program is distributed in the hope that it will be useful, 20 but WITHOUT ANY WARRANTY; without even the implied warranty of 21 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 22 GNU General Public License for more details. 23 24 You should have received a copy of the GNU General Public License 25 along with this program; if not, write to the Free Software 26 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, 27 MA 02110-1301, USA. */ 28 29 30 /* For WINDOWS_NT */ 31 /* The original file generated returned different default scripts depending 32 on whether certain switches were set, but these switches pertain to the 33 Linux system and that particular version of coff. In the NT case, we 34 only determine if the subsystem is console or windows in order to select 35 the correct entry point by default. */ 36 37 #include "sysdep.h" 38 #include "bfd.h" 39 #include "bfdlink.h" 40 #include "getopt.h" 41 #include "libiberty.h" 42 #include "filenames.h" 43 #include "ld.h" 44 #include "ldmain.h" 45 #include "ldexp.h" 46 #include "ldlang.h" 47 #include "ldfile.h" 48 #include "ldemul.h" 49 #include <ldgram.h> 50 #include "ldlex.h" 51 #include "ldmisc.h" 52 #include "ldctor.h" 53 #include "coff/internal.h" 54 #include "../bfd/libcoff.h" 55 56 #define TARGET_IS_${EMULATION_NAME} 57 58 static struct internal_extra_pe_aouthdr pe; 59 static int dll; 60 61 extern const char *output_filename; 62 63 static void 64 gld_${EMULATION_NAME}_before_parse (void) 65 { 66 ldfile_set_output_arch ("${OUTPUT_ARCH}", bfd_arch_`echo ${ARCH} | sed -e 's/:.*//'`); 67 output_filename = "a.exe"; 68 } 69 71 /* PE format extra command line options. */ 72 73 /* Used for setting flags in the PE header. */ 74 #define OPTION_BASE_FILE (300 + 1) 75 #define OPTION_DLL (OPTION_BASE_FILE + 1) 76 #define OPTION_FILE_ALIGNMENT (OPTION_DLL + 1) 77 #define OPTION_IMAGE_BASE (OPTION_FILE_ALIGNMENT + 1) 78 #define OPTION_MAJOR_IMAGE_VERSION (OPTION_IMAGE_BASE + 1) 79 #define OPTION_MAJOR_OS_VERSION (OPTION_MAJOR_IMAGE_VERSION + 1) 80 #define OPTION_MAJOR_SUBSYSTEM_VERSION (OPTION_MAJOR_OS_VERSION + 1) 81 #define OPTION_MINOR_IMAGE_VERSION (OPTION_MAJOR_SUBSYSTEM_VERSION + 1) 82 #define OPTION_MINOR_OS_VERSION (OPTION_MINOR_IMAGE_VERSION + 1) 83 #define OPTION_MINOR_SUBSYSTEM_VERSION (OPTION_MINOR_OS_VERSION + 1) 84 #define OPTION_SECTION_ALIGNMENT (OPTION_MINOR_SUBSYSTEM_VERSION + 1) 85 #define OPTION_STACK (OPTION_SECTION_ALIGNMENT + 1) 86 #define OPTION_SUBSYSTEM (OPTION_STACK + 1) 87 #define OPTION_HEAP (OPTION_SUBSYSTEM + 1) 88 89 static void 90 gld${EMULATION_NAME}_add_options 91 (int ns ATTRIBUTE_UNUSED, char **shortopts ATTRIBUTE_UNUSED, int nl, 92 struct option **longopts, int nrl ATTRIBUTE_UNUSED, 93 struct option **really_longopts ATTRIBUTE_UNUSED) 94 { 95 static const struct option xtra_long[] = { 96 /* PE options */ 97 {"base-file", required_argument, NULL, OPTION_BASE_FILE}, 98 {"dll", no_argument, NULL, OPTION_DLL}, 99 {"file-alignment", required_argument, NULL, OPTION_FILE_ALIGNMENT}, 100 {"heap", required_argument, NULL, OPTION_HEAP}, 101 {"image-base", required_argument, NULL, OPTION_IMAGE_BASE}, 102 {"major-image-version", required_argument, NULL, OPTION_MAJOR_IMAGE_VERSION}, 103 {"major-os-version", required_argument, NULL, OPTION_MAJOR_OS_VERSION}, 104 {"major-subsystem-version", required_argument, NULL, OPTION_MAJOR_SUBSYSTEM_VERSION}, 105 {"minor-image-version", required_argument, NULL, OPTION_MINOR_IMAGE_VERSION}, 106 {"minor-os-version", required_argument, NULL, OPTION_MINOR_OS_VERSION}, 107 {"minor-subsystem-version", required_argument, NULL, OPTION_MINOR_SUBSYSTEM_VERSION}, 108 {"section-alignment", required_argument, NULL, OPTION_SECTION_ALIGNMENT}, 109 {"stack", required_argument, NULL, OPTION_STACK}, 110 {"subsystem", required_argument, NULL, OPTION_SUBSYSTEM}, 111 {NULL, no_argument, NULL, 0} 112 }; 113 114 *longopts = (struct option *) 115 xrealloc (*longopts, nl * sizeof (struct option) + sizeof (xtra_long)); 116 memcpy (*longopts + nl, &xtra_long, sizeof (xtra_long)); 117 } 118 119 120 /* PE/WIN32; added routines to get the subsystem type, heap and/or stack 121 parameters which may be input from the command line */ 122 123 typedef struct { 124 void *ptr; 125 int size; 126 int value; 127 char *symbol; 128 int inited; 129 } definfo; 130 131 #define D(field,symbol,def) {&pe.field,sizeof(pe.field), def, symbol,0} 132 133 static definfo init[] = 134 { 135 /* imagebase must be first */ 136 #define IMAGEBASEOFF 0 137 D(ImageBase,"__image_base__", BEOS_EXE_IMAGE_BASE), 138 #define DLLOFF 1 139 {&dll, sizeof(dll), 0, "__dll__", 0}, 140 D(SectionAlignment,"__section_alignment__", PE_DEF_SECTION_ALIGNMENT), 141 D(FileAlignment,"__file_alignment__", PE_DEF_FILE_ALIGNMENT), 142 D(MajorOperatingSystemVersion,"__major_os_version__", 4), 143 D(MinorOperatingSystemVersion,"__minor_os_version__", 0), 144 D(MajorImageVersion,"__major_image_version__", 1), 145 D(MinorImageVersion,"__minor_image_version__", 0), 146 D(MajorSubsystemVersion,"__major_subsystem_version__", 4), 147 D(MinorSubsystemVersion,"__minor_subsystem_version__", 0), 148 D(Subsystem,"__subsystem__", 3), 149 D(SizeOfStackReserve,"__size_of_stack_reserve__", 0x2000000), 150 D(SizeOfStackCommit,"__size_of_stack_commit__", 0x1000), 151 D(SizeOfHeapReserve,"__size_of_heap_reserve__", 0x100000), 152 D(SizeOfHeapCommit,"__size_of_heap_commit__", 0x1000), 153 D(LoaderFlags,"__loader_flags__", 0x0), 154 { NULL, 0, 0, NULL, 0 } 155 }; 156 157 158 static void 159 set_pe_name (char *name, long val) 160 { 161 int i; 162 /* Find the name and set it. */ 163 for (i = 0; init[i].ptr; i++) 164 { 165 if (strcmp (name, init[i].symbol) == 0) 166 { 167 init[i].value = val; 168 init[i].inited = 1; 169 return; 170 } 171 } 172 abort(); 173 } 174 175 176 static void 177 set_pe_subsystem (void) 178 { 179 const char *sver; 180 int len; 181 int i; 182 static const struct 183 { 184 const char *name; 185 const int value; 186 const char *entry; 187 } 188 v[] = 189 { 190 { "native", 1, "_NtProcessStartup" }, 191 { "windows", 2, "_WinMainCRTStartup" }, 192 { "wwindows", 2, "_wWinMainCRTStartup" }, 193 { "console", 3, "_mainCRTStartup" }, 194 { "wconsole", 3, "_wmainCRTStartup" }, 195 { "posix", 7, "___PosixProcessStartup"}, 196 { 0, 0, 0 } 197 }; 198 199 sver = strchr (optarg, ':'); 200 if (sver == NULL) 201 len = strlen (optarg); 202 else 203 { 204 char *end; 205 206 len = sver - optarg; 207 set_pe_name ("__major_subsystem_version__", 208 strtoul (sver + 1, &end, 0)); 209 if (*end == '.') 210 set_pe_name ("__minor_subsystem_version__", 211 strtoul (end + 1, &end, 0)); 212 if (*end != '\0') 213 einfo ("%P: warning: bad version number in -subsystem option\n"); 214 } 215 216 for (i = 0; v[i].name; i++) 217 { 218 if (strncmp (optarg, v[i].name, len) == 0 219 && v[i].name[len] == '\0') 220 { 221 set_pe_name ("__subsystem__", v[i].value); 222 223 /* If the subsystem is windows, we use a different entry 224 point. */ 225 lang_default_entry (v[i].entry); 226 227 return; 228 } 229 } 230 einfo ("%P%F: invalid subsystem type %s\n", optarg); 231 } 232 233 234 static void 235 set_pe_value (char *name) 236 { 237 char *end; 238 set_pe_name (name, strtoul (optarg, &end, 0)); 239 if (end == optarg) 240 { 241 einfo ("%P%F: invalid hex number for PE parameter '%s'\n", optarg); 242 } 243 244 optarg = end; 245 } 246 247 static void 248 set_pe_stack_heap (char *resname, char *comname) 249 { 250 set_pe_value (resname); 251 if (*optarg == ',') 252 { 253 optarg++; 254 set_pe_value (comname); 255 } 256 else if (*optarg) 257 { 258 einfo ("%P%F: strange hex info for PE parameter '%s'\n", optarg); 259 } 260 } 261 262 263 static bfd_boolean 264 gld${EMULATION_NAME}_handle_option (int optc) 265 { 266 switch (optc) 267 { 268 default: 269 return FALSE; 270 271 case OPTION_BASE_FILE: 272 link_info.base_file = fopen (optarg, FOPEN_WB); 273 if (link_info.base_file == NULL) 274 einfo (_("%F%P: cannot open base file %s\n"), optarg); 275 break; 276 277 /* PE options */ 278 case OPTION_HEAP: 279 set_pe_stack_heap ("__size_of_heap_reserve__", "__size_of_heap_commit__"); 280 break; 281 case OPTION_STACK: 282 set_pe_stack_heap ("__size_of_stack_reserve__", "__size_of_stack_commit__"); 283 break; 284 case OPTION_SUBSYSTEM: 285 set_pe_subsystem (); 286 break; 287 case OPTION_MAJOR_OS_VERSION: 288 set_pe_value ("__major_os_version__"); 289 break; 290 case OPTION_MINOR_OS_VERSION: 291 set_pe_value ("__minor_os_version__"); 292 break; 293 case OPTION_MAJOR_SUBSYSTEM_VERSION: 294 set_pe_value ("__major_subsystem_version__"); 295 break; 296 case OPTION_MINOR_SUBSYSTEM_VERSION: 297 set_pe_value ("__minor_subsystem_version__"); 298 break; 299 case OPTION_MAJOR_IMAGE_VERSION: 300 set_pe_value ("__major_image_version__"); 301 break; 302 case OPTION_MINOR_IMAGE_VERSION: 303 set_pe_value ("__minor_image_version__"); 304 break; 305 case OPTION_FILE_ALIGNMENT: 306 set_pe_value ("__file_alignment__"); 307 break; 308 case OPTION_SECTION_ALIGNMENT: 309 set_pe_value ("__section_alignment__"); 310 break; 311 case OPTION_DLL: 312 set_pe_name ("__dll__", 1); 313 break; 314 case OPTION_IMAGE_BASE: 315 set_pe_value ("__image_base__"); 316 break; 317 } 318 return TRUE; 319 } 320 322 /* Assign values to the special symbols before the linker script is 323 read. */ 324 325 static void 326 gld_${EMULATION_NAME}_set_symbols (void) 327 { 328 /* Run through and invent symbols for all the 329 names and insert the defaults. */ 330 int j; 331 332 if (!init[IMAGEBASEOFF].inited) 333 { 334 if (link_info.relocatable) 335 init[IMAGEBASEOFF].value = 0; 336 else if (init[DLLOFF].value) 337 init[IMAGEBASEOFF].value = BEOS_DLL_IMAGE_BASE; 338 else 339 init[IMAGEBASEOFF].value = BEOS_EXE_IMAGE_BASE; 340 } 341 342 /* Don't do any symbol assignments if this is a relocatable link. */ 343 if (link_info.relocatable) 344 return; 345 346 /* Glue the assignments into the abs section */ 347 push_stat_ptr (&abs_output_section->children); 348 349 for (j = 0; init[j].ptr; j++) 350 { 351 long val = init[j].value; 352 lang_add_assignment (exp_assign (init[j].symbol, exp_intop (val), 353 FALSE)); 354 if (init[j].size == sizeof(short)) 355 *(short *)init[j].ptr = val; 356 else if (init[j].size == sizeof(int)) 357 *(int *)init[j].ptr = val; 358 else if (init[j].size == sizeof(long)) 359 *(long *)init[j].ptr = val; 360 /* This might be a long long or other special type. */ 361 else if (init[j].size == sizeof(bfd_vma)) 362 *(bfd_vma *)init[j].ptr = val; 363 else abort(); 364 } 365 /* Restore the pointer. */ 366 pop_stat_ptr (); 367 368 if (pe.FileAlignment > 369 pe.SectionAlignment) 370 { 371 einfo ("%P: warning, file alignment > section alignment.\n"); 372 } 373 } 374 375 static void 376 gld_${EMULATION_NAME}_after_open (void) 377 { 378 after_open_default (); 379 380 /* Pass the wacky PE command line options into the output bfd. 381 FIXME: This should be done via a function, rather than by 382 including an internal BFD header. */ 383 if (!coff_data(link_info.output_bfd)->pe) 384 { 385 einfo ("%F%P: PE operations on non PE file.\n"); 386 } 387 388 pe_data(link_info.output_bfd)->pe_opthdr = pe; 389 pe_data(link_info.output_bfd)->dll = init[DLLOFF].value; 390 391 } 392 394 /* Callback functions for qsort in sort_sections. */ 395 396 static int 397 sort_by_file_name (const void *a, const void *b) 398 { 399 const lang_statement_union_type *const *ra = a; 400 const lang_statement_union_type *const *rb = b; 401 int i, a_sec, b_sec; 402 403 i = filename_cmp ((*ra)->input_section.section->owner->my_archive->filename, 404 (*rb)->input_section.section->owner->my_archive->filename); 405 if (i != 0) 406 return i; 407 408 i = filename_cmp ((*ra)->input_section.section->owner->filename, 409 (*rb)->input_section.section->owner->filename); 410 if (i != 0) 411 return i; 412 /* the tail idata4/5 are the only ones without relocs to an 413 idata$6 section unless we are importing by ordinal, 414 so sort them to last to terminate the IAT 415 and HNT properly. if no reloc this one is import by ordinal 416 so we have to sort by section contents */ 417 418 if ( ((*ra)->input_section.section->reloc_count + (*rb)->input_section.section->reloc_count) ) 419 { 420 i = (((*ra)->input_section.section->reloc_count > 421 (*rb)->input_section.section->reloc_count) ? -1 : 0); 422 if ( i != 0) 423 return i; 424 425 return (((*ra)->input_section.section->reloc_count > 426 (*rb)->input_section.section->reloc_count) ? 0 : 1); 427 } 428 else 429 { 430 if ( (strcmp( (*ra)->input_section.section->name, ".idata$6") == 0) ) 431 return 0; /* don't sort .idata$6 or .idata$7 FIXME dlltool eliminate .idata$7 */ 432 433 if (! bfd_get_section_contents ((*ra)->input_section.section->owner, 434 (*ra)->input_section.section, &a_sec, (file_ptr) 0, (bfd_size_type)sizeof(a_sec))) 435 einfo ("%F%B: Can't read contents of section .idata: %E\n", 436 (*ra)->input_section.section->owner); 437 438 if (! bfd_get_section_contents ((*rb)->input_section.section->owner, 439 (*rb)->input_section.section, &b_sec, (file_ptr) 0, (bfd_size_type)sizeof(b_sec) )) 440 einfo ("%F%B: Can't read contents of section .idata: %E\n", 441 (*rb)->input_section.section->owner); 442 443 i = ((a_sec < b_sec) ? -1 : 0); 444 if ( i != 0) 445 return i; 446 return ((a_sec < b_sec) ? 0 : 1); 447 } 448 return 0; 449 } 450 451 static int 452 sort_by_section_name (const void *a, const void *b) 453 { 454 const lang_statement_union_type *const *ra = a; 455 const lang_statement_union_type *const *rb = b; 456 int i; 457 i = strcmp ((*ra)->input_section.section->name, 458 (*rb)->input_section.section->name); 459 /* This is a hack to make .stab and .stabstr last, so we don't have 460 to fix strip/objcopy for .reloc sections. 461 FIXME stripping images with a .rsrc section still needs to be fixed. */ 462 if (i != 0) 463 { 464 if ((CONST_STRNEQ ((*ra)->input_section.section->name, ".stab")) 465 && (! CONST_STRNEQ ((*rb)->input_section.section->name, ".stab"))) 466 return 1; 467 } 468 return i; 469 } 470 471 /* Subroutine of sort_sections to a contiguous subset of a list of sections. 472 NEXT_AFTER is the element after the last one to sort. 473 The result is a pointer to the last element's "next" pointer. */ 474 475 static lang_statement_union_type ** 476 sort_sections_1 (lang_statement_union_type **startptr, 477 lang_statement_union_type *next_after, 478 int count, 479 int (*sort_func) (const void *, const void *)) 480 { 481 lang_statement_union_type **vec; 482 lang_statement_union_type *p; 483 int i; 484 lang_statement_union_type **ret; 485 486 if (count == 0) 487 return startptr; 488 489 vec = ((lang_statement_union_type **) 490 xmalloc (count * sizeof (lang_statement_union_type *))); 491 492 for (p = *startptr, i = 0; i < count; i++, p = p->header.next) 493 vec[i] = p; 494 495 qsort (vec, count, sizeof (vec[0]), sort_func); 496 497 /* Fill in the next pointers again. */ 498 *startptr = vec[0]; 499 for (i = 0; i < count - 1; i++) 500 vec[i]->header.next = vec[i + 1]; 501 vec[i]->header.next = next_after; 502 ret = &vec[i]->header.next; 503 free (vec); 504 return ret; 505 } 506 507 /* Sort the .idata\$foo input sections of archives into filename order. 508 The reason is so dlltool can arrange to have the pe dll import information 509 generated correctly - the head of the list goes into dh.o, the tail into 510 dt.o, and the guts into ds[nnnn].o. Note that this is only needed for the 511 .idata section. 512 FIXME: This may no longer be necessary with grouped sections. Instead of 513 sorting on dh.o, ds[nnnn].o, dt.o, one could, for example, have dh.o use 514 .idata\$4h, have ds[nnnn].o use .idata\$4s[nnnn], and have dt.o use .idata\$4t. 515 This would have to be elaborated upon to handle multiple dll's 516 [assuming such an eloboration is possible of course]. 517 518 We also sort sections in '\$' wild statements. These are created by the 519 place_orphans routine to implement grouped sections. */ 520 521 static void 522 sort_sections (lang_statement_union_type *s) 523 { 524 for (; s ; s = s->header.next) 525 switch (s->header.type) 526 { 527 case lang_output_section_statement_enum: 528 sort_sections (s->output_section_statement.children.head); 529 break; 530 case lang_wild_statement_enum: 531 { 532 lang_statement_union_type **p = &s->wild_statement.children.head; 533 struct wildcard_list *sec; 534 535 for (sec = s->wild_statement.section_list; sec; sec = sec->next) 536 { 537 /* Is this the .idata section? */ 538 if (sec->spec.name != NULL 539 && CONST_STRNEQ (sec->spec.name, ".idata")) 540 { 541 /* Sort the children. We want to sort any objects in 542 the same archive. In order to handle the case of 543 including a single archive multiple times, we sort 544 all the children by archive name and then by object 545 name. After sorting them, we re-thread the pointer 546 chain. */ 547 548 while (*p) 549 { 550 lang_statement_union_type *start = *p; 551 if (start->header.type != lang_input_section_enum 552 || !start->input_section.section->owner->my_archive) 553 p = &(start->header.next); 554 else 555 { 556 lang_statement_union_type *end; 557 int count; 558 559 for (end = start, count = 0; 560 end && (end->header.type 561 == lang_input_section_enum); 562 end = end->header.next) 563 count++; 564 565 p = sort_sections_1 (p, end, count, 566 sort_by_file_name); 567 } 568 } 569 break; 570 } 571 572 /* If this is a collection of grouped sections, sort them. 573 The linker script must explicitly mention "*(.foo\$)" or 574 "*(.foo\$*)". Don't sort them if \$ is not the last 575 character (not sure if this is really useful, but it 576 allows explicitly mentioning some \$ sections and letting 577 the linker handle the rest). */ 578 if (sec->spec.name != NULL) 579 { 580 char *q = strchr (sec->spec.name, '\$'); 581 582 if (q != NULL 583 && (q[1] == '\0' 584 || (q[1] == '*' && q[2] == '\0'))) 585 { 586 lang_statement_union_type *end; 587 int count; 588 589 for (end = *p, count = 0; end; end = end->header.next) 590 { 591 if (end->header.type != lang_input_section_enum) 592 abort (); 593 count++; 594 } 595 (void) sort_sections_1 (p, end, count, 596 sort_by_section_name); 597 } 598 break; 599 } 600 } 601 } 602 break; 603 default: 604 break; 605 } 606 } 607 608 static void 609 gld_${EMULATION_NAME}_before_allocation (void) 610 { 611 #ifdef TARGET_IS_ppcpe 612 /* Here we rummage through the found bfds to collect toc information */ 613 { 614 LANG_FOR_EACH_INPUT_STATEMENT (is) 615 { 616 if (!ppc_process_before_allocation(is->the_bfd, &link_info)) 617 { 618 einfo("Errors encountered processing file %s\n", is->filename); 619 } 620 } 621 } 622 623 /* We have seen it all. Allocate it, and carry on */ 624 ppc_allocate_toc_section (&link_info); 625 #else 626 #ifdef TARGET_IS_armpe 627 /* FIXME: we should be able to set the size of the interworking stub 628 section. 629 630 Here we rummage through the found bfds to collect glue 631 information. FIXME: should this be based on a command line 632 option? krk (a] cygnus.com */ 633 { 634 LANG_FOR_EACH_INPUT_STATEMENT (is) 635 { 636 if (!arm_process_before_allocation (is->the_bfd, & link_info)) 637 { 638 einfo ("Errors encountered processing file %s", is->filename); 639 } 640 } 641 } 642 643 /* We have seen it all. Allocate it, and carry on */ 644 arm_allocate_interworking_sections (& link_info); 645 #endif /* TARGET_IS_armpe */ 646 #endif /* TARGET_IS_ppcpe */ 647 648 sort_sections (stat_ptr->head); 649 650 before_allocation_default (); 651 } 652 654 /* Place an orphan section. We use this to put sections with a '\$' in them 655 into the right place. Any section with a '\$' in them (e.g. .text\$foo) 656 gets mapped to the output section with everything from the '\$' on stripped 657 (e.g. .text). 658 See the Microsoft Portable Executable and Common Object File Format 659 Specification 4.1, section 4.2, Grouped Sections. 660 661 FIXME: This is now handled by the linker script using wildcards, 662 but I'm leaving this here in case we want to enable it for sections 663 which are not mentioned in the linker script. */ 664 665 static lang_output_section_statement_type * 666 gld${EMULATION_NAME}_place_orphan (asection *s, 667 const char *secname, 668 int constraint) 669 { 670 char *output_secname, *ps; 671 lang_output_section_statement_type *os; 672 lang_statement_union_type *l; 673 674 if ((s->flags & SEC_ALLOC) == 0) 675 return NULL; 676 677 /* Don't process grouped sections unless doing a final link. 678 If they're marked as COMDAT sections, we don't want .text\$foo to 679 end up in .text and then have .text disappear because it's marked 680 link-once-discard. */ 681 if (link_info.relocatable) 682 return NULL; 683 684 /* Everything from the '\$' on gets deleted so don't allow '\$' as the 685 first character. */ 686 if (*secname == '\$') 687 einfo ("%P%F: section %s has '\$' as first character\n", secname); 688 if (strchr (secname + 1, '\$') == NULL) 689 return NULL; 690 691 /* Look up the output section. The Microsoft specs say sections names in 692 image files never contain a '\$'. Fortunately, lang_..._lookup creates 693 the section if it doesn't exist. */ 694 output_secname = xstrdup (secname); 695 ps = strchr (output_secname + 1, '\$'); 696 *ps = 0; 697 os = lang_output_section_statement_lookup (output_secname, constraint, TRUE); 698 699 /* Find the '\$' wild statement for this section. We currently require the 700 linker script to explicitly mention "*(.foo\$)". 701 FIXME: ppcpe.sc has .CRT\$foo in the .rdata section. According to the 702 Microsoft docs this isn't correct so it's not (currently) handled. */ 703 704 ps[0] = '\$'; 705 ps[1] = 0; 706 for (l = os->children.head; l; l = l->header.next) 707 if (l->header.type == lang_wild_statement_enum) 708 { 709 struct wildcard_list *sec; 710 711 for (sec = l->wild_statement.section_list; sec; sec = sec->next) 712 if (sec->spec.name && strcmp (sec->spec.name, output_secname) == 0) 713 break; 714 if (sec) 715 break; 716 } 717 ps[0] = 0; 718 if (l == NULL) 719 einfo ("%P%F: *(%s\$) missing from linker script\n", output_secname); 720 721 /* Link the input section in and we're done for now. 722 The sections still have to be sorted, but that has to wait until 723 all such sections have been processed by us. The sorting is done by 724 sort_sections. */ 725 lang_add_section (&l->wild_statement.children, s, NULL, os); 726 727 return os; 728 } 729 731 static char * 732 gld_${EMULATION_NAME}_get_script (int *isfile) 733 EOF 734 # Scripts compiled in. 735 # sed commands to quote an ld script as a C string. 736 sc="-f stringify.sed" 737 738 fragment <<EOF 739 { 740 *isfile = 0; 741 742 if (link_info.relocatable && config.build_constructors) 743 return 744 EOF 745 sed $sc ldscripts/${EMULATION_NAME}.xu >> e${EMULATION_NAME}.c 746 echo ' ; else if (link_info.relocatable) return' >> e${EMULATION_NAME}.c 747 sed $sc ldscripts/${EMULATION_NAME}.xr >> e${EMULATION_NAME}.c 748 echo ' ; else if (!config.text_read_only) return' >> e${EMULATION_NAME}.c 749 sed $sc ldscripts/${EMULATION_NAME}.xbn >> e${EMULATION_NAME}.c 750 echo ' ; else if (!config.magic_demand_paged) return' >> e${EMULATION_NAME}.c 751 sed $sc ldscripts/${EMULATION_NAME}.xn >> e${EMULATION_NAME}.c 752 echo ' ; else return' >> e${EMULATION_NAME}.c 753 sed $sc ldscripts/${EMULATION_NAME}.x >> e${EMULATION_NAME}.c 754 echo '; }' >> e${EMULATION_NAME}.c 755 756 fragment <<EOF 757 758 759 struct ld_emulation_xfer_struct ld_${EMULATION_NAME}_emulation = 760 { 761 gld_${EMULATION_NAME}_before_parse, 762 syslib_default, 763 hll_default, 764 after_parse_default, 765 gld_${EMULATION_NAME}_after_open, 766 after_allocation_default, 767 set_output_arch_default, 768 ldemul_default_target, 769 gld_${EMULATION_NAME}_before_allocation, 770 gld_${EMULATION_NAME}_get_script, 771 "${EMULATION_NAME}", 772 "${OUTPUT_FORMAT}", 773 finish_default, 774 NULL, /* create output section statements */ 775 NULL, /* open dynamic archive */ 776 gld${EMULATION_NAME}_place_orphan, 777 gld_${EMULATION_NAME}_set_symbols, 778 NULL, /* parse_args */ 779 gld${EMULATION_NAME}_add_options, 780 gld${EMULATION_NAME}_handle_option, 781 NULL, /* unrecognized file */ 782 NULL, /* list options */ 783 NULL, /* recognized file */ 784 NULL, /* find_potential_libraries */ 785 NULL, /* new_vers_pattern */ 786 NULL /* extra_map_file_text */ 787 }; 788 EOF 789
