1 /* dlltool.c -- tool to generate stuff for PE style DLLs
2 Copyright (C) 1995-2017 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"). (.idata$6 for ppc). */
236 #include "libiberty.h"
238 #include "demangle.h"
239 #include "dyn-string.h"
242 #include "safe-ctype.h"
248 #include "coff/arm.h"
249 #include "coff/internal.h"
251 #ifdef DLLTOOL_DEFAULT_MX86_64
252 #include "coff/x86_64.h"
254 #ifdef DLLTOOL_DEFAULT_I386
255 #include "coff/i386.h"
258 #ifndef COFF_PAGE_SIZE
259 #define COFF_PAGE_SIZE ((bfd_vma) 4096)
263 #define PAGE_MASK ((bfd_vma) (- COFF_PAGE_SIZE))
266 /* Get current BFD error message. */
267 #define bfd_get_errmsg() (bfd_errmsg (bfd_get_error ()))
269 /* Forward references. */
270 static char *look_for_prog (const char *, const char *, int);
271 static char *deduce_name (const char *);
273 #ifdef DLLTOOL_MCORE_ELF
274 static void mcore_elf_cache_filename (const char *);
275 static void mcore_elf_gen_out_file (void);
278 #ifdef HAVE_SYS_WAIT_H
279 #include <sys/wait.h>
280 #else /* ! HAVE_SYS_WAIT_H */
281 #if ! defined (_WIN32) || defined (__CYGWIN32__)
283 #define WIFEXITED(w) (((w) & 0377) == 0)
286 #define WIFSIGNALED(w) (((w) & 0377) != 0177 && ((w) & ~0377) == 0)
289 #define WTERMSIG(w) ((w) & 0177)
292 #define WEXITSTATUS(w) (((w) >> 8) & 0377)
294 #else /* defined (_WIN32) && ! defined (__CYGWIN32__) */
296 #define WIFEXITED(w) (((w) & 0xff) == 0)
299 #define WIFSIGNALED(w) (((w) & 0xff) != 0 && ((w) & 0xff) != 0x7f)
302 #define WTERMSIG(w) ((w) & 0x7f)
305 #define WEXITSTATUS(w) (((w) & 0xff00) >> 8)
307 #endif /* defined (_WIN32) && ! defined (__CYGWIN32__) */
308 #endif /* ! HAVE_SYS_WAIT_H */
310 #define show_allnames 0
312 /* ifunc and ihead data structures: ttk@cygnus.com 1997
314 When IMPORT declarations are encountered in a .def file the
315 function import information is stored in a structure referenced by
316 the global variable IMPORT_LIST. The structure is a linked list
317 containing the names of the dll files each function is imported
318 from and a linked list of functions being imported from that dll
319 file. This roughly parallels the structure of the .idata section
320 in the PE object file.
322 The contents of .def file are interpreted from within the
323 process_def_file function. Every time an IMPORT declaration is
324 encountered, it is broken up into its component parts and passed to
325 def_import. IMPORT_LIST is initialized to NULL in function main. */
327 typedef struct ifunct
329 char * name
; /* Name of function being imported. */
330 char * its_name
; /* Optional import table symbol name. */
331 int ord
; /* Two-byte ordinal value associated with function. */
335 typedef struct iheadt
337 char * dllname
; /* Name of dll file imported from. */
338 long nfuncs
; /* Number of functions in list. */
339 struct ifunct
*funchead
; /* First function in list. */
340 struct ifunct
*functail
; /* Last function in list. */
341 struct iheadt
*next
; /* Next dll file in list. */
344 /* Structure containing all import information as defined in .def file
345 (qv "ihead structure"). */
347 static iheadtype
*import_list
= NULL
;
348 static char *as_name
= NULL
;
349 static char * as_flags
= "";
350 static char *tmp_prefix
;
351 static int no_idata4
;
352 static int no_idata5
;
353 static char *exp_name
;
354 static char *imp_name
;
355 static char *delayimp_name
;
356 static char *identify_imp_name
;
357 static bfd_boolean identify_strict
;
359 /* Types used to implement a linked list of dllnames associated
360 with the specified import lib. Used by the identify_* code.
361 The head entry is acts as a sentinal node and is always empty
362 (head->dllname is NULL). */
363 typedef struct dll_name_list_node_t
366 struct dll_name_list_node_t
* next
;
367 } dll_name_list_node_type
;
369 typedef struct dll_name_list_t
371 dll_name_list_node_type
* head
;
372 dll_name_list_node_type
* tail
;
373 } dll_name_list_type
;
375 /* Types used to pass data to iterator functions. */
376 typedef struct symname_search_data_t
378 const char * symname
;
380 } symname_search_data_type
;
382 typedef struct identify_data_t
384 dll_name_list_type
* list
;
385 bfd_boolean ms_style_implib
;
386 } identify_data_type
;
389 static char *head_label
;
390 static char *imp_name_lab
;
391 static char *dll_name
;
392 static int dll_name_set_by_exp_name
;
393 static int add_indirect
= 0;
394 static int add_underscore
= 0;
395 static int add_stdcall_underscore
= 0;
396 /* This variable can hold three different values. The value
397 -1 (default) means that default underscoring should be used,
398 zero means that no underscoring should be done, and one
399 indicates that underscoring should be done. */
400 static int leading_underscore
= -1;
401 static int dontdeltemps
= 0;
403 /* TRUE if we should export all symbols. Otherwise, we only export
404 symbols listed in .drectve sections or in the def file. */
405 static bfd_boolean export_all_symbols
;
407 /* TRUE if we should exclude the symbols in DEFAULT_EXCLUDES when
408 exporting all symbols. */
409 static bfd_boolean do_default_excludes
= TRUE
;
411 static bfd_boolean use_nul_prefixed_import_tables
= FALSE
;
413 /* Default symbols to exclude when exporting all the symbols. */
414 static const char *default_excludes
= "DllMain@12,DllEntryPoint@0,impure_ptr";
416 /* TRUE if we should add __imp_<SYMBOL> to import libraries for backward
417 compatibility to old Cygwin releases. */
418 static bfd_boolean create_compat_implib
;
420 /* TRUE if we have to write PE+ import libraries. */
421 static bfd_boolean create_for_pep
;
423 static char *def_file
;
425 extern char * program_name
;
429 static int add_stdcall_alias
;
430 static const char *ext_prefix_alias
;
432 static FILE *output_def
;
433 static FILE *base_file
;
435 #ifdef DLLTOOL_DEFAULT_ARM
436 static const char *mname
= "arm";
439 #ifdef DLLTOOL_DEFAULT_ARM_EPOC
440 static const char *mname
= "arm-epoc";
443 #ifdef DLLTOOL_DEFAULT_ARM_WINCE
444 static const char *mname
= "arm-wince";
447 #ifdef DLLTOOL_DEFAULT_I386
448 static const char *mname
= "i386";
451 #ifdef DLLTOOL_DEFAULT_MX86_64
452 static const char *mname
= "i386:x86-64";
455 #ifdef DLLTOOL_DEFAULT_PPC
456 static const char *mname
= "ppc";
459 #ifdef DLLTOOL_DEFAULT_SH
460 static const char *mname
= "sh";
463 #ifdef DLLTOOL_DEFAULT_MIPS
464 static const char *mname
= "mips";
467 #ifdef DLLTOOL_DEFAULT_MCORE
468 static const char * mname
= "mcore-le";
471 #ifdef DLLTOOL_DEFAULT_MCORE_ELF
472 static const char * mname
= "mcore-elf";
473 static char * mcore_elf_out_file
= NULL
;
474 static char * mcore_elf_linker
= NULL
;
475 static char * mcore_elf_linker_flags
= NULL
;
477 #define DRECTVE_SECTION_NAME ((machine == MMCORE_ELF || machine == MMCORE_ELF_LE) ? ".exports" : ".drectve")
480 #ifndef DRECTVE_SECTION_NAME
481 #define DRECTVE_SECTION_NAME ".drectve"
484 /* What's the right name for this ? */
487 /* External name alias numbering starts here. */
488 #define PREFIX_ALIAS_BASE 20000
491 char *tmp_head_s_buf
;
492 char *tmp_head_o_buf
;
493 char *tmp_tail_s_buf
;
494 char *tmp_tail_o_buf
;
497 #define TMP_ASM dlltmp (&tmp_asm_buf, "%sc.s")
498 #define TMP_HEAD_S dlltmp (&tmp_head_s_buf, "%sh.s")
499 #define TMP_HEAD_O dlltmp (&tmp_head_o_buf, "%sh.o")
500 #define TMP_TAIL_S dlltmp (&tmp_tail_s_buf, "%st.s")
501 #define TMP_TAIL_O dlltmp (&tmp_tail_o_buf, "%st.o")
502 #define TMP_STUB dlltmp (&tmp_stub_buf, "%ss")
504 /* This bit of assembly does jmp * .... */
505 static const unsigned char i386_jtab
[] =
507 0xff, 0x25, 0x00, 0x00, 0x00, 0x00, 0x90, 0x90
510 static const unsigned char i386_dljtab
[] =
512 0xFF, 0x25, 0x00, 0x00, 0x00, 0x00, /* jmp __imp__function */
513 0xB8, 0x00, 0x00, 0x00, 0x00, /* mov eax, offset __imp__function */
514 0xE9, 0x00, 0x00, 0x00, 0x00 /* jmp __tailMerge__dllname */
517 static const unsigned char i386_x64_dljtab
[] =
519 0xFF, 0x25, 0x00, 0x00, 0x00, 0x00, /* jmp __imp__function */
520 0x48, 0x8d, 0x05, /* leaq rax, (__imp__function) */
521 0x00, 0x00, 0x00, 0x00,
522 0xE9, 0x00, 0x00, 0x00, 0x00 /* jmp __tailMerge__dllname */
525 static const unsigned char arm_jtab
[] =
527 0x00, 0xc0, 0x9f, 0xe5, /* ldr ip, [pc] */
528 0x00, 0xf0, 0x9c, 0xe5, /* ldr pc, [ip] */
532 static const unsigned char arm_interwork_jtab
[] =
534 0x04, 0xc0, 0x9f, 0xe5, /* ldr ip, [pc] */
535 0x00, 0xc0, 0x9c, 0xe5, /* ldr ip, [ip] */
536 0x1c, 0xff, 0x2f, 0xe1, /* bx ip */
540 static const unsigned char thumb_jtab
[] =
542 0x40, 0xb4, /* push {r6} */
543 0x02, 0x4e, /* ldr r6, [pc, #8] */
544 0x36, 0x68, /* ldr r6, [r6] */
545 0xb4, 0x46, /* mov ip, r6 */
546 0x40, 0xbc, /* pop {r6} */
547 0x60, 0x47, /* bx ip */
551 static const unsigned char mcore_be_jtab
[] =
553 0x71, 0x02, /* lrw r1,2 */
554 0x81, 0x01, /* ld.w r1,(r1,0) */
555 0x00, 0xC1, /* jmp r1 */
556 0x12, 0x00, /* nop */
557 0x00, 0x00, 0x00, 0x00 /* <address> */
560 static const unsigned char mcore_le_jtab
[] =
562 0x02, 0x71, /* lrw r1,2 */
563 0x01, 0x81, /* ld.w r1,(r1,0) */
564 0xC1, 0x00, /* jmp r1 */
565 0x00, 0x12, /* nop */
566 0x00, 0x00, 0x00, 0x00 /* <address> */
569 /* This is the glue sequence for PowerPC PE. There is a
570 tocrel16-tocdefn reloc against the first instruction.
571 We also need a IMGLUE reloc against the glue function
572 to restore the toc saved by the third instruction in
574 static const unsigned char ppc_jtab
[] =
576 0x00, 0x00, 0x62, 0x81, /* lwz r11,0(r2) */
577 /* Reloc TOCREL16 __imp_xxx */
578 0x00, 0x00, 0x8B, 0x81, /* lwz r12,0(r11) */
579 0x04, 0x00, 0x41, 0x90, /* stw r2,4(r1) */
580 0xA6, 0x03, 0x89, 0x7D, /* mtctr r12 */
581 0x04, 0x00, 0x4B, 0x80, /* lwz r2,4(r11) */
582 0x20, 0x04, 0x80, 0x4E /* bctr */
586 /* The glue instruction, picks up the toc from the stw in
587 the above code: "lwz r2,4(r1)". */
588 static bfd_vma ppc_glue_insn
= 0x80410004;
591 static const char i386_trampoline
[] =
595 "\tpushl $__DELAY_IMPORT_DESCRIPTOR_%s\n"
596 "\tcall ___delayLoadHelper2@8\n"
601 static const char i386_x64_trampoline
[] =
606 "\tsubq $40, %%rsp\n"
607 "\tmovq %%rax, %%rdx\n"
608 "\tleaq __DELAY_IMPORT_DESCRIPTOR_%s(%%rip), %%rcx\n"
609 "\tcall __delayLoadHelper2\n"
610 "\taddq $40, %%rsp\n"
620 const char *how_byte
;
621 const char *how_short
;
622 const char *how_long
;
623 const char *how_asciz
;
624 const char *how_comment
;
625 const char *how_jump
;
626 const char *how_global
;
627 const char *how_space
;
628 const char *how_align_short
;
629 const char *how_align_long
;
630 const char *how_default_as_switches
;
631 const char *how_bfd_target
;
632 enum bfd_architecture how_bfd_arch
;
633 const unsigned char *how_jtab
;
634 int how_jtab_size
; /* Size of the jtab entry. */
635 int how_jtab_roff
; /* Offset into it for the ind 32 reloc into idata 5. */
636 const unsigned char *how_dljtab
;
637 int how_dljtab_size
; /* Size of the dljtab entry. */
638 int how_dljtab_roff1
; /* Offset for the ind 32 reloc into idata 5. */
639 int how_dljtab_roff2
; /* Offset for the ind 32 reloc into idata 5. */
640 int how_dljtab_roff3
; /* Offset for the ind 32 reloc into idata 5. */
641 const char *trampoline
;
644 static const struct mac
649 "arm", ".byte", ".short", ".long", ".asciz", "@",
650 "ldr\tip,[pc]\n\tldr\tpc,[ip]\n\t.long",
651 ".global", ".space", ".align\t2",".align\t4", "-mapcs-32",
652 "pe-arm-little", bfd_arch_arm
,
653 arm_jtab
, sizeof (arm_jtab
), 8,
659 "i386", ".byte", ".short", ".long", ".asciz", "#",
660 "jmp *", ".global", ".space", ".align\t2",".align\t4", "",
661 "pe-i386",bfd_arch_i386
,
662 i386_jtab
, sizeof (i386_jtab
), 2,
663 i386_dljtab
, sizeof (i386_dljtab
), 2, 7, 12, i386_trampoline
668 "ppc", ".byte", ".short", ".long", ".asciz", "#",
669 "jmp *", ".global", ".space", ".align\t2",".align\t4", "",
670 "pe-powerpcle",bfd_arch_powerpc
,
671 ppc_jtab
, sizeof (ppc_jtab
), 0,
677 "thumb", ".byte", ".short", ".long", ".asciz", "@",
678 "push\t{r6}\n\tldr\tr6, [pc, #8]\n\tldr\tr6, [r6]\n\tmov\tip, r6\n\tpop\t{r6}\n\tbx\tip",
679 ".global", ".space", ".align\t2",".align\t4", "-mthumb-interwork",
680 "pe-arm-little", bfd_arch_arm
,
681 thumb_jtab
, sizeof (thumb_jtab
), 12,
685 #define MARM_INTERWORK 4
687 "arm_interwork", ".byte", ".short", ".long", ".asciz", "@",
688 "ldr\tip,[pc]\n\tldr\tip,[ip]\n\tbx\tip\n\t.long",
689 ".global", ".space", ".align\t2",".align\t4", "-mthumb-interwork",
690 "pe-arm-little", bfd_arch_arm
,
691 arm_interwork_jtab
, sizeof (arm_interwork_jtab
), 12,
697 "mcore-be", ".byte", ".short", ".long", ".asciz", "//",
698 "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
699 ".global", ".space", ".align\t2",".align\t4", "",
700 "pe-mcore-big", bfd_arch_mcore
,
701 mcore_be_jtab
, sizeof (mcore_be_jtab
), 8,
707 "mcore-le", ".byte", ".short", ".long", ".asciz", "//",
708 "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
709 ".global", ".space", ".align\t2",".align\t4", "-EL",
710 "pe-mcore-little", bfd_arch_mcore
,
711 mcore_le_jtab
, sizeof (mcore_le_jtab
), 8,
717 "mcore-elf-be", ".byte", ".short", ".long", ".asciz", "//",
718 "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
719 ".global", ".space", ".align\t2",".align\t4", "",
720 "elf32-mcore-big", bfd_arch_mcore
,
721 mcore_be_jtab
, sizeof (mcore_be_jtab
), 8,
726 #define MMCORE_ELF_LE 8
727 "mcore-elf-le", ".byte", ".short", ".long", ".asciz", "//",
728 "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
729 ".global", ".space", ".align\t2",".align\t4", "-EL",
730 "elf32-mcore-little", bfd_arch_mcore
,
731 mcore_le_jtab
, sizeof (mcore_le_jtab
), 8,
737 "arm-epoc", ".byte", ".short", ".long", ".asciz", "@",
738 "ldr\tip,[pc]\n\tldr\tpc,[ip]\n\t.long",
739 ".global", ".space", ".align\t2",".align\t4", "",
740 "epoc-pe-arm-little", bfd_arch_arm
,
741 arm_jtab
, sizeof (arm_jtab
), 8,
746 #define MARM_WINCE 10
747 "arm-wince", ".byte", ".short", ".long", ".asciz", "@",
748 "ldr\tip,[pc]\n\tldr\tpc,[ip]\n\t.long",
749 ".global", ".space", ".align\t2",".align\t4", "-mapcs-32",
750 "pe-arm-wince-little", bfd_arch_arm
,
751 arm_jtab
, sizeof (arm_jtab
), 8,
757 "i386:x86-64", ".byte", ".short", ".long", ".asciz", "#",
758 "jmp *", ".global", ".space", ".align\t2",".align\t4", "",
759 "pe-x86-64",bfd_arch_i386
,
760 i386_jtab
, sizeof (i386_jtab
), 2,
761 i386_x64_dljtab
, sizeof (i386_x64_dljtab
), 2, 9, 14, i386_x64_trampoline
764 { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }
774 typedef struct export
777 const char *internal_name
;
778 const char *import_name
;
779 const char *its_name
;
782 int noname
; /* Don't put name in image file. */
783 int private; /* Don't put reference in import lib. */
785 int forward
; /* Number of forward label, 0 means no forward. */
790 /* A list of symbols which we should not export. */
794 struct string_list
*next
;
798 static struct string_list
*excludes
;
800 static const char *rvaafter (int);
801 static const char *rvabefore (int);
802 static const char *asm_prefix (int, const char *);
803 static void process_def_file (const char *);
804 static void new_directive (char *);
805 static void append_import (const char *, const char *, int, const char *);
806 static void run (const char *, char *);
807 static void scan_drectve_symbols (bfd
*);
808 static void scan_filtered_symbols (bfd
*, void *, long, unsigned int);
809 static void add_excludes (const char *);
810 static bfd_boolean
match_exclude (const char *);
811 static void set_default_excludes (void);
812 static long filter_symbols (bfd
*, void *, long, unsigned int);
813 static void scan_all_symbols (bfd
*);
814 static void scan_open_obj_file (bfd
*);
815 static void scan_obj_file (const char *);
816 static void dump_def_info (FILE *);
817 static int sfunc (const void *, const void *);
818 static void flush_page (FILE *, bfd_vma
*, bfd_vma
, int);
819 static void gen_def_file (void);
820 static void generate_idata_ofile (FILE *);
821 static void assemble_file (const char *, const char *);
822 static void gen_exp_file (void);
823 static const char *xlate (const char *);
824 static char *make_label (const char *, const char *);
825 static char *make_imp_label (const char *, const char *);
826 static bfd
*make_one_lib_file (export_type
*, int, int);
827 static bfd
*make_head (void);
828 static bfd
*make_tail (void);
829 static bfd
*make_delay_head (void);
830 static void gen_lib_file (int);
831 static void dll_name_list_append (dll_name_list_type
*, bfd_byte
*);
832 static int dll_name_list_count (dll_name_list_type
*);
833 static void dll_name_list_print (dll_name_list_type
*);
834 static void dll_name_list_free_contents (dll_name_list_node_type
*);
835 static void dll_name_list_free (dll_name_list_type
*);
836 static dll_name_list_type
* dll_name_list_create (void);
837 static void identify_dll_for_implib (void);
838 static void identify_search_archive
839 (bfd
*, void (*) (bfd
*, bfd
*, void *), void *);
840 static void identify_search_member (bfd
*, bfd
*, void *);
841 static bfd_boolean
identify_process_section_p (asection
*, bfd_boolean
);
842 static void identify_search_section (bfd
*, asection
*, void *);
843 static void identify_member_contains_symname (bfd
*, bfd
*, void *);
845 static int pfunc (const void *, const void *);
846 static int nfunc (const void *, const void *);
847 static void remove_null_names (export_type
**);
848 static void process_duplicates (export_type
**);
849 static void fill_ordinals (export_type
**);
850 static void mangle_defs (void);
851 static void usage (FILE *, int);
852 static void inform (const char *, ...) ATTRIBUTE_PRINTF_1
;
853 static void set_dll_name_from_def (const char *name
, char is_dll
);
856 prefix_encode (char *start
, unsigned code
)
858 static char alpha
[26] = "abcdefghijklmnopqrstuvwxyz";
862 p
= strchr (buf
, '\0');
864 *p
++ = alpha
[code
% sizeof (alpha
)];
865 while ((code
/= sizeof (alpha
)) != 0);
871 dlltmp (char **buf
, const char *fmt
)
875 *buf
= malloc (strlen (tmp_prefix
) + 64);
876 sprintf (*buf
, fmt
, tmp_prefix
);
882 inform (const char * message
, ...)
886 va_start (args
, message
);
891 report (message
, args
);
915 /* xgettext:c-format */
916 fatal (_("Internal error: Unknown machine type: %d"), mach
);
941 /* xgettext:c-format */
942 fatal (_("Internal error: Unknown machine type: %d"), mach
);
949 asm_prefix (int mach
, const char *name
)
966 /* Symbol names starting with ? do not have a leading underscore. */
967 if ((name
&& *name
== '?') || leading_underscore
== 0)
972 /* xgettext:c-format */
973 fatal (_("Internal error: Unknown machine type: %d"), mach
);
979 #define ASM_BYTE mtable[machine].how_byte
980 #define ASM_SHORT mtable[machine].how_short
981 #define ASM_LONG mtable[machine].how_long
982 #define ASM_TEXT mtable[machine].how_asciz
983 #define ASM_C mtable[machine].how_comment
984 #define ASM_JUMP mtable[machine].how_jump
985 #define ASM_GLOBAL mtable[machine].how_global
986 #define ASM_SPACE mtable[machine].how_space
987 #define ASM_ALIGN_SHORT mtable[machine].how_align_short
988 #define ASM_RVA_BEFORE rvabefore (machine)
989 #define ASM_RVA_AFTER rvaafter (machine)
990 #define ASM_PREFIX(NAME) asm_prefix (machine, (NAME))
991 #define ASM_ALIGN_LONG mtable[machine].how_align_long
992 #define HOW_BFD_READ_TARGET 0 /* Always default. */
993 #define HOW_BFD_WRITE_TARGET mtable[machine].how_bfd_target
994 #define HOW_BFD_ARCH mtable[machine].how_bfd_arch
995 #define HOW_JTAB (delay ? mtable[machine].how_dljtab \
996 : mtable[machine].how_jtab)
997 #define HOW_JTAB_SIZE (delay ? mtable[machine].how_dljtab_size \
998 : mtable[machine].how_jtab_size)
999 #define HOW_JTAB_ROFF (delay ? mtable[machine].how_dljtab_roff1 \
1000 : mtable[machine].how_jtab_roff)
1001 #define HOW_JTAB_ROFF2 (delay ? mtable[machine].how_dljtab_roff2 : 0)
1002 #define HOW_JTAB_ROFF3 (delay ? mtable[machine].how_dljtab_roff3 : 0)
1003 #define ASM_SWITCHES mtable[machine].how_default_as_switches
1008 process_def_file (const char *name
)
1010 FILE *f
= fopen (name
, FOPEN_RT
);
1013 /* xgettext:c-format */
1014 fatal (_("Can't open def file: %s"), name
);
1018 /* xgettext:c-format */
1019 inform (_("Processing def file: %s"), name
);
1023 inform (_("Processed def file"));
1026 /**********************************************************************/
1028 /* Communications with the parser. */
1030 static int d_nfuncs
; /* Number of functions exported. */
1031 static int d_named_nfuncs
; /* Number of named functions exported. */
1032 static int d_low_ord
; /* Lowest ordinal index. */
1033 static int d_high_ord
; /* Highest ordinal index. */
1034 static export_type
*d_exports
; /* List of exported functions. */
1035 static export_type
**d_exports_lexically
; /* Vector of exported functions in alpha order. */
1036 static dlist_type
*d_list
; /* Descriptions. */
1037 static dlist_type
*a_list
; /* Stuff to go in directives. */
1038 static int d_nforwards
= 0; /* Number of forwarded exports. */
1040 static int d_is_dll
;
1041 static int d_is_exe
;
1044 yyerror (const char * err ATTRIBUTE_UNUSED
)
1046 /* xgettext:c-format */
1047 non_fatal (_("Syntax error in def file %s:%d"), def_file
, linenumber
);
1053 def_exports (const char *name
, const char *internal_name
, int ordinal
,
1054 int noname
, int constant
, int data
, int private,
1055 const char *its_name
)
1057 struct export
*p
= (struct export
*) xmalloc (sizeof (*p
));
1060 p
->internal_name
= internal_name
? internal_name
: name
;
1061 p
->its_name
= its_name
;
1062 p
->import_name
= name
;
1063 p
->ordinal
= ordinal
;
1064 p
->constant
= constant
;
1066 p
->private = private;
1068 p
->next
= d_exports
;
1072 if ((internal_name
!= NULL
)
1073 && (strchr (internal_name
, '.') != NULL
))
1074 p
->forward
= ++d_nforwards
;
1076 p
->forward
= 0; /* no forward */
1080 set_dll_name_from_def (const char *name
, char is_dll
)
1082 const char *image_basename
= lbasename (name
);
1083 if (image_basename
!= name
)
1084 non_fatal (_("%s: Path components stripped from image name, '%s'."),
1086 /* Append the default suffix, if none specified. */
1087 if (strchr (image_basename
, '.') == 0)
1089 const char * suffix
= is_dll
? ".dll" : ".exe";
1091 dll_name
= xmalloc (strlen (image_basename
) + strlen (suffix
) + 1);
1092 sprintf (dll_name
, "%s%s", image_basename
, suffix
);
1095 dll_name
= xstrdup (image_basename
);
1099 def_name (const char *name
, int base
)
1101 /* xgettext:c-format */
1102 inform (_("NAME: %s base: %x"), name
, base
);
1105 non_fatal (_("Can't have LIBRARY and NAME"));
1107 if (dll_name_set_by_exp_name
&& name
&& *name
!= 0)
1110 dll_name_set_by_exp_name
= 0;
1112 /* If --dllname not provided, use the one in the DEF file.
1113 FIXME: Is this appropriate for executables? */
1115 set_dll_name_from_def (name
, 0);
1120 def_library (const char *name
, int base
)
1122 /* xgettext:c-format */
1123 inform (_("LIBRARY: %s base: %x"), name
, base
);
1126 non_fatal (_("Can't have LIBRARY and NAME"));
1128 if (dll_name_set_by_exp_name
&& name
&& *name
!= 0)
1131 dll_name_set_by_exp_name
= 0;
1134 /* If --dllname not provided, use the one in the DEF file. */
1136 set_dll_name_from_def (name
, 1);
1141 def_description (const char *desc
)
1143 dlist_type
*d
= (dlist_type
*) xmalloc (sizeof (dlist_type
));
1144 d
->text
= xstrdup (desc
);
1150 new_directive (char *dir
)
1152 dlist_type
*d
= (dlist_type
*) xmalloc (sizeof (dlist_type
));
1153 d
->text
= xstrdup (dir
);
1159 def_heapsize (int reserve
, int commit
)
1163 sprintf (b
, "-heap 0x%x,0x%x ", reserve
, commit
);
1165 sprintf (b
, "-heap 0x%x ", reserve
);
1166 new_directive (xstrdup (b
));
1170 def_stacksize (int reserve
, int commit
)
1174 sprintf (b
, "-stack 0x%x,0x%x ", reserve
, commit
);
1176 sprintf (b
, "-stack 0x%x ", reserve
);
1177 new_directive (xstrdup (b
));
1180 /* append_import simply adds the given import definition to the global
1181 import_list. It is used by def_import. */
1184 append_import (const char *symbol_name
, const char *dllname
, int func_ordinal
,
1185 const char *its_name
)
1190 for (pq
= &import_list
; *pq
!= NULL
; pq
= &(*pq
)->next
)
1192 if (strcmp ((*pq
)->dllname
, dllname
) == 0)
1195 q
->functail
->next
= xmalloc (sizeof (ifunctype
));
1196 q
->functail
= q
->functail
->next
;
1197 q
->functail
->ord
= func_ordinal
;
1198 q
->functail
->name
= xstrdup (symbol_name
);
1199 q
->functail
->its_name
= (its_name
? xstrdup (its_name
) : NULL
);
1200 q
->functail
->next
= NULL
;
1206 q
= xmalloc (sizeof (iheadtype
));
1207 q
->dllname
= xstrdup (dllname
);
1209 q
->funchead
= xmalloc (sizeof (ifunctype
));
1210 q
->functail
= q
->funchead
;
1212 q
->functail
->name
= xstrdup (symbol_name
);
1213 q
->functail
->its_name
= (its_name
? xstrdup (its_name
) : NULL
);
1214 q
->functail
->ord
= func_ordinal
;
1215 q
->functail
->next
= NULL
;
1220 /* def_import is called from within defparse.y when an IMPORT
1221 declaration is encountered. Depending on the form of the
1222 declaration, the module name may or may not need ".dll" to be
1223 appended to it, the name of the function may be stored in internal
1224 or entry, and there may or may not be an ordinal value associated
1227 /* A note regarding the parse modes:
1228 In defparse.y we have to accept import declarations which follow
1229 any one of the following forms:
1230 <func_name_in_app> = <dll_name>.<func_name_in_dll>
1231 <func_name_in_app> = <dll_name>.<number>
1232 <dll_name>.<func_name_in_dll>
1234 Furthermore, the dll's name may or may not end with ".dll", which
1235 complicates the parsing a little. Normally the dll's name is
1236 passed to def_import() in the "module" parameter, but when it ends
1237 with ".dll" it gets passed in "module" sans ".dll" and that needs
1240 def_import gets five parameters:
1241 APP_NAME - the name of the function in the application, if
1242 present, or NULL if not present.
1243 MODULE - the name of the dll, possibly sans extension (ie, '.dll').
1244 DLLEXT - the extension of the dll, if present, NULL if not present.
1245 ENTRY - the name of the function in the dll, if present, or NULL.
1246 ORD_VAL - the numerical tag of the function in the dll, if present,
1247 or NULL. Exactly one of <entry> or <ord_val> must be
1248 present (i.e., not NULL). */
1251 def_import (const char *app_name
, const char *module
, const char *dllext
,
1252 const char *entry
, int ord_val
, const char *its_name
)
1254 const char *application_name
;
1258 application_name
= entry
;
1261 if (app_name
!= NULL
)
1262 application_name
= app_name
;
1264 application_name
= "";
1268 module
= buf
= concat (module
, ".", dllext
, NULL
);
1270 append_import (application_name
, module
, ord_val
, its_name
);
1277 def_version (int major
, int minor
)
1279 printf (_("VERSION %d.%d\n"), major
, minor
);
1283 def_section (const char *name
, int attr
)
1298 sprintf (buf
, "-attr %s %s", name
, atts
);
1299 new_directive (xstrdup (buf
));
1306 def_section ("CODE", attr
);
1312 def_section ("DATA", attr
);
1315 /**********************************************************************/
1318 run (const char *what
, char *args
)
1321 int pid
, wait_status
;
1324 char *errmsg_fmt
, *errmsg_arg
;
1325 char *temp_base
= choose_temp_base ();
1327 inform (_("run: %s %s"), what
, args
);
1329 /* Count the args */
1331 for (s
= args
; *s
; s
++)
1335 argv
= xmalloc (sizeof (char *) * (i
+ 3));
1344 while (*s
!= ' ' && *s
!= 0)
1352 pid
= pexecute (argv
[0], (char * const *) argv
, program_name
, temp_base
,
1353 &errmsg_fmt
, &errmsg_arg
, PEXECUTE_ONE
| PEXECUTE_SEARCH
);
1358 inform ("%s", strerror (errno
));
1360 fatal (errmsg_fmt
, errmsg_arg
);
1363 pid
= pwait (pid
, & wait_status
, 0);
1367 /* xgettext:c-format */
1368 fatal (_("wait: %s"), strerror (errno
));
1370 else if (WIFSIGNALED (wait_status
))
1372 /* xgettext:c-format */
1373 fatal (_("subprocess got fatal signal %d"), WTERMSIG (wait_status
));
1375 else if (WIFEXITED (wait_status
))
1377 if (WEXITSTATUS (wait_status
) != 0)
1378 /* xgettext:c-format */
1379 non_fatal (_("%s exited with status %d"),
1380 what
, WEXITSTATUS (wait_status
));
1386 /* Look for a list of symbols to export in the .drectve section of
1387 ABFD. Pass each one to def_exports. */
1390 scan_drectve_symbols (bfd
*abfd
)
1398 /* Look for .drectve's */
1399 s
= bfd_get_section_by_name (abfd
, DRECTVE_SECTION_NAME
);
1404 size
= bfd_get_section_size (s
);
1405 buf
= xmalloc (size
);
1407 bfd_get_section_contents (abfd
, s
, buf
, 0, size
);
1409 /* xgettext:c-format */
1410 inform (_("Sucking in info from %s section in %s"),
1411 DRECTVE_SECTION_NAME
, bfd_get_filename (abfd
));
1413 /* Search for -export: strings. The exported symbols can optionally
1414 have type tags (eg., -export:foo,data), so handle those as well.
1415 Currently only data tag is supported. */
1421 && CONST_STRNEQ (p
, "-export:"))
1425 flagword flags
= BSF_FUNCTION
;
1428 /* Do we have a quoted export? */
1433 while (p
< e
&& *p
!= '"')
1439 while (p
< e
&& *p
!= ',' && *p
!= ' ' && *p
!= '-')
1442 c
= xmalloc (p
- name
+ 1);
1443 memcpy (c
, name
, p
- name
);
1445 /* Advance over trailing quote. */
1446 if (p
< e
&& *p
== '"')
1448 if (p
< e
&& *p
== ',') /* found type tag. */
1450 char *tag_start
= ++p
;
1451 while (p
< e
&& *p
!= ' ' && *p
!= '-')
1453 if (CONST_STRNEQ (tag_start
, "data"))
1454 flags
&= ~BSF_FUNCTION
;
1457 /* FIXME: The 5th arg is for the `constant' field.
1458 What should it be? Not that it matters since it's not
1459 currently useful. */
1460 def_exports (c
, 0, -1, 0, 0, ! (flags
& BSF_FUNCTION
), 0, NULL
);
1462 if (add_stdcall_alias
&& strchr (c
, '@'))
1464 int lead_at
= (*c
== '@') ;
1465 char *exported_name
= xstrdup (c
+ lead_at
);
1466 char *atsym
= strchr (exported_name
, '@');
1468 /* Note: stdcall alias symbols can never be data. */
1469 def_exports (exported_name
, xstrdup (c
), -1, 0, 0, 0, 0, NULL
);
1478 /* Look through the symbols in MINISYMS, and add each one to list of
1479 symbols to export. */
1482 scan_filtered_symbols (bfd
*abfd
, void *minisyms
, long symcount
,
1486 bfd_byte
*from
, *fromend
;
1488 store
= bfd_make_empty_symbol (abfd
);
1490 bfd_fatal (bfd_get_filename (abfd
));
1492 from
= (bfd_byte
*) minisyms
;
1493 fromend
= from
+ symcount
* size
;
1494 for (; from
< fromend
; from
+= size
)
1497 const char *symbol_name
;
1499 sym
= bfd_minisymbol_to_symbol (abfd
, FALSE
, from
, store
);
1501 bfd_fatal (bfd_get_filename (abfd
));
1503 symbol_name
= bfd_asymbol_name (sym
);
1504 if (bfd_get_symbol_leading_char (abfd
) == symbol_name
[0])
1507 def_exports (xstrdup (symbol_name
) , 0, -1, 0, 0,
1508 ! (sym
->flags
& BSF_FUNCTION
), 0, NULL
);
1510 if (add_stdcall_alias
&& strchr (symbol_name
, '@'))
1512 int lead_at
= (*symbol_name
== '@');
1513 char *exported_name
= xstrdup (symbol_name
+ lead_at
);
1514 char *atsym
= strchr (exported_name
, '@');
1516 /* Note: stdcall alias symbols can never be data. */
1517 def_exports (exported_name
, xstrdup (symbol_name
), -1, 0, 0, 0, 0, NULL
);
1522 /* Add a list of symbols to exclude. */
1525 add_excludes (const char *new_excludes
)
1528 char *exclude_string
;
1530 local_copy
= xstrdup (new_excludes
);
1532 exclude_string
= strtok (local_copy
, ",:");
1533 for (; exclude_string
; exclude_string
= strtok (NULL
, ",:"))
1535 struct string_list
*new_exclude
;
1537 new_exclude
= ((struct string_list
*)
1538 xmalloc (sizeof (struct string_list
)));
1539 new_exclude
->string
= (char *) xmalloc (strlen (exclude_string
) + 2);
1540 /* Don't add a leading underscore for fastcall symbols. */
1541 if (*exclude_string
== '@')
1542 sprintf (new_exclude
->string
, "%s", exclude_string
);
1544 sprintf (new_exclude
->string
, "%s%s", (!leading_underscore
? "" : "_"),
1546 new_exclude
->next
= excludes
;
1547 excludes
= new_exclude
;
1549 /* xgettext:c-format */
1550 inform (_("Excluding symbol: %s"), exclude_string
);
1556 /* See if STRING is on the list of symbols to exclude. */
1559 match_exclude (const char *string
)
1561 struct string_list
*excl_item
;
1563 for (excl_item
= excludes
; excl_item
; excl_item
= excl_item
->next
)
1564 if (strcmp (string
, excl_item
->string
) == 0)
1569 /* Add the default list of symbols to exclude. */
1572 set_default_excludes (void)
1574 add_excludes (default_excludes
);
1577 /* Choose which symbols to export. */
1580 filter_symbols (bfd
*abfd
, void *minisyms
, long symcount
, unsigned int size
)
1582 bfd_byte
*from
, *fromend
, *to
;
1585 store
= bfd_make_empty_symbol (abfd
);
1587 bfd_fatal (bfd_get_filename (abfd
));
1589 from
= (bfd_byte
*) minisyms
;
1590 fromend
= from
+ symcount
* size
;
1591 to
= (bfd_byte
*) minisyms
;
1593 for (; from
< fromend
; from
+= size
)
1598 sym
= bfd_minisymbol_to_symbol (abfd
, FALSE
, (const void *) from
, store
);
1600 bfd_fatal (bfd_get_filename (abfd
));
1602 /* Check for external and defined only symbols. */
1603 keep
= (((sym
->flags
& BSF_GLOBAL
) != 0
1604 || (sym
->flags
& BSF_WEAK
) != 0
1605 || bfd_is_com_section (sym
->section
))
1606 && ! bfd_is_und_section (sym
->section
));
1608 keep
= keep
&& ! match_exclude (sym
->name
);
1612 memcpy (to
, from
, size
);
1617 return (to
- (bfd_byte
*) minisyms
) / size
;
1620 /* Export all symbols in ABFD, except for ones we were told not to
1624 scan_all_symbols (bfd
*abfd
)
1630 /* Ignore bfds with an import descriptor table. We assume that any
1631 such BFD contains symbols which are exported from another DLL,
1632 and we don't want to reexport them from here. */
1633 if (bfd_get_section_by_name (abfd
, ".idata$4"))
1636 if (! (bfd_get_file_flags (abfd
) & HAS_SYMS
))
1638 /* xgettext:c-format */
1639 non_fatal (_("%s: no symbols"), bfd_get_filename (abfd
));
1643 symcount
= bfd_read_minisymbols (abfd
, FALSE
, &minisyms
, &size
);
1645 bfd_fatal (bfd_get_filename (abfd
));
1649 /* xgettext:c-format */
1650 non_fatal (_("%s: no symbols"), bfd_get_filename (abfd
));
1654 /* Discard the symbols we don't want to export. It's OK to do this
1655 in place; we'll free the storage anyway. */
1657 symcount
= filter_symbols (abfd
, minisyms
, symcount
, size
);
1658 scan_filtered_symbols (abfd
, minisyms
, symcount
, size
);
1663 /* Look at the object file to decide which symbols to export. */
1666 scan_open_obj_file (bfd
*abfd
)
1668 if (export_all_symbols
)
1669 scan_all_symbols (abfd
);
1671 scan_drectve_symbols (abfd
);
1673 /* FIXME: we ought to read in and block out the base relocations. */
1675 /* xgettext:c-format */
1676 inform (_("Done reading %s"), bfd_get_filename (abfd
));
1680 scan_obj_file (const char *filename
)
1682 bfd
* f
= bfd_openr (filename
, 0);
1685 /* xgettext:c-format */
1686 fatal (_("Unable to open object file: %s: %s"), filename
, bfd_get_errmsg ());
1688 /* xgettext:c-format */
1689 inform (_("Scanning object file %s"), filename
);
1691 if (bfd_check_format (f
, bfd_archive
))
1693 bfd
*arfile
= bfd_openr_next_archived_file (f
, 0);
1697 if (bfd_check_format (arfile
, bfd_object
))
1698 scan_open_obj_file (arfile
);
1699 next
= bfd_openr_next_archived_file (f
, arfile
);
1701 /* PR 17512: file: 58715298. */
1707 #ifdef DLLTOOL_MCORE_ELF
1708 if (mcore_elf_out_file
)
1709 inform (_("Cannot produce mcore-elf dll from archive file: %s"), filename
);
1712 else if (bfd_check_format (f
, bfd_object
))
1714 scan_open_obj_file (f
);
1716 #ifdef DLLTOOL_MCORE_ELF
1717 if (mcore_elf_out_file
)
1718 mcore_elf_cache_filename (filename
);
1728 dump_def_info (FILE *f
)
1732 fprintf (f
, "%s ", ASM_C
);
1733 for (i
= 0; oav
[i
]; i
++)
1734 fprintf (f
, "%s ", oav
[i
]);
1736 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
1738 fprintf (f
, "%s %d = %s %s @ %d %s%s%s%s%s%s\n",
1744 exp
->noname
? "NONAME " : "",
1745 exp
->private ? "PRIVATE " : "",
1746 exp
->constant
? "CONSTANT" : "",
1747 exp
->data
? "DATA" : "",
1748 exp
->its_name
? " ==" : "",
1749 exp
->its_name
? exp
->its_name
: "");
1753 /* Generate the .exp file. */
1756 sfunc (const void *a
, const void *b
)
1758 if (*(const bfd_vma
*) a
== *(const bfd_vma
*) b
)
1761 return ((*(const bfd_vma
*) a
> *(const bfd_vma
*) b
) ? 1 : -1);
1765 flush_page (FILE *f
, bfd_vma
*need
, bfd_vma page_addr
, int on_page
)
1769 /* Flush this page. */
1770 fprintf (f
, "\t%s\t0x%08x\t%s Starting RVA for chunk\n",
1774 fprintf (f
, "\t%s\t0x%x\t%s Size of block\n",
1776 (on_page
* 2) + (on_page
& 1) * 2 + 8,
1779 for (i
= 0; i
< on_page
; i
++)
1781 bfd_vma needed
= need
[i
];
1785 if (!create_for_pep
)
1787 /* Relocation via HIGHLOW. */
1788 needed
= ((needed
- page_addr
) | 0x3000) & 0xffff;
1792 /* Relocation via DIR64. */
1793 needed
= ((needed
- page_addr
) | 0xa000) & 0xffff;
1797 fprintf (f
, "\t%s\t0x%lx\n", ASM_SHORT
, (long) needed
);
1802 fprintf (f
, "\t%s\t0x%x\n", ASM_SHORT
, 0 | 0x0000);
1811 inform (_("Adding exports to output file"));
1813 fprintf (output_def
, ";");
1814 for (i
= 0; oav
[i
]; i
++)
1815 fprintf (output_def
, " %s", oav
[i
]);
1817 fprintf (output_def
, "\nEXPORTS\n");
1819 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
1821 char *quote
= strchr (exp
->name
, '.') ? "\"" : "";
1822 char *res
= cplus_demangle (exp
->internal_name
, DMGL_ANSI
| DMGL_PARAMS
);
1826 fprintf (output_def
,";\t%s\n", res
);
1830 if (strcmp (exp
->name
, exp
->internal_name
) == 0)
1832 fprintf (output_def
, "\t%s%s%s @ %d%s%s%s%s%s\n",
1837 exp
->noname
? " NONAME" : "",
1838 exp
->private ? "PRIVATE " : "",
1839 exp
->data
? " DATA" : "",
1840 exp
->its_name
? " ==" : "",
1841 exp
->its_name
? exp
->its_name
: "");
1845 char * quote1
= strchr (exp
->internal_name
, '.') ? "\"" : "";
1847 fprintf (output_def
, "\t%s%s%s = %s%s%s @ %d%s%s%s%s%s\n",
1855 exp
->noname
? " NONAME" : "",
1856 exp
->private ? "PRIVATE " : "",
1857 exp
->data
? " DATA" : "",
1858 exp
->its_name
? " ==" : "",
1859 exp
->its_name
? exp
->its_name
: "");
1863 inform (_("Added exports to output file"));
1866 /* generate_idata_ofile generates the portable assembly source code
1867 for the idata sections. It appends the source code to the end of
1871 generate_idata_ofile (FILE *filvar
)
1879 if (import_list
== NULL
)
1882 fprintf (filvar
, "%s Import data sections\n", ASM_C
);
1883 fprintf (filvar
, "\n\t.section\t.idata$2\n");
1884 fprintf (filvar
, "\t%s\tdoi_idata\n", ASM_GLOBAL
);
1885 fprintf (filvar
, "doi_idata:\n");
1888 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1890 fprintf (filvar
, "\t%slistone%d%s\t%s %s\n",
1891 ASM_RVA_BEFORE
, nheads
, ASM_RVA_AFTER
,
1892 ASM_C
, headptr
->dllname
);
1893 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1894 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1895 fprintf (filvar
, "\t%sdllname%d%s\n",
1896 ASM_RVA_BEFORE
, nheads
, ASM_RVA_AFTER
);
1897 fprintf (filvar
, "\t%slisttwo%d%s\n\n",
1898 ASM_RVA_BEFORE
, nheads
, ASM_RVA_AFTER
);
1902 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* NULL record at */
1903 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* end of idata$2 */
1904 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* section */
1905 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1906 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1908 fprintf (filvar
, "\n\t.section\t.idata$4\n");
1910 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1912 fprintf (filvar
, "listone%d:\n", headindex
);
1913 for (funcindex
= 0; funcindex
< headptr
->nfuncs
; funcindex
++)
1916 fprintf (filvar
, "\t%sfuncptr%d_%d%s\n%s\t0\n",
1917 ASM_RVA_BEFORE
, headindex
, funcindex
, ASM_RVA_AFTER
,
1920 fprintf (filvar
, "\t%sfuncptr%d_%d%s\n",
1921 ASM_RVA_BEFORE
, headindex
, funcindex
, ASM_RVA_AFTER
);
1924 fprintf (filvar
, "\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
1926 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* NULL terminating list. */
1930 fprintf (filvar
, "\n\t.section\t.idata$5\n");
1932 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1934 fprintf (filvar
, "listtwo%d:\n", headindex
);
1935 for (funcindex
= 0; funcindex
< headptr
->nfuncs
; funcindex
++)
1938 fprintf (filvar
, "\t%sfuncptr%d_%d%s\n%s\t0\n",
1939 ASM_RVA_BEFORE
, headindex
, funcindex
, ASM_RVA_AFTER
,
1942 fprintf (filvar
, "\t%sfuncptr%d_%d%s\n",
1943 ASM_RVA_BEFORE
, headindex
, funcindex
, ASM_RVA_AFTER
);
1946 fprintf (filvar
, "\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
1948 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* NULL terminating list. */
1952 fprintf (filvar
, "\n\t.section\t.idata$6\n");
1954 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1957 for (funcptr
= headptr
->funchead
; funcptr
!= NULL
;
1958 funcptr
= funcptr
->next
)
1960 fprintf (filvar
,"funcptr%d_%d:\n", headindex
, funcindex
);
1961 fprintf (filvar
,"\t%s\t%d\n", ASM_SHORT
,
1962 ((funcptr
->ord
) & 0xFFFF));
1963 fprintf (filvar
,"\t%s\t\"%s\"\n", ASM_TEXT
,
1964 (funcptr
->its_name
? funcptr
->its_name
: funcptr
->name
));
1965 fprintf (filvar
,"\t%s\t0\n", ASM_BYTE
);
1971 fprintf (filvar
, "\n\t.section\t.idata$7\n");
1973 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1975 fprintf (filvar
,"dllname%d:\n", headindex
);
1976 fprintf (filvar
,"\t%s\t\"%s\"\n", ASM_TEXT
, headptr
->dllname
);
1977 fprintf (filvar
,"\t%s\t0\n", ASM_BYTE
);
1982 /* Assemble the specified file. */
1984 assemble_file (const char * source
, const char * dest
)
1988 cmd
= xmalloc (strlen (ASM_SWITCHES
) + strlen (as_flags
)
1989 + strlen (source
) + strlen (dest
) + 50);
1991 sprintf (cmd
, "%s %s -o %s %s", ASM_SWITCHES
, as_flags
, dest
, source
);
1997 static const char * temp_file_to_remove
[5];
1998 #define TEMP_EXPORT_FILE 0
1999 #define TEMP_HEAD_FILE 1
2000 #define TEMP_TAIL_FILE 2
2001 #define TEMP_HEAD_O_FILE 3
2002 #define TEMP_TAIL_O_FILE 4
2005 unlink_temp_files (void)
2009 if (dontdeltemps
> 0)
2012 for (i
= 0; i
< ARRAY_SIZE (temp_file_to_remove
); i
++)
2014 if (temp_file_to_remove
[i
])
2016 unlink (temp_file_to_remove
[i
]);
2017 temp_file_to_remove
[i
] = NULL
;
2030 /* xgettext:c-format */
2031 inform (_("Generating export file: %s"), exp_name
);
2033 f
= fopen (TMP_ASM
, FOPEN_WT
);
2035 /* xgettext:c-format */
2036 fatal (_("Unable to open temporary assembler file: %s"), TMP_ASM
);
2038 temp_file_to_remove
[TEMP_EXPORT_FILE
] = TMP_ASM
;
2040 /* xgettext:c-format */
2041 inform (_("Opened temporary file: %s"), TMP_ASM
);
2047 fprintf (f
, "\t.section .edata\n\n");
2048 fprintf (f
, "\t%s 0 %s Allways 0\n", ASM_LONG
, ASM_C
);
2049 fprintf (f
, "\t%s 0x%lx %s Time and date\n", ASM_LONG
,
2050 (unsigned long) time(0), ASM_C
);
2051 fprintf (f
, "\t%s 0 %s Major and Minor version\n", ASM_LONG
, ASM_C
);
2052 fprintf (f
, "\t%sname%s %s Ptr to name of dll\n", ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
2053 fprintf (f
, "\t%s %d %s Starting ordinal of exports\n", ASM_LONG
, d_low_ord
, ASM_C
);
2056 fprintf (f
, "\t%s %d %s Number of functions\n", ASM_LONG
, d_high_ord
- d_low_ord
+ 1, ASM_C
);
2057 fprintf(f
,"\t%s named funcs %d, low ord %d, high ord %d\n",
2059 d_named_nfuncs
, d_low_ord
, d_high_ord
);
2060 fprintf (f
, "\t%s %d %s Number of names\n", ASM_LONG
,
2061 show_allnames
? d_high_ord
- d_low_ord
+ 1 : d_named_nfuncs
, ASM_C
);
2062 fprintf (f
, "\t%safuncs%s %s Address of functions\n", ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
2064 fprintf (f
, "\t%sanames%s %s Address of Name Pointer Table\n",
2065 ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
2067 fprintf (f
, "\t%sanords%s %s Address of ordinals\n", ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
2069 fprintf (f
, "name: %s \"%s\"\n", ASM_TEXT
, dll_name
);
2072 fprintf(f
,"%s Export address Table\n", ASM_C
);
2073 fprintf(f
,"\t%s\n", ASM_ALIGN_LONG
);
2074 fprintf (f
, "afuncs:\n");
2077 for (exp
= d_exports
; exp
; exp
= exp
->next
)
2079 if (exp
->ordinal
!= i
)
2081 while (i
< exp
->ordinal
)
2083 fprintf(f
,"\t%s\t0\n", ASM_LONG
);
2088 if (exp
->forward
== 0)
2090 if (exp
->internal_name
[0] == '@')
2091 fprintf (f
, "\t%s%s%s\t%s %d\n", ASM_RVA_BEFORE
,
2092 exp
->internal_name
, ASM_RVA_AFTER
, ASM_C
, exp
->ordinal
);
2094 fprintf (f
, "\t%s%s%s%s\t%s %d\n", ASM_RVA_BEFORE
,
2095 ASM_PREFIX (exp
->internal_name
),
2096 exp
->internal_name
, ASM_RVA_AFTER
, ASM_C
, exp
->ordinal
);
2099 fprintf (f
, "\t%sf%d%s\t%s %d\n", ASM_RVA_BEFORE
,
2100 exp
->forward
, ASM_RVA_AFTER
, ASM_C
, exp
->ordinal
);
2104 fprintf (f
,"%s Export Name Pointer Table\n", ASM_C
);
2105 fprintf (f
, "anames:\n");
2107 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
2109 if (!exp
->noname
|| show_allnames
)
2110 fprintf (f
, "\t%sn%d%s\n",
2111 ASM_RVA_BEFORE
, exp
->ordinal
, ASM_RVA_AFTER
);
2114 fprintf (f
,"%s Export Ordinal Table\n", ASM_C
);
2115 fprintf (f
, "anords:\n");
2116 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
2118 if (!exp
->noname
|| show_allnames
)
2119 fprintf (f
, "\t%s %d\n", ASM_SHORT
, exp
->ordinal
- d_low_ord
);
2122 fprintf(f
,"%s Export Name Table\n", ASM_C
);
2123 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
2125 if (!exp
->noname
|| show_allnames
)
2126 fprintf (f
, "n%d: %s \"%s\"\n",
2127 exp
->ordinal
, ASM_TEXT
,
2128 (exp
->its_name
? exp
->its_name
: xlate (exp
->name
)));
2129 if (exp
->forward
!= 0)
2130 fprintf (f
, "f%d: %s \"%s\"\n",
2131 exp
->forward
, ASM_TEXT
, exp
->internal_name
);
2136 fprintf (f
, "\t.section %s\n", DRECTVE_SECTION_NAME
);
2137 for (dl
= a_list
; dl
; dl
= dl
->next
)
2139 fprintf (f
, "\t%s\t\"%s\"\n", ASM_TEXT
, dl
->text
);
2145 fprintf (f
, "\t.section .rdata\n");
2146 for (dl
= d_list
; dl
; dl
= dl
->next
)
2151 /* We don't output as ascii because there can
2152 be quote characters in the string. */
2154 for (p
= dl
->text
; *p
; p
++)
2157 fprintf (f
, "\t%s\t", ASM_BYTE
);
2160 fprintf (f
, "%d", *p
);
2163 fprintf (f
, ",0\n");
2176 /* Add to the output file a way of getting to the exported names
2177 without using the import library. */
2180 fprintf (f
, "\t.section\t.rdata\n");
2181 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
2182 if (!exp
->noname
|| show_allnames
)
2184 /* We use a single underscore for MS compatibility, and a
2185 double underscore for backward compatibility with old
2187 if (create_compat_implib
)
2188 fprintf (f
, "\t%s\t__imp_%s\n", ASM_GLOBAL
, exp
->name
);
2189 fprintf (f
, "\t%s\t_imp_%s%s\n", ASM_GLOBAL
,
2190 (!leading_underscore
? "" : "_"), exp
->name
);
2191 if (create_compat_implib
)
2192 fprintf (f
, "__imp_%s:\n", exp
->name
);
2193 fprintf (f
, "_imp_%s%s:\n", (!leading_underscore
? "" : "_"), exp
->name
);
2194 fprintf (f
, "\t%s\t%s\n", ASM_LONG
, exp
->name
);
2198 /* Dump the reloc section if a base file is provided. */
2202 bfd_vma need
[COFF_PAGE_SIZE
];
2204 bfd_size_type numbytes
;
2209 fprintf (f
, "\t.section\t.init\n");
2210 fprintf (f
, "lab:\n");
2212 fseek (base_file
, 0, SEEK_END
);
2213 numbytes
= ftell (base_file
);
2214 fseek (base_file
, 0, SEEK_SET
);
2215 copy
= xmalloc (numbytes
);
2216 if (fread (copy
, 1, numbytes
, base_file
) < numbytes
)
2217 fatal (_("failed to read the number of entries from base file"));
2218 num_entries
= numbytes
/ sizeof (bfd_vma
);
2221 fprintf (f
, "\t.section\t.reloc\n");
2226 bfd_vma last
= (bfd_vma
) -1;
2227 qsort (copy
, num_entries
, sizeof (bfd_vma
), sfunc
);
2228 /* Delete duplicates */
2229 for (src
= 0; src
< num_entries
; src
++)
2231 if (last
!= copy
[src
])
2232 last
= copy
[dst
++] = copy
[src
];
2236 page_addr
= addr
& PAGE_MASK
; /* work out the page addr */
2238 for (j
= 0; j
< num_entries
; j
++)
2241 if ((addr
& PAGE_MASK
) != page_addr
)
2243 flush_page (f
, need
, page_addr
, on_page
);
2245 page_addr
= addr
& PAGE_MASK
;
2247 need
[on_page
++] = addr
;
2249 flush_page (f
, need
, page_addr
, on_page
);
2251 /* fprintf (f, "\t%s\t0,0\t%s End\n", ASM_LONG, ASM_C);*/
2255 generate_idata_ofile (f
);
2259 /* Assemble the file. */
2260 assemble_file (TMP_ASM
, exp_name
);
2262 if (dontdeltemps
== 0)
2264 temp_file_to_remove
[TEMP_EXPORT_FILE
] = NULL
;
2268 inform (_("Generated exports file"));
2272 xlate (const char *name
)
2274 int lead_at
= (*name
== '@');
2275 int is_stdcall
= (!lead_at
&& strchr (name
, '@') != NULL
);
2277 if (!lead_at
&& (add_underscore
2278 || (add_stdcall_underscore
&& is_stdcall
)))
2280 char *copy
= xmalloc (strlen (name
) + 2);
2283 strcpy (copy
+ 1, name
);
2292 /* PR 9766: Look for the last @ sign in the name. */
2293 p
= strrchr (name
, '@');
2294 if (p
&& ISDIGIT (p
[1]))
2310 unsigned char *data
;
2313 #define INIT_SEC_DATA(id, name, flags, align) \
2314 { id, name, flags, align, NULL, NULL, NULL, 0, NULL }
2328 #define TEXT_SEC_FLAGS \
2329 (SEC_ALLOC | SEC_LOAD | SEC_CODE | SEC_READONLY | SEC_HAS_CONTENTS)
2330 #define DATA_SEC_FLAGS (SEC_ALLOC | SEC_LOAD | SEC_DATA)
2331 #define BSS_SEC_FLAGS SEC_ALLOC
2333 static sinfo secdata
[NSECS
] =
2335 INIT_SEC_DATA (TEXT
, ".text", TEXT_SEC_FLAGS
, 2),
2336 INIT_SEC_DATA (DATA
, ".data", DATA_SEC_FLAGS
, 2),
2337 INIT_SEC_DATA (BSS
, ".bss", BSS_SEC_FLAGS
, 2),
2338 INIT_SEC_DATA (IDATA7
, ".idata$7", SEC_HAS_CONTENTS
, 2),
2339 INIT_SEC_DATA (IDATA5
, ".idata$5", SEC_HAS_CONTENTS
, 2),
2340 INIT_SEC_DATA (IDATA4
, ".idata$4", SEC_HAS_CONTENTS
, 2),
2341 INIT_SEC_DATA (IDATA6
, ".idata$6", SEC_HAS_CONTENTS
, 2)
2346 /* Sections numbered to make the order the same as other PowerPC NT
2347 compilers. This also keeps funny alignment thingies from happening. */
2360 static sinfo secdata
[NSECS
] =
2362 INIT_SEC_DATA (TEXT
, ".text", SEC_CODE
| SEC_HAS_CONTENTS
, 3),
2363 INIT_SEC_DATA (PDATA
, ".pdata", SEC_HAS_CONTENTS
, 2),
2364 INIT_SEC_DATA (RDATA
, ".reldata", SEC_HAS_CONTENTS
, 2),
2365 INIT_SEC_DATA (IDATA5
, ".idata$5", SEC_HAS_CONTENTS
, 2),
2366 INIT_SEC_DATA (IDATA4
, ".idata$4", SEC_HAS_CONTENTS
, 2),
2367 INIT_SEC_DATA (IDATA6
, ".idata$6", SEC_HAS_CONTENTS
, 1),
2368 INIT_SEC_DATA (IDATA7
, ".idata$7", SEC_HAS_CONTENTS
, 2),
2369 INIT_SEC_DATA (DATA
, ".data", SEC_DATA
, 2),
2370 INIT_SEC_DATA (BSS
, ".bss", 0, 2)
2375 /* This is what we're trying to make. We generate the imp symbols with
2376 both single and double underscores, for compatibility.
2379 .global _GetFileVersionInfoSizeW@8
2380 .global __imp_GetFileVersionInfoSizeW@8
2381 _GetFileVersionInfoSizeW@8:
2382 jmp * __imp_GetFileVersionInfoSizeW@8
2383 .section .idata$7 # To force loading of head
2384 .long __version_a_head
2385 # Import Address Table
2387 __imp_GetFileVersionInfoSizeW@8:
2390 # Import Lookup Table
2396 .asciz "GetFileVersionInfoSizeW"
2399 For the PowerPC, here's the variation on the above scheme:
2401 # Rather than a simple "jmp *", the code to get to the dll function
2404 lwz r11,[tocv]__imp_function_name(r2)
2405 # RELOC: 00000000 TOCREL16,TOCDEFN __imp_function_name
2413 make_label (const char *prefix
, const char *name
)
2415 int len
= strlen (ASM_PREFIX (name
)) + strlen (prefix
) + strlen (name
);
2416 char *copy
= xmalloc (len
+ 1);
2418 strcpy (copy
, ASM_PREFIX (name
));
2419 strcat (copy
, prefix
);
2420 strcat (copy
, name
);
2425 make_imp_label (const char *prefix
, const char *name
)
2432 len
= strlen (prefix
) + strlen (name
);
2433 copy
= xmalloc (len
+ 1);
2434 strcpy (copy
, prefix
);
2435 strcat (copy
, name
);
2439 len
= strlen (ASM_PREFIX (name
)) + strlen (prefix
) + strlen (name
);
2440 copy
= xmalloc (len
+ 1);
2441 strcpy (copy
, prefix
);
2442 strcat (copy
, ASM_PREFIX (name
));
2443 strcat (copy
, name
);
2449 make_one_lib_file (export_type
*exp
, int i
, int delay
)
2452 asymbol
* exp_label
;
2453 asymbol
* iname
= 0;
2455 asymbol
* iname_lab
;
2456 asymbol
** iname_lab_pp
;
2457 asymbol
** iname_pp
;
2466 asymbol
* ptrs
[NSECS
+ 4 + EXTRA
+ 1];
2467 flagword applicable
;
2468 char * outname
= xmalloc (strlen (TMP_STUB
) + 10);
2472 sprintf (outname
, "%s%05d.o", TMP_STUB
, i
);
2474 abfd
= bfd_openw (outname
, HOW_BFD_WRITE_TARGET
);
2477 /* xgettext:c-format */
2478 fatal (_("bfd_open failed open stub file: %s: %s"),
2479 outname
, bfd_get_errmsg ());
2481 /* xgettext:c-format */
2482 inform (_("Creating stub file: %s"), outname
);
2484 bfd_set_format (abfd
, bfd_object
);
2485 bfd_set_arch_mach (abfd
, HOW_BFD_ARCH
, 0);
2488 if (machine
== MARM_INTERWORK
|| machine
== MTHUMB
)
2489 bfd_set_private_flags (abfd
, F_INTERWORK
);
2492 applicable
= bfd_applicable_section_flags (abfd
);
2494 /* First make symbols for the sections. */
2495 for (i
= 0; i
< NSECS
; i
++)
2497 sinfo
*si
= secdata
+ i
;
2501 si
->sec
= bfd_make_section_old_way (abfd
, si
->name
);
2502 bfd_set_section_flags (abfd
,
2504 si
->flags
& applicable
);
2506 bfd_set_section_alignment(abfd
, si
->sec
, si
->align
);
2507 si
->sec
->output_section
= si
->sec
;
2508 si
->sym
= bfd_make_empty_symbol(abfd
);
2509 si
->sym
->name
= si
->sec
->name
;
2510 si
->sym
->section
= si
->sec
;
2511 si
->sym
->flags
= BSF_LOCAL
;
2513 ptrs
[oidx
] = si
->sym
;
2514 si
->sympp
= ptrs
+ oidx
;
2523 exp_label
= bfd_make_empty_symbol (abfd
);
2524 exp_label
->name
= make_imp_label ("", exp
->name
);
2526 /* On PowerPC, the function name points to a descriptor in
2527 the rdata section, the first element of which is a
2528 pointer to the code (..function_name), and the second
2529 points to the .toc. */
2531 if (machine
== MPPC
)
2532 exp_label
->section
= secdata
[RDATA
].sec
;
2535 exp_label
->section
= secdata
[TEXT
].sec
;
2537 exp_label
->flags
= BSF_GLOBAL
;
2538 exp_label
->value
= 0;
2541 if (machine
== MTHUMB
)
2542 bfd_coff_set_symbol_class (abfd
, exp_label
, C_THUMBEXTFUNC
);
2544 ptrs
[oidx
++] = exp_label
;
2549 /* PR 20881: Add __nm_<symbol> for the exported library.
2550 FIXME: Might be needed for PowerPC, but currently unable to test this. */
2551 exp_label
= bfd_make_empty_symbol (abfd
);
2552 exp_label
->name
= make_imp_label ("__nm_", exp
->name
);
2553 exp_label
->section
= secdata
[IDATA6
].sec
;
2554 exp_label
->flags
= BSF_GLOBAL
;
2555 exp_label
->value
= 0;
2559 /* Generate imp symbols with one underscore for Microsoft
2560 compatibility, and with two underscores for backward
2561 compatibility with old versions of cygwin. */
2562 if (create_compat_implib
)
2564 iname
= bfd_make_empty_symbol (abfd
);
2565 iname
->name
= make_imp_label ("___imp", exp
->name
);
2566 iname
->section
= secdata
[IDATA5
].sec
;
2567 iname
->flags
= BSF_GLOBAL
;
2571 iname2
= bfd_make_empty_symbol (abfd
);
2572 iname2
->name
= make_imp_label ("__imp_", exp
->name
);
2573 iname2
->section
= secdata
[IDATA5
].sec
;
2574 iname2
->flags
= BSF_GLOBAL
;
2577 iname_lab
= bfd_make_empty_symbol (abfd
);
2579 iname_lab
->name
= head_label
;
2580 iname_lab
->section
= bfd_und_section_ptr
;
2581 iname_lab
->flags
= 0;
2582 iname_lab
->value
= 0;
2584 iname_pp
= ptrs
+ oidx
;
2585 if (create_compat_implib
)
2586 ptrs
[oidx
++] = iname
;
2587 ptrs
[oidx
++] = iname2
;
2590 According to pe-dll.c __nm_<symbol> should be add after __imp_<symbol>. */
2592 ptrs
[oidx
++] = exp_label
;
2595 iname_lab_pp
= ptrs
+ oidx
;
2596 ptrs
[oidx
++] = iname_lab
;
2599 /* The symbol referring to the code (.text). */
2601 asymbol
*function_name
;
2603 function_name
= bfd_make_empty_symbol(abfd
);
2604 function_name
->name
= make_label ("..", exp
->name
);
2605 function_name
->section
= secdata
[TEXT
].sec
;
2606 function_name
->flags
= BSF_GLOBAL
;
2607 function_name
->value
= 0;
2609 fn_pp
= ptrs
+ oidx
;
2610 ptrs
[oidx
++] = function_name
;
2613 /* The .toc symbol. */
2615 asymbol
*toc_symbol
;
2617 toc_symbol
= bfd_make_empty_symbol (abfd
);
2618 toc_symbol
->name
= make_label (".", "toc");
2619 toc_symbol
->section
= bfd_und_section_ptr
;
2620 toc_symbol
->flags
= BSF_GLOBAL
;
2621 toc_symbol
->value
= 0;
2623 toc_pp
= ptrs
+ oidx
;
2624 ptrs
[oidx
++] = toc_symbol
;
2630 for (i
= 0; i
< NSECS
; i
++)
2632 sinfo
*si
= secdata
+ i
;
2633 asection
*sec
= si
->sec
;
2634 arelent
*rel
, *rel2
= 0, *rel3
= 0;
2642 si
->size
= HOW_JTAB_SIZE
;
2643 si
->data
= xmalloc (HOW_JTAB_SIZE
);
2644 memcpy (si
->data
, HOW_JTAB
, HOW_JTAB_SIZE
);
2646 /* Add the reloc into idata$5. */
2647 rel
= xmalloc (sizeof (arelent
));
2649 rpp
= xmalloc (sizeof (arelent
*) * (delay
? 4 : 2));
2653 rel
->address
= HOW_JTAB_ROFF
;
2658 rel2
= xmalloc (sizeof (arelent
));
2660 rel2
->address
= HOW_JTAB_ROFF2
;
2662 rel3
= xmalloc (sizeof (arelent
));
2664 rel3
->address
= HOW_JTAB_ROFF3
;
2669 if (machine
== MPPC
)
2671 rel
->howto
= bfd_reloc_type_lookup (abfd
,
2672 BFD_RELOC_16_GOTOFF
);
2673 rel
->sym_ptr_ptr
= iname_pp
;
2675 else if (machine
== MX86
)
2677 rel
->howto
= bfd_reloc_type_lookup (abfd
,
2678 BFD_RELOC_32_PCREL
);
2679 rel
->sym_ptr_ptr
= iname_pp
;
2683 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2684 rel
->sym_ptr_ptr
= secdata
[IDATA5
].sympp
;
2689 if (machine
== MX86
)
2690 rel2
->howto
= bfd_reloc_type_lookup (abfd
,
2691 BFD_RELOC_32_PCREL
);
2693 rel2
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2694 rel2
->sym_ptr_ptr
= rel
->sym_ptr_ptr
;
2695 rel3
->howto
= bfd_reloc_type_lookup (abfd
,
2696 BFD_RELOC_32_PCREL
);
2697 rel3
->sym_ptr_ptr
= iname_lab_pp
;
2700 sec
->orelocation
= rpp
;
2701 sec
->reloc_count
= delay
? 3 : 1;
2708 si
->size
= create_for_pep
? 8 : 4;
2709 si
->data
= xmalloc (si
->size
);
2710 sec
->reloc_count
= 1;
2711 memset (si
->data
, 0, si
->size
);
2712 /* Point after jmp [__imp_...] instruction. */
2714 rel
= xmalloc (sizeof (arelent
));
2715 rpp
= xmalloc (sizeof (arelent
*) * 2);
2721 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_64
);
2723 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2724 rel
->sym_ptr_ptr
= secdata
[TEXT
].sympp
;
2725 sec
->orelocation
= rpp
;
2731 /* An idata$4 or idata$5 is one word long, and has an
2736 si
->data
= xmalloc (8);
2740 si
->data
[0] = exp
->ordinal
;
2741 si
->data
[1] = exp
->ordinal
>> 8;
2742 si
->data
[2] = exp
->ordinal
>> 16;
2743 si
->data
[3] = exp
->ordinal
>> 24;
2751 sec
->reloc_count
= 1;
2752 memset (si
->data
, 0, si
->size
);
2753 rel
= xmalloc (sizeof (arelent
));
2754 rpp
= xmalloc (sizeof (arelent
*) * 2);
2759 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_RVA
);
2760 rel
->sym_ptr_ptr
= secdata
[IDATA6
].sympp
;
2761 sec
->orelocation
= rpp
;
2766 si
->data
= xmalloc (4);
2771 si
->data
[0] = exp
->ordinal
;
2772 si
->data
[1] = exp
->ordinal
>> 8;
2773 si
->data
[2] = exp
->ordinal
>> 16;
2778 sec
->reloc_count
= 1;
2779 memset (si
->data
, 0, si
->size
);
2780 rel
= xmalloc (sizeof (arelent
));
2781 rpp
= xmalloc (sizeof (arelent
*) * 2);
2786 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_RVA
);
2787 rel
->sym_ptr_ptr
= secdata
[IDATA6
].sympp
;
2788 sec
->orelocation
= rpp
;
2796 int idx
= exp
->ordinal
;
2799 si
->size
= strlen (exp
->its_name
) + 3;
2801 si
->size
= strlen (xlate (exp
->import_name
)) + 3;
2802 si
->data
= xmalloc (si
->size
);
2803 memset (si
->data
, 0, si
->size
);
2804 si
->data
[0] = idx
& 0xff;
2805 si
->data
[1] = idx
>> 8;
2807 strcpy ((char *) si
->data
+ 2, exp
->its_name
);
2809 strcpy ((char *) si
->data
+ 2, xlate (exp
->import_name
));
2816 si
->data
= xmalloc (4);
2817 memset (si
->data
, 0, si
->size
);
2818 rel
= xmalloc (sizeof (arelent
));
2819 rpp
= xmalloc (sizeof (arelent
*) * 2);
2823 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_RVA
);
2824 rel
->sym_ptr_ptr
= iname_lab_pp
;
2825 sec
->orelocation
= rpp
;
2826 sec
->reloc_count
= 1;
2832 /* The .pdata section is 5 words long.
2836 bfd_vma BeginAddress, [0x00]
2838 ExceptionHandler, [0x08]
2840 PrologEndAddress; [0x10]
2843 /* So this pdata section setups up this as a glue linkage to
2844 a dll routine. There are a number of house keeping things
2847 1. In the name of glue trickery, the ADDR32 relocs for 0,
2848 4, and 0x10 are set to point to the same place:
2850 2. There is one more reloc needed in the pdata section.
2851 The actual glue instruction to restore the toc on
2852 return is saved as the offset in an IMGLUE reloc.
2853 So we need a total of four relocs for this section.
2855 3. Lastly, the HandlerData field is set to 0x03, to indicate
2856 that this is a glue routine. */
2857 arelent
*imglue
, *ba_rel
, *ea_rel
, *pea_rel
;
2859 /* Alignment must be set to 2**2 or you get extra stuff. */
2860 bfd_set_section_alignment(abfd
, sec
, 2);
2863 si
->data
= xmalloc (si
->size
);
2864 memset (si
->data
, 0, si
->size
);
2865 rpp
= xmalloc (sizeof (arelent
*) * 5);
2866 rpp
[0] = imglue
= xmalloc (sizeof (arelent
));
2867 rpp
[1] = ba_rel
= xmalloc (sizeof (arelent
));
2868 rpp
[2] = ea_rel
= xmalloc (sizeof (arelent
));
2869 rpp
[3] = pea_rel
= xmalloc (sizeof (arelent
));
2872 /* Stick the toc reload instruction in the glue reloc. */
2873 bfd_put_32(abfd
, ppc_glue_insn
, (char *) &imglue
->address
);
2876 imglue
->howto
= bfd_reloc_type_lookup (abfd
,
2877 BFD_RELOC_32_GOTOFF
);
2878 imglue
->sym_ptr_ptr
= fn_pp
;
2880 ba_rel
->address
= 0;
2882 ba_rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2883 ba_rel
->sym_ptr_ptr
= fn_pp
;
2885 bfd_put_32 (abfd
, 0x18, si
->data
+ 0x04);
2886 ea_rel
->address
= 4;
2888 ea_rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2889 ea_rel
->sym_ptr_ptr
= fn_pp
;
2891 /* Mark it as glue. */
2892 bfd_put_32 (abfd
, 0x03, si
->data
+ 0x0c);
2894 /* Mark the prolog end address. */
2895 bfd_put_32 (abfd
, 0x0D, si
->data
+ 0x10);
2896 pea_rel
->address
= 0x10;
2897 pea_rel
->addend
= 0;
2898 pea_rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2899 pea_rel
->sym_ptr_ptr
= fn_pp
;
2901 sec
->orelocation
= rpp
;
2902 sec
->reloc_count
= 4;
2906 /* Each external function in a PowerPC PE file has a two word
2907 descriptor consisting of:
2908 1. The address of the code.
2909 2. The address of the appropriate .toc
2910 We use relocs to build this. */
2912 si
->data
= xmalloc (8);
2913 memset (si
->data
, 0, si
->size
);
2915 rpp
= xmalloc (sizeof (arelent
*) * 3);
2916 rpp
[0] = rel
= xmalloc (sizeof (arelent
));
2917 rpp
[1] = xmalloc (sizeof (arelent
));
2922 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2923 rel
->sym_ptr_ptr
= fn_pp
;
2929 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2930 rel
->sym_ptr_ptr
= toc_pp
;
2932 sec
->orelocation
= rpp
;
2933 sec
->reloc_count
= 2;
2935 #endif /* DLLTOOL_PPC */
2941 /* Size up all the sections. */
2942 for (i
= 0; i
< NSECS
; i
++)
2944 sinfo
*si
= secdata
+ i
;
2946 bfd_set_section_size (abfd
, si
->sec
, si
->size
);
2947 bfd_set_section_vma (abfd
, si
->sec
, vma
);
2950 /* Write them out. */
2951 for (i
= 0; i
< NSECS
; i
++)
2953 sinfo
*si
= secdata
+ i
;
2955 if (i
== IDATA5
&& no_idata5
)
2958 if (i
== IDATA4
&& no_idata4
)
2961 bfd_set_section_contents (abfd
, si
->sec
,
2966 bfd_set_symtab (abfd
, ptrs
, oidx
);
2968 abfd
= bfd_openr (outname
, HOW_BFD_READ_TARGET
);
2970 /* xgettext:c-format */
2971 fatal (_("bfd_open failed reopen stub file: %s: %s"),
2972 outname
, bfd_get_errmsg ());
2980 FILE *f
= fopen (TMP_HEAD_S
, FOPEN_WT
);
2985 fatal (_("failed to open temporary head file: %s"), TMP_HEAD_S
);
2989 temp_file_to_remove
[TEMP_HEAD_FILE
] = TMP_HEAD_S
;
2991 fprintf (f
, "%s IMAGE_IMPORT_DESCRIPTOR\n", ASM_C
);
2992 fprintf (f
, "\t.section\t.idata$2\n");
2994 fprintf (f
,"\t%s\t%s\n", ASM_GLOBAL
, head_label
);
2996 fprintf (f
, "%s:\n", head_label
);
2998 fprintf (f
, "\t%shname%s\t%sPtr to image import by name list\n",
2999 ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
3001 fprintf (f
, "\t%sthis should be the timestamp, but NT sometimes\n", ASM_C
);
3002 fprintf (f
, "\t%sdoesn't load DLLs when this is set.\n", ASM_C
);
3003 fprintf (f
, "\t%s\t0\t%s loaded time\n", ASM_LONG
, ASM_C
);
3004 fprintf (f
, "\t%s\t0\t%s Forwarder chain\n", ASM_LONG
, ASM_C
);
3005 fprintf (f
, "\t%s__%s_iname%s\t%s imported dll's name\n",
3010 fprintf (f
, "\t%sfthunk%s\t%s pointer to firstthunk\n",
3012 ASM_RVA_AFTER
, ASM_C
);
3014 fprintf (f
, "%sStuff for compatibility\n", ASM_C
);
3018 fprintf (f
, "\t.section\t.idata$5\n");
3019 if (use_nul_prefixed_import_tables
)
3022 fprintf (f
,"\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
3024 fprintf (f
,"\t%s\t0\n", ASM_LONG
);
3026 fprintf (f
, "fthunk:\n");
3031 fprintf (f
, "\t.section\t.idata$4\n");
3032 if (use_nul_prefixed_import_tables
)
3035 fprintf (f
,"\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
3037 fprintf (f
,"\t%s\t0\n", ASM_LONG
);
3039 fprintf (f
, "hname:\n");
3044 assemble_file (TMP_HEAD_S
, TMP_HEAD_O
);
3046 abfd
= bfd_openr (TMP_HEAD_O
, HOW_BFD_READ_TARGET
);
3048 /* xgettext:c-format */
3049 fatal (_("failed to open temporary head file: %s: %s"),
3050 TMP_HEAD_O
, bfd_get_errmsg ());
3052 temp_file_to_remove
[TEMP_HEAD_O_FILE
] = TMP_HEAD_O
;
3057 make_delay_head (void)
3059 FILE *f
= fopen (TMP_HEAD_S
, FOPEN_WT
);
3064 fatal (_("failed to open temporary head file: %s"), TMP_HEAD_S
);
3068 temp_file_to_remove
[TEMP_HEAD_FILE
] = TMP_HEAD_S
;
3070 /* Output the __tailMerge__xxx function */
3071 fprintf (f
, "%s Import trampoline\n", ASM_C
);
3072 fprintf (f
, "\t.section\t.text\n");
3073 fprintf(f
,"\t%s\t%s\n", ASM_GLOBAL
, head_label
);
3074 fprintf (f
, "%s:\n", head_label
);
3075 fprintf (f
, mtable
[machine
].trampoline
, imp_name_lab
);
3077 /* Output the delay import descriptor */
3078 fprintf (f
, "\n%s DELAY_IMPORT_DESCRIPTOR\n", ASM_C
);
3079 fprintf (f
, ".section\t.text$2\n");
3080 fprintf (f
,"%s __DELAY_IMPORT_DESCRIPTOR_%s\n", ASM_GLOBAL
,imp_name_lab
);
3081 fprintf (f
, "__DELAY_IMPORT_DESCRIPTOR_%s:\n", imp_name_lab
);
3082 fprintf (f
, "\t%s 1\t%s grAttrs\n", ASM_LONG
, ASM_C
);
3083 fprintf (f
, "\t%s__%s_iname%s\t%s rvaDLLName\n",
3084 ASM_RVA_BEFORE
, imp_name_lab
, ASM_RVA_AFTER
, ASM_C
);
3085 fprintf (f
, "\t%s__DLL_HANDLE_%s%s\t%s rvaHmod\n",
3086 ASM_RVA_BEFORE
, imp_name_lab
, ASM_RVA_AFTER
, ASM_C
);
3087 fprintf (f
, "\t%s__IAT_%s%s\t%s rvaIAT\n",
3088 ASM_RVA_BEFORE
, imp_name_lab
, ASM_RVA_AFTER
, ASM_C
);
3089 fprintf (f
, "\t%s__INT_%s%s\t%s rvaINT\n",
3090 ASM_RVA_BEFORE
, imp_name_lab
, ASM_RVA_AFTER
, ASM_C
);
3091 fprintf (f
, "\t%s\t0\t%s rvaBoundIAT\n", ASM_LONG
, ASM_C
);
3092 fprintf (f
, "\t%s\t0\t%s rvaUnloadIAT\n", ASM_LONG
, ASM_C
);
3093 fprintf (f
, "\t%s\t0\t%s dwTimeStamp\n", ASM_LONG
, ASM_C
);
3095 /* Output the dll_handle */
3096 fprintf (f
, "\n.section .data\n");
3097 fprintf (f
, "__DLL_HANDLE_%s:\n", imp_name_lab
);
3098 fprintf (f
, "\t%s\t0\t%s Handle\n", ASM_LONG
, ASM_C
);
3100 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
3103 fprintf (f
, "%sStuff for compatibility\n", ASM_C
);
3107 fprintf (f
, "\t.section\t.idata$5\n");
3108 /* NULL terminating list. */
3110 fprintf (f
,"\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
3112 fprintf (f
,"\t%s\t0\n", ASM_LONG
);
3113 fprintf (f
, "__IAT_%s:\n", imp_name_lab
);
3118 fprintf (f
, "\t.section\t.idata$4\n");
3119 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
3121 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
3122 fprintf (f
, "\t.section\t.idata$4\n");
3123 fprintf (f
, "__INT_%s:\n", imp_name_lab
);
3126 fprintf (f
, "\t.section\t.idata$2\n");
3130 assemble_file (TMP_HEAD_S
, TMP_HEAD_O
);
3132 abfd
= bfd_openr (TMP_HEAD_O
, HOW_BFD_READ_TARGET
);
3134 /* xgettext:c-format */
3135 fatal (_("failed to open temporary head file: %s: %s"),
3136 TMP_HEAD_O
, bfd_get_errmsg ());
3138 temp_file_to_remove
[TEMP_HEAD_O_FILE
] = TMP_HEAD_O
;
3145 FILE *f
= fopen (TMP_TAIL_S
, FOPEN_WT
);
3150 fatal (_("failed to open temporary tail file: %s"), TMP_TAIL_S
);
3154 temp_file_to_remove
[TEMP_TAIL_FILE
] = TMP_TAIL_S
;
3158 fprintf (f
, "\t.section\t.idata$4\n");
3160 fprintf (f
,"\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
3162 fprintf (f
,"\t%s\t0\n", ASM_LONG
); /* NULL terminating list. */
3167 fprintf (f
, "\t.section\t.idata$5\n");
3169 fprintf (f
,"\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
3171 fprintf (f
,"\t%s\t0\n", ASM_LONG
); /* NULL terminating list. */
3175 /* Normally, we need to see a null descriptor built in idata$3 to
3176 act as the terminator for the list. The ideal way, I suppose,
3177 would be to mark this section as a comdat type 2 section, so
3178 only one would appear in the final .exe (if our linker supported
3179 comdat, that is) or cause it to be inserted by something else (say
3182 fprintf (f
, "\t.section\t.idata$3\n");
3183 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
3184 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
3185 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
3186 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
3187 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
3191 /* Other PowerPC NT compilers use idata$6 for the dllname, so I
3192 do too. Original, huh? */
3193 fprintf (f
, "\t.section\t.idata$6\n");
3195 fprintf (f
, "\t.section\t.idata$7\n");
3198 fprintf (f
, "\t%s\t__%s_iname\n", ASM_GLOBAL
, imp_name_lab
);
3199 fprintf (f
, "__%s_iname:\t%s\t\"%s\"\n",
3200 imp_name_lab
, ASM_TEXT
, dll_name
);
3204 assemble_file (TMP_TAIL_S
, TMP_TAIL_O
);
3206 abfd
= bfd_openr (TMP_TAIL_O
, HOW_BFD_READ_TARGET
);
3208 /* xgettext:c-format */
3209 fatal (_("failed to open temporary tail file: %s: %s"),
3210 TMP_TAIL_O
, bfd_get_errmsg ());
3212 temp_file_to_remove
[TEMP_TAIL_O_FILE
] = TMP_TAIL_O
;
3217 gen_lib_file (int delay
)
3228 outarch
= bfd_openw (imp_name
, HOW_BFD_WRITE_TARGET
);
3231 /* xgettext:c-format */
3232 fatal (_("Can't create .lib file: %s: %s"),
3233 imp_name
, bfd_get_errmsg ());
3235 /* xgettext:c-format */
3236 inform (_("Creating library file: %s"), imp_name
);
3238 xatexit (unlink_temp_files
);
3240 bfd_set_format (outarch
, bfd_archive
);
3241 outarch
->has_armap
= 1;
3242 outarch
->is_thin_archive
= 0;
3244 /* Work out a reasonable size of things to put onto one line. */
3247 ar_head
= make_delay_head ();
3251 ar_head
= make_head ();
3253 ar_tail
= make_tail();
3255 if (ar_head
== NULL
|| ar_tail
== NULL
)
3258 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
3261 /* Don't add PRIVATE entries to import lib. */
3264 n
= make_one_lib_file (exp
, i
, delay
);
3265 n
->archive_next
= head
;
3267 if (ext_prefix_alias
)
3269 export_type alias_exp
;
3271 assert (i
< PREFIX_ALIAS_BASE
);
3272 alias_exp
.name
= make_imp_label (ext_prefix_alias
, exp
->name
);
3273 alias_exp
.internal_name
= exp
->internal_name
;
3274 alias_exp
.its_name
= exp
->its_name
;
3275 alias_exp
.import_name
= exp
->name
;
3276 alias_exp
.ordinal
= exp
->ordinal
;
3277 alias_exp
.constant
= exp
->constant
;
3278 alias_exp
.noname
= exp
->noname
;
3279 alias_exp
.private = exp
->private;
3280 alias_exp
.data
= exp
->data
;
3281 alias_exp
.forward
= exp
->forward
;
3282 alias_exp
.next
= exp
->next
;
3283 n
= make_one_lib_file (&alias_exp
, i
+ PREFIX_ALIAS_BASE
, delay
);
3284 n
->archive_next
= head
;
3289 /* Now stick them all into the archive. */
3290 ar_head
->archive_next
= head
;
3291 ar_tail
->archive_next
= ar_head
;
3294 if (! bfd_set_archive_head (outarch
, head
))
3295 bfd_fatal ("bfd_set_archive_head");
3297 if (! bfd_close (outarch
))
3298 bfd_fatal (imp_name
);
3300 while (head
!= NULL
)
3302 bfd
*n
= head
->archive_next
;
3307 /* Delete all the temp files. */
3308 unlink_temp_files ();
3310 if (dontdeltemps
< 2)
3314 name
= xmalloc (strlen (TMP_STUB
) + 10);
3315 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
3317 /* Don't delete non-existent stubs for PRIVATE entries. */
3320 sprintf (name
, "%s%05d.o", TMP_STUB
, i
);
3321 if (unlink (name
) < 0)
3322 /* xgettext:c-format */
3323 non_fatal (_("cannot delete %s: %s"), name
, strerror (errno
));
3324 if (ext_prefix_alias
)
3326 sprintf (name
, "%s%05d.o", TMP_STUB
, i
+ PREFIX_ALIAS_BASE
);
3327 if (unlink (name
) < 0)
3328 /* xgettext:c-format */
3329 non_fatal (_("cannot delete %s: %s"), name
, strerror (errno
));
3335 inform (_("Created lib file"));
3338 /* Append a copy of data (cast to char *) to list. */
3341 dll_name_list_append (dll_name_list_type
* list
, bfd_byte
* data
)
3343 dll_name_list_node_type
* entry
;
3345 /* Error checking. */
3346 if (! list
|| ! list
->tail
)
3349 /* Allocate new node. */
3350 entry
= ((dll_name_list_node_type
*)
3351 xmalloc (sizeof (dll_name_list_node_type
)));
3353 /* Initialize its values. */
3354 entry
->dllname
= xstrdup ((char *) data
);
3357 /* Add to tail, and move tail. */
3358 list
->tail
->next
= entry
;
3362 /* Count the number of entries in list. */
3365 dll_name_list_count (dll_name_list_type
* list
)
3367 dll_name_list_node_type
* p
;
3370 /* Error checking. */
3371 if (! list
|| ! list
->head
)
3376 while (p
&& p
->next
)
3384 /* Print each entry in list to stdout. */
3387 dll_name_list_print (dll_name_list_type
* list
)
3389 dll_name_list_node_type
* p
;
3391 /* Error checking. */
3392 if (! list
|| ! list
->head
)
3397 while (p
&& p
->next
&& p
->next
->dllname
&& *(p
->next
->dllname
))
3399 printf ("%s\n", p
->next
->dllname
);
3404 /* Free all entries in list, and list itself. */
3407 dll_name_list_free (dll_name_list_type
* list
)
3411 dll_name_list_free_contents (list
->head
);
3418 /* Recursive function to free all nodes entry->next->next...
3419 as well as entry itself. */
3422 dll_name_list_free_contents (dll_name_list_node_type
* entry
)
3428 dll_name_list_free_contents (entry
->next
);
3433 free (entry
->dllname
);
3434 entry
->dllname
= NULL
;
3440 /* Allocate and initialize a dll_name_list_type object,
3441 including its sentinel node. Caller is responsible
3442 for calling dll_name_list_free when finished with
3445 static dll_name_list_type
*
3446 dll_name_list_create (void)
3448 /* Allocate list. */
3449 dll_name_list_type
* list
= xmalloc (sizeof (dll_name_list_type
));
3451 /* Allocate and initialize sentinel node. */
3452 list
->head
= xmalloc (sizeof (dll_name_list_node_type
));
3453 list
->head
->dllname
= NULL
;
3454 list
->head
->next
= NULL
;
3456 /* Bookkeeping for empty list. */
3457 list
->tail
= list
->head
;
3462 /* Search the symbol table of the suppled BFD for a symbol whose name matches
3463 OBJ (where obj is cast to const char *). If found, set global variable
3464 identify_member_contains_symname_result TRUE. It is the caller's
3465 responsibility to set the result variable FALSE before iterating with
3469 identify_member_contains_symname (bfd
* abfd
,
3470 bfd
* archive_bfd ATTRIBUTE_UNUSED
,
3473 long storage_needed
;
3474 asymbol
** symbol_table
;
3475 long number_of_symbols
;
3477 symname_search_data_type
* search_data
= (symname_search_data_type
*) obj
;
3479 /* If we already found the symbol in a different member,
3481 if (search_data
->found
)
3484 storage_needed
= bfd_get_symtab_upper_bound (abfd
);
3485 if (storage_needed
<= 0)
3488 symbol_table
= xmalloc (storage_needed
);
3489 number_of_symbols
= bfd_canonicalize_symtab (abfd
, symbol_table
);
3490 if (number_of_symbols
< 0)
3492 free (symbol_table
);
3496 for (i
= 0; i
< number_of_symbols
; i
++)
3498 if (strncmp (symbol_table
[i
]->name
,
3499 search_data
->symname
,
3500 strlen (search_data
->symname
)) == 0)
3502 search_data
->found
= TRUE
;
3506 free (symbol_table
);
3509 /* This is the main implementation for the --identify option.
3510 Given the name of an import library in identify_imp_name, first determine
3511 if the import library is a GNU binutils-style one (where the DLL name is
3512 stored in an .idata$7 (.idata$6 on PPC) section, or if it is a MS-style
3513 one (where the DLL name, along with much other data, is stored in the
3514 .idata$6 section). We determine the style of import library by searching
3515 for the DLL-structure symbol inserted by MS tools:
3516 __NULL_IMPORT_DESCRIPTOR.
3518 Once we know which section to search, evaluate each section for the
3519 appropriate properties that indicate it may contain the name of the
3520 associated DLL (this differs depending on the style). Add the contents
3521 of all sections which meet the criteria to a linked list of dll names.
3523 Finally, print them all to stdout. (If --identify-strict, an error is
3524 reported if more than one match was found). */
3527 identify_dll_for_implib (void)
3531 identify_data_type identify_data
;
3532 symname_search_data_type search_data
;
3534 /* Initialize identify_data. */
3535 identify_data
.list
= dll_name_list_create ();
3536 identify_data
.ms_style_implib
= FALSE
;
3538 /* Initialize search_data. */
3539 search_data
.symname
= "__NULL_IMPORT_DESCRIPTOR";
3540 search_data
.found
= FALSE
;
3544 abfd
= bfd_openr (identify_imp_name
, 0);
3546 /* xgettext:c-format */
3547 fatal (_("Can't open .lib file: %s: %s"),
3548 identify_imp_name
, bfd_get_errmsg ());
3550 if (! bfd_check_format (abfd
, bfd_archive
))
3552 if (! bfd_close (abfd
))
3553 bfd_fatal (identify_imp_name
);
3555 fatal (_("%s is not a library"), identify_imp_name
);
3558 /* Detect if this a Microsoft import library. */
3559 identify_search_archive (abfd
,
3560 identify_member_contains_symname
,
3561 (void *)(& search_data
));
3562 if (search_data
.found
)
3563 identify_data
.ms_style_implib
= TRUE
;
3565 /* Rewind the bfd. */
3566 if (! bfd_close (abfd
))
3567 bfd_fatal (identify_imp_name
);
3568 abfd
= bfd_openr (identify_imp_name
, 0);
3570 bfd_fatal (identify_imp_name
);
3572 if (!bfd_check_format (abfd
, bfd_archive
))
3574 if (!bfd_close (abfd
))
3575 bfd_fatal (identify_imp_name
);
3577 fatal (_("%s is not a library"), identify_imp_name
);
3580 /* Now search for the dll name. */
3581 identify_search_archive (abfd
,
3582 identify_search_member
,
3583 (void *)(& identify_data
));
3585 if (! bfd_close (abfd
))
3586 bfd_fatal (identify_imp_name
);
3588 count
= dll_name_list_count (identify_data
.list
);
3591 if (identify_strict
&& count
> 1)
3593 dll_name_list_free (identify_data
.list
);
3594 identify_data
.list
= NULL
;
3595 fatal (_("Import library `%s' specifies two or more dlls"),
3598 dll_name_list_print (identify_data
.list
);
3599 dll_name_list_free (identify_data
.list
);
3600 identify_data
.list
= NULL
;
3604 dll_name_list_free (identify_data
.list
);
3605 identify_data
.list
= NULL
;
3606 fatal (_("Unable to determine dll name for `%s' (not an import library?)"),
3611 /* Loop over all members of the archive, applying the supplied function to
3612 each member that is a bfd_object. The function will be called as if:
3613 func (member_bfd, abfd, user_storage) */
3616 identify_search_archive (bfd
* abfd
,
3617 void (* operation
) (bfd
*, bfd
*, void *),
3618 void * user_storage
)
3620 bfd
* arfile
= NULL
;
3621 bfd
* last_arfile
= NULL
;
3626 arfile
= bfd_openr_next_archived_file (abfd
, arfile
);
3630 if (bfd_get_error () != bfd_error_no_more_archived_files
)
3631 bfd_fatal (bfd_get_filename (abfd
));
3635 if (bfd_check_format_matches (arfile
, bfd_object
, &matching
))
3636 (*operation
) (arfile
, abfd
, user_storage
);
3639 bfd_nonfatal (bfd_get_filename (arfile
));
3643 if (last_arfile
!= NULL
)
3645 bfd_close (last_arfile
);
3646 /* PR 17512: file: 8b2168d4. */
3647 if (last_arfile
== arfile
)
3654 last_arfile
= arfile
;
3657 if (last_arfile
!= NULL
)
3659 bfd_close (last_arfile
);
3663 /* Call the identify_search_section() function for each section of this
3667 identify_search_member (bfd
*abfd
,
3668 bfd
*archive_bfd ATTRIBUTE_UNUSED
,
3671 bfd_map_over_sections (abfd
, identify_search_section
, obj
);
3674 /* This predicate returns true if section->name matches the desired value.
3675 By default, this is .idata$7 (.idata$6 on PPC, or if the import
3676 library is ms-style). */
3679 identify_process_section_p (asection
* section
, bfd_boolean ms_style_implib
)
3681 static const char * SECTION_NAME
=
3683 /* dllname is stored in idata$6 on PPC */
3688 static const char * MS_SECTION_NAME
= ".idata$6";
3690 const char * section_name
=
3691 (ms_style_implib
? MS_SECTION_NAME
: SECTION_NAME
);
3693 if (strcmp (section_name
, section
->name
) == 0)
3698 /* If *section has contents and its name is .idata$7 (.data$6 on PPC or if
3699 import lib ms-generated) -- and it satisfies several other constraints
3700 -- then add the contents of the section to obj->list. */
3703 identify_search_section (bfd
* abfd
, asection
* section
, void * obj
)
3706 bfd_size_type datasize
;
3707 identify_data_type
* identify_data
= (identify_data_type
*)obj
;
3708 bfd_boolean ms_style
= identify_data
->ms_style_implib
;
3710 if ((section
->flags
& SEC_HAS_CONTENTS
) == 0)
3713 if (! identify_process_section_p (section
, ms_style
))
3716 /* Binutils import libs seem distinguish the .idata$7 section that contains
3717 the DLL name from other .idata$7 sections by the absence of the
3719 if (!ms_style
&& ((section
->flags
& SEC_RELOC
) == SEC_RELOC
))
3722 /* MS import libs seem to distinguish the .idata$6 section
3723 that contains the DLL name from other .idata$6 sections
3724 by the presence of the SEC_DATA flag. */
3725 if (ms_style
&& ((section
->flags
& SEC_DATA
) == 0))
3728 if ((datasize
= bfd_section_size (abfd
, section
)) == 0)
3731 data
= (bfd_byte
*) xmalloc (datasize
+ 1);
3734 bfd_get_section_contents (abfd
, section
, data
, 0, datasize
);
3735 data
[datasize
] = '\0';
3737 /* Use a heuristic to determine if data is a dll name.
3738 Possible to defeat this if (a) the library has MANY
3739 (more than 0x302f) imports, (b) it is an ms-style
3740 import library, but (c) it is buggy, in that the SEC_DATA
3741 flag is set on the "wrong" sections. This heuristic might
3742 also fail to record a valid dll name if the dllname uses
3743 a multibyte or unicode character set (is that valid?).
3745 This heuristic is based on the fact that symbols names in
3746 the chosen section -- as opposed to the dll name -- begin
3747 at offset 2 in the data. The first two bytes are a 16bit
3748 little-endian count, and start at 0x0000. However, the dll
3749 name begins at offset 0 in the data. We assume that the
3750 dll name does not contain unprintable characters. */
3751 if (data
[0] != '\0' && ISPRINT (data
[0])
3752 && ((datasize
< 2) || ISPRINT (data
[1])))
3753 dll_name_list_append (identify_data
->list
, data
);
3758 /* Run through the information gathered from the .o files and the
3759 .def file and work out the best stuff. */
3762 pfunc (const void *a
, const void *b
)
3764 export_type
*ap
= *(export_type
**) a
;
3765 export_type
*bp
= *(export_type
**) b
;
3767 if (ap
->ordinal
== bp
->ordinal
)
3770 /* Unset ordinals go to the bottom. */
3771 if (ap
->ordinal
== -1)
3773 if (bp
->ordinal
== -1)
3775 return (ap
->ordinal
- bp
->ordinal
);
3779 nfunc (const void *a
, const void *b
)
3781 export_type
*ap
= *(export_type
**) a
;
3782 export_type
*bp
= *(export_type
**) b
;
3783 const char *an
= ap
->name
;
3784 const char *bn
= bp
->name
;
3791 an
= (an
[0] == '@') ? an
+ 1 : an
;
3792 bn
= (bn
[0] == '@') ? bn
+ 1 : bn
;
3795 return (strcmp (an
, bn
));
3799 remove_null_names (export_type
**ptr
)
3804 for (dst
= src
= 0; src
< d_nfuncs
; src
++)
3808 ptr
[dst
] = ptr
[src
];
3816 process_duplicates (export_type
**d_export_vec
)
3824 /* Remove duplicates. */
3825 qsort (d_export_vec
, d_nfuncs
, sizeof (export_type
*), nfunc
);
3827 for (i
= 0; i
< d_nfuncs
- 1; i
++)
3829 if (strcmp (d_export_vec
[i
]->name
,
3830 d_export_vec
[i
+ 1]->name
) == 0)
3832 export_type
*a
= d_export_vec
[i
];
3833 export_type
*b
= d_export_vec
[i
+ 1];
3837 /* xgettext:c-format */
3838 inform (_("Warning, ignoring duplicate EXPORT %s %d,%d"),
3839 a
->name
, a
->ordinal
, b
->ordinal
);
3841 if (a
->ordinal
!= -1
3842 && b
->ordinal
!= -1)
3843 /* xgettext:c-format */
3844 fatal (_("Error, duplicate EXPORT with ordinals: %s"),
3847 /* Merge attributes. */
3848 b
->ordinal
= a
->ordinal
> 0 ? a
->ordinal
: b
->ordinal
;
3849 b
->constant
|= a
->constant
;
3850 b
->noname
|= a
->noname
;
3852 d_export_vec
[i
] = 0;
3855 remove_null_names (d_export_vec
);
3859 /* Count the names. */
3860 for (i
= 0; i
< d_nfuncs
; i
++)
3861 if (!d_export_vec
[i
]->noname
)
3866 fill_ordinals (export_type
**d_export_vec
)
3873 qsort (d_export_vec
, d_nfuncs
, sizeof (export_type
*), pfunc
);
3875 /* Fill in the unset ordinals with ones from our range. */
3876 ptr
= (char *) xmalloc (size
);
3878 memset (ptr
, 0, size
);
3880 /* Mark in our large vector all the numbers that are taken. */
3881 for (i
= 0; i
< d_nfuncs
; i
++)
3883 if (d_export_vec
[i
]->ordinal
!= -1)
3885 ptr
[d_export_vec
[i
]->ordinal
] = 1;
3887 if (lowest
== -1 || d_export_vec
[i
]->ordinal
< lowest
)
3888 lowest
= d_export_vec
[i
]->ordinal
;
3892 /* Start at 1 for compatibility with MS toolchain. */
3896 /* Now fill in ordinals where the user wants us to choose. */
3897 for (i
= 0; i
< d_nfuncs
; i
++)
3899 if (d_export_vec
[i
]->ordinal
== -1)
3903 /* First try within or after any user supplied range. */
3904 for (j
= lowest
; j
< size
; j
++)
3908 d_export_vec
[i
]->ordinal
= j
;
3912 /* Then try before the range. */
3913 for (j
= lowest
; j
>0; j
--)
3917 d_export_vec
[i
]->ordinal
= j
;
3927 qsort (d_export_vec
, d_nfuncs
, sizeof (export_type
*), pfunc
);
3929 /* Work out the lowest and highest ordinal numbers. */
3932 if (d_export_vec
[0])
3933 d_low_ord
= d_export_vec
[0]->ordinal
;
3934 if (d_export_vec
[d_nfuncs
-1])
3935 d_high_ord
= d_export_vec
[d_nfuncs
-1]->ordinal
;
3942 /* First work out the minimum ordinal chosen. */
3944 export_type
**d_export_vec
= xmalloc (sizeof (export_type
*) * d_nfuncs
);
3947 inform (_("Processing definitions"));
3949 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
3950 d_export_vec
[i
] = exp
;
3952 process_duplicates (d_export_vec
);
3953 fill_ordinals (d_export_vec
);
3955 /* Put back the list in the new order. */
3957 for (i
= d_nfuncs
- 1; i
>= 0; i
--)
3959 d_export_vec
[i
]->next
= d_exports
;
3960 d_exports
= d_export_vec
[i
];
3963 /* Build list in alpha order. */
3964 d_exports_lexically
= (export_type
**)
3965 xmalloc (sizeof (export_type
*) * (d_nfuncs
+ 1));
3967 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
3968 d_exports_lexically
[i
] = exp
;
3970 d_exports_lexically
[i
] = 0;
3972 qsort (d_exports_lexically
, i
, sizeof (export_type
*), nfunc
);
3974 inform (_("Processed definitions"));
3978 usage (FILE *file
, int status
)
3980 /* xgetext:c-format */
3981 fprintf (file
, _("Usage %s <option(s)> <object-file(s)>\n"), program_name
);
3982 /* xgetext:c-format */
3983 fprintf (file
, _(" -m --machine <machine> Create as DLL for <machine>. [default: %s]\n"), mname
);
3984 fprintf (file
, _(" possible <machine>: arm[_interwork], i386, mcore[-elf]{-le|-be}, ppc, thumb\n"));
3985 fprintf (file
, _(" -e --output-exp <outname> Generate an export file.\n"));
3986 fprintf (file
, _(" -l --output-lib <outname> Generate an interface library.\n"));
3987 fprintf (file
, _(" -y --output-delaylib <outname> Create a delay-import library.\n"));
3988 fprintf (file
, _(" -a --add-indirect Add dll indirects to export file.\n"));
3989 fprintf (file
, _(" -D --dllname <name> Name of input dll to put into interface lib.\n"));
3990 fprintf (file
, _(" -d --input-def <deffile> Name of .def file to be read in.\n"));
3991 fprintf (file
, _(" -z --output-def <deffile> Name of .def file to be created.\n"));
3992 fprintf (file
, _(" --export-all-symbols Export all symbols to .def\n"));
3993 fprintf (file
, _(" --no-export-all-symbols Only export listed symbols\n"));
3994 fprintf (file
, _(" --exclude-symbols <list> Don't export <list>\n"));
3995 fprintf (file
, _(" --no-default-excludes Clear default exclude symbols\n"));
3996 fprintf (file
, _(" -b --base-file <basefile> Read linker generated base file.\n"));
3997 fprintf (file
, _(" -x --no-idata4 Don't generate idata$4 section.\n"));
3998 fprintf (file
, _(" -c --no-idata5 Don't generate idata$5 section.\n"));
3999 fprintf (file
, _(" --use-nul-prefixed-import-tables Use zero prefixed idata$4 and idata$5.\n"));
4000 fprintf (file
, _(" -U --add-underscore Add underscores to all symbols in interface library.\n"));
4001 fprintf (file
, _(" --add-stdcall-underscore Add underscores to stdcall symbols in interface library.\n"));
4002 fprintf (file
, _(" --no-leading-underscore All symbols shouldn't be prefixed by an underscore.\n"));
4003 fprintf (file
, _(" --leading-underscore All symbols should be prefixed by an underscore.\n"));
4004 fprintf (file
, _(" -k --kill-at Kill @<n> from exported names.\n"));
4005 fprintf (file
, _(" -A --add-stdcall-alias Add aliases without @<n>.\n"));
4006 fprintf (file
, _(" -p --ext-prefix-alias <prefix> Add aliases with <prefix>.\n"));
4007 fprintf (file
, _(" -S --as <name> Use <name> for assembler.\n"));
4008 fprintf (file
, _(" -f --as-flags <flags> Pass <flags> to the assembler.\n"));
4009 fprintf (file
, _(" -C --compat-implib Create backward compatible import library.\n"));
4010 fprintf (file
, _(" -n --no-delete Keep temp files (repeat for extra preservation).\n"));
4011 fprintf (file
, _(" -t --temp-prefix <prefix> Use <prefix> to construct temp file names.\n"));
4012 fprintf (file
, _(" -I --identify <implib> Report the name of the DLL associated with <implib>.\n"));
4013 fprintf (file
, _(" --identify-strict Causes --identify to report error when multiple DLLs.\n"));
4014 fprintf (file
, _(" -v --verbose Be verbose.\n"));
4015 fprintf (file
, _(" -V --version Display the program version.\n"));
4016 fprintf (file
, _(" -h --help Display this information.\n"));
4017 fprintf (file
, _(" @<file> Read options from <file>.\n"));
4018 #ifdef DLLTOOL_MCORE_ELF
4019 fprintf (file
, _(" -M --mcore-elf <outname> Process mcore-elf object files into <outname>.\n"));
4020 fprintf (file
, _(" -L --linker <name> Use <name> as the linker.\n"));
4021 fprintf (file
, _(" -F --linker-flags <flags> Pass <flags> to the linker.\n"));
4023 if (REPORT_BUGS_TO
[0] && status
== 0)
4024 fprintf (file
, _("Report bugs to %s\n"), REPORT_BUGS_TO
);
4028 #define OPTION_EXPORT_ALL_SYMS 150
4029 #define OPTION_NO_EXPORT_ALL_SYMS (OPTION_EXPORT_ALL_SYMS + 1)
4030 #define OPTION_EXCLUDE_SYMS (OPTION_NO_EXPORT_ALL_SYMS + 1)
4031 #define OPTION_NO_DEFAULT_EXCLUDES (OPTION_EXCLUDE_SYMS + 1)
4032 #define OPTION_ADD_STDCALL_UNDERSCORE (OPTION_NO_DEFAULT_EXCLUDES + 1)
4033 #define OPTION_USE_NUL_PREFIXED_IMPORT_TABLES \
4034 (OPTION_ADD_STDCALL_UNDERSCORE + 1)
4035 #define OPTION_IDENTIFY_STRICT (OPTION_USE_NUL_PREFIXED_IMPORT_TABLES + 1)
4036 #define OPTION_NO_LEADING_UNDERSCORE (OPTION_IDENTIFY_STRICT + 1)
4037 #define OPTION_LEADING_UNDERSCORE (OPTION_NO_LEADING_UNDERSCORE + 1)
4039 static const struct option long_options
[] =
4041 {"no-delete", no_argument
, NULL
, 'n'},
4042 {"dllname", required_argument
, NULL
, 'D'},
4043 {"no-idata4", no_argument
, NULL
, 'x'},
4044 {"no-idata5", no_argument
, NULL
, 'c'},
4045 {"use-nul-prefixed-import-tables", no_argument
, NULL
,
4046 OPTION_USE_NUL_PREFIXED_IMPORT_TABLES
},
4047 {"output-exp", required_argument
, NULL
, 'e'},
4048 {"output-def", required_argument
, NULL
, 'z'},
4049 {"export-all-symbols", no_argument
, NULL
, OPTION_EXPORT_ALL_SYMS
},
4050 {"no-export-all-symbols", no_argument
, NULL
, OPTION_NO_EXPORT_ALL_SYMS
},
4051 {"exclude-symbols", required_argument
, NULL
, OPTION_EXCLUDE_SYMS
},
4052 {"no-default-excludes", no_argument
, NULL
, OPTION_NO_DEFAULT_EXCLUDES
},
4053 {"output-lib", required_argument
, NULL
, 'l'},
4054 {"def", required_argument
, NULL
, 'd'}, /* for compatibility with older versions */
4055 {"input-def", required_argument
, NULL
, 'd'},
4056 {"add-underscore", no_argument
, NULL
, 'U'},
4057 {"add-stdcall-underscore", no_argument
, NULL
, OPTION_ADD_STDCALL_UNDERSCORE
},
4058 {"no-leading-underscore", no_argument
, NULL
, OPTION_NO_LEADING_UNDERSCORE
},
4059 {"leading-underscore", no_argument
, NULL
, OPTION_LEADING_UNDERSCORE
},
4060 {"kill-at", no_argument
, NULL
, 'k'},
4061 {"add-stdcall-alias", no_argument
, NULL
, 'A'},
4062 {"ext-prefix-alias", required_argument
, NULL
, 'p'},
4063 {"identify", required_argument
, NULL
, 'I'},
4064 {"identify-strict", no_argument
, NULL
, OPTION_IDENTIFY_STRICT
},
4065 {"verbose", no_argument
, NULL
, 'v'},
4066 {"version", no_argument
, NULL
, 'V'},
4067 {"help", no_argument
, NULL
, 'h'},
4068 {"machine", required_argument
, NULL
, 'm'},
4069 {"add-indirect", no_argument
, NULL
, 'a'},
4070 {"base-file", required_argument
, NULL
, 'b'},
4071 {"as", required_argument
, NULL
, 'S'},
4072 {"as-flags", required_argument
, NULL
, 'f'},
4073 {"mcore-elf", required_argument
, NULL
, 'M'},
4074 {"compat-implib", no_argument
, NULL
, 'C'},
4075 {"temp-prefix", required_argument
, NULL
, 't'},
4076 {"output-delaylib", required_argument
, NULL
, 'y'},
4080 int main (int, char **);
4083 main (int ac
, char **av
)
4088 program_name
= av
[0];
4091 #if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
4092 setlocale (LC_MESSAGES
, "");
4094 #if defined (HAVE_SETLOCALE)
4095 setlocale (LC_CTYPE
, "");
4097 bindtextdomain (PACKAGE
, LOCALEDIR
);
4098 textdomain (PACKAGE
);
4100 bfd_set_error_program_name (program_name
);
4101 expandargv (&ac
, &av
);
4103 while ((c
= getopt_long (ac
, av
,
4104 #ifdef DLLTOOL_MCORE_ELF
4105 "m:e:l:aD:d:z:b:xp:cCuUkAS:t:f:nI:vVHhM:L:F:",
4107 "m:e:l:y:aD:d:z:b:xp:cCuUkAS:t:f:nI:vVHh",
4114 case OPTION_EXPORT_ALL_SYMS
:
4115 export_all_symbols
= TRUE
;
4117 case OPTION_NO_EXPORT_ALL_SYMS
:
4118 export_all_symbols
= FALSE
;
4120 case OPTION_EXCLUDE_SYMS
:
4121 add_excludes (optarg
);
4123 case OPTION_NO_DEFAULT_EXCLUDES
:
4124 do_default_excludes
= FALSE
;
4126 case OPTION_USE_NUL_PREFIXED_IMPORT_TABLES
:
4127 use_nul_prefixed_import_tables
= TRUE
;
4129 case OPTION_ADD_STDCALL_UNDERSCORE
:
4130 add_stdcall_underscore
= 1;
4132 case OPTION_NO_LEADING_UNDERSCORE
:
4133 leading_underscore
= 0;
4135 case OPTION_LEADING_UNDERSCORE
:
4136 leading_underscore
= 1;
4138 case OPTION_IDENTIFY_STRICT
:
4139 identify_strict
= 1;
4151 tmp_prefix
= optarg
;
4157 /* Ignored for compatibility. */
4164 output_def
= fopen (optarg
, FOPEN_WT
);
4166 /* xgettext:c-format */
4167 fatal (_("Unable to open def-file: %s"), optarg
);
4170 dll_name
= (char*) lbasename (optarg
);
4171 if (dll_name
!= optarg
)
4172 non_fatal (_("Path components stripped from dllname, '%s'."),
4189 identify_imp_name
= optarg
;
4195 print_version (program_name
);
4204 add_stdcall_alias
= 1;
4207 ext_prefix_alias
= optarg
;
4216 base_file
= fopen (optarg
, FOPEN_RB
);
4219 /* xgettext:c-format */
4220 fatal (_("Unable to open base-file: %s"), optarg
);
4223 #ifdef DLLTOOL_MCORE_ELF
4225 mcore_elf_out_file
= optarg
;
4228 mcore_elf_linker
= optarg
;
4231 mcore_elf_linker_flags
= optarg
;
4235 create_compat_implib
= 1;
4238 delayimp_name
= optarg
;
4247 tmp_prefix
= prefix_encode ("d", getpid ());
4249 for (i
= 0; mtable
[i
].type
; i
++)
4250 if (strcmp (mtable
[i
].type
, mname
) == 0)
4253 if (!mtable
[i
].type
)
4254 /* xgettext:c-format */
4255 fatal (_("Machine '%s' not supported"), mname
);
4259 /* Check if we generated PE+. */
4260 create_for_pep
= strcmp (mname
, "i386:x86-64") == 0;
4263 /* Check the default underscore */
4264 int u
= leading_underscore
; /* Underscoring mode. -1 for use default. */
4266 bfd_get_target_info (mtable
[machine
].how_bfd_target
, NULL
,
4269 leading_underscore
= (u
!= 0 ? TRUE
: FALSE
);
4272 if (!dll_name
&& exp_name
)
4274 /* If we are inferring dll_name from exp_name,
4275 strip off any path components, without emitting
4277 const char* exp_basename
= lbasename (exp_name
);
4278 const int len
= strlen (exp_basename
) + 5;
4279 dll_name
= xmalloc (len
);
4280 strcpy (dll_name
, exp_basename
);
4281 strcat (dll_name
, ".dll");
4282 dll_name_set_by_exp_name
= 1;
4285 if (as_name
== NULL
)
4286 as_name
= deduce_name ("as");
4288 /* Don't use the default exclude list if we're reading only the
4289 symbols in the .drectve section. The default excludes are meant
4290 to avoid exporting DLL entry point and Cygwin32 impure_ptr. */
4291 if (! export_all_symbols
)
4292 do_default_excludes
= FALSE
;
4294 if (do_default_excludes
)
4295 set_default_excludes ();
4298 process_def_file (def_file
);
4303 firstarg
= av
[optind
];
4304 scan_obj_file (av
[optind
]);
4315 /* Make imp_name safe for use as a label. */
4318 imp_name_lab
= xstrdup (imp_name
);
4319 for (p
= imp_name_lab
; *p
; p
++)
4324 head_label
= make_label("_head_", imp_name_lab
);
4330 /* Make delayimp_name safe for use as a label. */
4333 if (mtable
[machine
].how_dljtab
== 0)
4335 inform (_("Warning, machine type (%d) not supported for "
4336 "delayimport."), machine
);
4341 imp_name
= delayimp_name
;
4342 imp_name_lab
= xstrdup (imp_name
);
4343 for (p
= imp_name_lab
; *p
; p
++)
4348 head_label
= make_label("__tailMerge_", imp_name_lab
);
4356 if (identify_imp_name
)
4358 identify_dll_for_implib ();
4361 #ifdef DLLTOOL_MCORE_ELF
4362 if (mcore_elf_out_file
)
4363 mcore_elf_gen_out_file ();
4369 /* Look for the program formed by concatenating PROG_NAME and the
4370 string running from PREFIX to END_PREFIX. If the concatenated
4371 string contains a '/', try appending EXECUTABLE_SUFFIX if it is
4375 look_for_prog (const char *prog_name
, const char *prefix
, int end_prefix
)
4380 cmd
= xmalloc (strlen (prefix
)
4381 + strlen (prog_name
)
4382 #ifdef HAVE_EXECUTABLE_SUFFIX
4383 + strlen (EXECUTABLE_SUFFIX
)
4386 strcpy (cmd
, prefix
);
4388 sprintf (cmd
+ end_prefix
, "%s", prog_name
);
4390 if (strchr (cmd
, '/') != NULL
)
4394 found
= (stat (cmd
, &s
) == 0
4395 #ifdef HAVE_EXECUTABLE_SUFFIX
4396 || stat (strcat (cmd
, EXECUTABLE_SUFFIX
), &s
) == 0
4402 /* xgettext:c-format */
4403 inform (_("Tried file: %s"), cmd
);
4409 /* xgettext:c-format */
4410 inform (_("Using file: %s"), cmd
);
4415 /* Deduce the name of the program we are want to invoke.
4416 PROG_NAME is the basic name of the program we want to run,
4417 eg "as" or "ld". The catch is that we might want actually
4418 run "i386-pe-as" or "ppc-pe-ld".
4420 If argv[0] contains the full path, then try to find the program
4421 in the same place, with and then without a target-like prefix.
4423 Given, argv[0] = /usr/local/bin/i586-cygwin32-dlltool,
4424 deduce_name("as") uses the following search order:
4426 /usr/local/bin/i586-cygwin32-as
4430 If there's an EXECUTABLE_SUFFIX, it'll use that as well; for each
4431 name, it'll try without and then with EXECUTABLE_SUFFIX.
4433 Given, argv[0] = i586-cygwin32-dlltool, it will not even try "as"
4434 as the fallback, but rather return i586-cygwin32-as.
4436 Oh, and given, argv[0] = dlltool, it'll return "as".
4438 Returns a dynamically allocated string. */
4441 deduce_name (const char *prog_name
)
4444 char *dash
, *slash
, *cp
;
4448 for (cp
= program_name
; *cp
!= '\0'; ++cp
)
4453 #if defined(__DJGPP__) || defined (__CYGWIN__) || defined(__WIN32__)
4454 *cp
== ':' || *cp
== '\\' ||
4467 /* First, try looking for a prefixed PROG_NAME in the
4468 PROGRAM_NAME directory, with the same prefix as PROGRAM_NAME. */
4469 cmd
= look_for_prog (prog_name
, program_name
, dash
- program_name
+ 1);
4472 if (slash
!= NULL
&& cmd
== NULL
)
4474 /* Next, try looking for a PROG_NAME in the same directory as
4475 that of this program. */
4476 cmd
= look_for_prog (prog_name
, program_name
, slash
- program_name
+ 1);
4481 /* Just return PROG_NAME as is. */
4482 cmd
= xstrdup (prog_name
);
4488 #ifdef DLLTOOL_MCORE_ELF
4489 typedef struct fname_cache
4491 const char * filename
;
4492 struct fname_cache
* next
;
4496 static fname_cache fnames
;
4499 mcore_elf_cache_filename (const char * filename
)
4505 while (ptr
->next
!= NULL
)
4508 ptr
->filename
= filename
;
4509 ptr
->next
= (fname_cache
*) malloc (sizeof (fname_cache
));
4510 if (ptr
->next
!= NULL
)
4511 ptr
->next
->next
= NULL
;
4514 #define MCORE_ELF_TMP_OBJ "mcoreelf.o"
4515 #define MCORE_ELF_TMP_EXP "mcoreelf.exp"
4516 #define MCORE_ELF_TMP_LIB "mcoreelf.lib"
4519 mcore_elf_gen_out_file (void)
4524 /* Step one. Run 'ld -r' on the input object files in order to resolve
4525 any internal references and to generate a single .exports section. */
4528 ds
= dyn_string_new (100);
4529 dyn_string_append_cstr (ds
, "-r ");
4531 if (mcore_elf_linker_flags
!= NULL
)
4532 dyn_string_append_cstr (ds
, mcore_elf_linker_flags
);
4534 while (ptr
->next
!= NULL
)
4536 dyn_string_append_cstr (ds
, ptr
->filename
);
4537 dyn_string_append_cstr (ds
, " ");
4542 dyn_string_append_cstr (ds
, "-o ");
4543 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_OBJ
);
4545 if (mcore_elf_linker
== NULL
)
4546 mcore_elf_linker
= deduce_name ("ld");
4548 run (mcore_elf_linker
, ds
->s
);
4550 dyn_string_delete (ds
);
4552 /* Step two. Create a .exp file and a .lib file from the temporary file.
4553 Do this by recursively invoking dlltool... */
4554 ds
= dyn_string_new (100);
4556 dyn_string_append_cstr (ds
, "-S ");
4557 dyn_string_append_cstr (ds
, as_name
);
4559 dyn_string_append_cstr (ds
, " -e ");
4560 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_EXP
);
4561 dyn_string_append_cstr (ds
, " -l ");
4562 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_LIB
);
4563 dyn_string_append_cstr (ds
, " " );
4564 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_OBJ
);
4567 dyn_string_append_cstr (ds
, " -v");
4571 dyn_string_append_cstr (ds
, " -n");
4573 if (dontdeltemps
> 1)
4574 dyn_string_append_cstr (ds
, " -n");
4577 /* XXX - FIME: ought to check/copy other command line options as well. */
4578 run (program_name
, ds
->s
);
4580 dyn_string_delete (ds
);
4582 /* Step four. Feed the .exp and object files to ld -shared to create the dll. */
4583 ds
= dyn_string_new (100);
4585 dyn_string_append_cstr (ds
, "-shared ");
4587 if (mcore_elf_linker_flags
)
4588 dyn_string_append_cstr (ds
, mcore_elf_linker_flags
);
4590 dyn_string_append_cstr (ds
, " ");
4591 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_EXP
);
4592 dyn_string_append_cstr (ds
, " ");
4593 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_OBJ
);
4594 dyn_string_append_cstr (ds
, " -o ");
4595 dyn_string_append_cstr (ds
, mcore_elf_out_file
);
4597 run (mcore_elf_linker
, ds
->s
);
4599 dyn_string_delete (ds
);
4601 if (dontdeltemps
== 0)
4602 unlink (MCORE_ELF_TMP_EXP
);
4604 if (dontdeltemps
< 2)
4605 unlink (MCORE_ELF_TMP_OBJ
);
4607 #endif /* DLLTOOL_MCORE_ELF */