1 /* dlltool.c -- tool to generate stuff for PE style DLLs
2 Copyright (C) 1995-2023 Free Software Foundation, Inc.
4 This file is part of GNU Binutils.
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.
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.
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
22 /* This program allows you to build the files necessary to create
23 DLLs to run on a system which understands PE format image files.
26 See "Peering Inside the PE: A Tour of the Win32 Portable Executable
27 File Format", MSJ 1994, Volume 9 for more information.
28 Also see "Microsoft Portable Executable and Common Object File Format,
29 Specification 4.1" for more information.
31 A DLL contains an export table which contains the information
32 which the runtime loader needs to tie up references from a
35 The export table is generated by this program by reading
36 in a .DEF file or scanning the .a and .o files which will be in the
37 DLL. A .o file can contain information in special ".drectve" sections
38 with export information.
40 A DEF file contains any number of the following commands:
43 NAME <name> [ , <base> ]
44 The result is going to be <name>.EXE
46 LIBRARY <name> [ , <base> ]
47 The result is going to be <name>.DLL
49 EXPORTS ( ( ( <name1> [ = <name2> ] )
50 | ( <name1> = <module-name> . <external-name>))
51 [ @ <integer> ] [ NONAME ] [CONSTANT] [DATA] [PRIVATE] ) *
52 Declares name1 as an exported symbol from the
53 DLL, with optional ordinal number <integer>.
54 Or declares name1 as an alias (forward) of the function <external-name>
55 in the DLL <module-name>.
57 IMPORTS ( ( <internal-name> = <module-name> . <integer> )
58 | ( [ <internal-name> = ] <module-name> . <external-name> )) *
59 Declares that <external-name> or the exported function whose ordinal number
60 is <integer> is to be imported from the file <module-name>. If
61 <internal-name> is specified then this is the name that the imported
62 function will be refereed to in the body of the DLL.
65 Puts <string> into output .exp file in the .rdata section
67 [STACKSIZE|HEAPSIZE] <number-reserve> [ , <number-commit> ]
68 Generates --stack|--heap <number-reserve>,<number-commit>
69 in the output .drectve section. The linker will
70 see this and act upon it.
73 SECTIONS ( <sectionname> <attr>+ )*
74 <attr> = READ | WRITE | EXECUTE | SHARED
75 Generates --attr <sectionname> <attr> in the output
76 .drectve section. The linker will see this and act
80 A -export:<name> in a .drectve section in an input .o or .a
81 file to this program is equivalent to a EXPORTS <name>
86 The program generates output files with the prefix supplied
87 on the command line, or in the def file, or taken from the first
90 The .exp.s file contains the information necessary to export
91 the routines in the DLL. The .lib.s file contains the information
92 necessary to use the DLL's routines from a referencing program.
99 asm (".section .drectve");
100 asm (".ascii \"-export:adef\"");
104 printf ("hello from the dll %s\n", s);
109 printf ("hello from the dll and the other entry point %s\n", s);
113 asm (".section .drectve");
114 asm (".ascii \"-export:cdef\"");
115 asm (".ascii \"-export:ddef\"");
119 printf ("hello from the dll %s\n", s);
124 printf ("hello from the dll and the other entry point %s\n", s);
142 HEAPSIZE 0x40000, 0x2000
146 SECTIONS donkey READ WRITE
149 # Compile up the parts of the dll and the program
151 gcc -c file1.c file2.c themain.c
153 # Optional: put the dll objects into a library
154 # (you don't have to, you could name all the object
155 # files on the dlltool line)
157 ar qcv thedll.in file1.o file2.o
160 # Run this tool over the DLL's .def file and generate an exports
161 # file (thedll.o) and an imports file (thedll.a).
162 # (You may have to use -S to tell dlltool where to find the assembler).
164 dlltool --def thedll.def --output-exp thedll.o --output-lib thedll.a
166 # Build the dll with the library and the export table
168 ld -o thedll.dll thedll.o thedll.in
170 # Link the executable with the import library
172 gcc -o themain.exe themain.o thedll.a
174 This example can be extended if relocations are needed in the DLL:
176 # Compile up the parts of the dll and the program
178 gcc -c file1.c file2.c themain.c
180 # Run this tool over the DLL's .def file and generate an imports file.
182 dlltool --def thedll.def --output-lib thedll.lib
184 # Link the executable with the import library and generate a base file
187 gcc -o themain.exe themain.o thedll.lib -Wl,--base-file -Wl,themain.base
189 # Run this tool over the DLL's .def file and generate an exports file
190 # which includes the relocations from the base file.
192 dlltool --def thedll.def --base-file themain.base --output-exp thedll.exp
194 # Build the dll with file1.o, file2.o and the export table
196 ld -o thedll.dll thedll.exp file1.o file2.o */
198 /* .idata section description
200 The .idata section is the import table. It is a collection of several
201 subsections used to keep the pieces for each dll together: .idata$[234567].
202 IE: Each dll's .idata$2's are catenated together, each .idata$3's, etc.
204 .idata$2 = Import Directory Table
205 = array of IMAGE_IMPORT_DESCRIPTOR's.
207 DWORD Import Lookup Table; - pointer to .idata$4
208 DWORD TimeDateStamp; - currently always 0
209 DWORD ForwarderChain; - currently always 0
210 DWORD Name; - pointer to dll's name
211 PIMAGE_THUNK_DATA FirstThunk; - pointer to .idata$5
213 .idata$3 = null terminating entry for .idata$2.
215 .idata$4 = Import Lookup Table
216 = array of array of pointers to hint name table.
217 There is one for each dll being imported from, and each dll's set is
218 terminated by a trailing NULL.
220 .idata$5 = Import Address Table
221 = array of array of pointers to hint name table.
222 There is one for each dll being imported from, and each dll's set is
223 terminated by a trailing NULL.
224 Initially, this table is identical to the Import Lookup Table. However,
225 at load time, the loader overwrites the entries with the address of the
228 .idata$6 = Hint Name Table
229 = Array of { short, asciz } entries, one for each imported function.
230 The `short' is the function's ordinal number.
232 .idata$7 = dll name (eg: "kernel32.dll"). */
236 #include "libiberty.h"
238 #include "demangle.h"
239 #include "dyn-string.h"
242 #include "safe-ctype.h"
243 #include "coff-bfd.h"
249 #include "coff/arm.h"
250 #include "coff/internal.h"
252 #ifdef DLLTOOL_DEFAULT_MX86_64
253 #include "coff/x86_64.h"
255 #ifdef DLLTOOL_DEFAULT_I386
256 #include "coff/i386.h"
259 #ifndef COFF_PAGE_SIZE
260 #define COFF_PAGE_SIZE ((bfd_vma) 4096)
264 #define PAGE_MASK ((bfd_vma) (- COFF_PAGE_SIZE))
267 /* Get current BFD error message. */
268 #define bfd_get_errmsg() (bfd_errmsg (bfd_get_error ()))
270 /* Forward references. */
271 static char *look_for_prog (const char *, const char *, int);
272 static char *deduce_name (const char *);
274 #ifdef DLLTOOL_MCORE_ELF
275 static void mcore_elf_cache_filename (const char *);
276 static void mcore_elf_gen_out_file (void);
279 #ifdef HAVE_SYS_WAIT_H
280 #include <sys/wait.h>
281 #else /* ! HAVE_SYS_WAIT_H */
282 #if ! defined (_WIN32) || defined (__CYGWIN32__)
284 #define WIFEXITED(w) (((w) & 0377) == 0)
287 #define WIFSIGNALED(w) (((w) & 0377) != 0177 && ((w) & ~0377) == 0)
290 #define WTERMSIG(w) ((w) & 0177)
293 #define WEXITSTATUS(w) (((w) >> 8) & 0377)
295 #else /* defined (_WIN32) && ! defined (__CYGWIN32__) */
297 #define WIFEXITED(w) (((w) & 0xff) == 0)
300 #define WIFSIGNALED(w) (((w) & 0xff) != 0 && ((w) & 0xff) != 0x7f)
303 #define WTERMSIG(w) ((w) & 0x7f)
306 #define WEXITSTATUS(w) (((w) & 0xff00) >> 8)
308 #endif /* defined (_WIN32) && ! defined (__CYGWIN32__) */
309 #endif /* ! HAVE_SYS_WAIT_H */
311 #define show_allnames 0
313 /* ifunc and ihead data structures: ttk@cygnus.com 1997
315 When IMPORT declarations are encountered in a .def file the
316 function import information is stored in a structure referenced by
317 the global variable IMPORT_LIST. The structure is a linked list
318 containing the names of the dll files each function is imported
319 from and a linked list of functions being imported from that dll
320 file. This roughly parallels the structure of the .idata section
321 in the PE object file.
323 The contents of .def file are interpreted from within the
324 process_def_file function. Every time an IMPORT declaration is
325 encountered, it is broken up into its component parts and passed to
326 def_import. IMPORT_LIST is initialized to NULL in function main. */
328 typedef struct ifunct
330 char * name
; /* Name of function being imported. */
331 char * its_name
; /* Optional import table symbol name. */
332 int ord
; /* Two-byte ordinal value associated with function. */
336 typedef struct iheadt
338 char * dllname
; /* Name of dll file imported from. */
339 long nfuncs
; /* Number of functions in list. */
340 struct ifunct
*funchead
; /* First function in list. */
341 struct ifunct
*functail
; /* Last function in list. */
342 struct iheadt
*next
; /* Next dll file in list. */
345 /* Structure containing all import information as defined in .def file
346 (qv "ihead structure"). */
348 static iheadtype
*import_list
= NULL
;
349 static char *as_name
= NULL
;
350 static char * as_flags
= "";
351 static char *tmp_prefix
= NULL
;
352 static int no_idata4
;
353 static int no_idata5
;
354 static char *exp_name
;
355 static char *imp_name
;
356 static char *delayimp_name
;
357 static char *identify_imp_name
;
358 static bool identify_strict
;
359 static bool deterministic
= DEFAULT_AR_DETERMINISTIC
;
361 /* Types used to implement a linked list of dllnames associated
362 with the specified import lib. Used by the identify_* code.
363 The head entry is acts as a sentinal node and is always empty
364 (head->dllname is NULL). */
365 typedef struct dll_name_list_node_t
368 struct dll_name_list_node_t
* next
;
369 } dll_name_list_node_type
;
371 typedef struct dll_name_list_t
373 dll_name_list_node_type
* head
;
374 dll_name_list_node_type
* tail
;
375 } dll_name_list_type
;
377 /* Types used to pass data to iterator functions. */
378 typedef struct symname_search_data_t
382 } symname_search_data_type
;
384 typedef struct identify_data_t
386 dll_name_list_type
*list
;
387 bool ms_style_implib
;
388 } identify_data_type
;
391 static char *head_label
;
392 static char *imp_name_lab
;
393 static char *dll_name
;
394 static int dll_name_set_by_exp_name
;
395 static int add_indirect
= 0;
396 static int add_underscore
= 0;
397 static int add_stdcall_underscore
= 0;
398 /* This variable can hold three different values. The value
399 -1 (default) means that default underscoring should be used,
400 zero means that no underscoring should be done, and one
401 indicates that underscoring should be done. */
402 static int leading_underscore
= -1;
403 static int dontdeltemps
= 0;
405 /* TRUE if we should export all symbols. Otherwise, we only export
406 symbols listed in .drectve sections or in the def file. */
407 static bool export_all_symbols
;
409 /* TRUE if we should exclude the symbols in DEFAULT_EXCLUDES when
410 exporting all symbols. */
411 static bool do_default_excludes
= true;
413 static bool use_nul_prefixed_import_tables
= false;
415 /* Default symbols to exclude when exporting all the symbols. */
416 static const char *default_excludes
= "DllMain@12,DllEntryPoint@0,impure_ptr";
418 /* TRUE if we should add __imp_<SYMBOL> to import libraries for backward
419 compatibility to old Cygwin releases. */
420 static bool create_compat_implib
;
422 /* TRUE if we have to write PE+ import libraries. */
423 static bool create_for_pep
;
425 static char *def_file
;
427 extern char * program_name
;
431 static int add_stdcall_alias
;
432 static const char *ext_prefix_alias
;
434 static FILE *output_def
;
435 static FILE *base_file
;
437 #ifdef DLLTOOL_DEFAULT_ARM
438 static const char *mname
= "arm";
441 #ifdef DLLTOOL_DEFAULT_ARM_WINCE
442 static const char *mname
= "arm-wince";
445 #ifdef DLLTOOL_DEFAULT_AARCH64
446 /* arm64 rather than aarch64 to match llvm-dlltool */
447 static const char *mname
= "arm64";
450 #ifdef DLLTOOL_DEFAULT_I386
451 static const char *mname
= "i386";
454 #ifdef DLLTOOL_DEFAULT_MX86_64
455 static const char *mname
= "i386:x86-64";
458 #ifdef DLLTOOL_DEFAULT_SH
459 static const char *mname
= "sh";
462 #ifdef DLLTOOL_DEFAULT_MIPS
463 static const char *mname
= "mips";
466 #ifdef DLLTOOL_DEFAULT_MCORE
467 static const char * mname
= "mcore-le";
470 #ifdef DLLTOOL_DEFAULT_MCORE_ELF
471 static const char * mname
= "mcore-elf";
472 static char * mcore_elf_out_file
= NULL
;
473 static char * mcore_elf_linker
= NULL
;
474 static char * mcore_elf_linker_flags
= NULL
;
476 #define DRECTVE_SECTION_NAME ((machine == MMCORE_ELF || machine == MMCORE_ELF_LE) ? ".exports" : ".drectve")
479 #ifndef DRECTVE_SECTION_NAME
480 #define DRECTVE_SECTION_NAME ".drectve"
483 /* What's the right name for this ? */
486 /* External name alias numbering starts here. */
487 #define PREFIX_ALIAS_BASE 20000
490 char *tmp_head_s_buf
;
491 char *tmp_head_o_buf
;
492 char *tmp_tail_s_buf
;
493 char *tmp_tail_o_buf
;
496 #define TMP_ASM dlltmp (&tmp_asm_buf, "%sc.s")
497 #define TMP_HEAD_S dlltmp (&tmp_head_s_buf, "%sh.s")
498 #define TMP_HEAD_O dlltmp (&tmp_head_o_buf, "%sh.o")
499 #define TMP_TAIL_S dlltmp (&tmp_tail_s_buf, "%st.s")
500 #define TMP_TAIL_O dlltmp (&tmp_tail_o_buf, "%st.o")
501 #define TMP_STUB dlltmp (&tmp_stub_buf, "%ss")
503 /* This bit of assembly does jmp * .... */
504 static const unsigned char i386_jtab
[] =
506 0xff, 0x25, 0x00, 0x00, 0x00, 0x00, 0x90, 0x90
509 static const unsigned char i386_dljtab
[] =
511 0xFF, 0x25, 0x00, 0x00, 0x00, 0x00, /* jmp __imp__function */
512 0xB8, 0x00, 0x00, 0x00, 0x00, /* mov eax, offset __imp__function */
513 0xE9, 0x00, 0x00, 0x00, 0x00 /* jmp __tailMerge__dllname */
516 static const unsigned char i386_x64_dljtab
[] =
518 0xFF, 0x25, 0x00, 0x00, 0x00, 0x00, /* jmp __imp__function */
519 0x48, 0x8d, 0x05, /* leaq rax, (__imp__function) */
520 0x00, 0x00, 0x00, 0x00,
521 0xE9, 0x00, 0x00, 0x00, 0x00 /* jmp __tailMerge__dllname */
524 static const unsigned char arm_jtab
[] =
526 0x00, 0xc0, 0x9f, 0xe5, /* ldr ip, [pc] */
527 0x00, 0xf0, 0x9c, 0xe5, /* ldr pc, [ip] */
531 static const unsigned char arm_interwork_jtab
[] =
533 0x04, 0xc0, 0x9f, 0xe5, /* ldr ip, [pc] */
534 0x00, 0xc0, 0x9c, 0xe5, /* ldr ip, [ip] */
535 0x1c, 0xff, 0x2f, 0xe1, /* bx ip */
539 static const unsigned char thumb_jtab
[] =
541 0x40, 0xb4, /* push {r6} */
542 0x02, 0x4e, /* ldr r6, [pc, #8] */
543 0x36, 0x68, /* ldr r6, [r6] */
544 0xb4, 0x46, /* mov ip, r6 */
545 0x40, 0xbc, /* pop {r6} */
546 0x60, 0x47, /* bx ip */
550 static const unsigned char mcore_be_jtab
[] =
552 0x71, 0x02, /* lrw r1,2 */
553 0x81, 0x01, /* ld.w r1,(r1,0) */
554 0x00, 0xC1, /* jmp r1 */
555 0x12, 0x00, /* nop */
556 0x00, 0x00, 0x00, 0x00 /* <address> */
559 static const unsigned char mcore_le_jtab
[] =
561 0x02, 0x71, /* lrw r1,2 */
562 0x01, 0x81, /* ld.w r1,(r1,0) */
563 0xC1, 0x00, /* jmp r1 */
564 0x00, 0x12, /* nop */
565 0x00, 0x00, 0x00, 0x00 /* <address> */
568 static const unsigned char aarch64_jtab
[] =
570 0x10, 0x00, 0x00, 0x90, /* adrp x16, 0 */
571 0x10, 0x02, 0x00, 0x91, /* add x16, x16, #0x0 */
572 0x10, 0x02, 0x40, 0xf9, /* ldr x16, [x16] */
573 0x00, 0x02, 0x1f, 0xd6 /* br x16 */
576 static const char i386_trampoline
[] =
580 "\tpushl $__DELAY_IMPORT_DESCRIPTOR_%s\n"
581 "\tcall ___delayLoadHelper2@8\n"
586 static const char i386_x64_trampoline
[] =
587 "\tsubq $72, %%rsp\n"
588 "\t.seh_stackalloc 72\n"
589 "\t.seh_endprologue\n"
590 "\tmovq %%rcx, 64(%%rsp)\n"
591 "\tmovq %%rdx, 56(%%rsp)\n"
592 "\tmovq %%r8, 48(%%rsp)\n"
593 "\tmovq %%r9, 40(%%rsp)\n"
594 "\tmovq %%rax, %%rdx\n"
595 "\tleaq __DELAY_IMPORT_DESCRIPTOR_%s(%%rip), %%rcx\n"
596 "\tcall __delayLoadHelper2\n"
597 "\tmovq 40(%%rsp), %%r9\n"
598 "\tmovq 48(%%rsp), %%r8\n"
599 "\tmovq 56(%%rsp), %%rdx\n"
600 "\tmovq 64(%%rsp), %%rcx\n"
601 "\taddq $72, %%rsp\n"
607 const char *how_byte
;
608 const char *how_short
;
609 const char *how_long
;
610 const char *how_asciz
;
611 const char *how_comment
;
612 const char *how_jump
;
613 const char *how_global
;
614 const char *how_space
;
615 const char *how_align_short
;
616 const char *how_align_long
;
617 const char *how_default_as_switches
;
618 const char *how_bfd_target
;
619 enum bfd_architecture how_bfd_arch
;
620 const unsigned char *how_jtab
;
621 int how_jtab_size
; /* Size of the jtab entry. */
622 int how_jtab_roff
; /* Offset into it for the ind 32 reloc into idata 5. */
623 const unsigned char *how_dljtab
;
624 int how_dljtab_size
; /* Size of the dljtab entry. */
625 int how_dljtab_roff1
; /* Offset for the ind 32 reloc into idata 5. */
626 int how_dljtab_roff2
; /* Offset for the ind 32 reloc into idata 5. */
627 int how_dljtab_roff3
; /* Offset for the ind 32 reloc into idata 5. */
629 const char *trampoline
;
632 static const struct mac
637 "arm", ".byte", ".short", ".long", ".asciz", "@",
638 "ldr\tip,[pc]\n\tldr\tpc,[ip]\n\t.long",
639 ".global", ".space", ".align\t2",".align\t4", "-mapcs-32",
640 "pe-arm-little", bfd_arch_arm
,
641 arm_jtab
, sizeof (arm_jtab
), 8,
642 0, 0, 0, 0, 0, false, 0
647 "i386", ".byte", ".short", ".long", ".asciz", "#",
648 "jmp *", ".global", ".space", ".align\t2",".align\t4", "",
649 "pe-i386",bfd_arch_i386
,
650 i386_jtab
, sizeof (i386_jtab
), 2,
651 i386_dljtab
, sizeof (i386_dljtab
), 2, 7, 12, false, i386_trampoline
656 "thumb", ".byte", ".short", ".long", ".asciz", "@",
657 "push\t{r6}\n\tldr\tr6, [pc, #8]\n\tldr\tr6, [r6]\n\tmov\tip, r6\n\tpop\t{r6}\n\tbx\tip",
658 ".global", ".space", ".align\t2",".align\t4", "-mthumb-interwork",
659 "pe-arm-little", bfd_arch_arm
,
660 thumb_jtab
, sizeof (thumb_jtab
), 12,
661 0, 0, 0, 0, 0, false, 0
664 #define MARM_INTERWORK 3
666 "arm_interwork", ".byte", ".short", ".long", ".asciz", "@",
667 "ldr\tip,[pc]\n\tldr\tip,[ip]\n\tbx\tip\n\t.long",
668 ".global", ".space", ".align\t2",".align\t4", "-mthumb-interwork",
669 "pe-arm-little", bfd_arch_arm
,
670 arm_interwork_jtab
, sizeof (arm_interwork_jtab
), 12,
671 0, 0, 0, 0, 0, false, 0
676 "mcore-be", ".byte", ".short", ".long", ".asciz", "//",
677 "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
678 ".global", ".space", ".align\t2",".align\t4", "",
679 "pe-mcore-big", bfd_arch_mcore
,
680 mcore_be_jtab
, sizeof (mcore_be_jtab
), 8,
681 0, 0, 0, 0, 0, false, 0
686 "mcore-le", ".byte", ".short", ".long", ".asciz", "//",
687 "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
688 ".global", ".space", ".align\t2",".align\t4", "-EL",
689 "pe-mcore-little", bfd_arch_mcore
,
690 mcore_le_jtab
, sizeof (mcore_le_jtab
), 8,
691 0, 0, 0, 0, 0, false, 0
696 "mcore-elf-be", ".byte", ".short", ".long", ".asciz", "//",
697 "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
698 ".global", ".space", ".align\t2",".align\t4", "",
699 "elf32-mcore-big", bfd_arch_mcore
,
700 mcore_be_jtab
, sizeof (mcore_be_jtab
), 8,
701 0, 0, 0, 0, 0, false, 0
705 #define MMCORE_ELF_LE 7
706 "mcore-elf-le", ".byte", ".short", ".long", ".asciz", "//",
707 "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
708 ".global", ".space", ".align\t2",".align\t4", "-EL",
709 "elf32-mcore-little", bfd_arch_mcore
,
710 mcore_le_jtab
, sizeof (mcore_le_jtab
), 8,
711 0, 0, 0, 0, 0, false, 0
716 "arm-wince", ".byte", ".short", ".long", ".asciz", "@",
717 "ldr\tip,[pc]\n\tldr\tpc,[ip]\n\t.long",
718 ".global", ".space", ".align\t2",".align\t4", "-mapcs-32",
719 "pe-arm-wince-little", bfd_arch_arm
,
720 arm_jtab
, sizeof (arm_jtab
), 8,
721 0, 0, 0, 0, 0, false, 0
726 "i386:x86-64", ".byte", ".short", ".long", ".asciz", "#",
727 "jmp *", ".global", ".space", ".align\t2",".align\t4", "",
728 "pe-x86-64",bfd_arch_i386
,
729 i386_jtab
, sizeof (i386_jtab
), 2,
730 i386_x64_dljtab
, sizeof (i386_x64_dljtab
), 2, 9, 14, true, i386_x64_trampoline
735 "arm64", ".byte", ".short", ".long", ".asciz", "//",
736 "bl ", ".global", ".space", ".balign\t2", ".balign\t4", "",
737 "pe-aarch64-little", bfd_arch_aarch64
,
738 aarch64_jtab
, sizeof (aarch64_jtab
), 0,
739 0, 0, 0, 0, 0, false, 0
742 { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }
752 typedef struct export
755 const char *internal_name
;
756 const char *import_name
;
757 const char *its_name
;
760 int noname
; /* Don't put name in image file. */
761 int private; /* Don't put reference in import lib. */
763 int forward
; /* Number of forward label, 0 means no forward. */
768 /* A list of symbols which we should not export. */
772 struct string_list
*next
;
776 static struct string_list
*excludes
;
778 static const char *rvaafter (int);
779 static const char *rvabefore (int);
780 static const char *asm_prefix (int, const char *);
781 static void process_def_file (const char *);
782 static void new_directive (char *);
783 static void append_import (const char *, const char *, int, const char *);
784 static void run (const char *, char *);
785 static void scan_drectve_symbols (bfd
*);
786 static void scan_filtered_symbols (bfd
*, void *, long, unsigned int);
787 static void add_excludes (const char *);
788 static bool match_exclude (const char *);
789 static void set_default_excludes (void);
790 static long filter_symbols (bfd
*, void *, long, unsigned int);
791 static void scan_all_symbols (bfd
*);
792 static void scan_open_obj_file (bfd
*);
793 static void scan_obj_file (const char *);
794 static void dump_def_info (FILE *);
795 static int sfunc (const void *, const void *);
796 static void flush_page (FILE *, bfd_vma
*, bfd_vma
, int);
797 static void gen_def_file (void);
798 static void generate_idata_ofile (FILE *);
799 static void assemble_file (const char *, const char *);
800 static void gen_exp_file (void);
801 static const char *xlate (const char *);
802 static char *make_label (const char *, const char *);
803 static char *make_imp_label (const char *, const char *);
804 static bfd
*make_one_lib_file (export_type
*, int, int);
805 static bfd
*make_head (void);
806 static bfd
*make_tail (void);
807 static bfd
*make_delay_head (void);
808 static void gen_lib_file (int);
809 static void dll_name_list_append (dll_name_list_type
*, bfd_byte
*);
810 static int dll_name_list_count (dll_name_list_type
*);
811 static void dll_name_list_print (dll_name_list_type
*);
812 static void dll_name_list_free_contents (dll_name_list_node_type
*);
813 static void dll_name_list_free (dll_name_list_type
*);
814 static dll_name_list_type
* dll_name_list_create (void);
815 static void identify_dll_for_implib (void);
816 static void identify_search_archive
817 (bfd
*, void (*) (bfd
*, bfd
*, void *), void *);
818 static void identify_search_member (bfd
*, bfd
*, void *);
819 static bool identify_process_section_p (asection
*, bool);
820 static void identify_search_section (bfd
*, asection
*, void *);
821 static void identify_member_contains_symname (bfd
*, bfd
*, void *);
823 static int pfunc (const void *, const void *);
824 static int nfunc (const void *, const void *);
825 static void remove_null_names (export_type
**);
826 static void process_duplicates (export_type
**);
827 static void fill_ordinals (export_type
**);
828 static void mangle_defs (void);
829 static void usage (FILE *, int);
830 static void inform (const char *, ...) ATTRIBUTE_PRINTF_1
;
831 static void set_dll_name_from_def (const char *name
, char is_dll
);
834 prefix_encode (char *start
, unsigned code
)
836 static char alpha
[26] = "abcdefghijklmnopqrstuvwxyz";
840 p
= strchr (buf
, '\0');
842 *p
++ = alpha
[code
% sizeof (alpha
)];
843 while ((code
/= sizeof (alpha
)) != 0);
849 dlltmp (char **buf
, const char *fmt
)
853 *buf
= malloc (strlen (tmp_prefix
) + 64);
854 sprintf (*buf
, fmt
, tmp_prefix
);
860 inform (const char * message
, ...)
864 va_start (args
, message
);
869 report (message
, args
);
892 /* xgettext:c-format */
893 fatal (_("Internal error: Unknown machine type: %d"), mach
);
917 /* xgettext:c-format */
918 fatal (_("Internal error: Unknown machine type: %d"), mach
);
925 asm_prefix (int mach
, const char *name
)
941 /* Symbol names starting with ? do not have a leading underscore. */
942 if ((name
&& *name
== '?') || leading_underscore
== 0)
947 /* xgettext:c-format */
948 fatal (_("Internal error: Unknown machine type: %d"), mach
);
954 #define ASM_BYTE mtable[machine].how_byte
955 #define ASM_SHORT mtable[machine].how_short
956 #define ASM_LONG mtable[machine].how_long
957 #define ASM_TEXT mtable[machine].how_asciz
958 #define ASM_C mtable[machine].how_comment
959 #define ASM_JUMP mtable[machine].how_jump
960 #define ASM_GLOBAL mtable[machine].how_global
961 #define ASM_SPACE mtable[machine].how_space
962 #define ASM_ALIGN_SHORT mtable[machine].how_align_short
963 #define ASM_RVA_BEFORE rvabefore (machine)
964 #define ASM_RVA_AFTER rvaafter (machine)
965 #define ASM_PREFIX(NAME) asm_prefix (machine, (NAME))
966 #define ASM_ALIGN_LONG mtable[machine].how_align_long
967 #define HOW_BFD_READ_TARGET 0 /* Always default. */
968 #define HOW_BFD_WRITE_TARGET mtable[machine].how_bfd_target
969 #define HOW_BFD_ARCH mtable[machine].how_bfd_arch
970 #define HOW_JTAB (delay ? mtable[machine].how_dljtab \
971 : mtable[machine].how_jtab)
972 #define HOW_JTAB_SIZE (delay ? mtable[machine].how_dljtab_size \
973 : mtable[machine].how_jtab_size)
974 #define HOW_JTAB_ROFF (delay ? mtable[machine].how_dljtab_roff1 \
975 : mtable[machine].how_jtab_roff)
976 #define HOW_JTAB_ROFF2 (delay ? mtable[machine].how_dljtab_roff2 : 0)
977 #define HOW_JTAB_ROFF3 (delay ? mtable[machine].how_dljtab_roff3 : 0)
978 #define ASM_SWITCHES mtable[machine].how_default_as_switches
979 #define HOW_SEH mtable[machine].how_seh
984 process_def_file (const char *name
)
986 FILE *f
= fopen (name
, FOPEN_RT
);
989 /* xgettext:c-format */
990 fatal (_("Can't open def file: %s"), name
);
994 /* xgettext:c-format */
995 inform (_("Processing def file: %s"), name
);
999 inform (_("Processed def file"));
1002 /**********************************************************************/
1004 /* Communications with the parser. */
1006 static int d_nfuncs
; /* Number of functions exported. */
1007 static int d_named_nfuncs
; /* Number of named functions exported. */
1008 static int d_low_ord
; /* Lowest ordinal index. */
1009 static int d_high_ord
; /* Highest ordinal index. */
1010 static export_type
*d_exports
; /* List of exported functions. */
1011 static export_type
**d_exports_lexically
; /* Vector of exported functions in alpha order. */
1012 static dlist_type
*d_list
; /* Descriptions. */
1013 static dlist_type
*a_list
; /* Stuff to go in directives. */
1014 static int d_nforwards
= 0; /* Number of forwarded exports. */
1016 static int d_is_dll
;
1017 static int d_is_exe
;
1020 yyerror (const char * err ATTRIBUTE_UNUSED
)
1022 /* xgettext:c-format */
1023 non_fatal (_("Syntax error in def file %s:%d"), def_file
, linenumber
);
1027 def_exports (const char *name
, const char *internal_name
, int ordinal
,
1028 int noname
, int constant
, int data
, int private,
1029 const char *its_name
)
1031 struct export
*p
= (struct export
*) xmalloc (sizeof (*p
));
1034 p
->internal_name
= internal_name
? internal_name
: name
;
1035 p
->its_name
= its_name
;
1036 p
->import_name
= name
;
1037 p
->ordinal
= ordinal
;
1038 p
->constant
= constant
;
1040 p
->private = private;
1042 p
->next
= d_exports
;
1046 if ((internal_name
!= NULL
)
1047 && (strchr (internal_name
, '.') != NULL
))
1048 p
->forward
= ++d_nforwards
;
1050 p
->forward
= 0; /* no forward */
1054 set_dll_name_from_def (const char *name
, char is_dll
)
1056 const char *image_basename
= lbasename (name
);
1057 if (image_basename
!= name
)
1058 non_fatal (_("%s: Path components stripped from image name, '%s'."),
1060 /* Append the default suffix, if none specified. */
1061 if (strchr (image_basename
, '.') == 0)
1063 const char * suffix
= is_dll
? ".dll" : ".exe";
1065 dll_name
= xmalloc (strlen (image_basename
) + strlen (suffix
) + 1);
1066 sprintf (dll_name
, "%s%s", image_basename
, suffix
);
1069 dll_name
= xstrdup (image_basename
);
1073 def_name (const char *name
, int base
)
1075 /* xgettext:c-format */
1076 inform (_("NAME: %s base: %x"), name
, base
);
1079 non_fatal (_("Can't have LIBRARY and NAME"));
1081 if (dll_name_set_by_exp_name
&& name
&& *name
!= 0)
1084 dll_name_set_by_exp_name
= 0;
1086 /* If --dllname not provided, use the one in the DEF file.
1087 FIXME: Is this appropriate for executables? */
1089 set_dll_name_from_def (name
, 0);
1094 def_library (const char *name
, int base
)
1096 /* xgettext:c-format */
1097 inform (_("LIBRARY: %s base: %x"), name
, base
);
1100 non_fatal (_("Can't have LIBRARY and NAME"));
1102 if (dll_name_set_by_exp_name
&& name
&& *name
!= 0)
1105 dll_name_set_by_exp_name
= 0;
1108 /* If --dllname not provided, use the one in the DEF file. */
1110 set_dll_name_from_def (name
, 1);
1115 def_description (const char *desc
)
1117 dlist_type
*d
= (dlist_type
*) xmalloc (sizeof (dlist_type
));
1118 d
->text
= xstrdup (desc
);
1124 new_directive (char *dir
)
1126 dlist_type
*d
= (dlist_type
*) xmalloc (sizeof (dlist_type
));
1127 d
->text
= xstrdup (dir
);
1133 def_heapsize (int reserve
, int commit
)
1137 sprintf (b
, "-heap 0x%x,0x%x ", reserve
, commit
);
1139 sprintf (b
, "-heap 0x%x ", reserve
);
1140 new_directive (xstrdup (b
));
1144 def_stacksize (int reserve
, int commit
)
1148 sprintf (b
, "-stack 0x%x,0x%x ", reserve
, commit
);
1150 sprintf (b
, "-stack 0x%x ", reserve
);
1151 new_directive (xstrdup (b
));
1154 /* append_import simply adds the given import definition to the global
1155 import_list. It is used by def_import. */
1158 append_import (const char *symbol_name
, const char *dllname
, int func_ordinal
,
1159 const char *its_name
)
1164 for (pq
= &import_list
; *pq
!= NULL
; pq
= &(*pq
)->next
)
1166 if (strcmp ((*pq
)->dllname
, dllname
) == 0)
1169 q
->functail
->next
= xmalloc (sizeof (ifunctype
));
1170 q
->functail
= q
->functail
->next
;
1171 q
->functail
->ord
= func_ordinal
;
1172 q
->functail
->name
= xstrdup (symbol_name
);
1173 q
->functail
->its_name
= (its_name
? xstrdup (its_name
) : NULL
);
1174 q
->functail
->next
= NULL
;
1180 q
= xmalloc (sizeof (iheadtype
));
1181 q
->dllname
= xstrdup (dllname
);
1183 q
->funchead
= xmalloc (sizeof (ifunctype
));
1184 q
->functail
= q
->funchead
;
1186 q
->functail
->name
= xstrdup (symbol_name
);
1187 q
->functail
->its_name
= (its_name
? xstrdup (its_name
) : NULL
);
1188 q
->functail
->ord
= func_ordinal
;
1189 q
->functail
->next
= NULL
;
1194 /* def_import is called from within defparse.y when an IMPORT
1195 declaration is encountered. Depending on the form of the
1196 declaration, the module name may or may not need ".dll" to be
1197 appended to it, the name of the function may be stored in internal
1198 or entry, and there may or may not be an ordinal value associated
1201 /* A note regarding the parse modes:
1202 In defparse.y we have to accept import declarations which follow
1203 any one of the following forms:
1204 <func_name_in_app> = <dll_name>.<func_name_in_dll>
1205 <func_name_in_app> = <dll_name>.<number>
1206 <dll_name>.<func_name_in_dll>
1208 Furthermore, the dll's name may or may not end with ".dll", which
1209 complicates the parsing a little. Normally the dll's name is
1210 passed to def_import() in the "module" parameter, but when it ends
1211 with ".dll" it gets passed in "module" sans ".dll" and that needs
1214 def_import gets five parameters:
1215 APP_NAME - the name of the function in the application, if
1216 present, or NULL if not present.
1217 MODULE - the name of the dll, possibly sans extension (ie, '.dll').
1218 DLLEXT - the extension of the dll, if present, NULL if not present.
1219 ENTRY - the name of the function in the dll, if present, or NULL.
1220 ORD_VAL - the numerical tag of the function in the dll, if present,
1221 or NULL. Exactly one of <entry> or <ord_val> must be
1222 present (i.e., not NULL). */
1225 def_import (const char *app_name
, const char *module
, const char *dllext
,
1226 const char *entry
, int ord_val
, const char *its_name
)
1228 const char *application_name
;
1232 application_name
= entry
;
1235 if (app_name
!= NULL
)
1236 application_name
= app_name
;
1238 application_name
= "";
1242 module
= buf
= concat (module
, ".", dllext
, NULL
);
1244 append_import (application_name
, module
, ord_val
, its_name
);
1250 def_version (int major
, int minor
)
1252 printf (_("VERSION %d.%d\n"), major
, minor
);
1256 def_section (const char *name
, int attr
)
1271 sprintf (buf
, "-attr %s %s", name
, atts
);
1272 new_directive (xstrdup (buf
));
1279 def_section ("CODE", attr
);
1285 def_section ("DATA", attr
);
1288 /**********************************************************************/
1291 run (const char *what
, char *args
)
1294 int pid
, wait_status
;
1297 char *errmsg_fmt
= NULL
, *errmsg_arg
= NULL
;
1298 char *temp_base
= make_temp_file ("");
1300 inform (_("run: %s %s"), what
, args
);
1302 /* Count the args */
1304 for (s
= args
; *s
; s
++)
1308 argv
= xmalloc (sizeof (char *) * (i
+ 3));
1317 while (*s
!= ' ' && *s
!= 0)
1325 pid
= pexecute (argv
[0], (char * const *) argv
, program_name
, temp_base
,
1326 &errmsg_fmt
, &errmsg_arg
, PEXECUTE_ONE
| PEXECUTE_SEARCH
);
1331 inform ("%s", strerror (errno
));
1333 fatal (errmsg_fmt
, errmsg_arg
);
1336 pid
= pwait (pid
, & wait_status
, 0);
1340 /* xgettext:c-format */
1341 fatal (_("wait: %s"), strerror (errno
));
1343 else if (WIFSIGNALED (wait_status
))
1345 /* xgettext:c-format */
1346 fatal (_("subprocess got fatal signal %d"), WTERMSIG (wait_status
));
1348 else if (WIFEXITED (wait_status
))
1350 if (WEXITSTATUS (wait_status
) != 0)
1351 /* xgettext:c-format */
1352 non_fatal (_("%s exited with status %d"),
1353 what
, WEXITSTATUS (wait_status
));
1359 /* Look for a list of symbols to export in the .drectve section of
1360 ABFD. Pass each one to def_exports. */
1363 scan_drectve_symbols (bfd
*abfd
)
1371 /* Look for .drectve's */
1372 s
= bfd_get_section_by_name (abfd
, DRECTVE_SECTION_NAME
);
1377 size
= bfd_section_size (s
);
1378 buf
= xmalloc (size
);
1380 bfd_get_section_contents (abfd
, s
, buf
, 0, size
);
1382 /* xgettext:c-format */
1383 inform (_("Sucking in info from %s section in %s"),
1384 DRECTVE_SECTION_NAME
, bfd_get_filename (abfd
));
1386 /* Search for -export: strings. The exported symbols can optionally
1387 have type tags (eg., -export:foo,data), so handle those as well.
1388 Currently only data tag is supported. */
1394 && startswith (p
, "-export:"))
1398 flagword flags
= BSF_FUNCTION
;
1401 /* Do we have a quoted export? */
1406 while (p
< e
&& *p
!= '"')
1412 while (p
< e
&& *p
!= ',' && *p
!= ' ' && *p
!= '-')
1415 c
= xmalloc (p
- name
+ 1);
1416 memcpy (c
, name
, p
- name
);
1418 /* Advance over trailing quote. */
1419 if (p
< e
&& *p
== '"')
1421 if (p
< e
&& *p
== ',') /* found type tag. */
1423 char *tag_start
= ++p
;
1424 while (p
< e
&& *p
!= ' ' && *p
!= '-')
1426 if (startswith (tag_start
, "data"))
1427 flags
&= ~BSF_FUNCTION
;
1430 /* FIXME: The 5th arg is for the `constant' field.
1431 What should it be? Not that it matters since it's not
1432 currently useful. */
1433 def_exports (c
, 0, -1, 0, 0, ! (flags
& BSF_FUNCTION
), 0, NULL
);
1435 if (add_stdcall_alias
&& strchr (c
, '@'))
1437 int lead_at
= (*c
== '@') ;
1438 char *exported_name
= xstrdup (c
+ lead_at
);
1439 char *atsym
= strchr (exported_name
, '@');
1441 /* Note: stdcall alias symbols can never be data. */
1442 def_exports (exported_name
, xstrdup (c
), -1, 0, 0, 0, 0, NULL
);
1451 /* Look through the symbols in MINISYMS, and add each one to list of
1452 symbols to export. */
1455 scan_filtered_symbols (bfd
*abfd
, void *minisyms
, long symcount
,
1459 bfd_byte
*from
, *fromend
;
1461 store
= bfd_make_empty_symbol (abfd
);
1463 bfd_fatal (bfd_get_filename (abfd
));
1465 from
= (bfd_byte
*) minisyms
;
1466 fromend
= from
+ symcount
* size
;
1467 for (; from
< fromend
; from
+= size
)
1470 const char *symbol_name
;
1472 sym
= bfd_minisymbol_to_symbol (abfd
, false, from
, store
);
1474 bfd_fatal (bfd_get_filename (abfd
));
1476 symbol_name
= bfd_asymbol_name (sym
);
1477 if (bfd_get_symbol_leading_char (abfd
) == symbol_name
[0])
1480 def_exports (xstrdup (symbol_name
) , 0, -1, 0, 0,
1481 ! (sym
->flags
& BSF_FUNCTION
), 0, NULL
);
1483 if (add_stdcall_alias
&& strchr (symbol_name
, '@'))
1485 int lead_at
= (*symbol_name
== '@');
1486 char *exported_name
= xstrdup (symbol_name
+ lead_at
);
1487 char *atsym
= strchr (exported_name
, '@');
1489 /* Note: stdcall alias symbols can never be data. */
1490 def_exports (exported_name
, xstrdup (symbol_name
), -1, 0, 0, 0, 0, NULL
);
1495 /* Add a list of symbols to exclude. */
1498 add_excludes (const char *new_excludes
)
1501 char *exclude_string
;
1503 local_copy
= xstrdup (new_excludes
);
1505 exclude_string
= strtok (local_copy
, ",:");
1506 for (; exclude_string
; exclude_string
= strtok (NULL
, ",:"))
1508 struct string_list
*new_exclude
;
1510 new_exclude
= ((struct string_list
*)
1511 xmalloc (sizeof (struct string_list
)));
1512 new_exclude
->string
= (char *) xmalloc (strlen (exclude_string
) + 2);
1513 /* Don't add a leading underscore for fastcall symbols. */
1514 if (*exclude_string
== '@')
1515 sprintf (new_exclude
->string
, "%s", exclude_string
);
1517 sprintf (new_exclude
->string
, "%s%s", (!leading_underscore
? "" : "_"),
1519 new_exclude
->next
= excludes
;
1520 excludes
= new_exclude
;
1522 /* xgettext:c-format */
1523 inform (_("Excluding symbol: %s"), exclude_string
);
1529 /* See if STRING is on the list of symbols to exclude. */
1532 match_exclude (const char *string
)
1534 struct string_list
*excl_item
;
1536 for (excl_item
= excludes
; excl_item
; excl_item
= excl_item
->next
)
1537 if (strcmp (string
, excl_item
->string
) == 0)
1542 /* Add the default list of symbols to exclude. */
1545 set_default_excludes (void)
1547 add_excludes (default_excludes
);
1550 /* Choose which symbols to export. */
1553 filter_symbols (bfd
*abfd
, void *minisyms
, long symcount
, unsigned int size
)
1555 bfd_byte
*from
, *fromend
, *to
;
1558 store
= bfd_make_empty_symbol (abfd
);
1560 bfd_fatal (bfd_get_filename (abfd
));
1562 from
= (bfd_byte
*) minisyms
;
1563 fromend
= from
+ symcount
* size
;
1564 to
= (bfd_byte
*) minisyms
;
1566 for (; from
< fromend
; from
+= size
)
1571 sym
= bfd_minisymbol_to_symbol (abfd
, false, (const void *) from
, store
);
1573 bfd_fatal (bfd_get_filename (abfd
));
1575 /* Check for external and defined only symbols. */
1576 keep
= (((sym
->flags
& BSF_GLOBAL
) != 0
1577 || (sym
->flags
& BSF_WEAK
) != 0
1578 || bfd_is_com_section (sym
->section
))
1579 && ! bfd_is_und_section (sym
->section
));
1581 keep
= keep
&& ! match_exclude (sym
->name
);
1585 memcpy (to
, from
, size
);
1590 return (to
- (bfd_byte
*) minisyms
) / size
;
1593 /* Export all symbols in ABFD, except for ones we were told not to
1597 scan_all_symbols (bfd
*abfd
)
1603 /* Ignore bfds with an import descriptor table. We assume that any
1604 such BFD contains symbols which are exported from another DLL,
1605 and we don't want to reexport them from here. */
1606 if (bfd_get_section_by_name (abfd
, ".idata$4"))
1609 if (! (bfd_get_file_flags (abfd
) & HAS_SYMS
))
1611 /* xgettext:c-format */
1612 non_fatal (_("%s: no symbols"), bfd_get_filename (abfd
));
1616 symcount
= bfd_read_minisymbols (abfd
, false, &minisyms
, &size
);
1618 bfd_fatal (bfd_get_filename (abfd
));
1622 /* xgettext:c-format */
1623 non_fatal (_("%s: no symbols"), bfd_get_filename (abfd
));
1627 /* Discard the symbols we don't want to export. It's OK to do this
1628 in place; we'll free the storage anyway. */
1630 symcount
= filter_symbols (abfd
, minisyms
, symcount
, size
);
1631 scan_filtered_symbols (abfd
, minisyms
, symcount
, size
);
1636 /* Look at the object file to decide which symbols to export. */
1639 scan_open_obj_file (bfd
*abfd
)
1641 if (export_all_symbols
)
1642 scan_all_symbols (abfd
);
1644 scan_drectve_symbols (abfd
);
1646 /* FIXME: we ought to read in and block out the base relocations. */
1648 /* xgettext:c-format */
1649 inform (_("Done reading %s"), bfd_get_filename (abfd
));
1653 scan_obj_file (const char *filename
)
1655 bfd
* f
= bfd_openr (filename
, 0);
1658 /* xgettext:c-format */
1659 fatal (_("Unable to open object file: %s: %s"), filename
, bfd_get_errmsg ());
1661 /* xgettext:c-format */
1662 inform (_("Scanning object file %s"), filename
);
1664 if (bfd_check_format (f
, bfd_archive
))
1666 bfd
*arfile
= bfd_openr_next_archived_file (f
, 0);
1670 if (bfd_check_format (arfile
, bfd_object
))
1671 scan_open_obj_file (arfile
);
1672 next
= bfd_openr_next_archived_file (f
, arfile
);
1674 /* PR 17512: file: 58715298. */
1680 #ifdef DLLTOOL_MCORE_ELF
1681 if (mcore_elf_out_file
)
1682 inform (_("Cannot produce mcore-elf dll from archive file: %s"), filename
);
1685 else if (bfd_check_format (f
, bfd_object
))
1687 scan_open_obj_file (f
);
1689 #ifdef DLLTOOL_MCORE_ELF
1690 if (mcore_elf_out_file
)
1691 mcore_elf_cache_filename (filename
);
1701 dump_def_info (FILE *f
)
1705 fprintf (f
, "%s ", ASM_C
);
1706 for (i
= 0; oav
[i
]; i
++)
1707 fprintf (f
, "%s ", oav
[i
]);
1709 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
1711 fprintf (f
, "%s %d = %s %s @ %d %s%s%s%s%s%s\n",
1717 exp
->noname
? "NONAME " : "",
1718 exp
->private ? "PRIVATE " : "",
1719 exp
->constant
? "CONSTANT" : "",
1720 exp
->data
? "DATA" : "",
1721 exp
->its_name
? " ==" : "",
1722 exp
->its_name
? exp
->its_name
: "");
1726 /* Generate the .exp file. */
1729 sfunc (const void *a
, const void *b
)
1731 if (*(const bfd_vma
*) a
== *(const bfd_vma
*) b
)
1734 return ((*(const bfd_vma
*) a
> *(const bfd_vma
*) b
) ? 1 : -1);
1738 flush_page (FILE *f
, bfd_vma
*need
, bfd_vma page_addr
, int on_page
)
1742 /* Flush this page. */
1743 fprintf (f
, "\t%s\t0x%08x\t%s Starting RVA for chunk\n",
1747 fprintf (f
, "\t%s\t0x%x\t%s Size of block\n",
1749 (on_page
* 2) + (on_page
& 1) * 2 + 8,
1752 for (i
= 0; i
< on_page
; i
++)
1754 bfd_vma needed
= need
[i
];
1758 if (!create_for_pep
)
1760 /* Relocation via HIGHLOW. */
1761 needed
= ((needed
- page_addr
) | 0x3000) & 0xffff;
1765 /* Relocation via DIR64. */
1766 needed
= ((needed
- page_addr
) | 0xa000) & 0xffff;
1770 fprintf (f
, "\t%s\t0x%lx\n", ASM_SHORT
, (long) needed
);
1775 fprintf (f
, "\t%s\t0x%x\n", ASM_SHORT
, 0 | 0x0000);
1784 inform (_("Adding exports to output file"));
1786 fprintf (output_def
, ";");
1787 for (i
= 0; oav
[i
]; i
++)
1788 fprintf (output_def
, " %s", oav
[i
]);
1790 fprintf (output_def
, "\nEXPORTS\n");
1792 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
1794 char *quote
= strchr (exp
->name
, '.') ? "\"" : "";
1795 char *res
= cplus_demangle (exp
->internal_name
, DMGL_ANSI
| DMGL_PARAMS
);
1799 fprintf (output_def
,";\t%s\n", res
);
1803 if (strcmp (exp
->name
, exp
->internal_name
) == 0)
1805 fprintf (output_def
, "\t%s%s%s @ %d%s%s%s%s%s\n",
1810 exp
->noname
? " NONAME" : "",
1811 exp
->private ? "PRIVATE " : "",
1812 exp
->data
? " DATA" : "",
1813 exp
->its_name
? " ==" : "",
1814 exp
->its_name
? exp
->its_name
: "");
1818 char * quote1
= strchr (exp
->internal_name
, '.') ? "\"" : "";
1820 fprintf (output_def
, "\t%s%s%s = %s%s%s @ %d%s%s%s%s%s\n",
1828 exp
->noname
? " NONAME" : "",
1829 exp
->private ? "PRIVATE " : "",
1830 exp
->data
? " DATA" : "",
1831 exp
->its_name
? " ==" : "",
1832 exp
->its_name
? exp
->its_name
: "");
1836 inform (_("Added exports to output file"));
1839 /* generate_idata_ofile generates the portable assembly source code
1840 for the idata sections. It appends the source code to the end of
1844 generate_idata_ofile (FILE *filvar
)
1852 if (import_list
== NULL
)
1855 fprintf (filvar
, "%s Import data sections\n", ASM_C
);
1856 fprintf (filvar
, "\n\t.section\t.idata$2\n");
1857 fprintf (filvar
, "\t%s\tdoi_idata\n", ASM_GLOBAL
);
1858 fprintf (filvar
, "doi_idata:\n");
1861 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1863 fprintf (filvar
, "\t%slistone%d%s\t%s %s\n",
1864 ASM_RVA_BEFORE
, nheads
, ASM_RVA_AFTER
,
1865 ASM_C
, headptr
->dllname
);
1866 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1867 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1868 fprintf (filvar
, "\t%sdllname%d%s\n",
1869 ASM_RVA_BEFORE
, nheads
, ASM_RVA_AFTER
);
1870 fprintf (filvar
, "\t%slisttwo%d%s\n\n",
1871 ASM_RVA_BEFORE
, nheads
, ASM_RVA_AFTER
);
1875 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* NULL record at */
1876 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* end of idata$2 */
1877 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* section */
1878 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1879 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1881 fprintf (filvar
, "\n\t.section\t.idata$4\n");
1883 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1885 fprintf (filvar
, "listone%d:\n", headindex
);
1886 for (funcindex
= 0; funcindex
< headptr
->nfuncs
; funcindex
++)
1889 fprintf (filvar
, "\t%sfuncptr%d_%d%s\n%s\t0\n",
1890 ASM_RVA_BEFORE
, headindex
, funcindex
, ASM_RVA_AFTER
,
1893 fprintf (filvar
, "\t%sfuncptr%d_%d%s\n",
1894 ASM_RVA_BEFORE
, headindex
, funcindex
, ASM_RVA_AFTER
);
1897 fprintf (filvar
, "\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
1899 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* NULL terminating list. */
1903 fprintf (filvar
, "\n\t.section\t.idata$5\n");
1905 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1907 fprintf (filvar
, "listtwo%d:\n", headindex
);
1908 for (funcindex
= 0; funcindex
< headptr
->nfuncs
; funcindex
++)
1911 fprintf (filvar
, "\t%sfuncptr%d_%d%s\n%s\t0\n",
1912 ASM_RVA_BEFORE
, headindex
, funcindex
, ASM_RVA_AFTER
,
1915 fprintf (filvar
, "\t%sfuncptr%d_%d%s\n",
1916 ASM_RVA_BEFORE
, headindex
, funcindex
, ASM_RVA_AFTER
);
1919 fprintf (filvar
, "\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
1921 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* NULL terminating list. */
1925 fprintf (filvar
, "\n\t.section\t.idata$6\n");
1927 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1930 for (funcptr
= headptr
->funchead
; funcptr
!= NULL
;
1931 funcptr
= funcptr
->next
)
1933 fprintf (filvar
,"funcptr%d_%d:\n", headindex
, funcindex
);
1934 fprintf (filvar
,"\t%s\t%d\n", ASM_SHORT
,
1935 ((funcptr
->ord
) & 0xFFFF));
1936 fprintf (filvar
,"\t%s\t\"%s\"\n", ASM_TEXT
,
1937 (funcptr
->its_name
? funcptr
->its_name
: funcptr
->name
));
1938 fprintf (filvar
,"\t%s\t0\n", ASM_BYTE
);
1944 fprintf (filvar
, "\n\t.section\t.idata$7\n");
1946 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1948 fprintf (filvar
,"dllname%d:\n", headindex
);
1949 fprintf (filvar
,"\t%s\t\"%s\"\n", ASM_TEXT
, headptr
->dllname
);
1950 fprintf (filvar
,"\t%s\t0\n", ASM_BYTE
);
1955 /* Assemble the specified file. */
1957 assemble_file (const char * source
, const char * dest
)
1961 cmd
= xmalloc (strlen (ASM_SWITCHES
) + strlen (as_flags
)
1962 + strlen (source
) + strlen (dest
) + 50);
1964 sprintf (cmd
, "%s %s -o %s %s", ASM_SWITCHES
, as_flags
, dest
, source
);
1970 static const char * temp_file_to_remove
[5];
1971 #define TEMP_EXPORT_FILE 0
1972 #define TEMP_HEAD_FILE 1
1973 #define TEMP_TAIL_FILE 2
1974 #define TEMP_HEAD_O_FILE 3
1975 #define TEMP_TAIL_O_FILE 4
1978 unlink_temp_files (void)
1982 if (dontdeltemps
> 0)
1985 for (i
= 0; i
< ARRAY_SIZE (temp_file_to_remove
); i
++)
1987 if (temp_file_to_remove
[i
])
1989 unlink (temp_file_to_remove
[i
]);
1990 temp_file_to_remove
[i
] = NULL
;
2003 /* xgettext:c-format */
2004 inform (_("Generating export file: %s"), exp_name
);
2006 f
= fopen (TMP_ASM
, FOPEN_WT
);
2008 /* xgettext:c-format */
2009 fatal (_("Unable to open temporary assembler file: %s"), TMP_ASM
);
2011 temp_file_to_remove
[TEMP_EXPORT_FILE
] = TMP_ASM
;
2013 /* xgettext:c-format */
2014 inform (_("Opened temporary file: %s"), TMP_ASM
);
2020 fprintf (f
, "\t.section .edata\n\n");
2021 fprintf (f
, "\t%s 0 %s Allways 0\n", ASM_LONG
, ASM_C
);
2022 fprintf (f
, "\t%s 0x%lx %s Time and date\n", ASM_LONG
,
2023 (unsigned long) time(0), ASM_C
);
2024 fprintf (f
, "\t%s 0 %s Major and Minor version\n", ASM_LONG
, ASM_C
);
2025 fprintf (f
, "\t%sname%s %s Ptr to name of dll\n", ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
2026 fprintf (f
, "\t%s %d %s Starting ordinal of exports\n", ASM_LONG
, d_low_ord
, ASM_C
);
2029 fprintf (f
, "\t%s %d %s Number of functions\n", ASM_LONG
, d_high_ord
- d_low_ord
+ 1, ASM_C
);
2030 fprintf(f
,"\t%s named funcs %d, low ord %d, high ord %d\n",
2032 d_named_nfuncs
, d_low_ord
, d_high_ord
);
2033 fprintf (f
, "\t%s %d %s Number of names\n", ASM_LONG
,
2034 show_allnames
? d_high_ord
- d_low_ord
+ 1 : d_named_nfuncs
, ASM_C
);
2035 fprintf (f
, "\t%safuncs%s %s Address of functions\n", ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
2037 fprintf (f
, "\t%sanames%s %s Address of Name Pointer Table\n",
2038 ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
2040 fprintf (f
, "\t%sanords%s %s Address of ordinals\n", ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
2042 fprintf (f
, "name: %s \"%s\"\n", ASM_TEXT
, dll_name
);
2045 fprintf(f
,"%s Export address Table\n", ASM_C
);
2046 fprintf(f
,"\t%s\n", ASM_ALIGN_LONG
);
2047 fprintf (f
, "afuncs:\n");
2050 for (exp
= d_exports
; exp
; exp
= exp
->next
)
2052 if (exp
->ordinal
!= i
)
2054 while (i
< exp
->ordinal
)
2056 fprintf(f
,"\t%s\t0\n", ASM_LONG
);
2061 if (exp
->forward
== 0)
2063 if (exp
->internal_name
[0] == '@')
2064 fprintf (f
, "\t%s%s%s\t%s %d\n", ASM_RVA_BEFORE
,
2065 exp
->internal_name
, ASM_RVA_AFTER
, ASM_C
, exp
->ordinal
);
2067 fprintf (f
, "\t%s%s%s%s\t%s %d\n", ASM_RVA_BEFORE
,
2068 ASM_PREFIX (exp
->internal_name
),
2069 exp
->internal_name
, ASM_RVA_AFTER
, ASM_C
, exp
->ordinal
);
2072 fprintf (f
, "\t%sf%d%s\t%s %d\n", ASM_RVA_BEFORE
,
2073 exp
->forward
, ASM_RVA_AFTER
, ASM_C
, exp
->ordinal
);
2077 fprintf (f
,"%s Export Name Pointer Table\n", ASM_C
);
2078 fprintf (f
, "anames:\n");
2080 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
2082 if (!exp
->noname
|| show_allnames
)
2083 fprintf (f
, "\t%sn%d%s\n",
2084 ASM_RVA_BEFORE
, exp
->ordinal
, ASM_RVA_AFTER
);
2087 fprintf (f
,"%s Export Ordinal Table\n", ASM_C
);
2088 fprintf (f
, "anords:\n");
2089 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
2091 if (!exp
->noname
|| show_allnames
)
2092 fprintf (f
, "\t%s %d\n", ASM_SHORT
, exp
->ordinal
- d_low_ord
);
2095 fprintf(f
,"%s Export Name Table\n", ASM_C
);
2096 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
2098 if (!exp
->noname
|| show_allnames
)
2099 fprintf (f
, "n%d: %s \"%s\"\n",
2100 exp
->ordinal
, ASM_TEXT
,
2101 (exp
->its_name
? exp
->its_name
: xlate (exp
->name
)));
2102 if (exp
->forward
!= 0)
2103 fprintf (f
, "f%d: %s \"%s\"\n",
2104 exp
->forward
, ASM_TEXT
, exp
->internal_name
);
2109 fprintf (f
, "\t.section %s\n", DRECTVE_SECTION_NAME
);
2110 for (dl
= a_list
; dl
; dl
= dl
->next
)
2112 fprintf (f
, "\t%s\t\"%s\"\n", ASM_TEXT
, dl
->text
);
2118 fprintf (f
, "\t.section .rdata\n");
2119 for (dl
= d_list
; dl
; dl
= dl
->next
)
2124 /* We don't output as ascii because there can
2125 be quote characters in the string. */
2127 for (p
= dl
->text
; *p
; p
++)
2130 fprintf (f
, "\t%s\t", ASM_BYTE
);
2133 fprintf (f
, "%d", *p
);
2136 fprintf (f
, ",0\n");
2149 /* Add to the output file a way of getting to the exported names
2150 without using the import library. */
2153 fprintf (f
, "\t.section\t.rdata\n");
2154 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
2155 if (!exp
->noname
|| show_allnames
)
2157 /* We use a single underscore for MS compatibility, and a
2158 double underscore for backward compatibility with old
2160 if (create_compat_implib
)
2161 fprintf (f
, "\t%s\t__imp_%s\n", ASM_GLOBAL
, exp
->name
);
2162 fprintf (f
, "\t%s\t_imp_%s%s\n", ASM_GLOBAL
,
2163 (!leading_underscore
? "" : "_"), exp
->name
);
2164 if (create_compat_implib
)
2165 fprintf (f
, "__imp_%s:\n", exp
->name
);
2166 fprintf (f
, "_imp_%s%s:\n", (!leading_underscore
? "" : "_"), exp
->name
);
2167 fprintf (f
, "\t%s\t%s\n", ASM_LONG
, exp
->name
);
2171 /* Dump the reloc section if a base file is provided. */
2175 bfd_vma need
[COFF_PAGE_SIZE
];
2177 bfd_size_type numbytes
;
2182 fprintf (f
, "\t.section\t.init\n");
2183 fprintf (f
, "lab:\n");
2185 fseek (base_file
, 0, SEEK_END
);
2186 numbytes
= ftell (base_file
);
2187 fseek (base_file
, 0, SEEK_SET
);
2188 copy
= xmalloc (numbytes
);
2189 if (fread (copy
, 1, numbytes
, base_file
) < numbytes
)
2190 fatal (_("failed to read the number of entries from base file"));
2191 num_entries
= numbytes
/ sizeof (bfd_vma
);
2194 fprintf (f
, "\t.section\t.reloc\n");
2199 bfd_vma last
= (bfd_vma
) -1;
2200 qsort (copy
, num_entries
, sizeof (bfd_vma
), sfunc
);
2201 /* Delete duplicates */
2202 for (src
= 0; src
< num_entries
; src
++)
2204 if (last
!= copy
[src
])
2205 last
= copy
[dst
++] = copy
[src
];
2209 page_addr
= addr
& PAGE_MASK
; /* work out the page addr */
2211 for (j
= 0; j
< num_entries
; j
++)
2214 if ((addr
& PAGE_MASK
) != page_addr
)
2216 flush_page (f
, need
, page_addr
, on_page
);
2218 page_addr
= addr
& PAGE_MASK
;
2220 need
[on_page
++] = addr
;
2222 flush_page (f
, need
, page_addr
, on_page
);
2224 /* fprintf (f, "\t%s\t0,0\t%s End\n", ASM_LONG, ASM_C);*/
2228 generate_idata_ofile (f
);
2232 /* Assemble the file. */
2233 assemble_file (TMP_ASM
, exp_name
);
2235 if (dontdeltemps
== 0)
2237 temp_file_to_remove
[TEMP_EXPORT_FILE
] = NULL
;
2241 inform (_("Generated exports file"));
2245 xlate (const char *name
)
2247 int lead_at
= (*name
== '@');
2248 int is_stdcall
= (!lead_at
&& strchr (name
, '@') != NULL
);
2250 if (!lead_at
&& (add_underscore
2251 || (add_stdcall_underscore
&& is_stdcall
)))
2253 char *copy
= xmalloc (strlen (name
) + 2);
2256 strcpy (copy
+ 1, name
);
2265 /* PR 9766: Look for the last @ sign in the name. */
2266 p
= strrchr (name
, '@');
2267 if (p
&& ISDIGIT (p
[1]))
2283 unsigned char *data
;
2286 #define INIT_SEC_DATA(id, name, flags, align) \
2287 { id, name, flags, align, NULL, NULL, NULL, 0, NULL }
2299 #define TEXT_SEC_FLAGS \
2300 (SEC_ALLOC | SEC_LOAD | SEC_CODE | SEC_READONLY | SEC_HAS_CONTENTS)
2301 #define DATA_SEC_FLAGS (SEC_ALLOC | SEC_LOAD | SEC_DATA)
2302 #define BSS_SEC_FLAGS SEC_ALLOC
2304 static sinfo secdata
[NSECS
] =
2306 INIT_SEC_DATA (TEXT
, ".text", TEXT_SEC_FLAGS
, 2),
2307 INIT_SEC_DATA (DATA
, ".data", DATA_SEC_FLAGS
, 2),
2308 INIT_SEC_DATA (BSS
, ".bss", BSS_SEC_FLAGS
, 2),
2309 INIT_SEC_DATA (IDATA7
, ".idata$7", SEC_HAS_CONTENTS
, 2),
2310 INIT_SEC_DATA (IDATA5
, ".idata$5", SEC_HAS_CONTENTS
, 2),
2311 INIT_SEC_DATA (IDATA4
, ".idata$4", SEC_HAS_CONTENTS
, 2),
2312 INIT_SEC_DATA (IDATA6
, ".idata$6", SEC_HAS_CONTENTS
, 1)
2315 /* This is what we're trying to make. We generate the imp symbols with
2316 both single and double underscores, for compatibility.
2319 .global _GetFileVersionInfoSizeW@8
2320 .global __imp_GetFileVersionInfoSizeW@8
2321 _GetFileVersionInfoSizeW@8:
2322 jmp * __imp_GetFileVersionInfoSizeW@8
2323 .section .idata$7 # To force loading of head
2324 .long __version_a_head
2325 # Import Address Table
2327 __imp_GetFileVersionInfoSizeW@8:
2330 # Import Lookup Table
2336 .asciz "GetFileVersionInfoSizeW" */
2339 make_label (const char *prefix
, const char *name
)
2341 int len
= strlen (ASM_PREFIX (name
)) + strlen (prefix
) + strlen (name
);
2342 char *copy
= xmalloc (len
+ 1);
2344 strcpy (copy
, ASM_PREFIX (name
));
2345 strcat (copy
, prefix
);
2346 strcat (copy
, name
);
2351 make_imp_label (const char *prefix
, const char *name
)
2358 len
= strlen (prefix
) + strlen (name
);
2359 copy
= xmalloc (len
+ 1);
2360 strcpy (copy
, prefix
);
2361 strcat (copy
, name
);
2365 len
= strlen (ASM_PREFIX (name
)) + strlen (prefix
) + strlen (name
);
2366 copy
= xmalloc (len
+ 1);
2367 strcpy (copy
, prefix
);
2368 strcat (copy
, ASM_PREFIX (name
));
2369 strcat (copy
, name
);
2375 make_one_lib_file (export_type
*exp
, int i
, int delay
)
2378 asymbol
* exp_label
;
2379 asymbol
* iname
= 0;
2381 asymbol
* iname_lab
;
2382 asymbol
** iname_lab_pp
;
2383 asymbol
** iname_pp
;
2387 asymbol
* ptrs
[NSECS
+ 4 + EXTRA
+ 1];
2388 flagword applicable
;
2389 char * outname
= xmalloc (strlen (TMP_STUB
) + 10);
2393 sprintf (outname
, "%s%05d.o", TMP_STUB
, i
);
2395 abfd
= bfd_openw (outname
, HOW_BFD_WRITE_TARGET
);
2398 /* xgettext:c-format */
2399 fatal (_("bfd_open failed open stub file: %s: %s"),
2400 outname
, bfd_get_errmsg ());
2402 /* xgettext:c-format */
2403 inform (_("Creating stub file: %s"), outname
);
2405 bfd_set_format (abfd
, bfd_object
);
2406 bfd_set_arch_mach (abfd
, HOW_BFD_ARCH
, 0);
2409 if (machine
== MARM_INTERWORK
|| machine
== MTHUMB
)
2410 bfd_set_private_flags (abfd
, F_INTERWORK
);
2413 applicable
= bfd_applicable_section_flags (abfd
);
2415 /* First make symbols for the sections. */
2416 for (i
= 0; i
< NSECS
; i
++)
2418 sinfo
*si
= secdata
+ i
;
2422 si
->sec
= bfd_make_section_old_way (abfd
, si
->name
);
2423 bfd_set_section_flags (si
->sec
, si
->flags
& applicable
);
2425 bfd_set_section_alignment (si
->sec
, si
->align
);
2426 si
->sec
->output_section
= si
->sec
;
2427 si
->sym
= bfd_make_empty_symbol(abfd
);
2428 si
->sym
->name
= si
->sec
->name
;
2429 si
->sym
->section
= si
->sec
;
2430 si
->sym
->flags
= BSF_LOCAL
;
2432 ptrs
[oidx
] = si
->sym
;
2433 si
->sympp
= ptrs
+ oidx
;
2442 exp_label
= bfd_make_empty_symbol (abfd
);
2443 exp_label
->name
= make_imp_label ("", exp
->name
);
2444 exp_label
->section
= secdata
[TEXT
].sec
;
2445 exp_label
->flags
= BSF_GLOBAL
;
2446 exp_label
->value
= 0;
2449 if (machine
== MTHUMB
)
2450 bfd_coff_set_symbol_class (abfd
, exp_label
, C_THUMBEXTFUNC
);
2452 ptrs
[oidx
++] = exp_label
;
2455 /* Generate imp symbols with one underscore for Microsoft
2456 compatibility, and with two underscores for backward
2457 compatibility with old versions of cygwin. */
2458 if (create_compat_implib
)
2460 iname
= bfd_make_empty_symbol (abfd
);
2461 iname
->name
= make_imp_label ("___imp", exp
->name
);
2462 iname
->section
= secdata
[IDATA5
].sec
;
2463 iname
->flags
= BSF_GLOBAL
;
2467 iname2
= bfd_make_empty_symbol (abfd
);
2468 iname2
->name
= make_imp_label ("__imp_", exp
->name
);
2469 iname2
->section
= secdata
[IDATA5
].sec
;
2470 iname2
->flags
= BSF_GLOBAL
;
2473 iname_lab
= bfd_make_empty_symbol (abfd
);
2475 iname_lab
->name
= head_label
;
2476 iname_lab
->section
= bfd_und_section_ptr
;
2477 iname_lab
->flags
= 0;
2478 iname_lab
->value
= 0;
2480 iname_pp
= ptrs
+ oidx
;
2481 if (create_compat_implib
)
2482 ptrs
[oidx
++] = iname
;
2483 ptrs
[oidx
++] = iname2
;
2485 iname_lab_pp
= ptrs
+ oidx
;
2486 ptrs
[oidx
++] = iname_lab
;
2490 for (i
= 0; i
< NSECS
; i
++)
2492 sinfo
*si
= secdata
+ i
;
2493 asection
*sec
= si
->sec
;
2494 arelent
*rel
, *rel2
= 0, *rel3
= 0;
2502 unsigned int rpp_len
;
2504 si
->size
= HOW_JTAB_SIZE
;
2505 si
->data
= xmalloc (HOW_JTAB_SIZE
);
2506 memcpy (si
->data
, HOW_JTAB
, HOW_JTAB_SIZE
);
2508 /* Add the reloc into idata$5. */
2509 rel
= xmalloc (sizeof (arelent
));
2511 rpp_len
= delay
? 4 : 2;
2513 if (machine
== MAARCH64
)
2516 rpp
= xmalloc (sizeof (arelent
*) * rpp_len
);
2520 rel
->address
= HOW_JTAB_ROFF
;
2525 rel2
= xmalloc (sizeof (arelent
));
2527 rel2
->address
= HOW_JTAB_ROFF2
;
2529 rel3
= xmalloc (sizeof (arelent
));
2531 rel3
->address
= HOW_JTAB_ROFF3
;
2536 if (machine
== MX86
)
2538 rel
->howto
= bfd_reloc_type_lookup (abfd
,
2539 BFD_RELOC_32_PCREL
);
2540 rel
->sym_ptr_ptr
= iname_pp
;
2542 else if (machine
== MAARCH64
)
2546 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_AARCH64_ADR_HI21_NC_PCREL
);
2547 rel
->sym_ptr_ptr
= secdata
[IDATA5
].sympp
;
2549 rel_add
= xmalloc (sizeof (arelent
));
2550 rel_add
->address
= 4;
2551 rel_add
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_AARCH64_ADD_LO12
);
2552 rel_add
->sym_ptr_ptr
= secdata
[IDATA5
].sympp
;
2553 rel_add
->addend
= 0;
2555 rpp
[rpp_len
- 2] = rel_add
;
2556 rpp
[rpp_len
- 1] = 0;
2560 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2561 rel
->sym_ptr_ptr
= secdata
[IDATA5
].sympp
;
2566 if (machine
== MX86
)
2567 rel2
->howto
= bfd_reloc_type_lookup (abfd
,
2568 BFD_RELOC_32_PCREL
);
2570 rel2
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2571 rel2
->sym_ptr_ptr
= rel
->sym_ptr_ptr
;
2572 rel3
->howto
= bfd_reloc_type_lookup (abfd
,
2573 BFD_RELOC_32_PCREL
);
2574 rel3
->sym_ptr_ptr
= iname_lab_pp
;
2577 sec
->orelocation
= rpp
;
2578 sec
->reloc_count
= rpp_len
- 1;
2585 si
->size
= create_for_pep
? 8 : 4;
2586 si
->data
= xmalloc (si
->size
);
2587 sec
->reloc_count
= 1;
2588 memset (si
->data
, 0, si
->size
);
2589 /* Point after jmp [__imp_...] instruction. */
2591 rel
= xmalloc (sizeof (arelent
));
2592 rpp
= xmalloc (sizeof (arelent
*) * 2);
2598 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_64
);
2600 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2601 rel
->sym_ptr_ptr
= secdata
[TEXT
].sympp
;
2602 sec
->orelocation
= rpp
;
2608 /* An idata$4 or idata$5 is one word long, and has an
2613 si
->data
= xmalloc (8);
2617 si
->data
[0] = exp
->ordinal
;
2618 si
->data
[1] = exp
->ordinal
>> 8;
2619 si
->data
[2] = exp
->ordinal
>> 16;
2620 si
->data
[3] = exp
->ordinal
>> 24;
2628 sec
->reloc_count
= 1;
2629 memset (si
->data
, 0, si
->size
);
2630 rel
= xmalloc (sizeof (arelent
));
2631 rpp
= xmalloc (sizeof (arelent
*) * 2);
2636 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_RVA
);
2637 rel
->sym_ptr_ptr
= secdata
[IDATA6
].sympp
;
2638 sec
->orelocation
= rpp
;
2643 si
->data
= xmalloc (4);
2648 si
->data
[0] = exp
->ordinal
;
2649 si
->data
[1] = exp
->ordinal
>> 8;
2650 si
->data
[2] = exp
->ordinal
>> 16;
2655 sec
->reloc_count
= 1;
2656 memset (si
->data
, 0, si
->size
);
2657 rel
= xmalloc (sizeof (arelent
));
2658 rpp
= xmalloc (sizeof (arelent
*) * 2);
2663 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_RVA
);
2664 rel
->sym_ptr_ptr
= secdata
[IDATA6
].sympp
;
2665 sec
->orelocation
= rpp
;
2673 int idx
= exp
->ordinal
;
2676 si
->size
= strlen (exp
->its_name
) + 3;
2678 si
->size
= strlen (xlate (exp
->import_name
)) + 3;
2679 si
->data
= xmalloc (si
->size
);
2680 memset (si
->data
, 0, si
->size
);
2681 si
->data
[0] = idx
& 0xff;
2682 si
->data
[1] = idx
>> 8;
2684 strcpy ((char *) si
->data
+ 2, exp
->its_name
);
2686 strcpy ((char *) si
->data
+ 2, xlate (exp
->import_name
));
2693 si
->data
= xmalloc (4);
2694 memset (si
->data
, 0, si
->size
);
2695 rel
= xmalloc (sizeof (arelent
));
2696 rpp
= xmalloc (sizeof (arelent
*) * 2);
2700 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_RVA
);
2701 rel
->sym_ptr_ptr
= iname_lab_pp
;
2702 sec
->orelocation
= rpp
;
2703 sec
->reloc_count
= 1;
2710 /* Size up all the sections. */
2711 for (i
= 0; i
< NSECS
; i
++)
2713 sinfo
*si
= secdata
+ i
;
2715 bfd_set_section_size (si
->sec
, si
->size
);
2716 bfd_set_section_vma (si
->sec
, vma
);
2719 /* Write them out. */
2720 for (i
= 0; i
< NSECS
; i
++)
2722 sinfo
*si
= secdata
+ i
;
2724 if (i
== IDATA5
&& no_idata5
)
2727 if (i
== IDATA4
&& no_idata4
)
2730 bfd_set_section_contents (abfd
, si
->sec
,
2735 bfd_set_symtab (abfd
, ptrs
, oidx
);
2737 abfd
= bfd_openr (outname
, HOW_BFD_READ_TARGET
);
2739 /* xgettext:c-format */
2740 fatal (_("bfd_open failed reopen stub file: %s: %s"),
2741 outname
, bfd_get_errmsg ());
2749 FILE *f
= fopen (TMP_HEAD_S
, FOPEN_WT
);
2754 fatal (_("failed to open temporary head file: %s"), TMP_HEAD_S
);
2758 temp_file_to_remove
[TEMP_HEAD_FILE
] = TMP_HEAD_S
;
2760 fprintf (f
, "%s IMAGE_IMPORT_DESCRIPTOR\n", ASM_C
);
2761 fprintf (f
, "\t.section\t.idata$2\n");
2763 fprintf (f
,"\t%s\t%s\n", ASM_GLOBAL
, head_label
);
2765 fprintf (f
, "%s:\n", head_label
);
2767 fprintf (f
, "\t%shname%s\t%sPtr to image import by name list\n",
2768 ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
2770 fprintf (f
, "\t%sthis should be the timestamp, but NT sometimes\n", ASM_C
);
2771 fprintf (f
, "\t%sdoesn't load DLLs when this is set.\n", ASM_C
);
2772 fprintf (f
, "\t%s\t0\t%s loaded time\n", ASM_LONG
, ASM_C
);
2773 fprintf (f
, "\t%s\t0\t%s Forwarder chain\n", ASM_LONG
, ASM_C
);
2774 fprintf (f
, "\t%s__%s_iname%s\t%s imported dll's name\n",
2779 fprintf (f
, "\t%sfthunk%s\t%s pointer to firstthunk\n",
2781 ASM_RVA_AFTER
, ASM_C
);
2783 fprintf (f
, "%sStuff for compatibility\n", ASM_C
);
2787 fprintf (f
, "\t.section\t.idata$5\n");
2788 if (use_nul_prefixed_import_tables
)
2791 fprintf (f
,"\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
2793 fprintf (f
,"\t%s\t0\n", ASM_LONG
);
2795 fprintf (f
, "fthunk:\n");
2800 fprintf (f
, "\t.section\t.idata$4\n");
2801 if (use_nul_prefixed_import_tables
)
2804 fprintf (f
,"\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
2806 fprintf (f
,"\t%s\t0\n", ASM_LONG
);
2808 fprintf (f
, "hname:\n");
2813 assemble_file (TMP_HEAD_S
, TMP_HEAD_O
);
2815 abfd
= bfd_openr (TMP_HEAD_O
, HOW_BFD_READ_TARGET
);
2817 /* xgettext:c-format */
2818 fatal (_("failed to open temporary head file: %s: %s"),
2819 TMP_HEAD_O
, bfd_get_errmsg ());
2821 temp_file_to_remove
[TEMP_HEAD_O_FILE
] = TMP_HEAD_O
;
2826 make_delay_head (void)
2828 FILE *f
= fopen (TMP_HEAD_S
, FOPEN_WT
);
2833 fatal (_("failed to open temporary head file: %s"), TMP_HEAD_S
);
2837 temp_file_to_remove
[TEMP_HEAD_FILE
] = TMP_HEAD_S
;
2839 /* Output the __tailMerge__xxx function */
2840 fprintf (f
, "%s Import trampoline\n", ASM_C
);
2841 fprintf (f
, "\t.section\t.text\n");
2842 fprintf(f
,"\t%s\t%s\n", ASM_GLOBAL
, head_label
);
2844 fprintf (f
, "\t.seh_proc\t%s\n", head_label
);
2845 fprintf (f
, "%s:\n", head_label
);
2846 fprintf (f
, mtable
[machine
].trampoline
, imp_name_lab
);
2848 fprintf (f
, "\t.seh_endproc\n");
2850 /* Output the delay import descriptor */
2851 fprintf (f
, "\n%s DELAY_IMPORT_DESCRIPTOR\n", ASM_C
);
2852 fprintf (f
, ".section\t.text$2\n");
2853 fprintf (f
,"%s __DELAY_IMPORT_DESCRIPTOR_%s\n", ASM_GLOBAL
,imp_name_lab
);
2854 fprintf (f
, "__DELAY_IMPORT_DESCRIPTOR_%s:\n", imp_name_lab
);
2855 fprintf (f
, "\t%s 1\t%s grAttrs\n", ASM_LONG
, ASM_C
);
2856 fprintf (f
, "\t%s__%s_iname%s\t%s rvaDLLName\n",
2857 ASM_RVA_BEFORE
, imp_name_lab
, ASM_RVA_AFTER
, ASM_C
);
2858 fprintf (f
, "\t%s__DLL_HANDLE_%s%s\t%s rvaHmod\n",
2859 ASM_RVA_BEFORE
, imp_name_lab
, ASM_RVA_AFTER
, ASM_C
);
2860 fprintf (f
, "\t%s__IAT_%s%s\t%s rvaIAT\n",
2861 ASM_RVA_BEFORE
, imp_name_lab
, ASM_RVA_AFTER
, ASM_C
);
2862 fprintf (f
, "\t%s__INT_%s%s\t%s rvaINT\n",
2863 ASM_RVA_BEFORE
, imp_name_lab
, ASM_RVA_AFTER
, ASM_C
);
2864 fprintf (f
, "\t%s\t0\t%s rvaBoundIAT\n", ASM_LONG
, ASM_C
);
2865 fprintf (f
, "\t%s\t0\t%s rvaUnloadIAT\n", ASM_LONG
, ASM_C
);
2866 fprintf (f
, "\t%s\t0\t%s dwTimeStamp\n", ASM_LONG
, ASM_C
);
2868 /* Output the dll_handle */
2869 fprintf (f
, "\n.section .data\n");
2870 fprintf (f
, "__DLL_HANDLE_%s:\n", imp_name_lab
);
2871 fprintf (f
, "\t%s\t0\t%s Handle\n", ASM_LONG
, ASM_C
);
2873 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2876 fprintf (f
, "%sStuff for compatibility\n", ASM_C
);
2880 fprintf (f
, "\t.section\t.idata$5\n");
2881 /* NULL terminating list. */
2883 fprintf (f
,"\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
2885 fprintf (f
,"\t%s\t0\n", ASM_LONG
);
2886 fprintf (f
, "__IAT_%s:\n", imp_name_lab
);
2891 fprintf (f
, "\t.section\t.idata$4\n");
2892 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2894 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2895 fprintf (f
, "\t.section\t.idata$4\n");
2896 fprintf (f
, "__INT_%s:\n", imp_name_lab
);
2899 fprintf (f
, "\t.section\t.idata$2\n");
2903 assemble_file (TMP_HEAD_S
, TMP_HEAD_O
);
2905 abfd
= bfd_openr (TMP_HEAD_O
, HOW_BFD_READ_TARGET
);
2907 /* xgettext:c-format */
2908 fatal (_("failed to open temporary head file: %s: %s"),
2909 TMP_HEAD_O
, bfd_get_errmsg ());
2911 temp_file_to_remove
[TEMP_HEAD_O_FILE
] = TMP_HEAD_O
;
2918 FILE *f
= fopen (TMP_TAIL_S
, FOPEN_WT
);
2923 fatal (_("failed to open temporary tail file: %s"), TMP_TAIL_S
);
2927 temp_file_to_remove
[TEMP_TAIL_FILE
] = TMP_TAIL_S
;
2931 fprintf (f
, "\t.section\t.idata$4\n");
2933 fprintf (f
,"\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
2935 fprintf (f
,"\t%s\t0\n", ASM_LONG
); /* NULL terminating list. */
2940 fprintf (f
, "\t.section\t.idata$5\n");
2942 fprintf (f
,"\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
2944 fprintf (f
,"\t%s\t0\n", ASM_LONG
); /* NULL terminating list. */
2947 fprintf (f
, "\t.section\t.idata$7\n");
2948 fprintf (f
, "\t%s\t__%s_iname\n", ASM_GLOBAL
, imp_name_lab
);
2949 fprintf (f
, "__%s_iname:\t%s\t\"%s\"\n",
2950 imp_name_lab
, ASM_TEXT
, dll_name
);
2954 assemble_file (TMP_TAIL_S
, TMP_TAIL_O
);
2956 abfd
= bfd_openr (TMP_TAIL_O
, HOW_BFD_READ_TARGET
);
2958 /* xgettext:c-format */
2959 fatal (_("failed to open temporary tail file: %s: %s"),
2960 TMP_TAIL_O
, bfd_get_errmsg ());
2962 temp_file_to_remove
[TEMP_TAIL_O_FILE
] = TMP_TAIL_O
;
2967 gen_lib_file (int delay
)
2978 outarch
= bfd_openw (imp_name
, HOW_BFD_WRITE_TARGET
);
2981 /* xgettext:c-format */
2982 fatal (_("Can't create .lib file: %s: %s"),
2983 imp_name
, bfd_get_errmsg ());
2985 /* xgettext:c-format */
2986 inform (_("Creating library file: %s"), imp_name
);
2988 xatexit (unlink_temp_files
);
2990 bfd_set_format (outarch
, bfd_archive
);
2991 outarch
->has_armap
= 1;
2992 outarch
->is_thin_archive
= 0;
2995 outarch
->flags
|= BFD_DETERMINISTIC_OUTPUT
;
2997 /* Work out a reasonable size of things to put onto one line. */
3000 ar_head
= make_delay_head ();
3004 ar_head
= make_head ();
3006 ar_tail
= make_tail();
3008 if (ar_head
== NULL
|| ar_tail
== NULL
)
3011 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
3014 /* Don't add PRIVATE entries to import lib. */
3017 n
= make_one_lib_file (exp
, i
, delay
);
3018 n
->archive_next
= head
;
3020 if (ext_prefix_alias
)
3022 export_type alias_exp
;
3024 assert (i
< PREFIX_ALIAS_BASE
);
3025 alias_exp
.name
= make_imp_label (ext_prefix_alias
, exp
->name
);
3026 alias_exp
.internal_name
= exp
->internal_name
;
3027 alias_exp
.its_name
= exp
->its_name
;
3028 alias_exp
.import_name
= exp
->name
;
3029 alias_exp
.ordinal
= exp
->ordinal
;
3030 alias_exp
.constant
= exp
->constant
;
3031 alias_exp
.noname
= exp
->noname
;
3032 alias_exp
.private = exp
->private;
3033 alias_exp
.data
= exp
->data
;
3034 alias_exp
.forward
= exp
->forward
;
3035 alias_exp
.next
= exp
->next
;
3036 n
= make_one_lib_file (&alias_exp
, i
+ PREFIX_ALIAS_BASE
, delay
);
3037 n
->archive_next
= head
;
3042 /* Now stick them all into the archive. */
3043 ar_head
->archive_next
= head
;
3044 ar_tail
->archive_next
= ar_head
;
3047 if (! bfd_set_archive_head (outarch
, head
))
3048 bfd_fatal ("bfd_set_archive_head");
3050 if (! bfd_close (outarch
))
3051 bfd_fatal (imp_name
);
3053 while (head
!= NULL
)
3055 bfd
*n
= head
->archive_next
;
3060 /* Delete all the temp files. */
3061 unlink_temp_files ();
3063 if (dontdeltemps
< 2)
3067 name
= xmalloc (strlen (TMP_STUB
) + 10);
3068 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
3070 /* Don't delete non-existent stubs for PRIVATE entries. */
3073 sprintf (name
, "%s%05d.o", TMP_STUB
, i
);
3074 if (unlink (name
) < 0)
3075 /* xgettext:c-format */
3076 non_fatal (_("cannot delete %s: %s"), name
, strerror (errno
));
3077 if (ext_prefix_alias
)
3079 sprintf (name
, "%s%05d.o", TMP_STUB
, i
+ PREFIX_ALIAS_BASE
);
3080 if (unlink (name
) < 0)
3081 /* xgettext:c-format */
3082 non_fatal (_("cannot delete %s: %s"), name
, strerror (errno
));
3088 inform (_("Created lib file"));
3091 /* Append a copy of data (cast to char *) to list. */
3094 dll_name_list_append (dll_name_list_type
* list
, bfd_byte
* data
)
3096 dll_name_list_node_type
* entry
;
3098 /* Error checking. */
3099 if (! list
|| ! list
->tail
)
3102 /* Allocate new node. */
3103 entry
= ((dll_name_list_node_type
*)
3104 xmalloc (sizeof (dll_name_list_node_type
)));
3106 /* Initialize its values. */
3107 entry
->dllname
= xstrdup ((char *) data
);
3110 /* Add to tail, and move tail. */
3111 list
->tail
->next
= entry
;
3115 /* Count the number of entries in list. */
3118 dll_name_list_count (dll_name_list_type
* list
)
3120 dll_name_list_node_type
* p
;
3123 /* Error checking. */
3124 if (! list
|| ! list
->head
)
3129 while (p
&& p
->next
)
3137 /* Print each entry in list to stdout. */
3140 dll_name_list_print (dll_name_list_type
* list
)
3142 dll_name_list_node_type
* p
;
3144 /* Error checking. */
3145 if (! list
|| ! list
->head
)
3150 while (p
&& p
->next
&& p
->next
->dllname
&& *(p
->next
->dllname
))
3152 printf ("%s\n", p
->next
->dllname
);
3157 /* Free all entries in list, and list itself. */
3160 dll_name_list_free (dll_name_list_type
* list
)
3164 dll_name_list_free_contents (list
->head
);
3171 /* Recursive function to free all nodes entry->next->next...
3172 as well as entry itself. */
3175 dll_name_list_free_contents (dll_name_list_node_type
* entry
)
3180 dll_name_list_free_contents (entry
->next
);
3181 free (entry
->dllname
);
3186 /* Allocate and initialize a dll_name_list_type object,
3187 including its sentinel node. Caller is responsible
3188 for calling dll_name_list_free when finished with
3191 static dll_name_list_type
*
3192 dll_name_list_create (void)
3194 /* Allocate list. */
3195 dll_name_list_type
* list
= xmalloc (sizeof (dll_name_list_type
));
3197 /* Allocate and initialize sentinel node. */
3198 list
->head
= xmalloc (sizeof (dll_name_list_node_type
));
3199 list
->head
->dllname
= NULL
;
3200 list
->head
->next
= NULL
;
3202 /* Bookkeeping for empty list. */
3203 list
->tail
= list
->head
;
3208 /* Search the symbol table of the suppled BFD for a symbol whose name matches
3209 OBJ (where obj is cast to const char *). If found, set global variable
3210 identify_member_contains_symname_result TRUE. It is the caller's
3211 responsibility to set the result variable FALSE before iterating with
3215 identify_member_contains_symname (bfd
* abfd
,
3216 bfd
* archive_bfd ATTRIBUTE_UNUSED
,
3219 long storage_needed
;
3220 asymbol
** symbol_table
;
3221 long number_of_symbols
;
3223 symname_search_data_type
* search_data
= (symname_search_data_type
*) obj
;
3225 /* If we already found the symbol in a different member,
3227 if (search_data
->found
)
3230 storage_needed
= bfd_get_symtab_upper_bound (abfd
);
3231 if (storage_needed
<= 0)
3234 symbol_table
= xmalloc (storage_needed
);
3235 number_of_symbols
= bfd_canonicalize_symtab (abfd
, symbol_table
);
3236 if (number_of_symbols
< 0)
3238 free (symbol_table
);
3242 for (i
= 0; i
< number_of_symbols
; i
++)
3244 if (strncmp (symbol_table
[i
]->name
,
3245 search_data
->symname
,
3246 strlen (search_data
->symname
)) == 0)
3248 search_data
->found
= true;
3252 free (symbol_table
);
3255 /* This is the main implementation for the --identify option.
3256 Given the name of an import library in identify_imp_name, first
3257 determine if the import library is a GNU binutils-style one (where
3258 the DLL name is stored in an .idata$7 section), or if it is a
3259 MS-style one (where the DLL name, along with much other data, is
3260 stored in the .idata$6 section). We determine the style of import
3261 library by searching for the DLL-structure symbol inserted by MS
3262 tools: __NULL_IMPORT_DESCRIPTOR.
3264 Once we know which section to search, evaluate each section for the
3265 appropriate properties that indicate it may contain the name of the
3266 associated DLL (this differs depending on the style). Add the contents
3267 of all sections which meet the criteria to a linked list of dll names.
3269 Finally, print them all to stdout. (If --identify-strict, an error is
3270 reported if more than one match was found). */
3273 identify_dll_for_implib (void)
3277 identify_data_type identify_data
;
3278 symname_search_data_type search_data
;
3280 /* Initialize identify_data. */
3281 identify_data
.list
= dll_name_list_create ();
3282 identify_data
.ms_style_implib
= false;
3284 /* Initialize search_data. */
3285 search_data
.symname
= "__NULL_IMPORT_DESCRIPTOR";
3286 search_data
.found
= false;
3288 if (bfd_init () != BFD_INIT_MAGIC
)
3289 fatal (_("fatal error: libbfd ABI mismatch"));
3291 abfd
= bfd_openr (identify_imp_name
, 0);
3293 /* xgettext:c-format */
3294 fatal (_("Can't open .lib file: %s: %s"),
3295 identify_imp_name
, bfd_get_errmsg ());
3297 if (! bfd_check_format (abfd
, bfd_archive
))
3299 if (! bfd_close (abfd
))
3300 bfd_fatal (identify_imp_name
);
3302 fatal (_("%s is not a library"), identify_imp_name
);
3305 /* Detect if this a Microsoft import library. */
3306 identify_search_archive (abfd
,
3307 identify_member_contains_symname
,
3308 (void *)(& search_data
));
3309 if (search_data
.found
)
3310 identify_data
.ms_style_implib
= true;
3312 /* Rewind the bfd. */
3313 if (! bfd_close (abfd
))
3314 bfd_fatal (identify_imp_name
);
3315 abfd
= bfd_openr (identify_imp_name
, 0);
3317 bfd_fatal (identify_imp_name
);
3319 if (!bfd_check_format (abfd
, bfd_archive
))
3321 if (!bfd_close (abfd
))
3322 bfd_fatal (identify_imp_name
);
3324 fatal (_("%s is not a library"), identify_imp_name
);
3327 /* Now search for the dll name. */
3328 identify_search_archive (abfd
,
3329 identify_search_member
,
3330 (void *)(& identify_data
));
3332 if (! bfd_close (abfd
))
3333 bfd_fatal (identify_imp_name
);
3335 count
= dll_name_list_count (identify_data
.list
);
3338 if (identify_strict
&& count
> 1)
3340 dll_name_list_free (identify_data
.list
);
3341 identify_data
.list
= NULL
;
3342 fatal (_("Import library `%s' specifies two or more dlls"),
3345 dll_name_list_print (identify_data
.list
);
3346 dll_name_list_free (identify_data
.list
);
3347 identify_data
.list
= NULL
;
3351 dll_name_list_free (identify_data
.list
);
3352 identify_data
.list
= NULL
;
3353 fatal (_("Unable to determine dll name for `%s' (not an import library?)"),
3358 /* Loop over all members of the archive, applying the supplied function to
3359 each member that is a bfd_object. The function will be called as if:
3360 func (member_bfd, abfd, user_storage) */
3363 identify_search_archive (bfd
* abfd
,
3364 void (* operation
) (bfd
*, bfd
*, void *),
3365 void * user_storage
)
3367 bfd
* arfile
= NULL
;
3368 bfd
* last_arfile
= NULL
;
3373 arfile
= bfd_openr_next_archived_file (abfd
, arfile
);
3377 if (bfd_get_error () != bfd_error_no_more_archived_files
)
3378 bfd_fatal (bfd_get_filename (abfd
));
3382 if (bfd_check_format_matches (arfile
, bfd_object
, &matching
))
3383 (*operation
) (arfile
, abfd
, user_storage
);
3386 bfd_nonfatal (bfd_get_filename (arfile
));
3390 if (last_arfile
!= NULL
)
3392 bfd_close (last_arfile
);
3393 /* PR 17512: file: 8b2168d4. */
3394 if (last_arfile
== arfile
)
3401 last_arfile
= arfile
;
3404 if (last_arfile
!= NULL
)
3406 bfd_close (last_arfile
);
3410 /* Call the identify_search_section() function for each section of this
3414 identify_search_member (bfd
*abfd
,
3415 bfd
*archive_bfd ATTRIBUTE_UNUSED
,
3418 bfd_map_over_sections (abfd
, identify_search_section
, obj
);
3421 /* This predicate returns true if section->name matches the desired value.
3422 By default, this is .idata$7 (.idata$6 if the import library is
3426 identify_process_section_p (asection
* section
, bool ms_style_implib
)
3428 static const char * SECTION_NAME
= ".idata$7";
3429 static const char * MS_SECTION_NAME
= ".idata$6";
3431 const char * section_name
=
3432 (ms_style_implib
? MS_SECTION_NAME
: SECTION_NAME
);
3434 if (strcmp (section_name
, section
->name
) == 0)
3439 /* If *section has contents and its name is .idata$7 (.idata$6 if
3440 import lib ms-generated) -- and it satisfies several other constraints
3441 -- then add the contents of the section to obj->list. */
3444 identify_search_section (bfd
* abfd
, asection
* section
, void * obj
)
3447 bfd_size_type datasize
;
3448 identify_data_type
* identify_data
= (identify_data_type
*)obj
;
3449 bool ms_style
= identify_data
->ms_style_implib
;
3451 if ((section
->flags
& SEC_HAS_CONTENTS
) == 0)
3454 if (! identify_process_section_p (section
, ms_style
))
3457 /* Binutils import libs seem distinguish the .idata$7 section that contains
3458 the DLL name from other .idata$7 sections by the absence of the
3460 if (!ms_style
&& ((section
->flags
& SEC_RELOC
) == SEC_RELOC
))
3463 /* MS import libs seem to distinguish the .idata$6 section
3464 that contains the DLL name from other .idata$6 sections
3465 by the presence of the SEC_DATA flag. */
3466 if (ms_style
&& ((section
->flags
& SEC_DATA
) == 0))
3469 if ((datasize
= bfd_section_size (section
)) == 0)
3472 data
= (bfd_byte
*) xmalloc (datasize
+ 1);
3475 bfd_get_section_contents (abfd
, section
, data
, 0, datasize
);
3476 data
[datasize
] = '\0';
3478 /* Use a heuristic to determine if data is a dll name.
3479 Possible to defeat this if (a) the library has MANY
3480 (more than 0x302f) imports, (b) it is an ms-style
3481 import library, but (c) it is buggy, in that the SEC_DATA
3482 flag is set on the "wrong" sections. This heuristic might
3483 also fail to record a valid dll name if the dllname uses
3484 a multibyte or unicode character set (is that valid?).
3486 This heuristic is based on the fact that symbols names in
3487 the chosen section -- as opposed to the dll name -- begin
3488 at offset 2 in the data. The first two bytes are a 16bit
3489 little-endian count, and start at 0x0000. However, the dll
3490 name begins at offset 0 in the data. We assume that the
3491 dll name does not contain unprintable characters. */
3492 if (data
[0] != '\0' && ISPRINT (data
[0])
3493 && ((datasize
< 2) || ISPRINT (data
[1])))
3494 dll_name_list_append (identify_data
->list
, data
);
3499 /* Run through the information gathered from the .o files and the
3500 .def file and work out the best stuff. */
3503 pfunc (const void *a
, const void *b
)
3505 export_type
*ap
= *(export_type
**) a
;
3506 export_type
*bp
= *(export_type
**) b
;
3508 if (ap
->ordinal
== bp
->ordinal
)
3511 /* Unset ordinals go to the bottom. */
3512 if (ap
->ordinal
== -1)
3514 if (bp
->ordinal
== -1)
3516 return (ap
->ordinal
- bp
->ordinal
);
3520 nfunc (const void *a
, const void *b
)
3522 export_type
*ap
= *(export_type
**) a
;
3523 export_type
*bp
= *(export_type
**) b
;
3524 const char *an
= ap
->name
;
3525 const char *bn
= bp
->name
;
3532 an
= (an
[0] == '@') ? an
+ 1 : an
;
3533 bn
= (bn
[0] == '@') ? bn
+ 1 : bn
;
3536 return (strcmp (an
, bn
));
3540 remove_null_names (export_type
**ptr
)
3545 for (dst
= src
= 0; src
< d_nfuncs
; src
++)
3549 ptr
[dst
] = ptr
[src
];
3557 process_duplicates (export_type
**d_export_vec
)
3565 /* Remove duplicates. */
3566 qsort (d_export_vec
, d_nfuncs
, sizeof (export_type
*), nfunc
);
3568 for (i
= 0; i
< d_nfuncs
- 1; i
++)
3570 if (strcmp (d_export_vec
[i
]->name
,
3571 d_export_vec
[i
+ 1]->name
) == 0)
3573 export_type
*a
= d_export_vec
[i
];
3574 export_type
*b
= d_export_vec
[i
+ 1];
3578 /* xgettext:c-format */
3579 inform (_("Warning, ignoring duplicate EXPORT %s %d,%d"),
3580 a
->name
, a
->ordinal
, b
->ordinal
);
3582 if (a
->ordinal
!= -1
3583 && b
->ordinal
!= -1)
3584 /* xgettext:c-format */
3585 fatal (_("Error, duplicate EXPORT with ordinals: %s"),
3588 /* Merge attributes. */
3589 b
->ordinal
= a
->ordinal
> 0 ? a
->ordinal
: b
->ordinal
;
3590 b
->constant
|= a
->constant
;
3591 b
->noname
|= a
->noname
;
3593 d_export_vec
[i
] = 0;
3596 remove_null_names (d_export_vec
);
3600 /* Count the names. */
3601 for (i
= 0; i
< d_nfuncs
; i
++)
3602 if (!d_export_vec
[i
]->noname
)
3607 fill_ordinals (export_type
**d_export_vec
)
3614 qsort (d_export_vec
, d_nfuncs
, sizeof (export_type
*), pfunc
);
3616 /* Fill in the unset ordinals with ones from our range. */
3617 ptr
= (char *) xmalloc (size
);
3619 memset (ptr
, 0, size
);
3621 /* Mark in our large vector all the numbers that are taken. */
3622 for (i
= 0; i
< d_nfuncs
; i
++)
3624 if (d_export_vec
[i
]->ordinal
!= -1)
3626 ptr
[d_export_vec
[i
]->ordinal
] = 1;
3628 if (lowest
== -1 || d_export_vec
[i
]->ordinal
< lowest
)
3629 lowest
= d_export_vec
[i
]->ordinal
;
3633 /* Start at 1 for compatibility with MS toolchain. */
3637 /* Now fill in ordinals where the user wants us to choose. */
3638 for (i
= 0; i
< d_nfuncs
; i
++)
3640 if (d_export_vec
[i
]->ordinal
== -1)
3644 /* First try within or after any user supplied range. */
3645 for (j
= lowest
; j
< size
; j
++)
3649 d_export_vec
[i
]->ordinal
= j
;
3653 /* Then try before the range. */
3654 for (j
= lowest
; j
>0; j
--)
3658 d_export_vec
[i
]->ordinal
= j
;
3668 qsort (d_export_vec
, d_nfuncs
, sizeof (export_type
*), pfunc
);
3670 /* Work out the lowest and highest ordinal numbers. */
3673 if (d_export_vec
[0])
3674 d_low_ord
= d_export_vec
[0]->ordinal
;
3675 if (d_export_vec
[d_nfuncs
-1])
3676 d_high_ord
= d_export_vec
[d_nfuncs
-1]->ordinal
;
3683 /* First work out the minimum ordinal chosen. */
3685 export_type
**d_export_vec
= xmalloc (sizeof (export_type
*) * d_nfuncs
);
3688 inform (_("Processing definitions"));
3690 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
3691 d_export_vec
[i
] = exp
;
3693 process_duplicates (d_export_vec
);
3694 fill_ordinals (d_export_vec
);
3696 /* Put back the list in the new order. */
3698 for (i
= d_nfuncs
- 1; i
>= 0; i
--)
3700 d_export_vec
[i
]->next
= d_exports
;
3701 d_exports
= d_export_vec
[i
];
3704 /* Build list in alpha order. */
3705 d_exports_lexically
= (export_type
**)
3706 xmalloc (sizeof (export_type
*) * (d_nfuncs
+ 1));
3708 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
3709 d_exports_lexically
[i
] = exp
;
3711 d_exports_lexically
[i
] = 0;
3713 qsort (d_exports_lexically
, i
, sizeof (export_type
*), nfunc
);
3715 inform (_("Processed definitions"));
3719 usage (FILE *file
, int status
)
3721 /* xgetext:c-format */
3722 fprintf (file
, _("Usage %s <option(s)> <object-file(s)>\n"), program_name
);
3723 /* xgetext:c-format */
3724 fprintf (file
, _(" -m --machine <machine> Create as DLL for <machine>. [default: %s]\n"), mname
);
3725 fprintf (file
, _(" possible <machine>: arm[_interwork], arm64, i386, mcore[-elf]{-le|-be}, thumb\n"));
3726 fprintf (file
, _(" -e --output-exp <outname> Generate an export file.\n"));
3727 fprintf (file
, _(" -l --output-lib <outname> Generate an interface library.\n"));
3728 fprintf (file
, _(" -y --output-delaylib <outname> Create a delay-import library.\n"));
3729 fprintf (file
, _(" --deterministic-libraries\n"));
3730 if (DEFAULT_AR_DETERMINISTIC
)
3731 fprintf (file
, _(" Use zero for timestamps and uids/gids in output libraries (default)\n"));
3733 fprintf (file
, _(" Use zero for timestamps and uids/gids in output libraries\n"));
3734 fprintf (file
, _(" --non-deterministic-libraries\n"));
3735 if (DEFAULT_AR_DETERMINISTIC
)
3736 fprintf (file
, _(" Use actual timestamps and uids/gids in output libraries\n"));
3738 fprintf (file
, _(" Use actual timestamps and uids/gids in output libraries (default)\n"));
3739 fprintf (file
, _(" -a --add-indirect Add dll indirects to export file.\n"));
3740 fprintf (file
, _(" -D --dllname <name> Name of input dll to put into interface lib.\n"));
3741 fprintf (file
, _(" -d --input-def <deffile> Name of .def file to be read in.\n"));
3742 fprintf (file
, _(" -z --output-def <deffile> Name of .def file to be created.\n"));
3743 fprintf (file
, _(" --export-all-symbols Export all symbols to .def\n"));
3744 fprintf (file
, _(" --no-export-all-symbols Only export listed symbols\n"));
3745 fprintf (file
, _(" --exclude-symbols <list> Don't export <list>\n"));
3746 fprintf (file
, _(" --no-default-excludes Clear default exclude symbols\n"));
3747 fprintf (file
, _(" -b --base-file <basefile> Read linker generated base file.\n"));
3748 fprintf (file
, _(" -x --no-idata4 Don't generate idata$4 section.\n"));
3749 fprintf (file
, _(" -c --no-idata5 Don't generate idata$5 section.\n"));
3750 fprintf (file
, _(" --use-nul-prefixed-import-tables Use zero prefixed idata$4 and idata$5.\n"));
3751 fprintf (file
, _(" -U --add-underscore Add underscores to all symbols in interface library.\n"));
3752 fprintf (file
, _(" --add-stdcall-underscore Add underscores to stdcall symbols in interface library.\n"));
3753 fprintf (file
, _(" --no-leading-underscore All symbols shouldn't be prefixed by an underscore.\n"));
3754 fprintf (file
, _(" --leading-underscore All symbols should be prefixed by an underscore.\n"));
3755 fprintf (file
, _(" -k --kill-at Kill @<n> from exported names.\n"));
3756 fprintf (file
, _(" -A --add-stdcall-alias Add aliases without @<n>.\n"));
3757 fprintf (file
, _(" -p --ext-prefix-alias <prefix> Add aliases with <prefix>.\n"));
3758 fprintf (file
, _(" -S --as <name> Use <name> for assembler.\n"));
3759 fprintf (file
, _(" -f --as-flags <flags> Pass <flags> to the assembler.\n"));
3760 fprintf (file
, _(" -C --compat-implib Create backward compatible import library.\n"));
3761 fprintf (file
, _(" -n --no-delete Keep temp files (repeat for extra preservation).\n"));
3762 fprintf (file
, _(" -t --temp-prefix <prefix> Use <prefix> to construct temp file names.\n"));
3763 fprintf (file
, _(" -I --identify <implib> Report the name of the DLL associated with <implib>.\n"));
3764 fprintf (file
, _(" --identify-strict Causes --identify to report error when multiple DLLs.\n"));
3765 fprintf (file
, _(" -v --verbose Be verbose.\n"));
3766 fprintf (file
, _(" -V --version Display the program version.\n"));
3767 fprintf (file
, _(" -h --help Display this information.\n"));
3768 fprintf (file
, _(" @<file> Read options from <file>.\n"));
3769 #ifdef DLLTOOL_MCORE_ELF
3770 fprintf (file
, _(" -M --mcore-elf <outname> Process mcore-elf object files into <outname>.\n"));
3771 fprintf (file
, _(" -L --linker <name> Use <name> as the linker.\n"));
3772 fprintf (file
, _(" -F --linker-flags <flags> Pass <flags> to the linker.\n"));
3774 if (REPORT_BUGS_TO
[0] && status
== 0)
3775 fprintf (file
, _("Report bugs to %s\n"), REPORT_BUGS_TO
);
3779 /* 150 isn't special; it's just an arbitrary non-ASCII char value. */
3780 enum command_line_switch
3782 OPTION_EXPORT_ALL_SYMS
= 150,
3783 OPTION_NO_EXPORT_ALL_SYMS
,
3784 OPTION_EXCLUDE_SYMS
,
3785 OPTION_NO_DEFAULT_EXCLUDES
,
3786 OPTION_ADD_STDCALL_UNDERSCORE
,
3787 OPTION_USE_NUL_PREFIXED_IMPORT_TABLES
,
3788 OPTION_IDENTIFY_STRICT
,
3789 OPTION_NO_LEADING_UNDERSCORE
,
3790 OPTION_LEADING_UNDERSCORE
,
3791 OPTION_DETERMINISTIC_LIBRARIES
,
3792 OPTION_NON_DETERMINISTIC_LIBRARIES
3795 static const struct option long_options
[] =
3797 {"add-indirect", no_argument
, NULL
, 'a'},
3798 {"add-stdcall-alias", no_argument
, NULL
, 'A'},
3799 {"add-stdcall-underscore", no_argument
, NULL
, OPTION_ADD_STDCALL_UNDERSCORE
},
3800 {"add-underscore", no_argument
, NULL
, 'U'},
3801 {"as", required_argument
, NULL
, 'S'},
3802 {"as-flags", required_argument
, NULL
, 'f'},
3803 {"base-file", required_argument
, NULL
, 'b'},
3804 {"compat-implib", no_argument
, NULL
, 'C'},
3805 {"def", required_argument
, NULL
, 'd'}, /* For compatibility with older versions. */
3806 {"deterministic-libraries", no_argument
, NULL
, OPTION_DETERMINISTIC_LIBRARIES
},
3807 {"dllname", required_argument
, NULL
, 'D'},
3808 {"exclude-symbols", required_argument
, NULL
, OPTION_EXCLUDE_SYMS
},
3809 {"export-all-symbols", no_argument
, NULL
, OPTION_EXPORT_ALL_SYMS
},
3810 {"ext-prefix-alias", required_argument
, NULL
, 'p'},
3811 {"help", no_argument
, NULL
, 'h'},
3812 {"identify", required_argument
, NULL
, 'I'},
3813 {"identify-strict", no_argument
, NULL
, OPTION_IDENTIFY_STRICT
},
3814 {"input-def", required_argument
, NULL
, 'd'},
3815 {"kill-at", no_argument
, NULL
, 'k'},
3816 {"leading-underscore", no_argument
, NULL
, OPTION_LEADING_UNDERSCORE
},
3817 {"machine", required_argument
, NULL
, 'm'},
3818 {"mcore-elf", required_argument
, NULL
, 'M'},
3819 {"no-default-excludes", no_argument
, NULL
, OPTION_NO_DEFAULT_EXCLUDES
},
3820 {"no-delete", no_argument
, NULL
, 'n'},
3821 {"no-export-all-symbols", no_argument
, NULL
, OPTION_NO_EXPORT_ALL_SYMS
},
3822 {"no-idata4", no_argument
, NULL
, 'x'},
3823 {"no-idata5", no_argument
, NULL
, 'c'},
3824 {"no-leading-underscore", no_argument
, NULL
, OPTION_NO_LEADING_UNDERSCORE
},
3825 {"non-deterministic-libraries", no_argument
, NULL
, OPTION_NON_DETERMINISTIC_LIBRARIES
},
3826 {"output-def", required_argument
, NULL
, 'z'},
3827 {"output-delaylib", required_argument
, NULL
, 'y'},
3828 {"output-exp", required_argument
, NULL
, 'e'},
3829 {"output-lib", required_argument
, NULL
, 'l'},
3830 {"temp-prefix", required_argument
, NULL
, 't'},
3831 {"use-nul-prefixed-import-tables", no_argument
, NULL
, OPTION_USE_NUL_PREFIXED_IMPORT_TABLES
},
3832 {"verbose", no_argument
, NULL
, 'v'},
3833 {"version", no_argument
, NULL
, 'V'},
3837 int main (int, char **);
3840 main (int ac
, char **av
)
3845 program_name
= av
[0];
3848 #ifdef HAVE_LC_MESSAGES
3849 setlocale (LC_MESSAGES
, "");
3851 setlocale (LC_CTYPE
, "");
3852 bindtextdomain (PACKAGE
, LOCALEDIR
);
3853 textdomain (PACKAGE
);
3855 bfd_set_error_program_name (program_name
);
3856 expandargv (&ac
, &av
);
3858 while ((c
= getopt_long (ac
, av
,
3859 #ifdef DLLTOOL_MCORE_ELF
3860 "m:e:l:aD:d:z:b:xp:cCuUkAS:t:f:nI:vVHhM:L:F:",
3862 "m:e:l:y:aD:d:z:b:xp:cCuUkAS:t:f:nI:vVHh",
3869 case OPTION_EXPORT_ALL_SYMS
:
3870 export_all_symbols
= true;
3872 case OPTION_NO_EXPORT_ALL_SYMS
:
3873 export_all_symbols
= false;
3875 case OPTION_EXCLUDE_SYMS
:
3876 add_excludes (optarg
);
3878 case OPTION_NO_DEFAULT_EXCLUDES
:
3879 do_default_excludes
= false;
3881 case OPTION_USE_NUL_PREFIXED_IMPORT_TABLES
:
3882 use_nul_prefixed_import_tables
= true;
3884 case OPTION_ADD_STDCALL_UNDERSCORE
:
3885 add_stdcall_underscore
= 1;
3887 case OPTION_NO_LEADING_UNDERSCORE
:
3888 leading_underscore
= 0;
3890 case OPTION_LEADING_UNDERSCORE
:
3891 leading_underscore
= 1;
3893 case OPTION_IDENTIFY_STRICT
:
3894 identify_strict
= 1;
3906 tmp_prefix
= optarg
;
3912 /* Ignored for compatibility. */
3919 output_def
= fopen (optarg
, FOPEN_WT
);
3921 /* xgettext:c-format */
3922 fatal (_("Unable to open def-file: %s"), optarg
);
3925 dll_name
= (char*) lbasename (optarg
);
3926 if (dll_name
!= optarg
)
3927 non_fatal (_("Path components stripped from dllname, '%s'."),
3944 identify_imp_name
= optarg
;
3950 print_version (program_name
);
3959 add_stdcall_alias
= 1;
3962 ext_prefix_alias
= optarg
;
3971 base_file
= fopen (optarg
, FOPEN_RB
);
3974 /* xgettext:c-format */
3975 fatal (_("Unable to open base-file: %s"), optarg
);
3978 #ifdef DLLTOOL_MCORE_ELF
3980 mcore_elf_out_file
= optarg
;
3983 mcore_elf_linker
= optarg
;
3986 mcore_elf_linker_flags
= optarg
;
3990 create_compat_implib
= 1;
3993 delayimp_name
= optarg
;
3995 case OPTION_DETERMINISTIC_LIBRARIES
:
3996 deterministic
= true;
3998 case OPTION_NON_DETERMINISTIC_LIBRARIES
:
3999 deterministic
= false;
4007 for (i
= 0; mtable
[i
].type
; i
++)
4008 if (strcmp (mtable
[i
].type
, mname
) == 0)
4011 if (!mtable
[i
].type
)
4012 /* xgettext:c-format */
4013 fatal (_("Machine '%s' not supported"), mname
);
4017 /* Check if we generated PE+. */
4018 create_for_pep
= strcmp (mname
, "i386:x86-64") == 0 ||
4019 strcmp (mname
, "arm64") == 0;
4022 /* Check the default underscore */
4023 int u
= leading_underscore
; /* Underscoring mode. -1 for use default. */
4025 bfd_get_target_info (mtable
[machine
].how_bfd_target
, NULL
,
4028 leading_underscore
= u
!= 0;
4031 if (!dll_name
&& exp_name
)
4033 /* If we are inferring dll_name from exp_name,
4034 strip off any path components, without emitting
4036 const char* exp_basename
= lbasename (exp_name
);
4037 const int len
= strlen (exp_basename
) + 5;
4038 dll_name
= xmalloc (len
);
4039 strcpy (dll_name
, exp_basename
);
4040 strcat (dll_name
, ".dll");
4041 dll_name_set_by_exp_name
= 1;
4044 if (as_name
== NULL
)
4045 as_name
= deduce_name ("as");
4047 /* Don't use the default exclude list if we're reading only the
4048 symbols in the .drectve section. The default excludes are meant
4049 to avoid exporting DLL entry point and Cygwin32 impure_ptr. */
4050 if (! export_all_symbols
)
4051 do_default_excludes
= false;
4053 if (do_default_excludes
)
4054 set_default_excludes ();
4057 process_def_file (def_file
);
4062 firstarg
= av
[optind
];
4063 scan_obj_file (av
[optind
]);
4067 if (tmp_prefix
== NULL
)
4069 /* If possible use a deterministic prefix. */
4070 if (imp_name
|| delayimp_name
)
4072 const char *input
= imp_name
? imp_name
: delayimp_name
;
4073 tmp_prefix
= xmalloc (strlen (input
) + 2);
4074 sprintf (tmp_prefix
, "%s_", input
);
4075 for (i
= 0; tmp_prefix
[i
]; i
++)
4076 if (!ISALNUM (tmp_prefix
[i
]))
4077 tmp_prefix
[i
] = '_';
4081 tmp_prefix
= prefix_encode ("d", getpid ());
4092 /* Make imp_name safe for use as a label. */
4095 imp_name_lab
= xstrdup (imp_name
);
4096 for (p
= imp_name_lab
; *p
; p
++)
4101 head_label
= make_label("_head_", imp_name_lab
);
4107 /* Make delayimp_name safe for use as a label. */
4110 if (mtable
[machine
].how_dljtab
== 0)
4112 inform (_("Warning, machine type (%d) not supported for "
4113 "delayimport."), machine
);
4118 imp_name
= delayimp_name
;
4119 imp_name_lab
= xstrdup (imp_name
);
4120 for (p
= imp_name_lab
; *p
; p
++)
4125 head_label
= make_label("__tailMerge_", imp_name_lab
);
4133 if (identify_imp_name
)
4135 identify_dll_for_implib ();
4138 #ifdef DLLTOOL_MCORE_ELF
4139 if (mcore_elf_out_file
)
4140 mcore_elf_gen_out_file ();
4146 /* Look for the program formed by concatenating PROG_NAME and the
4147 string running from PREFIX to END_PREFIX. If the concatenated
4148 string contains a '/', try appending EXECUTABLE_SUFFIX if it is
4152 look_for_prog (const char *prog_name
, const char *prefix
, int end_prefix
)
4157 cmd
= xmalloc (strlen (prefix
)
4158 + strlen (prog_name
)
4159 #ifdef HAVE_EXECUTABLE_SUFFIX
4160 + strlen (EXECUTABLE_SUFFIX
)
4163 strcpy (cmd
, prefix
);
4165 sprintf (cmd
+ end_prefix
, "%s", prog_name
);
4167 if (strchr (cmd
, '/') != NULL
)
4171 found
= (stat (cmd
, &s
) == 0
4172 #ifdef HAVE_EXECUTABLE_SUFFIX
4173 || stat (strcat (cmd
, EXECUTABLE_SUFFIX
), &s
) == 0
4179 /* xgettext:c-format */
4180 inform (_("Tried file: %s"), cmd
);
4186 /* xgettext:c-format */
4187 inform (_("Using file: %s"), cmd
);
4192 /* Deduce the name of the program we are want to invoke.
4193 PROG_NAME is the basic name of the program we want to run,
4194 eg "as" or "ld". The catch is that we might want actually
4197 If argv[0] contains the full path, then try to find the program
4198 in the same place, with and then without a target-like prefix.
4200 Given, argv[0] = /usr/local/bin/i586-cygwin32-dlltool,
4201 deduce_name("as") uses the following search order:
4203 /usr/local/bin/i586-cygwin32-as
4207 If there's an EXECUTABLE_SUFFIX, it'll use that as well; for each
4208 name, it'll try without and then with EXECUTABLE_SUFFIX.
4210 Given, argv[0] = i586-cygwin32-dlltool, it will not even try "as"
4211 as the fallback, but rather return i586-cygwin32-as.
4213 Oh, and given, argv[0] = dlltool, it'll return "as".
4215 Returns a dynamically allocated string. */
4218 deduce_name (const char *prog_name
)
4221 char *dash
, *slash
, *cp
;
4225 for (cp
= program_name
; *cp
!= '\0'; ++cp
)
4230 #if defined(__DJGPP__) || defined (__CYGWIN__) || defined(__WIN32__)
4231 *cp
== ':' || *cp
== '\\' ||
4244 /* First, try looking for a prefixed PROG_NAME in the
4245 PROGRAM_NAME directory, with the same prefix as PROGRAM_NAME. */
4246 cmd
= look_for_prog (prog_name
, program_name
, dash
- program_name
+ 1);
4249 if (slash
!= NULL
&& cmd
== NULL
)
4251 /* Next, try looking for a PROG_NAME in the same directory as
4252 that of this program. */
4253 cmd
= look_for_prog (prog_name
, program_name
, slash
- program_name
+ 1);
4258 /* Just return PROG_NAME as is. */
4259 cmd
= xstrdup (prog_name
);
4265 #ifdef DLLTOOL_MCORE_ELF
4266 typedef struct fname_cache
4268 const char * filename
;
4269 struct fname_cache
* next
;
4273 static fname_cache fnames
;
4276 mcore_elf_cache_filename (const char * filename
)
4282 while (ptr
->next
!= NULL
)
4285 ptr
->filename
= filename
;
4286 ptr
->next
= (fname_cache
*) malloc (sizeof (fname_cache
));
4287 if (ptr
->next
!= NULL
)
4288 ptr
->next
->next
= NULL
;
4291 #define MCORE_ELF_TMP_OBJ "mcoreelf.o"
4292 #define MCORE_ELF_TMP_EXP "mcoreelf.exp"
4293 #define MCORE_ELF_TMP_LIB "mcoreelf.lib"
4296 mcore_elf_gen_out_file (void)
4301 /* Step one. Run 'ld -r' on the input object files in order to resolve
4302 any internal references and to generate a single .exports section. */
4305 ds
= dyn_string_new (100);
4306 dyn_string_append_cstr (ds
, "-r ");
4308 if (mcore_elf_linker_flags
!= NULL
)
4309 dyn_string_append_cstr (ds
, mcore_elf_linker_flags
);
4311 while (ptr
->next
!= NULL
)
4313 dyn_string_append_cstr (ds
, ptr
->filename
);
4314 dyn_string_append_cstr (ds
, " ");
4319 dyn_string_append_cstr (ds
, "-o ");
4320 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_OBJ
);
4322 if (mcore_elf_linker
== NULL
)
4323 mcore_elf_linker
= deduce_name ("ld");
4325 run (mcore_elf_linker
, ds
->s
);
4327 dyn_string_delete (ds
);
4329 /* Step two. Create a .exp file and a .lib file from the temporary file.
4330 Do this by recursively invoking dlltool... */
4331 ds
= dyn_string_new (100);
4333 dyn_string_append_cstr (ds
, "-S ");
4334 dyn_string_append_cstr (ds
, as_name
);
4336 dyn_string_append_cstr (ds
, " -e ");
4337 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_EXP
);
4338 dyn_string_append_cstr (ds
, " -l ");
4339 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_LIB
);
4340 dyn_string_append_cstr (ds
, " " );
4341 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_OBJ
);
4344 dyn_string_append_cstr (ds
, " -v");
4348 dyn_string_append_cstr (ds
, " -n");
4350 if (dontdeltemps
> 1)
4351 dyn_string_append_cstr (ds
, " -n");
4354 /* XXX - FIME: ought to check/copy other command line options as well. */
4355 run (program_name
, ds
->s
);
4357 dyn_string_delete (ds
);
4359 /* Step four. Feed the .exp and object files to ld -shared to create the dll. */
4360 ds
= dyn_string_new (100);
4362 dyn_string_append_cstr (ds
, "-shared ");
4364 if (mcore_elf_linker_flags
)
4365 dyn_string_append_cstr (ds
, mcore_elf_linker_flags
);
4367 dyn_string_append_cstr (ds
, " ");
4368 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_EXP
);
4369 dyn_string_append_cstr (ds
, " ");
4370 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_OBJ
);
4371 dyn_string_append_cstr (ds
, " -o ");
4372 dyn_string_append_cstr (ds
, mcore_elf_out_file
);
4374 run (mcore_elf_linker
, ds
->s
);
4376 dyn_string_delete (ds
);
4378 if (dontdeltemps
== 0)
4379 unlink (MCORE_ELF_TMP_EXP
);
4381 if (dontdeltemps
< 2)
4382 unlink (MCORE_ELF_TMP_OBJ
);
4384 #endif /* DLLTOOL_MCORE_ELF */