1 /* dlltool.c -- tool to generate stuff for PE style DLLs
2 Copyright 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
3 2005, 2006, 2007, 2008, 2009, 2011, 2012 Free Software Foundation, Inc.
5 This file is part of GNU Binutils.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
23 /* This program allows you to build the files necessary to create
24 DLLs to run on a system which understands PE format image files.
27 See "Peering Inside the PE: A Tour of the Win32 Portable Executable
28 File Format", MSJ 1994, Volume 9 for more information.
29 Also see "Microsoft Portable Executable and Common Object File Format,
30 Specification 4.1" for more information.
32 A DLL contains an export table which contains the information
33 which the runtime loader needs to tie up references from a
36 The export table is generated by this program by reading
37 in a .DEF file or scanning the .a and .o files which will be in the
38 DLL. A .o file can contain information in special ".drectve" sections
39 with export information.
41 A DEF file contains any number of the following commands:
44 NAME <name> [ , <base> ]
45 The result is going to be <name>.EXE
47 LIBRARY <name> [ , <base> ]
48 The result is going to be <name>.DLL
50 EXPORTS ( ( ( <name1> [ = <name2> ] )
51 | ( <name1> = <module-name> . <external-name>))
52 [ @ <integer> ] [ NONAME ] [CONSTANT] [DATA] [PRIVATE] ) *
53 Declares name1 as an exported symbol from the
54 DLL, with optional ordinal number <integer>.
55 Or declares name1 as an alias (forward) of the function <external-name>
56 in the DLL <module-name>.
58 IMPORTS ( ( <internal-name> = <module-name> . <integer> )
59 | ( [ <internal-name> = ] <module-name> . <external-name> )) *
60 Declares that <external-name> or the exported function whose ordinal number
61 is <integer> is to be imported from the file <module-name>. If
62 <internal-name> is specified then this is the name that the imported
63 function will be refereed to in the body of the DLL.
66 Puts <string> into output .exp file in the .rdata section
68 [STACKSIZE|HEAPSIZE] <number-reserve> [ , <number-commit> ]
69 Generates --stack|--heap <number-reserve>,<number-commit>
70 in the output .drectve section. The linker will
71 see this and act upon it.
74 SECTIONS ( <sectionname> <attr>+ )*
75 <attr> = READ | WRITE | EXECUTE | SHARED
76 Generates --attr <sectionname> <attr> in the output
77 .drectve section. The linker will see this and act
81 A -export:<name> in a .drectve section in an input .o or .a
82 file to this program is equivalent to a EXPORTS <name>
87 The program generates output files with the prefix supplied
88 on the command line, or in the def file, or taken from the first
91 The .exp.s file contains the information necessary to export
92 the routines in the DLL. The .lib.s file contains the information
93 necessary to use the DLL's routines from a referencing program.
100 asm (".section .drectve");
101 asm (".ascii \"-export:adef\"");
105 printf ("hello from the dll %s\n", s);
110 printf ("hello from the dll and the other entry point %s\n", s);
114 asm (".section .drectve");
115 asm (".ascii \"-export:cdef\"");
116 asm (".ascii \"-export:ddef\"");
120 printf ("hello from the dll %s\n", s);
125 printf ("hello from the dll and the other entry point %s\n", s);
143 HEAPSIZE 0x40000, 0x2000
147 SECTIONS donkey READ WRITE
150 # Compile up the parts of the dll and the program
152 gcc -c file1.c file2.c themain.c
154 # Optional: put the dll objects into a library
155 # (you don't have to, you could name all the object
156 # files on the dlltool line)
158 ar qcv thedll.in file1.o file2.o
161 # Run this tool over the DLL's .def file and generate an exports
162 # file (thedll.o) and an imports file (thedll.a).
163 # (You may have to use -S to tell dlltool where to find the assembler).
165 dlltool --def thedll.def --output-exp thedll.o --output-lib thedll.a
167 # Build the dll with the library and the export table
169 ld -o thedll.dll thedll.o thedll.in
171 # Link the executable with the import library
173 gcc -o themain.exe themain.o thedll.a
175 This example can be extended if relocations are needed in the DLL:
177 # Compile up the parts of the dll and the program
179 gcc -c file1.c file2.c themain.c
181 # Run this tool over the DLL's .def file and generate an imports file.
183 dlltool --def thedll.def --output-lib thedll.lib
185 # Link the executable with the import library and generate a base file
188 gcc -o themain.exe themain.o thedll.lib -Wl,--base-file -Wl,themain.base
190 # Run this tool over the DLL's .def file and generate an exports file
191 # which includes the relocations from the base file.
193 dlltool --def thedll.def --base-file themain.base --output-exp thedll.exp
195 # Build the dll with file1.o, file2.o and the export table
197 ld -o thedll.dll thedll.exp file1.o file2.o */
199 /* .idata section description
201 The .idata section is the import table. It is a collection of several
202 subsections used to keep the pieces for each dll together: .idata$[234567].
203 IE: Each dll's .idata$2's are catenated together, each .idata$3's, etc.
205 .idata$2 = Import Directory Table
206 = array of IMAGE_IMPORT_DESCRIPTOR's.
208 DWORD Import Lookup Table; - pointer to .idata$4
209 DWORD TimeDateStamp; - currently always 0
210 DWORD ForwarderChain; - currently always 0
211 DWORD Name; - pointer to dll's name
212 PIMAGE_THUNK_DATA FirstThunk; - pointer to .idata$5
214 .idata$3 = null terminating entry for .idata$2.
216 .idata$4 = Import Lookup Table
217 = array of array of pointers to hint name table.
218 There is one for each dll being imported from, and each dll's set is
219 terminated by a trailing NULL.
221 .idata$5 = Import Address Table
222 = array of array of pointers to hint name table.
223 There is one for each dll being imported from, and each dll's set is
224 terminated by a trailing NULL.
225 Initially, this table is identical to the Import Lookup Table. However,
226 at load time, the loader overwrites the entries with the address of the
229 .idata$6 = Hint Name Table
230 = Array of { short, asciz } entries, one for each imported function.
231 The `short' is the function's ordinal number.
233 .idata$7 = dll name (eg: "kernel32.dll"). (.idata$6 for ppc). */
237 #include "libiberty.h"
239 #include "demangle.h"
240 #include "dyn-string.h"
243 #include "safe-ctype.h"
249 #include "coff/arm.h"
250 #include "coff/internal.h"
252 #ifdef DLLTOOL_DEFAULT_MX86_64
253 #include "coff/x86_64.h"
255 #ifdef DLLTOOL_DEFAULT_I386
256 #include "coff/i386.h"
259 #ifndef COFF_PAGE_SIZE
260 #define COFF_PAGE_SIZE ((bfd_vma) 4096)
264 #define PAGE_MASK ((bfd_vma) (- COFF_PAGE_SIZE))
267 /* Get current BFD error message. */
268 #define bfd_get_errmsg() (bfd_errmsg (bfd_get_error ()))
270 /* Forward references. */
271 static char *look_for_prog (const char *, const char *, int);
272 static char *deduce_name (const char *);
274 #ifdef DLLTOOL_MCORE_ELF
275 static void mcore_elf_cache_filename (const char *);
276 static void mcore_elf_gen_out_file (void);
279 #ifdef HAVE_SYS_WAIT_H
280 #include <sys/wait.h>
281 #else /* ! HAVE_SYS_WAIT_H */
282 #if ! defined (_WIN32) || defined (__CYGWIN32__)
284 #define WIFEXITED(w) (((w) & 0377) == 0)
287 #define WIFSIGNALED(w) (((w) & 0377) != 0177 && ((w) & ~0377) == 0)
290 #define WTERMSIG(w) ((w) & 0177)
293 #define WEXITSTATUS(w) (((w) >> 8) & 0377)
295 #else /* defined (_WIN32) && ! defined (__CYGWIN32__) */
297 #define WIFEXITED(w) (((w) & 0xff) == 0)
300 #define WIFSIGNALED(w) (((w) & 0xff) != 0 && ((w) & 0xff) != 0x7f)
303 #define WTERMSIG(w) ((w) & 0x7f)
306 #define WEXITSTATUS(w) (((w) & 0xff00) >> 8)
308 #endif /* defined (_WIN32) && ! defined (__CYGWIN32__) */
309 #endif /* ! HAVE_SYS_WAIT_H */
311 #define show_allnames 0
313 /* ifunc and ihead data structures: ttk@cygnus.com 1997
315 When IMPORT declarations are encountered in a .def file the
316 function import information is stored in a structure referenced by
317 the global variable IMPORT_LIST. The structure is a linked list
318 containing the names of the dll files each function is imported
319 from and a linked list of functions being imported from that dll
320 file. This roughly parallels the structure of the .idata section
321 in the PE object file.
323 The contents of .def file are interpreted from within the
324 process_def_file function. Every time an IMPORT declaration is
325 encountered, it is broken up into its component parts and passed to
326 def_import. IMPORT_LIST is initialized to NULL in function main. */
328 typedef struct ifunct
330 char * name
; /* Name of function being imported. */
331 char * its_name
; /* Optional import table symbol name. */
332 int ord
; /* Two-byte ordinal value associated with function. */
336 typedef struct iheadt
338 char * dllname
; /* Name of dll file imported from. */
339 long nfuncs
; /* Number of functions in list. */
340 struct ifunct
*funchead
; /* First function in list. */
341 struct ifunct
*functail
; /* Last function in list. */
342 struct iheadt
*next
; /* Next dll file in list. */
345 /* Structure containing all import information as defined in .def file
346 (qv "ihead structure"). */
348 static iheadtype
*import_list
= NULL
;
349 static char *as_name
= NULL
;
350 static char * as_flags
= "";
351 static char *tmp_prefix
;
352 static int no_idata4
;
353 static int no_idata5
;
354 static char *exp_name
;
355 static char *imp_name
;
356 static char *delayimp_name
;
357 static char *identify_imp_name
;
358 static bfd_boolean identify_strict
;
360 /* Types used to implement a linked list of dllnames associated
361 with the specified import lib. Used by the identify_* code.
362 The head entry is acts as a sentinal node and is always empty
363 (head->dllname is NULL). */
364 typedef struct dll_name_list_node_t
367 struct dll_name_list_node_t
* next
;
368 } dll_name_list_node_type
;
370 typedef struct dll_name_list_t
372 dll_name_list_node_type
* head
;
373 dll_name_list_node_type
* tail
;
374 } dll_name_list_type
;
376 /* Types used to pass data to iterator functions. */
377 typedef struct symname_search_data_t
379 const char * symname
;
381 } symname_search_data_type
;
383 typedef struct identify_data_t
385 dll_name_list_type
* list
;
386 bfd_boolean ms_style_implib
;
387 } identify_data_type
;
390 static char *head_label
;
391 static char *imp_name_lab
;
392 static char *dll_name
;
393 static int dll_name_set_by_exp_name
;
394 static int add_indirect
= 0;
395 static int add_underscore
= 0;
396 static int add_stdcall_underscore
= 0;
397 /* This variable can hold three different values. The value
398 -1 (default) means that default underscoring should be used,
399 zero means that no underscoring should be done, and one
400 indicates that underscoring should be done. */
401 static int leading_underscore
= -1;
402 static int dontdeltemps
= 0;
404 /* TRUE if we should export all symbols. Otherwise, we only export
405 symbols listed in .drectve sections or in the def file. */
406 static bfd_boolean export_all_symbols
;
408 /* TRUE if we should exclude the symbols in DEFAULT_EXCLUDES when
409 exporting all symbols. */
410 static bfd_boolean do_default_excludes
= TRUE
;
412 static bfd_boolean use_nul_prefixed_import_tables
= FALSE
;
414 /* Default symbols to exclude when exporting all the symbols. */
415 static const char *default_excludes
= "DllMain@12,DllEntryPoint@0,impure_ptr";
417 /* TRUE if we should add __imp_<SYMBOL> to import libraries for backward
418 compatibility to old Cygwin releases. */
419 static bfd_boolean create_compat_implib
;
421 /* TRUE if we have to write PE+ import libraries. */
422 static bfd_boolean create_for_pep
;
424 static char *def_file
;
426 extern char * program_name
;
430 static int add_stdcall_alias
;
431 static const char *ext_prefix_alias
;
433 static FILE *output_def
;
434 static FILE *base_file
;
436 #ifdef DLLTOOL_DEFAULT_ARM
437 static const char *mname
= "arm";
440 #ifdef DLLTOOL_DEFAULT_ARM_EPOC
441 static const char *mname
= "arm-epoc";
444 #ifdef DLLTOOL_DEFAULT_ARM_WINCE
445 static const char *mname
= "arm-wince";
448 #ifdef DLLTOOL_DEFAULT_I386
449 static const char *mname
= "i386";
452 #ifdef DLLTOOL_DEFAULT_MX86_64
453 static const char *mname
= "i386:x86-64";
456 #ifdef DLLTOOL_DEFAULT_PPC
457 static const char *mname
= "ppc";
460 #ifdef DLLTOOL_DEFAULT_SH
461 static const char *mname
= "sh";
464 #ifdef DLLTOOL_DEFAULT_MIPS
465 static const char *mname
= "mips";
468 #ifdef DLLTOOL_DEFAULT_MCORE
469 static const char * mname
= "mcore-le";
472 #ifdef DLLTOOL_DEFAULT_MCORE_ELF
473 static const char * mname
= "mcore-elf";
474 static char * mcore_elf_out_file
= NULL
;
475 static char * mcore_elf_linker
= NULL
;
476 static char * mcore_elf_linker_flags
= NULL
;
478 #define DRECTVE_SECTION_NAME ((machine == MMCORE_ELF || machine == MMCORE_ELF_LE) ? ".exports" : ".drectve")
481 #ifndef DRECTVE_SECTION_NAME
482 #define DRECTVE_SECTION_NAME ".drectve"
485 /* What's the right name for this ? */
488 /* External name alias numbering starts here. */
489 #define PREFIX_ALIAS_BASE 20000
492 char *tmp_head_s_buf
;
493 char *tmp_head_o_buf
;
494 char *tmp_tail_s_buf
;
495 char *tmp_tail_o_buf
;
498 #define TMP_ASM dlltmp (&tmp_asm_buf, "%sc.s")
499 #define TMP_HEAD_S dlltmp (&tmp_head_s_buf, "%sh.s")
500 #define TMP_HEAD_O dlltmp (&tmp_head_o_buf, "%sh.o")
501 #define TMP_TAIL_S dlltmp (&tmp_tail_s_buf, "%st.s")
502 #define TMP_TAIL_O dlltmp (&tmp_tail_o_buf, "%st.o")
503 #define TMP_STUB dlltmp (&tmp_stub_buf, "%ss")
505 /* This bit of assembly does jmp * .... */
506 static const unsigned char i386_jtab
[] =
508 0xff, 0x25, 0x00, 0x00, 0x00, 0x00, 0x90, 0x90
511 static const unsigned char i386_dljtab
[] =
513 0xFF, 0x25, 0x00, 0x00, 0x00, 0x00, /* jmp __imp__function */
514 0xB8, 0x00, 0x00, 0x00, 0x00, /* mov eax, offset __imp__function */
515 0xE9, 0x00, 0x00, 0x00, 0x00 /* jmp __tailMerge__dllname */
518 static const unsigned char i386_x64_dljtab
[] =
520 0xFF, 0x25, 0x00, 0x00, 0x00, 0x00, /* jmp __imp__function */
521 0x48, 0x8d, 0x05, /* leaq rax, (__imp__function) */
522 0x00, 0x00, 0x00, 0x00,
523 0xE9, 0x00, 0x00, 0x00, 0x00 /* jmp __tailMerge__dllname */
526 static const unsigned char arm_jtab
[] =
528 0x00, 0xc0, 0x9f, 0xe5, /* ldr ip, [pc] */
529 0x00, 0xf0, 0x9c, 0xe5, /* ldr pc, [ip] */
533 static const unsigned char arm_interwork_jtab
[] =
535 0x04, 0xc0, 0x9f, 0xe5, /* ldr ip, [pc] */
536 0x00, 0xc0, 0x9c, 0xe5, /* ldr ip, [ip] */
537 0x1c, 0xff, 0x2f, 0xe1, /* bx ip */
541 static const unsigned char thumb_jtab
[] =
543 0x40, 0xb4, /* push {r6} */
544 0x02, 0x4e, /* ldr r6, [pc, #8] */
545 0x36, 0x68, /* ldr r6, [r6] */
546 0xb4, 0x46, /* mov ip, r6 */
547 0x40, 0xbc, /* pop {r6} */
548 0x60, 0x47, /* bx ip */
552 static const unsigned char mcore_be_jtab
[] =
554 0x71, 0x02, /* lrw r1,2 */
555 0x81, 0x01, /* ld.w r1,(r1,0) */
556 0x00, 0xC1, /* jmp r1 */
557 0x12, 0x00, /* nop */
558 0x00, 0x00, 0x00, 0x00 /* <address> */
561 static const unsigned char mcore_le_jtab
[] =
563 0x02, 0x71, /* lrw r1,2 */
564 0x01, 0x81, /* ld.w r1,(r1,0) */
565 0xC1, 0x00, /* jmp r1 */
566 0x00, 0x12, /* nop */
567 0x00, 0x00, 0x00, 0x00 /* <address> */
570 /* This is the glue sequence for PowerPC PE. There is a
571 tocrel16-tocdefn reloc against the first instruction.
572 We also need a IMGLUE reloc against the glue function
573 to restore the toc saved by the third instruction in
575 static const unsigned char ppc_jtab
[] =
577 0x00, 0x00, 0x62, 0x81, /* lwz r11,0(r2) */
578 /* Reloc TOCREL16 __imp_xxx */
579 0x00, 0x00, 0x8B, 0x81, /* lwz r12,0(r11) */
580 0x04, 0x00, 0x41, 0x90, /* stw r2,4(r1) */
581 0xA6, 0x03, 0x89, 0x7D, /* mtctr r12 */
582 0x04, 0x00, 0x4B, 0x80, /* lwz r2,4(r11) */
583 0x20, 0x04, 0x80, 0x4E /* bctr */
587 /* The glue instruction, picks up the toc from the stw in
588 the above code: "lwz r2,4(r1)". */
589 static bfd_vma ppc_glue_insn
= 0x80410004;
592 static const char i386_trampoline
[] =
596 "\tpushl $__DELAY_IMPORT_DESCRIPTOR_%s\n"
597 "\tcall ___delayLoadHelper2@8\n"
602 static const char i386_x64_trampoline
[] =
607 "\tsubq $40, %%rsp\n"
608 "\tmovq %%rax, %%rdx\n"
609 "\tleaq __DELAY_IMPORT_DESCRIPTOR_%s(%%rip), %%rcx\n"
610 "\tcall __delayLoadHelper2\n"
611 "\taddq $40, %%rsp\n"
621 const char *how_byte
;
622 const char *how_short
;
623 const char *how_long
;
624 const char *how_asciz
;
625 const char *how_comment
;
626 const char *how_jump
;
627 const char *how_global
;
628 const char *how_space
;
629 const char *how_align_short
;
630 const char *how_align_long
;
631 const char *how_default_as_switches
;
632 const char *how_bfd_target
;
633 enum bfd_architecture how_bfd_arch
;
634 const unsigned char *how_jtab
;
635 int how_jtab_size
; /* Size of the jtab entry. */
636 int how_jtab_roff
; /* Offset into it for the ind 32 reloc into idata 5. */
637 const unsigned char *how_dljtab
;
638 int how_dljtab_size
; /* Size of the dljtab entry. */
639 int how_dljtab_roff1
; /* Offset for the ind 32 reloc into idata 5. */
640 int how_dljtab_roff2
; /* Offset for the ind 32 reloc into idata 5. */
641 int how_dljtab_roff3
; /* Offset for the ind 32 reloc into idata 5. */
642 const char *trampoline
;
645 static const struct mac
650 "arm", ".byte", ".short", ".long", ".asciz", "@",
651 "ldr\tip,[pc]\n\tldr\tpc,[ip]\n\t.long",
652 ".global", ".space", ".align\t2",".align\t4", "-mapcs-32",
653 "pe-arm-little", bfd_arch_arm
,
654 arm_jtab
, sizeof (arm_jtab
), 8,
660 "i386", ".byte", ".short", ".long", ".asciz", "#",
661 "jmp *", ".global", ".space", ".align\t2",".align\t4", "",
662 "pe-i386",bfd_arch_i386
,
663 i386_jtab
, sizeof (i386_jtab
), 2,
664 i386_dljtab
, sizeof (i386_dljtab
), 2, 7, 12, i386_trampoline
669 "ppc", ".byte", ".short", ".long", ".asciz", "#",
670 "jmp *", ".global", ".space", ".align\t2",".align\t4", "",
671 "pe-powerpcle",bfd_arch_powerpc
,
672 ppc_jtab
, sizeof (ppc_jtab
), 0,
678 "thumb", ".byte", ".short", ".long", ".asciz", "@",
679 "push\t{r6}\n\tldr\tr6, [pc, #8]\n\tldr\tr6, [r6]\n\tmov\tip, r6\n\tpop\t{r6}\n\tbx\tip",
680 ".global", ".space", ".align\t2",".align\t4", "-mthumb-interwork",
681 "pe-arm-little", bfd_arch_arm
,
682 thumb_jtab
, sizeof (thumb_jtab
), 12,
686 #define MARM_INTERWORK 4
688 "arm_interwork", ".byte", ".short", ".long", ".asciz", "@",
689 "ldr\tip,[pc]\n\tldr\tip,[ip]\n\tbx\tip\n\t.long",
690 ".global", ".space", ".align\t2",".align\t4", "-mthumb-interwork",
691 "pe-arm-little", bfd_arch_arm
,
692 arm_interwork_jtab
, sizeof (arm_interwork_jtab
), 12,
698 "mcore-be", ".byte", ".short", ".long", ".asciz", "//",
699 "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
700 ".global", ".space", ".align\t2",".align\t4", "",
701 "pe-mcore-big", bfd_arch_mcore
,
702 mcore_be_jtab
, sizeof (mcore_be_jtab
), 8,
708 "mcore-le", ".byte", ".short", ".long", ".asciz", "//",
709 "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
710 ".global", ".space", ".align\t2",".align\t4", "-EL",
711 "pe-mcore-little", bfd_arch_mcore
,
712 mcore_le_jtab
, sizeof (mcore_le_jtab
), 8,
718 "mcore-elf-be", ".byte", ".short", ".long", ".asciz", "//",
719 "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
720 ".global", ".space", ".align\t2",".align\t4", "",
721 "elf32-mcore-big", bfd_arch_mcore
,
722 mcore_be_jtab
, sizeof (mcore_be_jtab
), 8,
727 #define MMCORE_ELF_LE 8
728 "mcore-elf-le", ".byte", ".short", ".long", ".asciz", "//",
729 "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
730 ".global", ".space", ".align\t2",".align\t4", "-EL",
731 "elf32-mcore-little", bfd_arch_mcore
,
732 mcore_le_jtab
, sizeof (mcore_le_jtab
), 8,
738 "arm-epoc", ".byte", ".short", ".long", ".asciz", "@",
739 "ldr\tip,[pc]\n\tldr\tpc,[ip]\n\t.long",
740 ".global", ".space", ".align\t2",".align\t4", "",
741 "epoc-pe-arm-little", bfd_arch_arm
,
742 arm_jtab
, sizeof (arm_jtab
), 8,
747 #define MARM_WINCE 10
748 "arm-wince", ".byte", ".short", ".long", ".asciz", "@",
749 "ldr\tip,[pc]\n\tldr\tpc,[ip]\n\t.long",
750 ".global", ".space", ".align\t2",".align\t4", "-mapcs-32",
751 "pe-arm-wince-little", bfd_arch_arm
,
752 arm_jtab
, sizeof (arm_jtab
), 8,
758 "i386:x86-64", ".byte", ".short", ".long", ".asciz", "#",
759 "jmp *", ".global", ".space", ".align\t2",".align\t4", "",
760 "pe-x86-64",bfd_arch_i386
,
761 i386_jtab
, sizeof (i386_jtab
), 2,
762 i386_x64_dljtab
, sizeof (i386_x64_dljtab
), 2, 9, 14, i386_x64_trampoline
765 { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }
775 typedef struct export
778 const char *internal_name
;
779 const char *import_name
;
780 const char *its_name
;
783 int noname
; /* Don't put name in image file. */
784 int private; /* Don't put reference in import lib. */
787 int forward
; /* Number of forward label, 0 means no forward. */
792 /* A list of symbols which we should not export. */
796 struct string_list
*next
;
800 static struct string_list
*excludes
;
802 static const char *rvaafter (int);
803 static const char *rvabefore (int);
804 static const char *asm_prefix (int, const char *);
805 static void process_def_file (const char *);
806 static void new_directive (char *);
807 static void append_import (const char *, const char *, int, const char *);
808 static void run (const char *, char *);
809 static void scan_drectve_symbols (bfd
*);
810 static void scan_filtered_symbols (bfd
*, void *, long, unsigned int);
811 static void add_excludes (const char *);
812 static bfd_boolean
match_exclude (const char *);
813 static void set_default_excludes (void);
814 static long filter_symbols (bfd
*, void *, long, unsigned int);
815 static void scan_all_symbols (bfd
*);
816 static void scan_open_obj_file (bfd
*);
817 static void scan_obj_file (const char *);
818 static void dump_def_info (FILE *);
819 static int sfunc (const void *, const void *);
820 static void flush_page (FILE *, bfd_vma
*, bfd_vma
, int);
821 static void gen_def_file (void);
822 static void generate_idata_ofile (FILE *);
823 static void assemble_file (const char *, const char *);
824 static void gen_exp_file (void);
825 static const char *xlate (const char *);
826 static char *make_label (const char *, const char *);
827 static char *make_imp_label (const char *, const char *);
828 static bfd
*make_one_lib_file (export_type
*, int, int);
829 static bfd
*make_head (void);
830 static bfd
*make_tail (void);
831 static bfd
*make_delay_head (void);
832 static void gen_lib_file (int);
833 static void dll_name_list_append (dll_name_list_type
*, bfd_byte
*);
834 static int dll_name_list_count (dll_name_list_type
*);
835 static void dll_name_list_print (dll_name_list_type
*);
836 static void dll_name_list_free_contents (dll_name_list_node_type
*);
837 static void dll_name_list_free (dll_name_list_type
*);
838 static dll_name_list_type
* dll_name_list_create (void);
839 static void identify_dll_for_implib (void);
840 static void identify_search_archive
841 (bfd
*, void (*) (bfd
*, bfd
*, void *), void *);
842 static void identify_search_member (bfd
*, bfd
*, void *);
843 static bfd_boolean
identify_process_section_p (asection
*, bfd_boolean
);
844 static void identify_search_section (bfd
*, asection
*, void *);
845 static void identify_member_contains_symname (bfd
*, bfd
*, void *);
847 static int pfunc (const void *, const void *);
848 static int nfunc (const void *, const void *);
849 static void remove_null_names (export_type
**);
850 static void process_duplicates (export_type
**);
851 static void fill_ordinals (export_type
**);
852 static void mangle_defs (void);
853 static void usage (FILE *, int);
854 static void inform (const char *, ...) ATTRIBUTE_PRINTF_1
;
855 static void set_dll_name_from_def (const char *name
, char is_dll
);
858 prefix_encode (char *start
, unsigned code
)
860 static char alpha
[26] = "abcdefghijklmnopqrstuvwxyz";
864 p
= strchr (buf
, '\0');
866 *p
++ = alpha
[code
% sizeof (alpha
)];
867 while ((code
/= sizeof (alpha
)) != 0);
873 dlltmp (char **buf
, const char *fmt
)
877 *buf
= malloc (strlen (tmp_prefix
) + 64);
878 sprintf (*buf
, fmt
, tmp_prefix
);
884 inform
VPARAMS ((const char * message
, ...))
886 VA_OPEN (args
, message
);
887 VA_FIXEDARG (args
, const char *, message
);
892 report (message
, args
);
916 /* xgettext:c-format */
917 fatal (_("Internal error: Unknown machine type: %d"), mach
);
942 /* xgettext:c-format */
943 fatal (_("Internal error: Unknown machine type: %d"), mach
);
950 asm_prefix (int mach
, const char *name
)
967 /* Symbol names starting with ? do not have a leading underscore. */
968 if ((name
&& *name
== '?') || leading_underscore
== 0)
973 /* xgettext:c-format */
974 fatal (_("Internal error: Unknown machine type: %d"), mach
);
980 #define ASM_BYTE mtable[machine].how_byte
981 #define ASM_SHORT mtable[machine].how_short
982 #define ASM_LONG mtable[machine].how_long
983 #define ASM_TEXT mtable[machine].how_asciz
984 #define ASM_C mtable[machine].how_comment
985 #define ASM_JUMP mtable[machine].how_jump
986 #define ASM_GLOBAL mtable[machine].how_global
987 #define ASM_SPACE mtable[machine].how_space
988 #define ASM_ALIGN_SHORT mtable[machine].how_align_short
989 #define ASM_RVA_BEFORE rvabefore (machine)
990 #define ASM_RVA_AFTER rvaafter (machine)
991 #define ASM_PREFIX(NAME) asm_prefix (machine, (NAME))
992 #define ASM_ALIGN_LONG mtable[machine].how_align_long
993 #define HOW_BFD_READ_TARGET 0 /* Always default. */
994 #define HOW_BFD_WRITE_TARGET mtable[machine].how_bfd_target
995 #define HOW_BFD_ARCH mtable[machine].how_bfd_arch
996 #define HOW_JTAB (delay ? mtable[machine].how_dljtab \
997 : mtable[machine].how_jtab)
998 #define HOW_JTAB_SIZE (delay ? mtable[machine].how_dljtab_size \
999 : mtable[machine].how_jtab_size)
1000 #define HOW_JTAB_ROFF (delay ? mtable[machine].how_dljtab_roff1 \
1001 : mtable[machine].how_jtab_roff)
1002 #define HOW_JTAB_ROFF2 (delay ? mtable[machine].how_dljtab_roff2 : 0)
1003 #define HOW_JTAB_ROFF3 (delay ? mtable[machine].how_dljtab_roff3 : 0)
1004 #define ASM_SWITCHES mtable[machine].how_default_as_switches
1009 process_def_file (const char *name
)
1011 FILE *f
= fopen (name
, FOPEN_RT
);
1014 /* xgettext:c-format */
1015 fatal (_("Can't open def file: %s"), name
);
1019 /* xgettext:c-format */
1020 inform (_("Processing def file: %s"), name
);
1024 inform (_("Processed def file"));
1027 /**********************************************************************/
1029 /* Communications with the parser. */
1031 static int d_nfuncs
; /* Number of functions exported. */
1032 static int d_named_nfuncs
; /* Number of named functions exported. */
1033 static int d_low_ord
; /* Lowest ordinal index. */
1034 static int d_high_ord
; /* Highest ordinal index. */
1035 static export_type
*d_exports
; /* List of exported functions. */
1036 static export_type
**d_exports_lexically
; /* Vector of exported functions in alpha order. */
1037 static dlist_type
*d_list
; /* Descriptions. */
1038 static dlist_type
*a_list
; /* Stuff to go in directives. */
1039 static int d_nforwards
= 0; /* Number of forwarded exports. */
1041 static int d_is_dll
;
1042 static int d_is_exe
;
1045 yyerror (const char * err ATTRIBUTE_UNUSED
)
1047 /* xgettext:c-format */
1048 non_fatal (_("Syntax error in def file %s:%d"), def_file
, linenumber
);
1054 def_exports (const char *name
, const char *internal_name
, int ordinal
,
1055 int noname
, int constant
, int data
, int private,
1056 const char *its_name
)
1058 struct export
*p
= (struct export
*) xmalloc (sizeof (*p
));
1061 p
->internal_name
= internal_name
? internal_name
: name
;
1062 p
->its_name
= its_name
;
1063 p
->import_name
= name
;
1064 p
->ordinal
= ordinal
;
1065 p
->constant
= constant
;
1067 p
->private = private;
1069 p
->next
= d_exports
;
1073 if ((internal_name
!= NULL
)
1074 && (strchr (internal_name
, '.') != NULL
))
1075 p
->forward
= ++d_nforwards
;
1077 p
->forward
= 0; /* no forward */
1081 set_dll_name_from_def (const char *name
, char is_dll
)
1083 const char *image_basename
= lbasename (name
);
1084 if (image_basename
!= name
)
1085 non_fatal (_("%s: Path components stripped from image name, '%s'."),
1087 /* Append the default suffix, if none specified. */
1088 if (strchr (image_basename
, '.') == 0)
1090 const char * suffix
= is_dll
? ".dll" : ".exe";
1092 dll_name
= xmalloc (strlen (image_basename
) + strlen (suffix
) + 1);
1093 sprintf (dll_name
, "%s%s", image_basename
, suffix
);
1096 dll_name
= xstrdup (image_basename
);
1100 def_name (const char *name
, int base
)
1102 /* xgettext:c-format */
1103 inform (_("NAME: %s base: %x"), name
, base
);
1106 non_fatal (_("Can't have LIBRARY and NAME"));
1108 if (dll_name_set_by_exp_name
&& name
&& *name
!= 0)
1111 dll_name_set_by_exp_name
= 0;
1113 /* If --dllname not provided, use the one in the DEF file.
1114 FIXME: Is this appropriate for executables? */
1116 set_dll_name_from_def (name
, 0);
1121 def_library (const char *name
, int base
)
1123 /* xgettext:c-format */
1124 inform (_("LIBRARY: %s base: %x"), name
, base
);
1127 non_fatal (_("Can't have LIBRARY and NAME"));
1129 if (dll_name_set_by_exp_name
&& name
&& *name
!= 0)
1132 dll_name_set_by_exp_name
= 0;
1135 /* If --dllname not provided, use the one in the DEF file. */
1137 set_dll_name_from_def (name
, 1);
1142 def_description (const char *desc
)
1144 dlist_type
*d
= (dlist_type
*) xmalloc (sizeof (dlist_type
));
1145 d
->text
= xstrdup (desc
);
1151 new_directive (char *dir
)
1153 dlist_type
*d
= (dlist_type
*) xmalloc (sizeof (dlist_type
));
1154 d
->text
= xstrdup (dir
);
1160 def_heapsize (int reserve
, int commit
)
1164 sprintf (b
, "-heap 0x%x,0x%x ", reserve
, commit
);
1166 sprintf (b
, "-heap 0x%x ", reserve
);
1167 new_directive (xstrdup (b
));
1171 def_stacksize (int reserve
, int commit
)
1175 sprintf (b
, "-stack 0x%x,0x%x ", reserve
, commit
);
1177 sprintf (b
, "-stack 0x%x ", reserve
);
1178 new_directive (xstrdup (b
));
1181 /* append_import simply adds the given import definition to the global
1182 import_list. It is used by def_import. */
1185 append_import (const char *symbol_name
, const char *dllname
, int func_ordinal
,
1186 const char *its_name
)
1191 for (pq
= &import_list
; *pq
!= NULL
; pq
= &(*pq
)->next
)
1193 if (strcmp ((*pq
)->dllname
, dllname
) == 0)
1196 q
->functail
->next
= xmalloc (sizeof (ifunctype
));
1197 q
->functail
= q
->functail
->next
;
1198 q
->functail
->ord
= func_ordinal
;
1199 q
->functail
->name
= xstrdup (symbol_name
);
1200 q
->functail
->its_name
= (its_name
? xstrdup (its_name
) : NULL
);
1201 q
->functail
->next
= NULL
;
1207 q
= xmalloc (sizeof (iheadtype
));
1208 q
->dllname
= xstrdup (dllname
);
1210 q
->funchead
= xmalloc (sizeof (ifunctype
));
1211 q
->functail
= q
->funchead
;
1213 q
->functail
->name
= xstrdup (symbol_name
);
1214 q
->functail
->its_name
= (its_name
? xstrdup (its_name
) : NULL
);
1215 q
->functail
->ord
= func_ordinal
;
1216 q
->functail
->next
= NULL
;
1221 /* def_import is called from within defparse.y when an IMPORT
1222 declaration is encountered. Depending on the form of the
1223 declaration, the module name may or may not need ".dll" to be
1224 appended to it, the name of the function may be stored in internal
1225 or entry, and there may or may not be an ordinal value associated
1228 /* A note regarding the parse modes:
1229 In defparse.y we have to accept import declarations which follow
1230 any one of the following forms:
1231 <func_name_in_app> = <dll_name>.<func_name_in_dll>
1232 <func_name_in_app> = <dll_name>.<number>
1233 <dll_name>.<func_name_in_dll>
1235 Furthermore, the dll's name may or may not end with ".dll", which
1236 complicates the parsing a little. Normally the dll's name is
1237 passed to def_import() in the "module" parameter, but when it ends
1238 with ".dll" it gets passed in "module" sans ".dll" and that needs
1241 def_import gets five parameters:
1242 APP_NAME - the name of the function in the application, if
1243 present, or NULL if not present.
1244 MODULE - the name of the dll, possibly sans extension (ie, '.dll').
1245 DLLEXT - the extension of the dll, if present, NULL if not present.
1246 ENTRY - the name of the function in the dll, if present, or NULL.
1247 ORD_VAL - the numerical tag of the function in the dll, if present,
1248 or NULL. Exactly one of <entry> or <ord_val> must be
1249 present (i.e., not NULL). */
1252 def_import (const char *app_name
, const char *module
, const char *dllext
,
1253 const char *entry
, int ord_val
, const char *its_name
)
1255 const char *application_name
;
1259 application_name
= entry
;
1262 if (app_name
!= NULL
)
1263 application_name
= app_name
;
1265 application_name
= "";
1270 buf
= (char *) alloca (strlen (module
) + strlen (dllext
) + 2);
1271 sprintf (buf
, "%s.%s", module
, dllext
);
1275 append_import (application_name
, module
, ord_val
, its_name
);
1279 def_version (int major
, int minor
)
1281 printf (_("VERSION %d.%d\n"), major
, minor
);
1285 def_section (const char *name
, int attr
)
1300 sprintf (buf
, "-attr %s %s", name
, atts
);
1301 new_directive (xstrdup (buf
));
1308 def_section ("CODE", attr
);
1314 def_section ("DATA", attr
);
1317 /**********************************************************************/
1320 run (const char *what
, char *args
)
1323 int pid
, wait_status
;
1326 char *errmsg_fmt
, *errmsg_arg
;
1327 char *temp_base
= choose_temp_base ();
1329 inform (_("run: %s %s"), what
, args
);
1331 /* Count the args */
1333 for (s
= args
; *s
; s
++)
1337 argv
= alloca (sizeof (char *) * (i
+ 3));
1346 while (*s
!= ' ' && *s
!= 0)
1354 pid
= pexecute (argv
[0], (char * const *) argv
, program_name
, temp_base
,
1355 &errmsg_fmt
, &errmsg_arg
, PEXECUTE_ONE
| PEXECUTE_SEARCH
);
1359 inform ("%s", strerror (errno
));
1361 fatal (errmsg_fmt
, errmsg_arg
);
1364 pid
= pwait (pid
, & wait_status
, 0);
1368 /* xgettext:c-format */
1369 fatal (_("wait: %s"), strerror (errno
));
1371 else if (WIFSIGNALED (wait_status
))
1373 /* xgettext:c-format */
1374 fatal (_("subprocess got fatal signal %d"), WTERMSIG (wait_status
));
1376 else if (WIFEXITED (wait_status
))
1378 if (WEXITSTATUS (wait_status
) != 0)
1379 /* xgettext:c-format */
1380 non_fatal (_("%s exited with status %d"),
1381 what
, WEXITSTATUS (wait_status
));
1387 /* Look for a list of symbols to export in the .drectve section of
1388 ABFD. Pass each one to def_exports. */
1391 scan_drectve_symbols (bfd
*abfd
)
1399 /* Look for .drectve's */
1400 s
= bfd_get_section_by_name (abfd
, DRECTVE_SECTION_NAME
);
1405 size
= bfd_get_section_size (s
);
1406 buf
= xmalloc (size
);
1408 bfd_get_section_contents (abfd
, s
, buf
, 0, size
);
1410 /* xgettext:c-format */
1411 inform (_("Sucking in info from %s section in %s"),
1412 DRECTVE_SECTION_NAME
, bfd_get_filename (abfd
));
1414 /* Search for -export: strings. The exported symbols can optionally
1415 have type tags (eg., -export:foo,data), so handle those as well.
1416 Currently only data tag is supported. */
1422 && CONST_STRNEQ (p
, "-export:"))
1426 flagword flags
= BSF_FUNCTION
;
1429 /* Do we have a quoted export? */
1434 while (p
< e
&& *p
!= '"')
1440 while (p
< e
&& *p
!= ',' && *p
!= ' ' && *p
!= '-')
1443 c
= xmalloc (p
- name
+ 1);
1444 memcpy (c
, name
, p
- name
);
1446 /* Advance over trailing quote. */
1447 if (p
< e
&& *p
== '"')
1449 if (p
< e
&& *p
== ',') /* found type tag. */
1451 char *tag_start
= ++p
;
1452 while (p
< e
&& *p
!= ' ' && *p
!= '-')
1454 if (CONST_STRNEQ (tag_start
, "data"))
1455 flags
&= ~BSF_FUNCTION
;
1458 /* FIXME: The 5th arg is for the `constant' field.
1459 What should it be? Not that it matters since it's not
1460 currently useful. */
1461 def_exports (c
, 0, -1, 0, 0, ! (flags
& BSF_FUNCTION
), 0, NULL
);
1463 if (add_stdcall_alias
&& strchr (c
, '@'))
1465 int lead_at
= (*c
== '@') ;
1466 char *exported_name
= xstrdup (c
+ lead_at
);
1467 char *atsym
= strchr (exported_name
, '@');
1469 /* Note: stdcall alias symbols can never be data. */
1470 def_exports (exported_name
, xstrdup (c
), -1, 0, 0, 0, 0, NULL
);
1479 /* Look through the symbols in MINISYMS, and add each one to list of
1480 symbols to export. */
1483 scan_filtered_symbols (bfd
*abfd
, void *minisyms
, long symcount
,
1487 bfd_byte
*from
, *fromend
;
1489 store
= bfd_make_empty_symbol (abfd
);
1491 bfd_fatal (bfd_get_filename (abfd
));
1493 from
= (bfd_byte
*) minisyms
;
1494 fromend
= from
+ symcount
* size
;
1495 for (; from
< fromend
; from
+= size
)
1498 const char *symbol_name
;
1500 sym
= bfd_minisymbol_to_symbol (abfd
, FALSE
, from
, store
);
1502 bfd_fatal (bfd_get_filename (abfd
));
1504 symbol_name
= bfd_asymbol_name (sym
);
1505 if (bfd_get_symbol_leading_char (abfd
) == symbol_name
[0])
1508 def_exports (xstrdup (symbol_name
) , 0, -1, 0, 0,
1509 ! (sym
->flags
& BSF_FUNCTION
), 0, NULL
);
1511 if (add_stdcall_alias
&& strchr (symbol_name
, '@'))
1513 int lead_at
= (*symbol_name
== '@');
1514 char *exported_name
= xstrdup (symbol_name
+ lead_at
);
1515 char *atsym
= strchr (exported_name
, '@');
1517 /* Note: stdcall alias symbols can never be data. */
1518 def_exports (exported_name
, xstrdup (symbol_name
), -1, 0, 0, 0, 0, NULL
);
1523 /* Add a list of symbols to exclude. */
1526 add_excludes (const char *new_excludes
)
1529 char *exclude_string
;
1531 local_copy
= xstrdup (new_excludes
);
1533 exclude_string
= strtok (local_copy
, ",:");
1534 for (; exclude_string
; exclude_string
= strtok (NULL
, ",:"))
1536 struct string_list
*new_exclude
;
1538 new_exclude
= ((struct string_list
*)
1539 xmalloc (sizeof (struct string_list
)));
1540 new_exclude
->string
= (char *) xmalloc (strlen (exclude_string
) + 2);
1541 /* Don't add a leading underscore for fastcall symbols. */
1542 if (*exclude_string
== '@')
1543 sprintf (new_exclude
->string
, "%s", exclude_string
);
1545 sprintf (new_exclude
->string
, "%s%s", (!leading_underscore
? "" : "_"),
1547 new_exclude
->next
= excludes
;
1548 excludes
= new_exclude
;
1550 /* xgettext:c-format */
1551 inform (_("Excluding symbol: %s"), exclude_string
);
1557 /* See if STRING is on the list of symbols to exclude. */
1560 match_exclude (const char *string
)
1562 struct string_list
*excl_item
;
1564 for (excl_item
= excludes
; excl_item
; excl_item
= excl_item
->next
)
1565 if (strcmp (string
, excl_item
->string
) == 0)
1570 /* Add the default list of symbols to exclude. */
1573 set_default_excludes (void)
1575 add_excludes (default_excludes
);
1578 /* Choose which symbols to export. */
1581 filter_symbols (bfd
*abfd
, void *minisyms
, long symcount
, unsigned int size
)
1583 bfd_byte
*from
, *fromend
, *to
;
1586 store
= bfd_make_empty_symbol (abfd
);
1588 bfd_fatal (bfd_get_filename (abfd
));
1590 from
= (bfd_byte
*) minisyms
;
1591 fromend
= from
+ symcount
* size
;
1592 to
= (bfd_byte
*) minisyms
;
1594 for (; from
< fromend
; from
+= size
)
1599 sym
= bfd_minisymbol_to_symbol (abfd
, FALSE
, (const void *) from
, store
);
1601 bfd_fatal (bfd_get_filename (abfd
));
1603 /* Check for external and defined only symbols. */
1604 keep
= (((sym
->flags
& BSF_GLOBAL
) != 0
1605 || (sym
->flags
& BSF_WEAK
) != 0
1606 || bfd_is_com_section (sym
->section
))
1607 && ! bfd_is_und_section (sym
->section
));
1609 keep
= keep
&& ! match_exclude (sym
->name
);
1613 memcpy (to
, from
, size
);
1618 return (to
- (bfd_byte
*) minisyms
) / size
;
1621 /* Export all symbols in ABFD, except for ones we were told not to
1625 scan_all_symbols (bfd
*abfd
)
1631 /* Ignore bfds with an import descriptor table. We assume that any
1632 such BFD contains symbols which are exported from another DLL,
1633 and we don't want to reexport them from here. */
1634 if (bfd_get_section_by_name (abfd
, ".idata$4"))
1637 if (! (bfd_get_file_flags (abfd
) & HAS_SYMS
))
1639 /* xgettext:c-format */
1640 non_fatal (_("%s: no symbols"), bfd_get_filename (abfd
));
1644 symcount
= bfd_read_minisymbols (abfd
, FALSE
, &minisyms
, &size
);
1646 bfd_fatal (bfd_get_filename (abfd
));
1650 /* xgettext:c-format */
1651 non_fatal (_("%s: no symbols"), bfd_get_filename (abfd
));
1655 /* Discard the symbols we don't want to export. It's OK to do this
1656 in place; we'll free the storage anyway. */
1658 symcount
= filter_symbols (abfd
, minisyms
, symcount
, size
);
1659 scan_filtered_symbols (abfd
, minisyms
, symcount
, size
);
1664 /* Look at the object file to decide which symbols to export. */
1667 scan_open_obj_file (bfd
*abfd
)
1669 if (export_all_symbols
)
1670 scan_all_symbols (abfd
);
1672 scan_drectve_symbols (abfd
);
1674 /* FIXME: we ought to read in and block out the base relocations. */
1676 /* xgettext:c-format */
1677 inform (_("Done reading %s"), bfd_get_filename (abfd
));
1681 scan_obj_file (const char *filename
)
1683 bfd
* f
= bfd_openr (filename
, 0);
1686 /* xgettext:c-format */
1687 fatal (_("Unable to open object file: %s: %s"), filename
, bfd_get_errmsg ());
1689 /* xgettext:c-format */
1690 inform (_("Scanning object file %s"), filename
);
1692 if (bfd_check_format (f
, bfd_archive
))
1694 bfd
*arfile
= bfd_openr_next_archived_file (f
, 0);
1698 if (bfd_check_format (arfile
, bfd_object
))
1699 scan_open_obj_file (arfile
);
1700 next
= bfd_openr_next_archived_file (f
, arfile
);
1705 #ifdef DLLTOOL_MCORE_ELF
1706 if (mcore_elf_out_file
)
1707 inform (_("Cannot produce mcore-elf dll from archive file: %s"), filename
);
1710 else if (bfd_check_format (f
, bfd_object
))
1712 scan_open_obj_file (f
);
1714 #ifdef DLLTOOL_MCORE_ELF
1715 if (mcore_elf_out_file
)
1716 mcore_elf_cache_filename (filename
);
1726 dump_def_info (FILE *f
)
1730 fprintf (f
, "%s ", ASM_C
);
1731 for (i
= 0; oav
[i
]; i
++)
1732 fprintf (f
, "%s ", oav
[i
]);
1734 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
1736 fprintf (f
, "%s %d = %s %s @ %d %s%s%s%s%s%s\n",
1742 exp
->noname
? "NONAME " : "",
1743 exp
->private ? "PRIVATE " : "",
1744 exp
->constant
? "CONSTANT" : "",
1745 exp
->data
? "DATA" : "",
1746 exp
->its_name
? " ==" : "",
1747 exp
->its_name
? exp
->its_name
: "");
1751 /* Generate the .exp file. */
1754 sfunc (const void *a
, const void *b
)
1756 if (*(const bfd_vma
*) a
== *(const bfd_vma
*) b
)
1759 return ((*(const bfd_vma
*) a
> *(const bfd_vma
*) b
) ? 1 : -1);
1763 flush_page (FILE *f
, bfd_vma
*need
, bfd_vma page_addr
, int on_page
)
1767 /* Flush this page. */
1768 fprintf (f
, "\t%s\t0x%08x\t%s Starting RVA for chunk\n",
1772 fprintf (f
, "\t%s\t0x%x\t%s Size of block\n",
1774 (on_page
* 2) + (on_page
& 1) * 2 + 8,
1777 for (i
= 0; i
< on_page
; i
++)
1779 bfd_vma needed
= need
[i
];
1783 if (!create_for_pep
)
1785 /* Relocation via HIGHLOW. */
1786 needed
= ((needed
- page_addr
) | 0x3000) & 0xffff;
1790 /* Relocation via DIR64. */
1791 needed
= ((needed
- page_addr
) | 0xa000) & 0xffff;
1795 fprintf (f
, "\t%s\t0x%lx\n", ASM_SHORT
, (long) needed
);
1800 fprintf (f
, "\t%s\t0x%x\n", ASM_SHORT
, 0 | 0x0000);
1809 inform (_("Adding exports to output file"));
1811 fprintf (output_def
, ";");
1812 for (i
= 0; oav
[i
]; i
++)
1813 fprintf (output_def
, " %s", oav
[i
]);
1815 fprintf (output_def
, "\nEXPORTS\n");
1817 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
1819 char *quote
= strchr (exp
->name
, '.') ? "\"" : "";
1820 char *res
= cplus_demangle (exp
->internal_name
, DMGL_ANSI
| DMGL_PARAMS
);
1824 fprintf (output_def
,";\t%s\n", res
);
1828 if (strcmp (exp
->name
, exp
->internal_name
) == 0)
1830 fprintf (output_def
, "\t%s%s%s @ %d%s%s%s%s%s\n",
1835 exp
->noname
? " NONAME" : "",
1836 exp
->private ? "PRIVATE " : "",
1837 exp
->data
? " DATA" : "",
1838 exp
->its_name
? " ==" : "",
1839 exp
->its_name
? exp
->its_name
: "");
1843 char * quote1
= strchr (exp
->internal_name
, '.') ? "\"" : "";
1845 fprintf (output_def
, "\t%s%s%s = %s%s%s @ %d%s%s%s%s%s\n",
1853 exp
->noname
? " NONAME" : "",
1854 exp
->private ? "PRIVATE " : "",
1855 exp
->data
? " DATA" : "",
1856 exp
->its_name
? " ==" : "",
1857 exp
->its_name
? exp
->its_name
: "");
1861 inform (_("Added exports to output file"));
1864 /* generate_idata_ofile generates the portable assembly source code
1865 for the idata sections. It appends the source code to the end of
1869 generate_idata_ofile (FILE *filvar
)
1877 if (import_list
== NULL
)
1880 fprintf (filvar
, "%s Import data sections\n", ASM_C
);
1881 fprintf (filvar
, "\n\t.section\t.idata$2\n");
1882 fprintf (filvar
, "\t%s\tdoi_idata\n", ASM_GLOBAL
);
1883 fprintf (filvar
, "doi_idata:\n");
1886 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1888 fprintf (filvar
, "\t%slistone%d%s\t%s %s\n",
1889 ASM_RVA_BEFORE
, nheads
, ASM_RVA_AFTER
,
1890 ASM_C
, headptr
->dllname
);
1891 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1892 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1893 fprintf (filvar
, "\t%sdllname%d%s\n",
1894 ASM_RVA_BEFORE
, nheads
, ASM_RVA_AFTER
);
1895 fprintf (filvar
, "\t%slisttwo%d%s\n\n",
1896 ASM_RVA_BEFORE
, nheads
, ASM_RVA_AFTER
);
1900 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* NULL record at */
1901 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* end of idata$2 */
1902 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* section */
1903 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1904 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1906 fprintf (filvar
, "\n\t.section\t.idata$4\n");
1908 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1910 fprintf (filvar
, "listone%d:\n", headindex
);
1911 for (funcindex
= 0; funcindex
< headptr
->nfuncs
; funcindex
++)
1914 fprintf (filvar
, "\t%sfuncptr%d_%d%s\n%s\t0\n",
1915 ASM_RVA_BEFORE
, headindex
, funcindex
, ASM_RVA_AFTER
,
1918 fprintf (filvar
, "\t%sfuncptr%d_%d%s\n",
1919 ASM_RVA_BEFORE
, headindex
, funcindex
, ASM_RVA_AFTER
);
1922 fprintf (filvar
, "\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
1924 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* NULL terminating list. */
1928 fprintf (filvar
, "\n\t.section\t.idata$5\n");
1930 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1932 fprintf (filvar
, "listtwo%d:\n", headindex
);
1933 for (funcindex
= 0; funcindex
< headptr
->nfuncs
; funcindex
++)
1936 fprintf (filvar
, "\t%sfuncptr%d_%d%s\n%s\t0\n",
1937 ASM_RVA_BEFORE
, headindex
, funcindex
, ASM_RVA_AFTER
,
1940 fprintf (filvar
, "\t%sfuncptr%d_%d%s\n",
1941 ASM_RVA_BEFORE
, headindex
, funcindex
, ASM_RVA_AFTER
);
1944 fprintf (filvar
, "\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
1946 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* NULL terminating list. */
1950 fprintf (filvar
, "\n\t.section\t.idata$6\n");
1952 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1955 for (funcptr
= headptr
->funchead
; funcptr
!= NULL
;
1956 funcptr
= funcptr
->next
)
1958 fprintf (filvar
,"funcptr%d_%d:\n", headindex
, funcindex
);
1959 fprintf (filvar
,"\t%s\t%d\n", ASM_SHORT
,
1960 ((funcptr
->ord
) & 0xFFFF));
1961 fprintf (filvar
,"\t%s\t\"%s\"\n", ASM_TEXT
,
1962 (funcptr
->its_name
? funcptr
->its_name
: funcptr
->name
));
1963 fprintf (filvar
,"\t%s\t0\n", ASM_BYTE
);
1969 fprintf (filvar
, "\n\t.section\t.idata$7\n");
1971 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1973 fprintf (filvar
,"dllname%d:\n", headindex
);
1974 fprintf (filvar
,"\t%s\t\"%s\"\n", ASM_TEXT
, headptr
->dllname
);
1975 fprintf (filvar
,"\t%s\t0\n", ASM_BYTE
);
1980 /* Assemble the specified file. */
1982 assemble_file (const char * source
, const char * dest
)
1986 cmd
= (char *) alloca (strlen (ASM_SWITCHES
) + strlen (as_flags
)
1987 + strlen (source
) + strlen (dest
) + 50);
1989 sprintf (cmd
, "%s %s -o %s %s", ASM_SWITCHES
, as_flags
, dest
, source
);
2002 /* xgettext:c-format */
2003 inform (_("Generating export file: %s"), exp_name
);
2005 f
= fopen (TMP_ASM
, FOPEN_WT
);
2007 /* xgettext:c-format */
2008 fatal (_("Unable to open temporary assembler file: %s"), TMP_ASM
);
2010 /* xgettext:c-format */
2011 inform (_("Opened temporary file: %s"), TMP_ASM
);
2017 fprintf (f
, "\t.section .edata\n\n");
2018 fprintf (f
, "\t%s 0 %s Allways 0\n", ASM_LONG
, ASM_C
);
2019 fprintf (f
, "\t%s 0x%lx %s Time and date\n", ASM_LONG
,
2020 (unsigned long) time(0), ASM_C
);
2021 fprintf (f
, "\t%s 0 %s Major and Minor version\n", ASM_LONG
, ASM_C
);
2022 fprintf (f
, "\t%sname%s %s Ptr to name of dll\n", ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
2023 fprintf (f
, "\t%s %d %s Starting ordinal of exports\n", ASM_LONG
, d_low_ord
, ASM_C
);
2026 fprintf (f
, "\t%s %d %s Number of functions\n", ASM_LONG
, d_high_ord
- d_low_ord
+ 1, ASM_C
);
2027 fprintf(f
,"\t%s named funcs %d, low ord %d, high ord %d\n",
2029 d_named_nfuncs
, d_low_ord
, d_high_ord
);
2030 fprintf (f
, "\t%s %d %s Number of names\n", ASM_LONG
,
2031 show_allnames
? d_high_ord
- d_low_ord
+ 1 : d_named_nfuncs
, ASM_C
);
2032 fprintf (f
, "\t%safuncs%s %s Address of functions\n", ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
2034 fprintf (f
, "\t%sanames%s %s Address of Name Pointer Table\n",
2035 ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
2037 fprintf (f
, "\t%sanords%s %s Address of ordinals\n", ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
2039 fprintf (f
, "name: %s \"%s\"\n", ASM_TEXT
, dll_name
);
2042 fprintf(f
,"%s Export address Table\n", ASM_C
);
2043 fprintf(f
,"\t%s\n", ASM_ALIGN_LONG
);
2044 fprintf (f
, "afuncs:\n");
2047 for (exp
= d_exports
; exp
; exp
= exp
->next
)
2049 if (exp
->ordinal
!= i
)
2051 while (i
< exp
->ordinal
)
2053 fprintf(f
,"\t%s\t0\n", ASM_LONG
);
2058 if (exp
->forward
== 0)
2060 if (exp
->internal_name
[0] == '@')
2061 fprintf (f
, "\t%s%s%s\t%s %d\n", ASM_RVA_BEFORE
,
2062 exp
->internal_name
, ASM_RVA_AFTER
, ASM_C
, exp
->ordinal
);
2064 fprintf (f
, "\t%s%s%s%s\t%s %d\n", ASM_RVA_BEFORE
,
2065 ASM_PREFIX (exp
->internal_name
),
2066 exp
->internal_name
, ASM_RVA_AFTER
, ASM_C
, exp
->ordinal
);
2069 fprintf (f
, "\t%sf%d%s\t%s %d\n", ASM_RVA_BEFORE
,
2070 exp
->forward
, ASM_RVA_AFTER
, ASM_C
, exp
->ordinal
);
2074 fprintf (f
,"%s Export Name Pointer Table\n", ASM_C
);
2075 fprintf (f
, "anames:\n");
2077 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
2079 if (!exp
->noname
|| show_allnames
)
2080 fprintf (f
, "\t%sn%d%s\n",
2081 ASM_RVA_BEFORE
, exp
->ordinal
, ASM_RVA_AFTER
);
2084 fprintf (f
,"%s Export Ordinal Table\n", ASM_C
);
2085 fprintf (f
, "anords:\n");
2086 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
2088 if (!exp
->noname
|| show_allnames
)
2089 fprintf (f
, "\t%s %d\n", ASM_SHORT
, exp
->ordinal
- d_low_ord
);
2092 fprintf(f
,"%s Export Name Table\n", ASM_C
);
2093 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
2095 if (!exp
->noname
|| show_allnames
)
2096 fprintf (f
, "n%d: %s \"%s\"\n",
2097 exp
->ordinal
, ASM_TEXT
,
2098 (exp
->its_name
? exp
->its_name
: xlate (exp
->name
)));
2099 if (exp
->forward
!= 0)
2100 fprintf (f
, "f%d: %s \"%s\"\n",
2101 exp
->forward
, ASM_TEXT
, exp
->internal_name
);
2106 fprintf (f
, "\t.section %s\n", DRECTVE_SECTION_NAME
);
2107 for (dl
= a_list
; dl
; dl
= dl
->next
)
2109 fprintf (f
, "\t%s\t\"%s\"\n", ASM_TEXT
, dl
->text
);
2115 fprintf (f
, "\t.section .rdata\n");
2116 for (dl
= d_list
; dl
; dl
= dl
->next
)
2121 /* We don't output as ascii because there can
2122 be quote characters in the string. */
2124 for (p
= dl
->text
; *p
; p
++)
2127 fprintf (f
, "\t%s\t", ASM_BYTE
);
2130 fprintf (f
, "%d", *p
);
2133 fprintf (f
, ",0\n");
2147 /* Add to the output file a way of getting to the exported names
2148 without using the import library. */
2151 fprintf (f
, "\t.section\t.rdata\n");
2152 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
2153 if (!exp
->noname
|| show_allnames
)
2155 /* We use a single underscore for MS compatibility, and a
2156 double underscore for backward compatibility with old
2158 if (create_compat_implib
)
2159 fprintf (f
, "\t%s\t__imp_%s\n", ASM_GLOBAL
, exp
->name
);
2160 fprintf (f
, "\t%s\t_imp_%s%s\n", ASM_GLOBAL
,
2161 (!leading_underscore
? "" : "_"), exp
->name
);
2162 if (create_compat_implib
)
2163 fprintf (f
, "__imp_%s:\n", exp
->name
);
2164 fprintf (f
, "_imp_%s%s:\n", (!leading_underscore
? "" : "_"), exp
->name
);
2165 fprintf (f
, "\t%s\t%s\n", ASM_LONG
, exp
->name
);
2169 /* Dump the reloc section if a base file is provided. */
2173 bfd_vma need
[COFF_PAGE_SIZE
];
2175 bfd_size_type numbytes
;
2180 fprintf (f
, "\t.section\t.init\n");
2181 fprintf (f
, "lab:\n");
2183 fseek (base_file
, 0, SEEK_END
);
2184 numbytes
= ftell (base_file
);
2185 fseek (base_file
, 0, SEEK_SET
);
2186 copy
= xmalloc (numbytes
);
2187 if (fread (copy
, 1, numbytes
, base_file
) < numbytes
)
2188 fatal (_("failed to read the number of entries from base file"));
2189 num_entries
= numbytes
/ sizeof (bfd_vma
);
2192 fprintf (f
, "\t.section\t.reloc\n");
2197 bfd_vma last
= (bfd_vma
) -1;
2198 qsort (copy
, num_entries
, sizeof (bfd_vma
), sfunc
);
2199 /* Delete duplicates */
2200 for (src
= 0; src
< num_entries
; src
++)
2202 if (last
!= copy
[src
])
2203 last
= copy
[dst
++] = copy
[src
];
2207 page_addr
= addr
& PAGE_MASK
; /* work out the page addr */
2209 for (j
= 0; j
< num_entries
; j
++)
2212 if ((addr
& PAGE_MASK
) != page_addr
)
2214 flush_page (f
, need
, page_addr
, on_page
);
2216 page_addr
= addr
& PAGE_MASK
;
2218 need
[on_page
++] = addr
;
2220 flush_page (f
, need
, page_addr
, on_page
);
2222 /* fprintf (f, "\t%s\t0,0\t%s End\n", ASM_LONG, ASM_C);*/
2226 generate_idata_ofile (f
);
2230 /* Assemble the file. */
2231 assemble_file (TMP_ASM
, exp_name
);
2233 if (dontdeltemps
== 0)
2236 inform (_("Generated exports file"));
2240 xlate (const char *name
)
2242 int lead_at
= (*name
== '@');
2243 int is_stdcall
= (!lead_at
&& strchr (name
, '@') != NULL
);
2245 if (!lead_at
&& (add_underscore
2246 || (add_stdcall_underscore
&& is_stdcall
)))
2248 char *copy
= xmalloc (strlen (name
) + 2);
2251 strcpy (copy
+ 1, name
);
2260 /* PR 9766: Look for the last @ sign in the name. */
2261 p
= strrchr (name
, '@');
2262 if (p
&& ISDIGIT (p
[1]))
2278 unsigned char *data
;
2293 #define TEXT_SEC_FLAGS \
2294 (SEC_ALLOC | SEC_LOAD | SEC_CODE | SEC_READONLY | SEC_HAS_CONTENTS)
2295 #define DATA_SEC_FLAGS (SEC_ALLOC | SEC_LOAD | SEC_DATA)
2296 #define BSS_SEC_FLAGS SEC_ALLOC
2298 #define INIT_SEC_DATA(id, name, flags, align) \
2299 { id, name, flags, align, NULL, NULL, NULL, 0, NULL }
2300 static sinfo secdata
[NSECS
] =
2302 INIT_SEC_DATA (TEXT
, ".text", TEXT_SEC_FLAGS
, 2),
2303 INIT_SEC_DATA (DATA
, ".data", DATA_SEC_FLAGS
, 2),
2304 INIT_SEC_DATA (BSS
, ".bss", BSS_SEC_FLAGS
, 2),
2305 INIT_SEC_DATA (IDATA7
, ".idata$7", SEC_HAS_CONTENTS
, 2),
2306 INIT_SEC_DATA (IDATA5
, ".idata$5", SEC_HAS_CONTENTS
, 2),
2307 INIT_SEC_DATA (IDATA4
, ".idata$4", SEC_HAS_CONTENTS
, 2),
2308 INIT_SEC_DATA (IDATA6
, ".idata$6", SEC_HAS_CONTENTS
, 1)
2313 /* Sections numbered to make the order the same as other PowerPC NT
2314 compilers. This also keeps funny alignment thingies from happening. */
2327 static sinfo secdata
[NSECS
] =
2329 { TEXT
, ".text", SEC_CODE
| SEC_HAS_CONTENTS
, 3},
2330 { PDATA
, ".pdata", SEC_HAS_CONTENTS
, 2},
2331 { RDATA
, ".reldata", SEC_HAS_CONTENTS
, 2},
2332 { IDATA5
, ".idata$5", SEC_HAS_CONTENTS
, 2},
2333 { IDATA4
, ".idata$4", SEC_HAS_CONTENTS
, 2},
2334 { IDATA6
, ".idata$6", SEC_HAS_CONTENTS
, 1},
2335 { IDATA7
, ".idata$7", SEC_HAS_CONTENTS
, 2},
2336 { DATA
, ".data", SEC_DATA
, 2},
2337 { BSS
, ".bss", 0, 2}
2342 /* This is what we're trying to make. We generate the imp symbols with
2343 both single and double underscores, for compatibility.
2346 .global _GetFileVersionInfoSizeW@8
2347 .global __imp_GetFileVersionInfoSizeW@8
2348 _GetFileVersionInfoSizeW@8:
2349 jmp * __imp_GetFileVersionInfoSizeW@8
2350 .section .idata$7 # To force loading of head
2351 .long __version_a_head
2352 # Import Address Table
2354 __imp_GetFileVersionInfoSizeW@8:
2357 # Import Lookup Table
2363 .asciz "GetFileVersionInfoSizeW"
2366 For the PowerPC, here's the variation on the above scheme:
2368 # Rather than a simple "jmp *", the code to get to the dll function
2371 lwz r11,[tocv]__imp_function_name(r2)
2372 # RELOC: 00000000 TOCREL16,TOCDEFN __imp_function_name
2380 make_label (const char *prefix
, const char *name
)
2382 int len
= strlen (ASM_PREFIX (name
)) + strlen (prefix
) + strlen (name
);
2383 char *copy
= xmalloc (len
+ 1);
2385 strcpy (copy
, ASM_PREFIX (name
));
2386 strcat (copy
, prefix
);
2387 strcat (copy
, name
);
2392 make_imp_label (const char *prefix
, const char *name
)
2399 len
= strlen (prefix
) + strlen (name
);
2400 copy
= xmalloc (len
+ 1);
2401 strcpy (copy
, prefix
);
2402 strcat (copy
, name
);
2406 len
= strlen (ASM_PREFIX (name
)) + strlen (prefix
) + strlen (name
);
2407 copy
= xmalloc (len
+ 1);
2408 strcpy (copy
, prefix
);
2409 strcat (copy
, ASM_PREFIX (name
));
2410 strcat (copy
, name
);
2416 make_one_lib_file (export_type
*exp
, int i
, int delay
)
2419 asymbol
* exp_label
;
2420 asymbol
* iname
= 0;
2422 asymbol
* iname_lab
;
2423 asymbol
** iname_lab_pp
;
2424 asymbol
** iname_pp
;
2433 asymbol
* ptrs
[NSECS
+ 4 + EXTRA
+ 1];
2434 flagword applicable
;
2435 char * outname
= xmalloc (strlen (TMP_STUB
) + 10);
2439 sprintf (outname
, "%s%05d.o", TMP_STUB
, i
);
2441 abfd
= bfd_openw (outname
, HOW_BFD_WRITE_TARGET
);
2444 /* xgettext:c-format */
2445 fatal (_("bfd_open failed open stub file: %s: %s"),
2446 outname
, bfd_get_errmsg ());
2448 /* xgettext:c-format */
2449 inform (_("Creating stub file: %s"), outname
);
2451 bfd_set_format (abfd
, bfd_object
);
2452 bfd_set_arch_mach (abfd
, HOW_BFD_ARCH
, 0);
2455 if (machine
== MARM_INTERWORK
|| machine
== MTHUMB
)
2456 bfd_set_private_flags (abfd
, F_INTERWORK
);
2459 applicable
= bfd_applicable_section_flags (abfd
);
2461 /* First make symbols for the sections. */
2462 for (i
= 0; i
< NSECS
; i
++)
2464 sinfo
*si
= secdata
+ i
;
2468 si
->sec
= bfd_make_section_old_way (abfd
, si
->name
);
2469 bfd_set_section_flags (abfd
,
2471 si
->flags
& applicable
);
2473 bfd_set_section_alignment(abfd
, si
->sec
, si
->align
);
2474 si
->sec
->output_section
= si
->sec
;
2475 si
->sym
= bfd_make_empty_symbol(abfd
);
2476 si
->sym
->name
= si
->sec
->name
;
2477 si
->sym
->section
= si
->sec
;
2478 si
->sym
->flags
= BSF_LOCAL
;
2480 ptrs
[oidx
] = si
->sym
;
2481 si
->sympp
= ptrs
+ oidx
;
2490 exp_label
= bfd_make_empty_symbol (abfd
);
2491 exp_label
->name
= make_imp_label ("", exp
->name
);
2493 /* On PowerPC, the function name points to a descriptor in
2494 the rdata section, the first element of which is a
2495 pointer to the code (..function_name), and the second
2496 points to the .toc. */
2498 if (machine
== MPPC
)
2499 exp_label
->section
= secdata
[RDATA
].sec
;
2502 exp_label
->section
= secdata
[TEXT
].sec
;
2504 exp_label
->flags
= BSF_GLOBAL
;
2505 exp_label
->value
= 0;
2508 if (machine
== MTHUMB
)
2509 bfd_coff_set_symbol_class (abfd
, exp_label
, C_THUMBEXTFUNC
);
2511 ptrs
[oidx
++] = exp_label
;
2514 /* Generate imp symbols with one underscore for Microsoft
2515 compatibility, and with two underscores for backward
2516 compatibility with old versions of cygwin. */
2517 if (create_compat_implib
)
2519 iname
= bfd_make_empty_symbol (abfd
);
2520 iname
->name
= make_imp_label ("___imp", exp
->name
);
2521 iname
->section
= secdata
[IDATA5
].sec
;
2522 iname
->flags
= BSF_GLOBAL
;
2526 iname2
= bfd_make_empty_symbol (abfd
);
2527 iname2
->name
= make_imp_label ("__imp_", exp
->name
);
2528 iname2
->section
= secdata
[IDATA5
].sec
;
2529 iname2
->flags
= BSF_GLOBAL
;
2532 iname_lab
= bfd_make_empty_symbol (abfd
);
2534 iname_lab
->name
= head_label
;
2535 iname_lab
->section
= bfd_und_section_ptr
;
2536 iname_lab
->flags
= 0;
2537 iname_lab
->value
= 0;
2539 iname_pp
= ptrs
+ oidx
;
2540 if (create_compat_implib
)
2541 ptrs
[oidx
++] = iname
;
2542 ptrs
[oidx
++] = iname2
;
2544 iname_lab_pp
= ptrs
+ oidx
;
2545 ptrs
[oidx
++] = iname_lab
;
2548 /* The symbol referring to the code (.text). */
2550 asymbol
*function_name
;
2552 function_name
= bfd_make_empty_symbol(abfd
);
2553 function_name
->name
= make_label ("..", exp
->name
);
2554 function_name
->section
= secdata
[TEXT
].sec
;
2555 function_name
->flags
= BSF_GLOBAL
;
2556 function_name
->value
= 0;
2558 fn_pp
= ptrs
+ oidx
;
2559 ptrs
[oidx
++] = function_name
;
2562 /* The .toc symbol. */
2564 asymbol
*toc_symbol
;
2566 toc_symbol
= bfd_make_empty_symbol (abfd
);
2567 toc_symbol
->name
= make_label (".", "toc");
2568 toc_symbol
->section
= bfd_und_section_ptr
;
2569 toc_symbol
->flags
= BSF_GLOBAL
;
2570 toc_symbol
->value
= 0;
2572 toc_pp
= ptrs
+ oidx
;
2573 ptrs
[oidx
++] = toc_symbol
;
2579 for (i
= 0; i
< NSECS
; i
++)
2581 sinfo
*si
= secdata
+ i
;
2582 asection
*sec
= si
->sec
;
2583 arelent
*rel
, *rel2
= 0, *rel3
= 0;
2591 si
->size
= HOW_JTAB_SIZE
;
2592 si
->data
= xmalloc (HOW_JTAB_SIZE
);
2593 memcpy (si
->data
, HOW_JTAB
, HOW_JTAB_SIZE
);
2595 /* Add the reloc into idata$5. */
2596 rel
= xmalloc (sizeof (arelent
));
2598 rpp
= xmalloc (sizeof (arelent
*) * (delay
? 4 : 2));
2602 rel
->address
= HOW_JTAB_ROFF
;
2607 rel2
= xmalloc (sizeof (arelent
));
2609 rel2
->address
= HOW_JTAB_ROFF2
;
2611 rel3
= xmalloc (sizeof (arelent
));
2613 rel3
->address
= HOW_JTAB_ROFF3
;
2618 if (machine
== MPPC
)
2620 rel
->howto
= bfd_reloc_type_lookup (abfd
,
2621 BFD_RELOC_16_GOTOFF
);
2622 rel
->sym_ptr_ptr
= iname_pp
;
2624 else if (machine
== MX86
)
2626 rel
->howto
= bfd_reloc_type_lookup (abfd
,
2627 BFD_RELOC_32_PCREL
);
2628 rel
->sym_ptr_ptr
= iname_pp
;
2632 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2633 rel
->sym_ptr_ptr
= secdata
[IDATA5
].sympp
;
2638 if (machine
== MX86
)
2639 rel2
->howto
= bfd_reloc_type_lookup (abfd
,
2640 BFD_RELOC_32_PCREL
);
2642 rel2
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2643 rel2
->sym_ptr_ptr
= rel
->sym_ptr_ptr
;
2644 rel3
->howto
= bfd_reloc_type_lookup (abfd
,
2645 BFD_RELOC_32_PCREL
);
2646 rel3
->sym_ptr_ptr
= iname_lab_pp
;
2649 sec
->orelocation
= rpp
;
2650 sec
->reloc_count
= delay
? 3 : 1;
2657 si
->size
= create_for_pep
? 8 : 4;
2658 si
->data
= xmalloc (si
->size
);
2659 sec
->reloc_count
= 1;
2660 memset (si
->data
, 0, si
->size
);
2661 /* Point after jmp [__imp_...] instruction. */
2663 rel
= xmalloc (sizeof (arelent
));
2664 rpp
= xmalloc (sizeof (arelent
*) * 2);
2670 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_64
);
2672 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2673 rel
->sym_ptr_ptr
= secdata
[TEXT
].sympp
;
2674 sec
->orelocation
= rpp
;
2677 /* else fall through */
2679 /* An idata$4 or idata$5 is one word long, and has an
2684 si
->data
= xmalloc (8);
2688 si
->data
[0] = exp
->ordinal
;
2689 si
->data
[1] = exp
->ordinal
>> 8;
2690 si
->data
[2] = exp
->ordinal
>> 16;
2691 si
->data
[3] = exp
->ordinal
>> 24;
2699 sec
->reloc_count
= 1;
2700 memset (si
->data
, 0, si
->size
);
2701 rel
= xmalloc (sizeof (arelent
));
2702 rpp
= xmalloc (sizeof (arelent
*) * 2);
2707 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_RVA
);
2708 rel
->sym_ptr_ptr
= secdata
[IDATA6
].sympp
;
2709 sec
->orelocation
= rpp
;
2714 si
->data
= xmalloc (4);
2719 si
->data
[0] = exp
->ordinal
;
2720 si
->data
[1] = exp
->ordinal
>> 8;
2721 si
->data
[2] = exp
->ordinal
>> 16;
2726 sec
->reloc_count
= 1;
2727 memset (si
->data
, 0, si
->size
);
2728 rel
= xmalloc (sizeof (arelent
));
2729 rpp
= xmalloc (sizeof (arelent
*) * 2);
2734 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_RVA
);
2735 rel
->sym_ptr_ptr
= secdata
[IDATA6
].sympp
;
2736 sec
->orelocation
= rpp
;
2744 /* This used to add 1 to exp->hint. I don't know
2745 why it did that, and it does not match what I see
2746 in programs compiled with the MS tools. */
2747 int idx
= exp
->hint
;
2749 si
->size
= strlen (exp
->its_name
) + 3;
2751 si
->size
= strlen (xlate (exp
->import_name
)) + 3;
2752 si
->data
= xmalloc (si
->size
);
2753 si
->data
[0] = idx
& 0xff;
2754 si
->data
[1] = idx
>> 8;
2756 strcpy ((char *) si
->data
+ 2, exp
->its_name
);
2758 strcpy ((char *) si
->data
+ 2, xlate (exp
->import_name
));
2765 si
->data
= xmalloc (4);
2766 memset (si
->data
, 0, si
->size
);
2767 rel
= xmalloc (sizeof (arelent
));
2768 rpp
= xmalloc (sizeof (arelent
*) * 2);
2772 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_RVA
);
2773 rel
->sym_ptr_ptr
= iname_lab_pp
;
2774 sec
->orelocation
= rpp
;
2775 sec
->reloc_count
= 1;
2781 /* The .pdata section is 5 words long.
2785 bfd_vma BeginAddress, [0x00]
2787 ExceptionHandler, [0x08]
2789 PrologEndAddress; [0x10]
2792 /* So this pdata section setups up this as a glue linkage to
2793 a dll routine. There are a number of house keeping things
2796 1. In the name of glue trickery, the ADDR32 relocs for 0,
2797 4, and 0x10 are set to point to the same place:
2799 2. There is one more reloc needed in the pdata section.
2800 The actual glue instruction to restore the toc on
2801 return is saved as the offset in an IMGLUE reloc.
2802 So we need a total of four relocs for this section.
2804 3. Lastly, the HandlerData field is set to 0x03, to indicate
2805 that this is a glue routine. */
2806 arelent
*imglue
, *ba_rel
, *ea_rel
, *pea_rel
;
2808 /* Alignment must be set to 2**2 or you get extra stuff. */
2809 bfd_set_section_alignment(abfd
, sec
, 2);
2812 si
->data
= xmalloc (si
->size
);
2813 memset (si
->data
, 0, si
->size
);
2814 rpp
= xmalloc (sizeof (arelent
*) * 5);
2815 rpp
[0] = imglue
= xmalloc (sizeof (arelent
));
2816 rpp
[1] = ba_rel
= xmalloc (sizeof (arelent
));
2817 rpp
[2] = ea_rel
= xmalloc (sizeof (arelent
));
2818 rpp
[3] = pea_rel
= xmalloc (sizeof (arelent
));
2821 /* Stick the toc reload instruction in the glue reloc. */
2822 bfd_put_32(abfd
, ppc_glue_insn
, (char *) &imglue
->address
);
2825 imglue
->howto
= bfd_reloc_type_lookup (abfd
,
2826 BFD_RELOC_32_GOTOFF
);
2827 imglue
->sym_ptr_ptr
= fn_pp
;
2829 ba_rel
->address
= 0;
2831 ba_rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2832 ba_rel
->sym_ptr_ptr
= fn_pp
;
2834 bfd_put_32 (abfd
, 0x18, si
->data
+ 0x04);
2835 ea_rel
->address
= 4;
2837 ea_rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2838 ea_rel
->sym_ptr_ptr
= fn_pp
;
2840 /* Mark it as glue. */
2841 bfd_put_32 (abfd
, 0x03, si
->data
+ 0x0c);
2843 /* Mark the prolog end address. */
2844 bfd_put_32 (abfd
, 0x0D, si
->data
+ 0x10);
2845 pea_rel
->address
= 0x10;
2846 pea_rel
->addend
= 0;
2847 pea_rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2848 pea_rel
->sym_ptr_ptr
= fn_pp
;
2850 sec
->orelocation
= rpp
;
2851 sec
->reloc_count
= 4;
2855 /* Each external function in a PowerPC PE file has a two word
2856 descriptor consisting of:
2857 1. The address of the code.
2858 2. The address of the appropriate .toc
2859 We use relocs to build this. */
2861 si
->data
= xmalloc (8);
2862 memset (si
->data
, 0, si
->size
);
2864 rpp
= xmalloc (sizeof (arelent
*) * 3);
2865 rpp
[0] = rel
= xmalloc (sizeof (arelent
));
2866 rpp
[1] = xmalloc (sizeof (arelent
));
2871 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2872 rel
->sym_ptr_ptr
= fn_pp
;
2878 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2879 rel
->sym_ptr_ptr
= toc_pp
;
2881 sec
->orelocation
= rpp
;
2882 sec
->reloc_count
= 2;
2884 #endif /* DLLTOOL_PPC */
2890 /* Size up all the sections. */
2891 for (i
= 0; i
< NSECS
; i
++)
2893 sinfo
*si
= secdata
+ i
;
2895 bfd_set_section_size (abfd
, si
->sec
, si
->size
);
2896 bfd_set_section_vma (abfd
, si
->sec
, vma
);
2899 /* Write them out. */
2900 for (i
= 0; i
< NSECS
; i
++)
2902 sinfo
*si
= secdata
+ i
;
2904 if (i
== IDATA5
&& no_idata5
)
2907 if (i
== IDATA4
&& no_idata4
)
2910 bfd_set_section_contents (abfd
, si
->sec
,
2915 bfd_set_symtab (abfd
, ptrs
, oidx
);
2917 abfd
= bfd_openr (outname
, HOW_BFD_READ_TARGET
);
2919 /* xgettext:c-format */
2920 fatal (_("bfd_open failed reopen stub file: %s: %s"),
2921 outname
, bfd_get_errmsg ());
2929 FILE *f
= fopen (TMP_HEAD_S
, FOPEN_WT
);
2934 fatal (_("failed to open temporary head file: %s"), TMP_HEAD_S
);
2938 fprintf (f
, "%s IMAGE_IMPORT_DESCRIPTOR\n", ASM_C
);
2939 fprintf (f
, "\t.section\t.idata$2\n");
2941 fprintf (f
,"\t%s\t%s\n", ASM_GLOBAL
, head_label
);
2943 fprintf (f
, "%s:\n", head_label
);
2945 fprintf (f
, "\t%shname%s\t%sPtr to image import by name list\n",
2946 ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
2948 fprintf (f
, "\t%sthis should be the timestamp, but NT sometimes\n", ASM_C
);
2949 fprintf (f
, "\t%sdoesn't load DLLs when this is set.\n", ASM_C
);
2950 fprintf (f
, "\t%s\t0\t%s loaded time\n", ASM_LONG
, ASM_C
);
2951 fprintf (f
, "\t%s\t0\t%s Forwarder chain\n", ASM_LONG
, ASM_C
);
2952 fprintf (f
, "\t%s__%s_iname%s\t%s imported dll's name\n",
2957 fprintf (f
, "\t%sfthunk%s\t%s pointer to firstthunk\n",
2959 ASM_RVA_AFTER
, ASM_C
);
2961 fprintf (f
, "%sStuff for compatibility\n", ASM_C
);
2965 fprintf (f
, "\t.section\t.idata$5\n");
2966 if (use_nul_prefixed_import_tables
)
2969 fprintf (f
,"\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
2971 fprintf (f
,"\t%s\t0\n", ASM_LONG
);
2973 fprintf (f
, "fthunk:\n");
2978 fprintf (f
, "\t.section\t.idata$4\n");
2979 if (use_nul_prefixed_import_tables
)
2982 fprintf (f
,"\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
2984 fprintf (f
,"\t%s\t0\n", ASM_LONG
);
2986 fprintf (f
, "hname:\n");
2991 assemble_file (TMP_HEAD_S
, TMP_HEAD_O
);
2993 abfd
= bfd_openr (TMP_HEAD_O
, HOW_BFD_READ_TARGET
);
2995 /* xgettext:c-format */
2996 fatal (_("failed to open temporary head file: %s: %s"),
2997 TMP_HEAD_O
, bfd_get_errmsg ());
3003 make_delay_head (void)
3005 FILE *f
= fopen (TMP_HEAD_S
, FOPEN_WT
);
3010 fatal (_("failed to open temporary head file: %s"), TMP_HEAD_S
);
3014 /* Output the __tailMerge__xxx function */
3015 fprintf (f
, "%s Import trampoline\n", ASM_C
);
3016 fprintf (f
, "\t.section\t.text\n");
3017 fprintf(f
,"\t%s\t%s\n", ASM_GLOBAL
, head_label
);
3018 fprintf (f
, "%s:\n", head_label
);
3019 fprintf (f
, mtable
[machine
].trampoline
, imp_name_lab
);
3021 /* Output the delay import descriptor */
3022 fprintf (f
, "\n%s DELAY_IMPORT_DESCRIPTOR\n", ASM_C
);
3023 fprintf (f
, ".section\t.text$2\n");
3024 fprintf (f
,"%s __DELAY_IMPORT_DESCRIPTOR_%s\n", ASM_GLOBAL
,imp_name_lab
);
3025 fprintf (f
, "__DELAY_IMPORT_DESCRIPTOR_%s:\n", imp_name_lab
);
3026 fprintf (f
, "\t%s 1\t%s grAttrs\n", ASM_LONG
, ASM_C
);
3027 fprintf (f
, "\t%s__%s_iname%s\t%s rvaDLLName\n",
3028 ASM_RVA_BEFORE
, imp_name_lab
, ASM_RVA_AFTER
, ASM_C
);
3029 fprintf (f
, "\t%s__DLL_HANDLE_%s%s\t%s rvaHmod\n",
3030 ASM_RVA_BEFORE
, imp_name_lab
, ASM_RVA_AFTER
, ASM_C
);
3031 fprintf (f
, "\t%s__IAT_%s%s\t%s rvaIAT\n",
3032 ASM_RVA_BEFORE
, imp_name_lab
, ASM_RVA_AFTER
, ASM_C
);
3033 fprintf (f
, "\t%s__INT_%s%s\t%s rvaINT\n",
3034 ASM_RVA_BEFORE
, imp_name_lab
, ASM_RVA_AFTER
, ASM_C
);
3035 fprintf (f
, "\t%s\t0\t%s rvaBoundIAT\n", ASM_LONG
, ASM_C
);
3036 fprintf (f
, "\t%s\t0\t%s rvaUnloadIAT\n", ASM_LONG
, ASM_C
);
3037 fprintf (f
, "\t%s\t0\t%s dwTimeStamp\n", ASM_LONG
, ASM_C
);
3039 /* Output the dll_handle */
3040 fprintf (f
, "\n.section .data\n");
3041 fprintf (f
, "__DLL_HANDLE_%s:\n", imp_name_lab
);
3042 fprintf (f
, "\t%s\t0\t%s Handle\n", ASM_LONG
, ASM_C
);
3044 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
3047 fprintf (f
, "%sStuff for compatibility\n", ASM_C
);
3051 fprintf (f
, "\t.section\t.idata$5\n");
3052 /* NULL terminating list. */
3054 fprintf (f
,"\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
3056 fprintf (f
,"\t%s\t0\n", ASM_LONG
);
3057 fprintf (f
, "__IAT_%s:\n", imp_name_lab
);
3062 fprintf (f
, "\t.section\t.idata$4\n");
3063 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
3065 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
3066 fprintf (f
, "\t.section\t.idata$4\n");
3067 fprintf (f
, "__INT_%s:\n", imp_name_lab
);
3070 fprintf (f
, "\t.section\t.idata$2\n");
3074 assemble_file (TMP_HEAD_S
, TMP_HEAD_O
);
3076 abfd
= bfd_openr (TMP_HEAD_O
, HOW_BFD_READ_TARGET
);
3078 /* xgettext:c-format */
3079 fatal (_("failed to open temporary head file: %s: %s"),
3080 TMP_HEAD_O
, bfd_get_errmsg ());
3088 FILE *f
= fopen (TMP_TAIL_S
, FOPEN_WT
);
3093 fatal (_("failed to open temporary tail file: %s"), TMP_TAIL_S
);
3099 fprintf (f
, "\t.section\t.idata$4\n");
3101 fprintf (f
,"\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
3103 fprintf (f
,"\t%s\t0\n", ASM_LONG
); /* NULL terminating list. */
3108 fprintf (f
, "\t.section\t.idata$5\n");
3110 fprintf (f
,"\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
3112 fprintf (f
,"\t%s\t0\n", ASM_LONG
); /* NULL terminating list. */
3116 /* Normally, we need to see a null descriptor built in idata$3 to
3117 act as the terminator for the list. The ideal way, I suppose,
3118 would be to mark this section as a comdat type 2 section, so
3119 only one would appear in the final .exe (if our linker supported
3120 comdat, that is) or cause it to be inserted by something else (say
3123 fprintf (f
, "\t.section\t.idata$3\n");
3124 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
3125 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
3126 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
3127 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
3128 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
3132 /* Other PowerPC NT compilers use idata$6 for the dllname, so I
3133 do too. Original, huh? */
3134 fprintf (f
, "\t.section\t.idata$6\n");
3136 fprintf (f
, "\t.section\t.idata$7\n");
3139 fprintf (f
, "\t%s\t__%s_iname\n", ASM_GLOBAL
, imp_name_lab
);
3140 fprintf (f
, "__%s_iname:\t%s\t\"%s\"\n",
3141 imp_name_lab
, ASM_TEXT
, dll_name
);
3145 assemble_file (TMP_TAIL_S
, TMP_TAIL_O
);
3147 abfd
= bfd_openr (TMP_TAIL_O
, HOW_BFD_READ_TARGET
);
3149 /* xgettext:c-format */
3150 fatal (_("failed to open temporary tail file: %s: %s"),
3151 TMP_TAIL_O
, bfd_get_errmsg ());
3157 gen_lib_file (int delay
)
3168 outarch
= bfd_openw (imp_name
, HOW_BFD_WRITE_TARGET
);
3171 /* xgettext:c-format */
3172 fatal (_("Can't create .lib file: %s: %s"),
3173 imp_name
, bfd_get_errmsg ());
3175 /* xgettext:c-format */
3176 inform (_("Creating library file: %s"), imp_name
);
3178 bfd_set_format (outarch
, bfd_archive
);
3179 outarch
->has_armap
= 1;
3180 outarch
->is_thin_archive
= 0;
3182 /* Work out a reasonable size of things to put onto one line. */
3185 ar_head
= make_delay_head ();
3189 ar_head
= make_head ();
3191 ar_tail
= make_tail();
3193 if (ar_head
== NULL
|| ar_tail
== NULL
)
3196 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
3199 /* Don't add PRIVATE entries to import lib. */
3202 n
= make_one_lib_file (exp
, i
, delay
);
3203 n
->archive_next
= head
;
3205 if (ext_prefix_alias
)
3207 export_type alias_exp
;
3209 assert (i
< PREFIX_ALIAS_BASE
);
3210 alias_exp
.name
= make_imp_label (ext_prefix_alias
, exp
->name
);
3211 alias_exp
.internal_name
= exp
->internal_name
;
3212 alias_exp
.its_name
= exp
->its_name
;
3213 alias_exp
.import_name
= exp
->name
;
3214 alias_exp
.ordinal
= exp
->ordinal
;
3215 alias_exp
.constant
= exp
->constant
;
3216 alias_exp
.noname
= exp
->noname
;
3217 alias_exp
.private = exp
->private;
3218 alias_exp
.data
= exp
->data
;
3219 alias_exp
.hint
= exp
->hint
;
3220 alias_exp
.forward
= exp
->forward
;
3221 alias_exp
.next
= exp
->next
;
3222 n
= make_one_lib_file (&alias_exp
, i
+ PREFIX_ALIAS_BASE
, delay
);
3223 n
->archive_next
= head
;
3228 /* Now stick them all into the archive. */
3229 ar_head
->archive_next
= head
;
3230 ar_tail
->archive_next
= ar_head
;
3233 if (! bfd_set_archive_head (outarch
, head
))
3234 bfd_fatal ("bfd_set_archive_head");
3236 if (! bfd_close (outarch
))
3237 bfd_fatal (imp_name
);
3239 while (head
!= NULL
)
3241 bfd
*n
= head
->archive_next
;
3246 /* Delete all the temp files. */
3247 if (dontdeltemps
== 0)
3249 unlink (TMP_HEAD_O
);
3250 unlink (TMP_HEAD_S
);
3251 unlink (TMP_TAIL_O
);
3252 unlink (TMP_TAIL_S
);
3255 if (dontdeltemps
< 2)
3259 name
= (char *) alloca (strlen (TMP_STUB
) + 10);
3260 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
3262 /* Don't delete non-existent stubs for PRIVATE entries. */
3265 sprintf (name
, "%s%05d.o", TMP_STUB
, i
);
3266 if (unlink (name
) < 0)
3267 /* xgettext:c-format */
3268 non_fatal (_("cannot delete %s: %s"), name
, strerror (errno
));
3269 if (ext_prefix_alias
)
3271 sprintf (name
, "%s%05d.o", TMP_STUB
, i
+ PREFIX_ALIAS_BASE
);
3272 if (unlink (name
) < 0)
3273 /* xgettext:c-format */
3274 non_fatal (_("cannot delete %s: %s"), name
, strerror (errno
));
3279 inform (_("Created lib file"));
3282 /* Append a copy of data (cast to char *) to list. */
3285 dll_name_list_append (dll_name_list_type
* list
, bfd_byte
* data
)
3287 dll_name_list_node_type
* entry
;
3289 /* Error checking. */
3290 if (! list
|| ! list
->tail
)
3293 /* Allocate new node. */
3294 entry
= ((dll_name_list_node_type
*)
3295 xmalloc (sizeof (dll_name_list_node_type
)));
3297 /* Initialize its values. */
3298 entry
->dllname
= xstrdup ((char *) data
);
3301 /* Add to tail, and move tail. */
3302 list
->tail
->next
= entry
;
3306 /* Count the number of entries in list. */
3309 dll_name_list_count (dll_name_list_type
* list
)
3311 dll_name_list_node_type
* p
;
3314 /* Error checking. */
3315 if (! list
|| ! list
->head
)
3320 while (p
&& p
->next
)
3328 /* Print each entry in list to stdout. */
3331 dll_name_list_print (dll_name_list_type
* list
)
3333 dll_name_list_node_type
* p
;
3335 /* Error checking. */
3336 if (! list
|| ! list
->head
)
3341 while (p
&& p
->next
&& p
->next
->dllname
&& *(p
->next
->dllname
))
3343 printf ("%s\n", p
->next
->dllname
);
3348 /* Free all entries in list, and list itself. */
3351 dll_name_list_free (dll_name_list_type
* list
)
3355 dll_name_list_free_contents (list
->head
);
3362 /* Recursive function to free all nodes entry->next->next...
3363 as well as entry itself. */
3366 dll_name_list_free_contents (dll_name_list_node_type
* entry
)
3372 dll_name_list_free_contents (entry
->next
);
3377 free (entry
->dllname
);
3378 entry
->dllname
= NULL
;
3384 /* Allocate and initialize a dll_name_list_type object,
3385 including its sentinel node. Caller is responsible
3386 for calling dll_name_list_free when finished with
3389 static dll_name_list_type
*
3390 dll_name_list_create (void)
3392 /* Allocate list. */
3393 dll_name_list_type
* list
= xmalloc (sizeof (dll_name_list_type
));
3395 /* Allocate and initialize sentinel node. */
3396 list
->head
= xmalloc (sizeof (dll_name_list_node_type
));
3397 list
->head
->dllname
= NULL
;
3398 list
->head
->next
= NULL
;
3400 /* Bookkeeping for empty list. */
3401 list
->tail
= list
->head
;
3406 /* Search the symbol table of the suppled BFD for a symbol whose name matches
3407 OBJ (where obj is cast to const char *). If found, set global variable
3408 identify_member_contains_symname_result TRUE. It is the caller's
3409 responsibility to set the result variable FALSE before iterating with
3413 identify_member_contains_symname (bfd
* abfd
,
3414 bfd
* archive_bfd ATTRIBUTE_UNUSED
,
3417 long storage_needed
;
3418 asymbol
** symbol_table
;
3419 long number_of_symbols
;
3421 symname_search_data_type
* search_data
= (symname_search_data_type
*) obj
;
3423 /* If we already found the symbol in a different member,
3425 if (search_data
->found
)
3428 storage_needed
= bfd_get_symtab_upper_bound (abfd
);
3429 if (storage_needed
<= 0)
3432 symbol_table
= xmalloc (storage_needed
);
3433 number_of_symbols
= bfd_canonicalize_symtab (abfd
, symbol_table
);
3434 if (number_of_symbols
< 0)
3436 free (symbol_table
);
3440 for (i
= 0; i
< number_of_symbols
; i
++)
3442 if (strncmp (symbol_table
[i
]->name
,
3443 search_data
->symname
,
3444 strlen (search_data
->symname
)) == 0)
3446 search_data
->found
= TRUE
;
3450 free (symbol_table
);
3453 /* This is the main implementation for the --identify option.
3454 Given the name of an import library in identify_imp_name, first determine
3455 if the import library is a GNU binutils-style one (where the DLL name is
3456 stored in an .idata$7 (.idata$6 on PPC) section, or if it is a MS-style
3457 one (where the DLL name, along with much other data, is stored in the
3458 .idata$6 section). We determine the style of import library by searching
3459 for the DLL-structure symbol inserted by MS tools:
3460 __NULL_IMPORT_DESCRIPTOR.
3462 Once we know which section to search, evaluate each section for the
3463 appropriate properties that indicate it may contain the name of the
3464 associated DLL (this differs depending on the style). Add the contents
3465 of all sections which meet the criteria to a linked list of dll names.
3467 Finally, print them all to stdout. (If --identify-strict, an error is
3468 reported if more than one match was found). */
3471 identify_dll_for_implib (void)
3475 identify_data_type identify_data
;
3476 symname_search_data_type search_data
;
3478 /* Initialize identify_data. */
3479 identify_data
.list
= dll_name_list_create ();
3480 identify_data
.ms_style_implib
= FALSE
;
3482 /* Initialize search_data. */
3483 search_data
.symname
= "__NULL_IMPORT_DESCRIPTOR";
3484 search_data
.found
= FALSE
;
3488 abfd
= bfd_openr (identify_imp_name
, 0);
3490 /* xgettext:c-format */
3491 fatal (_("Can't open .lib file: %s: %s"),
3492 identify_imp_name
, bfd_get_errmsg ());
3494 if (! bfd_check_format (abfd
, bfd_archive
))
3496 if (! bfd_close (abfd
))
3497 bfd_fatal (identify_imp_name
);
3499 fatal (_("%s is not a library"), identify_imp_name
);
3502 /* Detect if this a Microsoft import library. */
3503 identify_search_archive (abfd
,
3504 identify_member_contains_symname
,
3505 (void *)(& search_data
));
3506 if (search_data
.found
)
3507 identify_data
.ms_style_implib
= TRUE
;
3509 /* Rewind the bfd. */
3510 if (! bfd_close (abfd
))
3511 bfd_fatal (identify_imp_name
);
3512 abfd
= bfd_openr (identify_imp_name
, 0);
3514 bfd_fatal (identify_imp_name
);
3516 if (!bfd_check_format (abfd
, bfd_archive
))
3518 if (!bfd_close (abfd
))
3519 bfd_fatal (identify_imp_name
);
3521 fatal (_("%s is not a library"), identify_imp_name
);
3524 /* Now search for the dll name. */
3525 identify_search_archive (abfd
,
3526 identify_search_member
,
3527 (void *)(& identify_data
));
3529 if (! bfd_close (abfd
))
3530 bfd_fatal (identify_imp_name
);
3532 count
= dll_name_list_count (identify_data
.list
);
3535 if (identify_strict
&& count
> 1)
3537 dll_name_list_free (identify_data
.list
);
3538 identify_data
.list
= NULL
;
3539 fatal (_("Import library `%s' specifies two or more dlls"),
3542 dll_name_list_print (identify_data
.list
);
3543 dll_name_list_free (identify_data
.list
);
3544 identify_data
.list
= NULL
;
3548 dll_name_list_free (identify_data
.list
);
3549 identify_data
.list
= NULL
;
3550 fatal (_("Unable to determine dll name for `%s' (not an import library?)"),
3555 /* Loop over all members of the archive, applying the supplied function to
3556 each member that is a bfd_object. The function will be called as if:
3557 func (member_bfd, abfd, user_storage) */
3560 identify_search_archive (bfd
* abfd
,
3561 void (* operation
) (bfd
*, bfd
*, void *),
3562 void * user_storage
)
3564 bfd
* arfile
= NULL
;
3565 bfd
* last_arfile
= NULL
;
3570 arfile
= bfd_openr_next_archived_file (abfd
, arfile
);
3574 if (bfd_get_error () != bfd_error_no_more_archived_files
)
3575 bfd_fatal (bfd_get_filename (abfd
));
3579 if (bfd_check_format_matches (arfile
, bfd_object
, &matching
))
3580 (*operation
) (arfile
, abfd
, user_storage
);
3583 bfd_nonfatal (bfd_get_filename (arfile
));
3587 if (last_arfile
!= NULL
)
3588 bfd_close (last_arfile
);
3590 last_arfile
= arfile
;
3593 if (last_arfile
!= NULL
)
3595 bfd_close (last_arfile
);
3599 /* Call the identify_search_section() function for each section of this
3603 identify_search_member (bfd
*abfd
,
3604 bfd
*archive_bfd ATTRIBUTE_UNUSED
,
3607 bfd_map_over_sections (abfd
, identify_search_section
, obj
);
3610 /* This predicate returns true if section->name matches the desired value.
3611 By default, this is .idata$7 (.idata$6 on PPC, or if the import
3612 library is ms-style). */
3615 identify_process_section_p (asection
* section
, bfd_boolean ms_style_implib
)
3617 static const char * SECTION_NAME
=
3619 /* dllname is stored in idata$6 on PPC */
3624 static const char * MS_SECTION_NAME
= ".idata$6";
3626 const char * section_name
=
3627 (ms_style_implib
? MS_SECTION_NAME
: SECTION_NAME
);
3629 if (strcmp (section_name
, section
->name
) == 0)
3634 /* If *section has contents and its name is .idata$7 (.data$6 on PPC or if
3635 import lib ms-generated) -- and it satisfies several other constraints
3636 -- then add the contents of the section to obj->list. */
3639 identify_search_section (bfd
* abfd
, asection
* section
, void * obj
)
3642 bfd_size_type datasize
;
3643 identify_data_type
* identify_data
= (identify_data_type
*)obj
;
3644 bfd_boolean ms_style
= identify_data
->ms_style_implib
;
3646 if ((section
->flags
& SEC_HAS_CONTENTS
) == 0)
3649 if (! identify_process_section_p (section
, ms_style
))
3652 /* Binutils import libs seem distinguish the .idata$7 section that contains
3653 the DLL name from other .idata$7 sections by the absence of the
3655 if (!ms_style
&& ((section
->flags
& SEC_RELOC
) == SEC_RELOC
))
3658 /* MS import libs seem to distinguish the .idata$6 section
3659 that contains the DLL name from other .idata$6 sections
3660 by the presence of the SEC_DATA flag. */
3661 if (ms_style
&& ((section
->flags
& SEC_DATA
) == 0))
3664 if ((datasize
= bfd_section_size (abfd
, section
)) == 0)
3667 data
= (bfd_byte
*) xmalloc (datasize
+ 1);
3670 bfd_get_section_contents (abfd
, section
, data
, 0, datasize
);
3671 data
[datasize
] = '\0';
3673 /* Use a heuristic to determine if data is a dll name.
3674 Possible to defeat this if (a) the library has MANY
3675 (more than 0x302f) imports, (b) it is an ms-style
3676 import library, but (c) it is buggy, in that the SEC_DATA
3677 flag is set on the "wrong" sections. This heuristic might
3678 also fail to record a valid dll name if the dllname uses
3679 a multibyte or unicode character set (is that valid?).
3681 This heuristic is based on the fact that symbols names in
3682 the chosen section -- as opposed to the dll name -- begin
3683 at offset 2 in the data. The first two bytes are a 16bit
3684 little-endian count, and start at 0x0000. However, the dll
3685 name begins at offset 0 in the data. We assume that the
3686 dll name does not contain unprintable characters. */
3687 if (data
[0] != '\0' && ISPRINT (data
[0])
3688 && ((datasize
< 2) || ISPRINT (data
[1])))
3689 dll_name_list_append (identify_data
->list
, data
);
3694 /* Run through the information gathered from the .o files and the
3695 .def file and work out the best stuff. */
3698 pfunc (const void *a
, const void *b
)
3700 export_type
*ap
= *(export_type
**) a
;
3701 export_type
*bp
= *(export_type
**) b
;
3703 if (ap
->ordinal
== bp
->ordinal
)
3706 /* Unset ordinals go to the bottom. */
3707 if (ap
->ordinal
== -1)
3709 if (bp
->ordinal
== -1)
3711 return (ap
->ordinal
- bp
->ordinal
);
3715 nfunc (const void *a
, const void *b
)
3717 export_type
*ap
= *(export_type
**) a
;
3718 export_type
*bp
= *(export_type
**) b
;
3719 const char *an
= ap
->name
;
3720 const char *bn
= bp
->name
;
3727 an
= (an
[0] == '@') ? an
+ 1 : an
;
3728 bn
= (bn
[0] == '@') ? bn
+ 1 : bn
;
3731 return (strcmp (an
, bn
));
3735 remove_null_names (export_type
**ptr
)
3740 for (dst
= src
= 0; src
< d_nfuncs
; src
++)
3744 ptr
[dst
] = ptr
[src
];
3752 process_duplicates (export_type
**d_export_vec
)
3760 /* Remove duplicates. */
3761 qsort (d_export_vec
, d_nfuncs
, sizeof (export_type
*), nfunc
);
3763 for (i
= 0; i
< d_nfuncs
- 1; i
++)
3765 if (strcmp (d_export_vec
[i
]->name
,
3766 d_export_vec
[i
+ 1]->name
) == 0)
3768 export_type
*a
= d_export_vec
[i
];
3769 export_type
*b
= d_export_vec
[i
+ 1];
3773 /* xgettext:c-format */
3774 inform (_("Warning, ignoring duplicate EXPORT %s %d,%d"),
3775 a
->name
, a
->ordinal
, b
->ordinal
);
3777 if (a
->ordinal
!= -1
3778 && b
->ordinal
!= -1)
3779 /* xgettext:c-format */
3780 fatal (_("Error, duplicate EXPORT with ordinals: %s"),
3783 /* Merge attributes. */
3784 b
->ordinal
= a
->ordinal
> 0 ? a
->ordinal
: b
->ordinal
;
3785 b
->constant
|= a
->constant
;
3786 b
->noname
|= a
->noname
;
3788 d_export_vec
[i
] = 0;
3791 remove_null_names (d_export_vec
);
3795 /* Count the names. */
3796 for (i
= 0; i
< d_nfuncs
; i
++)
3797 if (!d_export_vec
[i
]->noname
)
3802 fill_ordinals (export_type
**d_export_vec
)
3809 qsort (d_export_vec
, d_nfuncs
, sizeof (export_type
*), pfunc
);
3811 /* Fill in the unset ordinals with ones from our range. */
3812 ptr
= (char *) xmalloc (size
);
3814 memset (ptr
, 0, size
);
3816 /* Mark in our large vector all the numbers that are taken. */
3817 for (i
= 0; i
< d_nfuncs
; i
++)
3819 if (d_export_vec
[i
]->ordinal
!= -1)
3821 ptr
[d_export_vec
[i
]->ordinal
] = 1;
3823 if (lowest
== -1 || d_export_vec
[i
]->ordinal
< lowest
)
3824 lowest
= d_export_vec
[i
]->ordinal
;
3828 /* Start at 1 for compatibility with MS toolchain. */
3832 /* Now fill in ordinals where the user wants us to choose. */
3833 for (i
= 0; i
< d_nfuncs
; i
++)
3835 if (d_export_vec
[i
]->ordinal
== -1)
3839 /* First try within or after any user supplied range. */
3840 for (j
= lowest
; j
< size
; j
++)
3844 d_export_vec
[i
]->ordinal
= j
;
3848 /* Then try before the range. */
3849 for (j
= lowest
; j
>0; j
--)
3853 d_export_vec
[i
]->ordinal
= j
;
3863 qsort (d_export_vec
, d_nfuncs
, sizeof (export_type
*), pfunc
);
3865 /* Work out the lowest and highest ordinal numbers. */
3868 if (d_export_vec
[0])
3869 d_low_ord
= d_export_vec
[0]->ordinal
;
3870 if (d_export_vec
[d_nfuncs
-1])
3871 d_high_ord
= d_export_vec
[d_nfuncs
-1]->ordinal
;
3878 /* First work out the minimum ordinal chosen. */
3883 export_type
**d_export_vec
= xmalloc (sizeof (export_type
*) * d_nfuncs
);
3885 inform (_("Processing definitions"));
3887 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
3888 d_export_vec
[i
] = exp
;
3890 process_duplicates (d_export_vec
);
3891 fill_ordinals (d_export_vec
);
3893 /* Put back the list in the new order. */
3895 for (i
= d_nfuncs
- 1; i
>= 0; i
--)
3897 d_export_vec
[i
]->next
= d_exports
;
3898 d_exports
= d_export_vec
[i
];
3901 /* Build list in alpha order. */
3902 d_exports_lexically
= (export_type
**)
3903 xmalloc (sizeof (export_type
*) * (d_nfuncs
+ 1));
3905 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
3906 d_exports_lexically
[i
] = exp
;
3908 d_exports_lexically
[i
] = 0;
3910 qsort (d_exports_lexically
, i
, sizeof (export_type
*), nfunc
);
3912 /* Fill exp entries with their hint values. */
3913 for (i
= 0; i
< d_nfuncs
; i
++)
3914 if (!d_exports_lexically
[i
]->noname
|| show_allnames
)
3915 d_exports_lexically
[i
]->hint
= hint
++;
3917 inform (_("Processed definitions"));
3921 usage (FILE *file
, int status
)
3923 /* xgetext:c-format */
3924 fprintf (file
, _("Usage %s <option(s)> <object-file(s)>\n"), program_name
);
3925 /* xgetext:c-format */
3926 fprintf (file
, _(" -m --machine <machine> Create as DLL for <machine>. [default: %s]\n"), mname
);
3927 fprintf (file
, _(" possible <machine>: arm[_interwork], i386, mcore[-elf]{-le|-be}, ppc, thumb\n"));
3928 fprintf (file
, _(" -e --output-exp <outname> Generate an export file.\n"));
3929 fprintf (file
, _(" -l --output-lib <outname> Generate an interface library.\n"));
3930 fprintf (file
, _(" -y --output-delaylib <outname> Create a delay-import library.\n"));
3931 fprintf (file
, _(" -a --add-indirect Add dll indirects to export file.\n"));
3932 fprintf (file
, _(" -D --dllname <name> Name of input dll to put into interface lib.\n"));
3933 fprintf (file
, _(" -d --input-def <deffile> Name of .def file to be read in.\n"));
3934 fprintf (file
, _(" -z --output-def <deffile> Name of .def file to be created.\n"));
3935 fprintf (file
, _(" --export-all-symbols Export all symbols to .def\n"));
3936 fprintf (file
, _(" --no-export-all-symbols Only export listed symbols\n"));
3937 fprintf (file
, _(" --exclude-symbols <list> Don't export <list>\n"));
3938 fprintf (file
, _(" --no-default-excludes Clear default exclude symbols\n"));
3939 fprintf (file
, _(" -b --base-file <basefile> Read linker generated base file.\n"));
3940 fprintf (file
, _(" -x --no-idata4 Don't generate idata$4 section.\n"));
3941 fprintf (file
, _(" -c --no-idata5 Don't generate idata$5 section.\n"));
3942 fprintf (file
, _(" --use-nul-prefixed-import-tables Use zero prefixed idata$4 and idata$5.\n"));
3943 fprintf (file
, _(" -U --add-underscore Add underscores to all symbols in interface library.\n"));
3944 fprintf (file
, _(" --add-stdcall-underscore Add underscores to stdcall symbols in interface library.\n"));
3945 fprintf (file
, _(" --no-leading-underscore All symbols shouldn't be prefixed by an underscore.\n"));
3946 fprintf (file
, _(" --leading-underscore All symbols should be prefixed by an underscore.\n"));
3947 fprintf (file
, _(" -k --kill-at Kill @<n> from exported names.\n"));
3948 fprintf (file
, _(" -A --add-stdcall-alias Add aliases without @<n>.\n"));
3949 fprintf (file
, _(" -p --ext-prefix-alias <prefix> Add aliases with <prefix>.\n"));
3950 fprintf (file
, _(" -S --as <name> Use <name> for assembler.\n"));
3951 fprintf (file
, _(" -f --as-flags <flags> Pass <flags> to the assembler.\n"));
3952 fprintf (file
, _(" -C --compat-implib Create backward compatible import library.\n"));
3953 fprintf (file
, _(" -n --no-delete Keep temp files (repeat for extra preservation).\n"));
3954 fprintf (file
, _(" -t --temp-prefix <prefix> Use <prefix> to construct temp file names.\n"));
3955 fprintf (file
, _(" -I --identify <implib> Report the name of the DLL associated with <implib>.\n"));
3956 fprintf (file
, _(" --identify-strict Causes --identify to report error when multiple DLLs.\n"));
3957 fprintf (file
, _(" -v --verbose Be verbose.\n"));
3958 fprintf (file
, _(" -V --version Display the program version.\n"));
3959 fprintf (file
, _(" -h --help Display this information.\n"));
3960 fprintf (file
, _(" @<file> Read options from <file>.\n"));
3961 #ifdef DLLTOOL_MCORE_ELF
3962 fprintf (file
, _(" -M --mcore-elf <outname> Process mcore-elf object files into <outname>.\n"));
3963 fprintf (file
, _(" -L --linker <name> Use <name> as the linker.\n"));
3964 fprintf (file
, _(" -F --linker-flags <flags> Pass <flags> to the linker.\n"));
3966 if (REPORT_BUGS_TO
[0] && status
== 0)
3967 fprintf (file
, _("Report bugs to %s\n"), REPORT_BUGS_TO
);
3971 #define OPTION_EXPORT_ALL_SYMS 150
3972 #define OPTION_NO_EXPORT_ALL_SYMS (OPTION_EXPORT_ALL_SYMS + 1)
3973 #define OPTION_EXCLUDE_SYMS (OPTION_NO_EXPORT_ALL_SYMS + 1)
3974 #define OPTION_NO_DEFAULT_EXCLUDES (OPTION_EXCLUDE_SYMS + 1)
3975 #define OPTION_ADD_STDCALL_UNDERSCORE (OPTION_NO_DEFAULT_EXCLUDES + 1)
3976 #define OPTION_USE_NUL_PREFIXED_IMPORT_TABLES \
3977 (OPTION_ADD_STDCALL_UNDERSCORE + 1)
3978 #define OPTION_IDENTIFY_STRICT (OPTION_USE_NUL_PREFIXED_IMPORT_TABLES + 1)
3979 #define OPTION_NO_LEADING_UNDERSCORE (OPTION_IDENTIFY_STRICT + 1)
3980 #define OPTION_LEADING_UNDERSCORE (OPTION_NO_LEADING_UNDERSCORE + 1)
3982 static const struct option long_options
[] =
3984 {"no-delete", no_argument
, NULL
, 'n'},
3985 {"dllname", required_argument
, NULL
, 'D'},
3986 {"no-idata4", no_argument
, NULL
, 'x'},
3987 {"no-idata5", no_argument
, NULL
, 'c'},
3988 {"use-nul-prefixed-import-tables", no_argument
, NULL
,
3989 OPTION_USE_NUL_PREFIXED_IMPORT_TABLES
},
3990 {"output-exp", required_argument
, NULL
, 'e'},
3991 {"output-def", required_argument
, NULL
, 'z'},
3992 {"export-all-symbols", no_argument
, NULL
, OPTION_EXPORT_ALL_SYMS
},
3993 {"no-export-all-symbols", no_argument
, NULL
, OPTION_NO_EXPORT_ALL_SYMS
},
3994 {"exclude-symbols", required_argument
, NULL
, OPTION_EXCLUDE_SYMS
},
3995 {"no-default-excludes", no_argument
, NULL
, OPTION_NO_DEFAULT_EXCLUDES
},
3996 {"output-lib", required_argument
, NULL
, 'l'},
3997 {"def", required_argument
, NULL
, 'd'}, /* for compatibility with older versions */
3998 {"input-def", required_argument
, NULL
, 'd'},
3999 {"add-underscore", no_argument
, NULL
, 'U'},
4000 {"add-stdcall-underscore", no_argument
, NULL
, OPTION_ADD_STDCALL_UNDERSCORE
},
4001 {"no-leading-underscore", no_argument
, NULL
, OPTION_NO_LEADING_UNDERSCORE
},
4002 {"leading-underscore", no_argument
, NULL
, OPTION_LEADING_UNDERSCORE
},
4003 {"kill-at", no_argument
, NULL
, 'k'},
4004 {"add-stdcall-alias", no_argument
, NULL
, 'A'},
4005 {"ext-prefix-alias", required_argument
, NULL
, 'p'},
4006 {"identify", required_argument
, NULL
, 'I'},
4007 {"identify-strict", no_argument
, NULL
, OPTION_IDENTIFY_STRICT
},
4008 {"verbose", no_argument
, NULL
, 'v'},
4009 {"version", no_argument
, NULL
, 'V'},
4010 {"help", no_argument
, NULL
, 'h'},
4011 {"machine", required_argument
, NULL
, 'm'},
4012 {"add-indirect", no_argument
, NULL
, 'a'},
4013 {"base-file", required_argument
, NULL
, 'b'},
4014 {"as", required_argument
, NULL
, 'S'},
4015 {"as-flags", required_argument
, NULL
, 'f'},
4016 {"mcore-elf", required_argument
, NULL
, 'M'},
4017 {"compat-implib", no_argument
, NULL
, 'C'},
4018 {"temp-prefix", required_argument
, NULL
, 't'},
4019 {"output-delaylib", required_argument
, NULL
, 'y'},
4023 int main (int, char **);
4026 main (int ac
, char **av
)
4031 program_name
= av
[0];
4034 #if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
4035 setlocale (LC_MESSAGES
, "");
4037 #if defined (HAVE_SETLOCALE)
4038 setlocale (LC_CTYPE
, "");
4040 bindtextdomain (PACKAGE
, LOCALEDIR
);
4041 textdomain (PACKAGE
);
4043 expandargv (&ac
, &av
);
4045 while ((c
= getopt_long (ac
, av
,
4046 #ifdef DLLTOOL_MCORE_ELF
4047 "m:e:l:aD:d:z:b:xp:cCuUkAS:f:nI:vVHhM:L:F:",
4049 "m:e:l:y:aD:d:z:b:xp:cCuUkAS:f:nI:vVHh",
4056 case OPTION_EXPORT_ALL_SYMS
:
4057 export_all_symbols
= TRUE
;
4059 case OPTION_NO_EXPORT_ALL_SYMS
:
4060 export_all_symbols
= FALSE
;
4062 case OPTION_EXCLUDE_SYMS
:
4063 add_excludes (optarg
);
4065 case OPTION_NO_DEFAULT_EXCLUDES
:
4066 do_default_excludes
= FALSE
;
4068 case OPTION_USE_NUL_PREFIXED_IMPORT_TABLES
:
4069 use_nul_prefixed_import_tables
= TRUE
;
4071 case OPTION_ADD_STDCALL_UNDERSCORE
:
4072 add_stdcall_underscore
= 1;
4074 case OPTION_NO_LEADING_UNDERSCORE
:
4075 leading_underscore
= 0;
4077 case OPTION_LEADING_UNDERSCORE
:
4078 leading_underscore
= 1;
4080 case OPTION_IDENTIFY_STRICT
:
4081 identify_strict
= 1;
4093 tmp_prefix
= optarg
;
4099 /* Ignored for compatibility. */
4106 output_def
= fopen (optarg
, FOPEN_WT
);
4109 dll_name
= (char*) lbasename (optarg
);
4110 if (dll_name
!= optarg
)
4111 non_fatal (_("Path components stripped from dllname, '%s'."),
4128 identify_imp_name
= optarg
;
4134 print_version (program_name
);
4143 add_stdcall_alias
= 1;
4146 ext_prefix_alias
= optarg
;
4155 base_file
= fopen (optarg
, FOPEN_RB
);
4158 /* xgettext:c-format */
4159 fatal (_("Unable to open base-file: %s"), optarg
);
4162 #ifdef DLLTOOL_MCORE_ELF
4164 mcore_elf_out_file
= optarg
;
4167 mcore_elf_linker
= optarg
;
4170 mcore_elf_linker_flags
= optarg
;
4174 create_compat_implib
= 1;
4177 delayimp_name
= optarg
;
4186 tmp_prefix
= prefix_encode ("d", getpid ());
4188 for (i
= 0; mtable
[i
].type
; i
++)
4189 if (strcmp (mtable
[i
].type
, mname
) == 0)
4192 if (!mtable
[i
].type
)
4193 /* xgettext:c-format */
4194 fatal (_("Machine '%s' not supported"), mname
);
4198 /* Check if we generated PE+. */
4199 create_for_pep
= strcmp (mname
, "i386:x86-64") == 0;
4202 /* Check the default underscore */
4203 int u
= leading_underscore
; /* Underscoring mode. -1 for use default. */
4205 bfd_get_target_info (mtable
[machine
].how_bfd_target
, NULL
,
4208 leading_underscore
= (u
!= 0 ? TRUE
: FALSE
);
4211 if (!dll_name
&& exp_name
)
4213 /* If we are inferring dll_name from exp_name,
4214 strip off any path components, without emitting
4216 const char* exp_basename
= lbasename (exp_name
);
4217 const int len
= strlen (exp_basename
) + 5;
4218 dll_name
= xmalloc (len
);
4219 strcpy (dll_name
, exp_basename
);
4220 strcat (dll_name
, ".dll");
4221 dll_name_set_by_exp_name
= 1;
4224 if (as_name
== NULL
)
4225 as_name
= deduce_name ("as");
4227 /* Don't use the default exclude list if we're reading only the
4228 symbols in the .drectve section. The default excludes are meant
4229 to avoid exporting DLL entry point and Cygwin32 impure_ptr. */
4230 if (! export_all_symbols
)
4231 do_default_excludes
= FALSE
;
4233 if (do_default_excludes
)
4234 set_default_excludes ();
4237 process_def_file (def_file
);
4242 firstarg
= av
[optind
];
4243 scan_obj_file (av
[optind
]);
4254 /* Make imp_name safe for use as a label. */
4257 imp_name_lab
= xstrdup (imp_name
);
4258 for (p
= imp_name_lab
; *p
; p
++)
4263 head_label
= make_label("_head_", imp_name_lab
);
4269 /* Make delayimp_name safe for use as a label. */
4272 if (mtable
[machine
].how_dljtab
== 0)
4274 inform (_("Warning, machine type (%d) not supported for "
4275 "delayimport."), machine
);
4280 imp_name
= delayimp_name
;
4281 imp_name_lab
= xstrdup (imp_name
);
4282 for (p
= imp_name_lab
; *p
; p
++)
4287 head_label
= make_label("__tailMerge_", imp_name_lab
);
4295 if (identify_imp_name
)
4297 identify_dll_for_implib ();
4300 #ifdef DLLTOOL_MCORE_ELF
4301 if (mcore_elf_out_file
)
4302 mcore_elf_gen_out_file ();
4308 /* Look for the program formed by concatenating PROG_NAME and the
4309 string running from PREFIX to END_PREFIX. If the concatenated
4310 string contains a '/', try appending EXECUTABLE_SUFFIX if it is
4314 look_for_prog (const char *prog_name
, const char *prefix
, int end_prefix
)
4319 cmd
= xmalloc (strlen (prefix
)
4320 + strlen (prog_name
)
4321 #ifdef HAVE_EXECUTABLE_SUFFIX
4322 + strlen (EXECUTABLE_SUFFIX
)
4325 strcpy (cmd
, prefix
);
4327 sprintf (cmd
+ end_prefix
, "%s", prog_name
);
4329 if (strchr (cmd
, '/') != NULL
)
4333 found
= (stat (cmd
, &s
) == 0
4334 #ifdef HAVE_EXECUTABLE_SUFFIX
4335 || stat (strcat (cmd
, EXECUTABLE_SUFFIX
), &s
) == 0
4341 /* xgettext:c-format */
4342 inform (_("Tried file: %s"), cmd
);
4348 /* xgettext:c-format */
4349 inform (_("Using file: %s"), cmd
);
4354 /* Deduce the name of the program we are want to invoke.
4355 PROG_NAME is the basic name of the program we want to run,
4356 eg "as" or "ld". The catch is that we might want actually
4357 run "i386-pe-as" or "ppc-pe-ld".
4359 If argv[0] contains the full path, then try to find the program
4360 in the same place, with and then without a target-like prefix.
4362 Given, argv[0] = /usr/local/bin/i586-cygwin32-dlltool,
4363 deduce_name("as") uses the following search order:
4365 /usr/local/bin/i586-cygwin32-as
4369 If there's an EXECUTABLE_SUFFIX, it'll use that as well; for each
4370 name, it'll try without and then with EXECUTABLE_SUFFIX.
4372 Given, argv[0] = i586-cygwin32-dlltool, it will not even try "as"
4373 as the fallback, but rather return i586-cygwin32-as.
4375 Oh, and given, argv[0] = dlltool, it'll return "as".
4377 Returns a dynamically allocated string. */
4380 deduce_name (const char *prog_name
)
4383 char *dash
, *slash
, *cp
;
4387 for (cp
= program_name
; *cp
!= '\0'; ++cp
)
4392 #if defined(__DJGPP__) || defined (__CYGWIN__) || defined(__WIN32__)
4393 *cp
== ':' || *cp
== '\\' ||
4406 /* First, try looking for a prefixed PROG_NAME in the
4407 PROGRAM_NAME directory, with the same prefix as PROGRAM_NAME. */
4408 cmd
= look_for_prog (prog_name
, program_name
, dash
- program_name
+ 1);
4411 if (slash
!= NULL
&& cmd
== NULL
)
4413 /* Next, try looking for a PROG_NAME in the same directory as
4414 that of this program. */
4415 cmd
= look_for_prog (prog_name
, program_name
, slash
- program_name
+ 1);
4420 /* Just return PROG_NAME as is. */
4421 cmd
= xstrdup (prog_name
);
4427 #ifdef DLLTOOL_MCORE_ELF
4428 typedef struct fname_cache
4430 const char * filename
;
4431 struct fname_cache
* next
;
4435 static fname_cache fnames
;
4438 mcore_elf_cache_filename (const char * filename
)
4444 while (ptr
->next
!= NULL
)
4447 ptr
->filename
= filename
;
4448 ptr
->next
= (fname_cache
*) malloc (sizeof (fname_cache
));
4449 if (ptr
->next
!= NULL
)
4450 ptr
->next
->next
= NULL
;
4453 #define MCORE_ELF_TMP_OBJ "mcoreelf.o"
4454 #define MCORE_ELF_TMP_EXP "mcoreelf.exp"
4455 #define MCORE_ELF_TMP_LIB "mcoreelf.lib"
4458 mcore_elf_gen_out_file (void)
4463 /* Step one. Run 'ld -r' on the input object files in order to resolve
4464 any internal references and to generate a single .exports section. */
4467 ds
= dyn_string_new (100);
4468 dyn_string_append_cstr (ds
, "-r ");
4470 if (mcore_elf_linker_flags
!= NULL
)
4471 dyn_string_append_cstr (ds
, mcore_elf_linker_flags
);
4473 while (ptr
->next
!= NULL
)
4475 dyn_string_append_cstr (ds
, ptr
->filename
);
4476 dyn_string_append_cstr (ds
, " ");
4481 dyn_string_append_cstr (ds
, "-o ");
4482 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_OBJ
);
4484 if (mcore_elf_linker
== NULL
)
4485 mcore_elf_linker
= deduce_name ("ld");
4487 run (mcore_elf_linker
, ds
->s
);
4489 dyn_string_delete (ds
);
4491 /* Step two. Create a .exp file and a .lib file from the temporary file.
4492 Do this by recursively invoking dlltool... */
4493 ds
= dyn_string_new (100);
4495 dyn_string_append_cstr (ds
, "-S ");
4496 dyn_string_append_cstr (ds
, as_name
);
4498 dyn_string_append_cstr (ds
, " -e ");
4499 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_EXP
);
4500 dyn_string_append_cstr (ds
, " -l ");
4501 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_LIB
);
4502 dyn_string_append_cstr (ds
, " " );
4503 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_OBJ
);
4506 dyn_string_append_cstr (ds
, " -v");
4510 dyn_string_append_cstr (ds
, " -n");
4512 if (dontdeltemps
> 1)
4513 dyn_string_append_cstr (ds
, " -n");
4516 /* XXX - FIME: ought to check/copy other command line options as well. */
4517 run (program_name
, ds
->s
);
4519 dyn_string_delete (ds
);
4521 /* Step four. Feed the .exp and object files to ld -shared to create the dll. */
4522 ds
= dyn_string_new (100);
4524 dyn_string_append_cstr (ds
, "-shared ");
4526 if (mcore_elf_linker_flags
)
4527 dyn_string_append_cstr (ds
, mcore_elf_linker_flags
);
4529 dyn_string_append_cstr (ds
, " ");
4530 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_EXP
);
4531 dyn_string_append_cstr (ds
, " ");
4532 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_OBJ
);
4533 dyn_string_append_cstr (ds
, " -o ");
4534 dyn_string_append_cstr (ds
, mcore_elf_out_file
);
4536 run (mcore_elf_linker
, ds
->s
);
4538 dyn_string_delete (ds
);
4540 if (dontdeltemps
== 0)
4541 unlink (MCORE_ELF_TMP_EXP
);
4543 if (dontdeltemps
< 2)
4544 unlink (MCORE_ELF_TMP_OBJ
);
4546 #endif /* DLLTOOL_MCORE_ELF */