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, 2014 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 (const char * message
, ...)
888 va_start (args
, message
);
893 report (message
, args
);
917 /* xgettext:c-format */
918 fatal (_("Internal error: Unknown machine type: %d"), mach
);
943 /* xgettext:c-format */
944 fatal (_("Internal error: Unknown machine type: %d"), mach
);
951 asm_prefix (int mach
, const char *name
)
968 /* Symbol names starting with ? do not have a leading underscore. */
969 if ((name
&& *name
== '?') || leading_underscore
== 0)
974 /* xgettext:c-format */
975 fatal (_("Internal error: Unknown machine type: %d"), mach
);
981 #define ASM_BYTE mtable[machine].how_byte
982 #define ASM_SHORT mtable[machine].how_short
983 #define ASM_LONG mtable[machine].how_long
984 #define ASM_TEXT mtable[machine].how_asciz
985 #define ASM_C mtable[machine].how_comment
986 #define ASM_JUMP mtable[machine].how_jump
987 #define ASM_GLOBAL mtable[machine].how_global
988 #define ASM_SPACE mtable[machine].how_space
989 #define ASM_ALIGN_SHORT mtable[machine].how_align_short
990 #define ASM_RVA_BEFORE rvabefore (machine)
991 #define ASM_RVA_AFTER rvaafter (machine)
992 #define ASM_PREFIX(NAME) asm_prefix (machine, (NAME))
993 #define ASM_ALIGN_LONG mtable[machine].how_align_long
994 #define HOW_BFD_READ_TARGET 0 /* Always default. */
995 #define HOW_BFD_WRITE_TARGET mtable[machine].how_bfd_target
996 #define HOW_BFD_ARCH mtable[machine].how_bfd_arch
997 #define HOW_JTAB (delay ? mtable[machine].how_dljtab \
998 : mtable[machine].how_jtab)
999 #define HOW_JTAB_SIZE (delay ? mtable[machine].how_dljtab_size \
1000 : mtable[machine].how_jtab_size)
1001 #define HOW_JTAB_ROFF (delay ? mtable[machine].how_dljtab_roff1 \
1002 : mtable[machine].how_jtab_roff)
1003 #define HOW_JTAB_ROFF2 (delay ? mtable[machine].how_dljtab_roff2 : 0)
1004 #define HOW_JTAB_ROFF3 (delay ? mtable[machine].how_dljtab_roff3 : 0)
1005 #define ASM_SWITCHES mtable[machine].how_default_as_switches
1010 process_def_file (const char *name
)
1012 FILE *f
= fopen (name
, FOPEN_RT
);
1015 /* xgettext:c-format */
1016 fatal (_("Can't open def file: %s"), name
);
1020 /* xgettext:c-format */
1021 inform (_("Processing def file: %s"), name
);
1025 inform (_("Processed def file"));
1028 /**********************************************************************/
1030 /* Communications with the parser. */
1032 static int d_nfuncs
; /* Number of functions exported. */
1033 static int d_named_nfuncs
; /* Number of named functions exported. */
1034 static int d_low_ord
; /* Lowest ordinal index. */
1035 static int d_high_ord
; /* Highest ordinal index. */
1036 static export_type
*d_exports
; /* List of exported functions. */
1037 static export_type
**d_exports_lexically
; /* Vector of exported functions in alpha order. */
1038 static dlist_type
*d_list
; /* Descriptions. */
1039 static dlist_type
*a_list
; /* Stuff to go in directives. */
1040 static int d_nforwards
= 0; /* Number of forwarded exports. */
1042 static int d_is_dll
;
1043 static int d_is_exe
;
1046 yyerror (const char * err ATTRIBUTE_UNUSED
)
1048 /* xgettext:c-format */
1049 non_fatal (_("Syntax error in def file %s:%d"), def_file
, linenumber
);
1055 def_exports (const char *name
, const char *internal_name
, int ordinal
,
1056 int noname
, int constant
, int data
, int private,
1057 const char *its_name
)
1059 struct export
*p
= (struct export
*) xmalloc (sizeof (*p
));
1062 p
->internal_name
= internal_name
? internal_name
: name
;
1063 p
->its_name
= its_name
;
1064 p
->import_name
= name
;
1065 p
->ordinal
= ordinal
;
1066 p
->constant
= constant
;
1068 p
->private = private;
1070 p
->next
= d_exports
;
1074 if ((internal_name
!= NULL
)
1075 && (strchr (internal_name
, '.') != NULL
))
1076 p
->forward
= ++d_nforwards
;
1078 p
->forward
= 0; /* no forward */
1082 set_dll_name_from_def (const char *name
, char is_dll
)
1084 const char *image_basename
= lbasename (name
);
1085 if (image_basename
!= name
)
1086 non_fatal (_("%s: Path components stripped from image name, '%s'."),
1088 /* Append the default suffix, if none specified. */
1089 if (strchr (image_basename
, '.') == 0)
1091 const char * suffix
= is_dll
? ".dll" : ".exe";
1093 dll_name
= xmalloc (strlen (image_basename
) + strlen (suffix
) + 1);
1094 sprintf (dll_name
, "%s%s", image_basename
, suffix
);
1097 dll_name
= xstrdup (image_basename
);
1101 def_name (const char *name
, int base
)
1103 /* xgettext:c-format */
1104 inform (_("NAME: %s base: %x"), name
, base
);
1107 non_fatal (_("Can't have LIBRARY and NAME"));
1109 if (dll_name_set_by_exp_name
&& name
&& *name
!= 0)
1112 dll_name_set_by_exp_name
= 0;
1114 /* If --dllname not provided, use the one in the DEF file.
1115 FIXME: Is this appropriate for executables? */
1117 set_dll_name_from_def (name
, 0);
1122 def_library (const char *name
, int base
)
1124 /* xgettext:c-format */
1125 inform (_("LIBRARY: %s base: %x"), name
, base
);
1128 non_fatal (_("Can't have LIBRARY and NAME"));
1130 if (dll_name_set_by_exp_name
&& name
&& *name
!= 0)
1133 dll_name_set_by_exp_name
= 0;
1136 /* If --dllname not provided, use the one in the DEF file. */
1138 set_dll_name_from_def (name
, 1);
1143 def_description (const char *desc
)
1145 dlist_type
*d
= (dlist_type
*) xmalloc (sizeof (dlist_type
));
1146 d
->text
= xstrdup (desc
);
1152 new_directive (char *dir
)
1154 dlist_type
*d
= (dlist_type
*) xmalloc (sizeof (dlist_type
));
1155 d
->text
= xstrdup (dir
);
1161 def_heapsize (int reserve
, int commit
)
1165 sprintf (b
, "-heap 0x%x,0x%x ", reserve
, commit
);
1167 sprintf (b
, "-heap 0x%x ", reserve
);
1168 new_directive (xstrdup (b
));
1172 def_stacksize (int reserve
, int commit
)
1176 sprintf (b
, "-stack 0x%x,0x%x ", reserve
, commit
);
1178 sprintf (b
, "-stack 0x%x ", reserve
);
1179 new_directive (xstrdup (b
));
1182 /* append_import simply adds the given import definition to the global
1183 import_list. It is used by def_import. */
1186 append_import (const char *symbol_name
, const char *dllname
, int func_ordinal
,
1187 const char *its_name
)
1192 for (pq
= &import_list
; *pq
!= NULL
; pq
= &(*pq
)->next
)
1194 if (strcmp ((*pq
)->dllname
, dllname
) == 0)
1197 q
->functail
->next
= xmalloc (sizeof (ifunctype
));
1198 q
->functail
= q
->functail
->next
;
1199 q
->functail
->ord
= func_ordinal
;
1200 q
->functail
->name
= xstrdup (symbol_name
);
1201 q
->functail
->its_name
= (its_name
? xstrdup (its_name
) : NULL
);
1202 q
->functail
->next
= NULL
;
1208 q
= xmalloc (sizeof (iheadtype
));
1209 q
->dllname
= xstrdup (dllname
);
1211 q
->funchead
= xmalloc (sizeof (ifunctype
));
1212 q
->functail
= q
->funchead
;
1214 q
->functail
->name
= xstrdup (symbol_name
);
1215 q
->functail
->its_name
= (its_name
? xstrdup (its_name
) : NULL
);
1216 q
->functail
->ord
= func_ordinal
;
1217 q
->functail
->next
= NULL
;
1222 /* def_import is called from within defparse.y when an IMPORT
1223 declaration is encountered. Depending on the form of the
1224 declaration, the module name may or may not need ".dll" to be
1225 appended to it, the name of the function may be stored in internal
1226 or entry, and there may or may not be an ordinal value associated
1229 /* A note regarding the parse modes:
1230 In defparse.y we have to accept import declarations which follow
1231 any one of the following forms:
1232 <func_name_in_app> = <dll_name>.<func_name_in_dll>
1233 <func_name_in_app> = <dll_name>.<number>
1234 <dll_name>.<func_name_in_dll>
1236 Furthermore, the dll's name may or may not end with ".dll", which
1237 complicates the parsing a little. Normally the dll's name is
1238 passed to def_import() in the "module" parameter, but when it ends
1239 with ".dll" it gets passed in "module" sans ".dll" and that needs
1242 def_import gets five parameters:
1243 APP_NAME - the name of the function in the application, if
1244 present, or NULL if not present.
1245 MODULE - the name of the dll, possibly sans extension (ie, '.dll').
1246 DLLEXT - the extension of the dll, if present, NULL if not present.
1247 ENTRY - the name of the function in the dll, if present, or NULL.
1248 ORD_VAL - the numerical tag of the function in the dll, if present,
1249 or NULL. Exactly one of <entry> or <ord_val> must be
1250 present (i.e., not NULL). */
1253 def_import (const char *app_name
, const char *module
, const char *dllext
,
1254 const char *entry
, int ord_val
, const char *its_name
)
1256 const char *application_name
;
1260 application_name
= entry
;
1263 if (app_name
!= NULL
)
1264 application_name
= app_name
;
1266 application_name
= "";
1271 buf
= (char *) alloca (strlen (module
) + strlen (dllext
) + 2);
1272 sprintf (buf
, "%s.%s", module
, dllext
);
1276 append_import (application_name
, module
, ord_val
, its_name
);
1280 def_version (int major
, int minor
)
1282 printf (_("VERSION %d.%d\n"), major
, minor
);
1286 def_section (const char *name
, int attr
)
1301 sprintf (buf
, "-attr %s %s", name
, atts
);
1302 new_directive (xstrdup (buf
));
1309 def_section ("CODE", attr
);
1315 def_section ("DATA", attr
);
1318 /**********************************************************************/
1321 run (const char *what
, char *args
)
1324 int pid
, wait_status
;
1327 char *errmsg_fmt
, *errmsg_arg
;
1328 char *temp_base
= choose_temp_base ();
1330 inform (_("run: %s %s"), what
, args
);
1332 /* Count the args */
1334 for (s
= args
; *s
; s
++)
1338 argv
= alloca (sizeof (char *) * (i
+ 3));
1347 while (*s
!= ' ' && *s
!= 0)
1355 pid
= pexecute (argv
[0], (char * const *) argv
, program_name
, temp_base
,
1356 &errmsg_fmt
, &errmsg_arg
, PEXECUTE_ONE
| PEXECUTE_SEARCH
);
1360 inform ("%s", strerror (errno
));
1362 fatal (errmsg_fmt
, errmsg_arg
);
1365 pid
= pwait (pid
, & wait_status
, 0);
1369 /* xgettext:c-format */
1370 fatal (_("wait: %s"), strerror (errno
));
1372 else if (WIFSIGNALED (wait_status
))
1374 /* xgettext:c-format */
1375 fatal (_("subprocess got fatal signal %d"), WTERMSIG (wait_status
));
1377 else if (WIFEXITED (wait_status
))
1379 if (WEXITSTATUS (wait_status
) != 0)
1380 /* xgettext:c-format */
1381 non_fatal (_("%s exited with status %d"),
1382 what
, WEXITSTATUS (wait_status
));
1388 /* Look for a list of symbols to export in the .drectve section of
1389 ABFD. Pass each one to def_exports. */
1392 scan_drectve_symbols (bfd
*abfd
)
1400 /* Look for .drectve's */
1401 s
= bfd_get_section_by_name (abfd
, DRECTVE_SECTION_NAME
);
1406 size
= bfd_get_section_size (s
);
1407 buf
= xmalloc (size
);
1409 bfd_get_section_contents (abfd
, s
, buf
, 0, size
);
1411 /* xgettext:c-format */
1412 inform (_("Sucking in info from %s section in %s"),
1413 DRECTVE_SECTION_NAME
, bfd_get_filename (abfd
));
1415 /* Search for -export: strings. The exported symbols can optionally
1416 have type tags (eg., -export:foo,data), so handle those as well.
1417 Currently only data tag is supported. */
1423 && CONST_STRNEQ (p
, "-export:"))
1427 flagword flags
= BSF_FUNCTION
;
1430 /* Do we have a quoted export? */
1435 while (p
< e
&& *p
!= '"')
1441 while (p
< e
&& *p
!= ',' && *p
!= ' ' && *p
!= '-')
1444 c
= xmalloc (p
- name
+ 1);
1445 memcpy (c
, name
, p
- name
);
1447 /* Advance over trailing quote. */
1448 if (p
< e
&& *p
== '"')
1450 if (p
< e
&& *p
== ',') /* found type tag. */
1452 char *tag_start
= ++p
;
1453 while (p
< e
&& *p
!= ' ' && *p
!= '-')
1455 if (CONST_STRNEQ (tag_start
, "data"))
1456 flags
&= ~BSF_FUNCTION
;
1459 /* FIXME: The 5th arg is for the `constant' field.
1460 What should it be? Not that it matters since it's not
1461 currently useful. */
1462 def_exports (c
, 0, -1, 0, 0, ! (flags
& BSF_FUNCTION
), 0, NULL
);
1464 if (add_stdcall_alias
&& strchr (c
, '@'))
1466 int lead_at
= (*c
== '@') ;
1467 char *exported_name
= xstrdup (c
+ lead_at
);
1468 char *atsym
= strchr (exported_name
, '@');
1470 /* Note: stdcall alias symbols can never be data. */
1471 def_exports (exported_name
, xstrdup (c
), -1, 0, 0, 0, 0, NULL
);
1480 /* Look through the symbols in MINISYMS, and add each one to list of
1481 symbols to export. */
1484 scan_filtered_symbols (bfd
*abfd
, void *minisyms
, long symcount
,
1488 bfd_byte
*from
, *fromend
;
1490 store
= bfd_make_empty_symbol (abfd
);
1492 bfd_fatal (bfd_get_filename (abfd
));
1494 from
= (bfd_byte
*) minisyms
;
1495 fromend
= from
+ symcount
* size
;
1496 for (; from
< fromend
; from
+= size
)
1499 const char *symbol_name
;
1501 sym
= bfd_minisymbol_to_symbol (abfd
, FALSE
, from
, store
);
1503 bfd_fatal (bfd_get_filename (abfd
));
1505 symbol_name
= bfd_asymbol_name (sym
);
1506 if (bfd_get_symbol_leading_char (abfd
) == symbol_name
[0])
1509 def_exports (xstrdup (symbol_name
) , 0, -1, 0, 0,
1510 ! (sym
->flags
& BSF_FUNCTION
), 0, NULL
);
1512 if (add_stdcall_alias
&& strchr (symbol_name
, '@'))
1514 int lead_at
= (*symbol_name
== '@');
1515 char *exported_name
= xstrdup (symbol_name
+ lead_at
);
1516 char *atsym
= strchr (exported_name
, '@');
1518 /* Note: stdcall alias symbols can never be data. */
1519 def_exports (exported_name
, xstrdup (symbol_name
), -1, 0, 0, 0, 0, NULL
);
1524 /* Add a list of symbols to exclude. */
1527 add_excludes (const char *new_excludes
)
1530 char *exclude_string
;
1532 local_copy
= xstrdup (new_excludes
);
1534 exclude_string
= strtok (local_copy
, ",:");
1535 for (; exclude_string
; exclude_string
= strtok (NULL
, ",:"))
1537 struct string_list
*new_exclude
;
1539 new_exclude
= ((struct string_list
*)
1540 xmalloc (sizeof (struct string_list
)));
1541 new_exclude
->string
= (char *) xmalloc (strlen (exclude_string
) + 2);
1542 /* Don't add a leading underscore for fastcall symbols. */
1543 if (*exclude_string
== '@')
1544 sprintf (new_exclude
->string
, "%s", exclude_string
);
1546 sprintf (new_exclude
->string
, "%s%s", (!leading_underscore
? "" : "_"),
1548 new_exclude
->next
= excludes
;
1549 excludes
= new_exclude
;
1551 /* xgettext:c-format */
1552 inform (_("Excluding symbol: %s"), exclude_string
);
1558 /* See if STRING is on the list of symbols to exclude. */
1561 match_exclude (const char *string
)
1563 struct string_list
*excl_item
;
1565 for (excl_item
= excludes
; excl_item
; excl_item
= excl_item
->next
)
1566 if (strcmp (string
, excl_item
->string
) == 0)
1571 /* Add the default list of symbols to exclude. */
1574 set_default_excludes (void)
1576 add_excludes (default_excludes
);
1579 /* Choose which symbols to export. */
1582 filter_symbols (bfd
*abfd
, void *minisyms
, long symcount
, unsigned int size
)
1584 bfd_byte
*from
, *fromend
, *to
;
1587 store
= bfd_make_empty_symbol (abfd
);
1589 bfd_fatal (bfd_get_filename (abfd
));
1591 from
= (bfd_byte
*) minisyms
;
1592 fromend
= from
+ symcount
* size
;
1593 to
= (bfd_byte
*) minisyms
;
1595 for (; from
< fromend
; from
+= size
)
1600 sym
= bfd_minisymbol_to_symbol (abfd
, FALSE
, (const void *) from
, store
);
1602 bfd_fatal (bfd_get_filename (abfd
));
1604 /* Check for external and defined only symbols. */
1605 keep
= (((sym
->flags
& BSF_GLOBAL
) != 0
1606 || (sym
->flags
& BSF_WEAK
) != 0
1607 || bfd_is_com_section (sym
->section
))
1608 && ! bfd_is_und_section (sym
->section
));
1610 keep
= keep
&& ! match_exclude (sym
->name
);
1614 memcpy (to
, from
, size
);
1619 return (to
- (bfd_byte
*) minisyms
) / size
;
1622 /* Export all symbols in ABFD, except for ones we were told not to
1626 scan_all_symbols (bfd
*abfd
)
1632 /* Ignore bfds with an import descriptor table. We assume that any
1633 such BFD contains symbols which are exported from another DLL,
1634 and we don't want to reexport them from here. */
1635 if (bfd_get_section_by_name (abfd
, ".idata$4"))
1638 if (! (bfd_get_file_flags (abfd
) & HAS_SYMS
))
1640 /* xgettext:c-format */
1641 non_fatal (_("%s: no symbols"), bfd_get_filename (abfd
));
1645 symcount
= bfd_read_minisymbols (abfd
, FALSE
, &minisyms
, &size
);
1647 bfd_fatal (bfd_get_filename (abfd
));
1651 /* xgettext:c-format */
1652 non_fatal (_("%s: no symbols"), bfd_get_filename (abfd
));
1656 /* Discard the symbols we don't want to export. It's OK to do this
1657 in place; we'll free the storage anyway. */
1659 symcount
= filter_symbols (abfd
, minisyms
, symcount
, size
);
1660 scan_filtered_symbols (abfd
, minisyms
, symcount
, size
);
1665 /* Look at the object file to decide which symbols to export. */
1668 scan_open_obj_file (bfd
*abfd
)
1670 if (export_all_symbols
)
1671 scan_all_symbols (abfd
);
1673 scan_drectve_symbols (abfd
);
1675 /* FIXME: we ought to read in and block out the base relocations. */
1677 /* xgettext:c-format */
1678 inform (_("Done reading %s"), bfd_get_filename (abfd
));
1682 scan_obj_file (const char *filename
)
1684 bfd
* f
= bfd_openr (filename
, 0);
1687 /* xgettext:c-format */
1688 fatal (_("Unable to open object file: %s: %s"), filename
, bfd_get_errmsg ());
1690 /* xgettext:c-format */
1691 inform (_("Scanning object file %s"), filename
);
1693 if (bfd_check_format (f
, bfd_archive
))
1695 bfd
*arfile
= bfd_openr_next_archived_file (f
, 0);
1699 if (bfd_check_format (arfile
, bfd_object
))
1700 scan_open_obj_file (arfile
);
1701 next
= bfd_openr_next_archived_file (f
, arfile
);
1706 #ifdef DLLTOOL_MCORE_ELF
1707 if (mcore_elf_out_file
)
1708 inform (_("Cannot produce mcore-elf dll from archive file: %s"), filename
);
1711 else if (bfd_check_format (f
, bfd_object
))
1713 scan_open_obj_file (f
);
1715 #ifdef DLLTOOL_MCORE_ELF
1716 if (mcore_elf_out_file
)
1717 mcore_elf_cache_filename (filename
);
1727 dump_def_info (FILE *f
)
1731 fprintf (f
, "%s ", ASM_C
);
1732 for (i
= 0; oav
[i
]; i
++)
1733 fprintf (f
, "%s ", oav
[i
]);
1735 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
1737 fprintf (f
, "%s %d = %s %s @ %d %s%s%s%s%s%s\n",
1743 exp
->noname
? "NONAME " : "",
1744 exp
->private ? "PRIVATE " : "",
1745 exp
->constant
? "CONSTANT" : "",
1746 exp
->data
? "DATA" : "",
1747 exp
->its_name
? " ==" : "",
1748 exp
->its_name
? exp
->its_name
: "");
1752 /* Generate the .exp file. */
1755 sfunc (const void *a
, const void *b
)
1757 if (*(const bfd_vma
*) a
== *(const bfd_vma
*) b
)
1760 return ((*(const bfd_vma
*) a
> *(const bfd_vma
*) b
) ? 1 : -1);
1764 flush_page (FILE *f
, bfd_vma
*need
, bfd_vma page_addr
, int on_page
)
1768 /* Flush this page. */
1769 fprintf (f
, "\t%s\t0x%08x\t%s Starting RVA for chunk\n",
1773 fprintf (f
, "\t%s\t0x%x\t%s Size of block\n",
1775 (on_page
* 2) + (on_page
& 1) * 2 + 8,
1778 for (i
= 0; i
< on_page
; i
++)
1780 bfd_vma needed
= need
[i
];
1784 if (!create_for_pep
)
1786 /* Relocation via HIGHLOW. */
1787 needed
= ((needed
- page_addr
) | 0x3000) & 0xffff;
1791 /* Relocation via DIR64. */
1792 needed
= ((needed
- page_addr
) | 0xa000) & 0xffff;
1796 fprintf (f
, "\t%s\t0x%lx\n", ASM_SHORT
, (long) needed
);
1801 fprintf (f
, "\t%s\t0x%x\n", ASM_SHORT
, 0 | 0x0000);
1810 inform (_("Adding exports to output file"));
1812 fprintf (output_def
, ";");
1813 for (i
= 0; oav
[i
]; i
++)
1814 fprintf (output_def
, " %s", oav
[i
]);
1816 fprintf (output_def
, "\nEXPORTS\n");
1818 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
1820 char *quote
= strchr (exp
->name
, '.') ? "\"" : "";
1821 char *res
= cplus_demangle (exp
->internal_name
, DMGL_ANSI
| DMGL_PARAMS
);
1825 fprintf (output_def
,";\t%s\n", res
);
1829 if (strcmp (exp
->name
, exp
->internal_name
) == 0)
1831 fprintf (output_def
, "\t%s%s%s @ %d%s%s%s%s%s\n",
1836 exp
->noname
? " NONAME" : "",
1837 exp
->private ? "PRIVATE " : "",
1838 exp
->data
? " DATA" : "",
1839 exp
->its_name
? " ==" : "",
1840 exp
->its_name
? exp
->its_name
: "");
1844 char * quote1
= strchr (exp
->internal_name
, '.') ? "\"" : "";
1846 fprintf (output_def
, "\t%s%s%s = %s%s%s @ %d%s%s%s%s%s\n",
1854 exp
->noname
? " NONAME" : "",
1855 exp
->private ? "PRIVATE " : "",
1856 exp
->data
? " DATA" : "",
1857 exp
->its_name
? " ==" : "",
1858 exp
->its_name
? exp
->its_name
: "");
1862 inform (_("Added exports to output file"));
1865 /* generate_idata_ofile generates the portable assembly source code
1866 for the idata sections. It appends the source code to the end of
1870 generate_idata_ofile (FILE *filvar
)
1878 if (import_list
== NULL
)
1881 fprintf (filvar
, "%s Import data sections\n", ASM_C
);
1882 fprintf (filvar
, "\n\t.section\t.idata$2\n");
1883 fprintf (filvar
, "\t%s\tdoi_idata\n", ASM_GLOBAL
);
1884 fprintf (filvar
, "doi_idata:\n");
1887 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1889 fprintf (filvar
, "\t%slistone%d%s\t%s %s\n",
1890 ASM_RVA_BEFORE
, nheads
, ASM_RVA_AFTER
,
1891 ASM_C
, headptr
->dllname
);
1892 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1893 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1894 fprintf (filvar
, "\t%sdllname%d%s\n",
1895 ASM_RVA_BEFORE
, nheads
, ASM_RVA_AFTER
);
1896 fprintf (filvar
, "\t%slisttwo%d%s\n\n",
1897 ASM_RVA_BEFORE
, nheads
, ASM_RVA_AFTER
);
1901 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* NULL record at */
1902 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* end of idata$2 */
1903 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* section */
1904 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1905 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1907 fprintf (filvar
, "\n\t.section\t.idata$4\n");
1909 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1911 fprintf (filvar
, "listone%d:\n", headindex
);
1912 for (funcindex
= 0; funcindex
< headptr
->nfuncs
; funcindex
++)
1915 fprintf (filvar
, "\t%sfuncptr%d_%d%s\n%s\t0\n",
1916 ASM_RVA_BEFORE
, headindex
, funcindex
, ASM_RVA_AFTER
,
1919 fprintf (filvar
, "\t%sfuncptr%d_%d%s\n",
1920 ASM_RVA_BEFORE
, headindex
, funcindex
, ASM_RVA_AFTER
);
1923 fprintf (filvar
, "\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
1925 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* NULL terminating list. */
1929 fprintf (filvar
, "\n\t.section\t.idata$5\n");
1931 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1933 fprintf (filvar
, "listtwo%d:\n", headindex
);
1934 for (funcindex
= 0; funcindex
< headptr
->nfuncs
; funcindex
++)
1937 fprintf (filvar
, "\t%sfuncptr%d_%d%s\n%s\t0\n",
1938 ASM_RVA_BEFORE
, headindex
, funcindex
, ASM_RVA_AFTER
,
1941 fprintf (filvar
, "\t%sfuncptr%d_%d%s\n",
1942 ASM_RVA_BEFORE
, headindex
, funcindex
, ASM_RVA_AFTER
);
1945 fprintf (filvar
, "\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
1947 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* NULL terminating list. */
1951 fprintf (filvar
, "\n\t.section\t.idata$6\n");
1953 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1956 for (funcptr
= headptr
->funchead
; funcptr
!= NULL
;
1957 funcptr
= funcptr
->next
)
1959 fprintf (filvar
,"funcptr%d_%d:\n", headindex
, funcindex
);
1960 fprintf (filvar
,"\t%s\t%d\n", ASM_SHORT
,
1961 ((funcptr
->ord
) & 0xFFFF));
1962 fprintf (filvar
,"\t%s\t\"%s\"\n", ASM_TEXT
,
1963 (funcptr
->its_name
? funcptr
->its_name
: funcptr
->name
));
1964 fprintf (filvar
,"\t%s\t0\n", ASM_BYTE
);
1970 fprintf (filvar
, "\n\t.section\t.idata$7\n");
1972 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1974 fprintf (filvar
,"dllname%d:\n", headindex
);
1975 fprintf (filvar
,"\t%s\t\"%s\"\n", ASM_TEXT
, headptr
->dllname
);
1976 fprintf (filvar
,"\t%s\t0\n", ASM_BYTE
);
1981 /* Assemble the specified file. */
1983 assemble_file (const char * source
, const char * dest
)
1987 cmd
= (char *) alloca (strlen (ASM_SWITCHES
) + strlen (as_flags
)
1988 + strlen (source
) + strlen (dest
) + 50);
1990 sprintf (cmd
, "%s %s -o %s %s", ASM_SWITCHES
, as_flags
, dest
, source
);
2003 /* xgettext:c-format */
2004 inform (_("Generating export file: %s"), exp_name
);
2006 f
= fopen (TMP_ASM
, FOPEN_WT
);
2008 /* xgettext:c-format */
2009 fatal (_("Unable to open temporary assembler file: %s"), TMP_ASM
);
2011 /* xgettext:c-format */
2012 inform (_("Opened temporary file: %s"), TMP_ASM
);
2018 fprintf (f
, "\t.section .edata\n\n");
2019 fprintf (f
, "\t%s 0 %s Allways 0\n", ASM_LONG
, ASM_C
);
2020 fprintf (f
, "\t%s 0x%lx %s Time and date\n", ASM_LONG
,
2021 (unsigned long) time(0), ASM_C
);
2022 fprintf (f
, "\t%s 0 %s Major and Minor version\n", ASM_LONG
, ASM_C
);
2023 fprintf (f
, "\t%sname%s %s Ptr to name of dll\n", ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
2024 fprintf (f
, "\t%s %d %s Starting ordinal of exports\n", ASM_LONG
, d_low_ord
, ASM_C
);
2027 fprintf (f
, "\t%s %d %s Number of functions\n", ASM_LONG
, d_high_ord
- d_low_ord
+ 1, ASM_C
);
2028 fprintf(f
,"\t%s named funcs %d, low ord %d, high ord %d\n",
2030 d_named_nfuncs
, d_low_ord
, d_high_ord
);
2031 fprintf (f
, "\t%s %d %s Number of names\n", ASM_LONG
,
2032 show_allnames
? d_high_ord
- d_low_ord
+ 1 : d_named_nfuncs
, ASM_C
);
2033 fprintf (f
, "\t%safuncs%s %s Address of functions\n", ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
2035 fprintf (f
, "\t%sanames%s %s Address of Name Pointer Table\n",
2036 ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
2038 fprintf (f
, "\t%sanords%s %s Address of ordinals\n", ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
2040 fprintf (f
, "name: %s \"%s\"\n", ASM_TEXT
, dll_name
);
2043 fprintf(f
,"%s Export address Table\n", ASM_C
);
2044 fprintf(f
,"\t%s\n", ASM_ALIGN_LONG
);
2045 fprintf (f
, "afuncs:\n");
2048 for (exp
= d_exports
; exp
; exp
= exp
->next
)
2050 if (exp
->ordinal
!= i
)
2052 while (i
< exp
->ordinal
)
2054 fprintf(f
,"\t%s\t0\n", ASM_LONG
);
2059 if (exp
->forward
== 0)
2061 if (exp
->internal_name
[0] == '@')
2062 fprintf (f
, "\t%s%s%s\t%s %d\n", ASM_RVA_BEFORE
,
2063 exp
->internal_name
, ASM_RVA_AFTER
, ASM_C
, exp
->ordinal
);
2065 fprintf (f
, "\t%s%s%s%s\t%s %d\n", ASM_RVA_BEFORE
,
2066 ASM_PREFIX (exp
->internal_name
),
2067 exp
->internal_name
, ASM_RVA_AFTER
, ASM_C
, exp
->ordinal
);
2070 fprintf (f
, "\t%sf%d%s\t%s %d\n", ASM_RVA_BEFORE
,
2071 exp
->forward
, ASM_RVA_AFTER
, ASM_C
, exp
->ordinal
);
2075 fprintf (f
,"%s Export Name Pointer Table\n", ASM_C
);
2076 fprintf (f
, "anames:\n");
2078 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
2080 if (!exp
->noname
|| show_allnames
)
2081 fprintf (f
, "\t%sn%d%s\n",
2082 ASM_RVA_BEFORE
, exp
->ordinal
, ASM_RVA_AFTER
);
2085 fprintf (f
,"%s Export Ordinal Table\n", ASM_C
);
2086 fprintf (f
, "anords:\n");
2087 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
2089 if (!exp
->noname
|| show_allnames
)
2090 fprintf (f
, "\t%s %d\n", ASM_SHORT
, exp
->ordinal
- d_low_ord
);
2093 fprintf(f
,"%s Export Name Table\n", ASM_C
);
2094 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
2096 if (!exp
->noname
|| show_allnames
)
2097 fprintf (f
, "n%d: %s \"%s\"\n",
2098 exp
->ordinal
, ASM_TEXT
,
2099 (exp
->its_name
? exp
->its_name
: xlate (exp
->name
)));
2100 if (exp
->forward
!= 0)
2101 fprintf (f
, "f%d: %s \"%s\"\n",
2102 exp
->forward
, ASM_TEXT
, exp
->internal_name
);
2107 fprintf (f
, "\t.section %s\n", DRECTVE_SECTION_NAME
);
2108 for (dl
= a_list
; dl
; dl
= dl
->next
)
2110 fprintf (f
, "\t%s\t\"%s\"\n", ASM_TEXT
, dl
->text
);
2116 fprintf (f
, "\t.section .rdata\n");
2117 for (dl
= d_list
; dl
; dl
= dl
->next
)
2122 /* We don't output as ascii because there can
2123 be quote characters in the string. */
2125 for (p
= dl
->text
; *p
; p
++)
2128 fprintf (f
, "\t%s\t", ASM_BYTE
);
2131 fprintf (f
, "%d", *p
);
2134 fprintf (f
, ",0\n");
2148 /* Add to the output file a way of getting to the exported names
2149 without using the import library. */
2152 fprintf (f
, "\t.section\t.rdata\n");
2153 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
2154 if (!exp
->noname
|| show_allnames
)
2156 /* We use a single underscore for MS compatibility, and a
2157 double underscore for backward compatibility with old
2159 if (create_compat_implib
)
2160 fprintf (f
, "\t%s\t__imp_%s\n", ASM_GLOBAL
, exp
->name
);
2161 fprintf (f
, "\t%s\t_imp_%s%s\n", ASM_GLOBAL
,
2162 (!leading_underscore
? "" : "_"), exp
->name
);
2163 if (create_compat_implib
)
2164 fprintf (f
, "__imp_%s:\n", exp
->name
);
2165 fprintf (f
, "_imp_%s%s:\n", (!leading_underscore
? "" : "_"), exp
->name
);
2166 fprintf (f
, "\t%s\t%s\n", ASM_LONG
, exp
->name
);
2170 /* Dump the reloc section if a base file is provided. */
2174 bfd_vma need
[COFF_PAGE_SIZE
];
2176 bfd_size_type numbytes
;
2181 fprintf (f
, "\t.section\t.init\n");
2182 fprintf (f
, "lab:\n");
2184 fseek (base_file
, 0, SEEK_END
);
2185 numbytes
= ftell (base_file
);
2186 fseek (base_file
, 0, SEEK_SET
);
2187 copy
= xmalloc (numbytes
);
2188 if (fread (copy
, 1, numbytes
, base_file
) < numbytes
)
2189 fatal (_("failed to read the number of entries from base file"));
2190 num_entries
= numbytes
/ sizeof (bfd_vma
);
2193 fprintf (f
, "\t.section\t.reloc\n");
2198 bfd_vma last
= (bfd_vma
) -1;
2199 qsort (copy
, num_entries
, sizeof (bfd_vma
), sfunc
);
2200 /* Delete duplicates */
2201 for (src
= 0; src
< num_entries
; src
++)
2203 if (last
!= copy
[src
])
2204 last
= copy
[dst
++] = copy
[src
];
2208 page_addr
= addr
& PAGE_MASK
; /* work out the page addr */
2210 for (j
= 0; j
< num_entries
; j
++)
2213 if ((addr
& PAGE_MASK
) != page_addr
)
2215 flush_page (f
, need
, page_addr
, on_page
);
2217 page_addr
= addr
& PAGE_MASK
;
2219 need
[on_page
++] = addr
;
2221 flush_page (f
, need
, page_addr
, on_page
);
2223 /* fprintf (f, "\t%s\t0,0\t%s End\n", ASM_LONG, ASM_C);*/
2227 generate_idata_ofile (f
);
2231 /* Assemble the file. */
2232 assemble_file (TMP_ASM
, exp_name
);
2234 if (dontdeltemps
== 0)
2237 inform (_("Generated exports file"));
2241 xlate (const char *name
)
2243 int lead_at
= (*name
== '@');
2244 int is_stdcall
= (!lead_at
&& strchr (name
, '@') != NULL
);
2246 if (!lead_at
&& (add_underscore
2247 || (add_stdcall_underscore
&& is_stdcall
)))
2249 char *copy
= xmalloc (strlen (name
) + 2);
2252 strcpy (copy
+ 1, name
);
2261 /* PR 9766: Look for the last @ sign in the name. */
2262 p
= strrchr (name
, '@');
2263 if (p
&& ISDIGIT (p
[1]))
2279 unsigned char *data
;
2282 #define INIT_SEC_DATA(id, name, flags, align) \
2283 { id, name, flags, align, NULL, NULL, NULL, 0, NULL }
2297 #define TEXT_SEC_FLAGS \
2298 (SEC_ALLOC | SEC_LOAD | SEC_CODE | SEC_READONLY | SEC_HAS_CONTENTS)
2299 #define DATA_SEC_FLAGS (SEC_ALLOC | SEC_LOAD | SEC_DATA)
2300 #define BSS_SEC_FLAGS SEC_ALLOC
2302 static sinfo secdata
[NSECS
] =
2304 INIT_SEC_DATA (TEXT
, ".text", TEXT_SEC_FLAGS
, 2),
2305 INIT_SEC_DATA (DATA
, ".data", DATA_SEC_FLAGS
, 2),
2306 INIT_SEC_DATA (BSS
, ".bss", BSS_SEC_FLAGS
, 2),
2307 INIT_SEC_DATA (IDATA7
, ".idata$7", SEC_HAS_CONTENTS
, 2),
2308 INIT_SEC_DATA (IDATA5
, ".idata$5", SEC_HAS_CONTENTS
, 2),
2309 INIT_SEC_DATA (IDATA4
, ".idata$4", SEC_HAS_CONTENTS
, 2),
2310 INIT_SEC_DATA (IDATA6
, ".idata$6", SEC_HAS_CONTENTS
, 1)
2315 /* Sections numbered to make the order the same as other PowerPC NT
2316 compilers. This also keeps funny alignment thingies from happening. */
2329 static sinfo secdata
[NSECS
] =
2331 INIT_SEC_DATA (TEXT
, ".text", SEC_CODE
| SEC_HAS_CONTENTS
, 3),
2332 INIT_SEC_DATA (PDATA
, ".pdata", SEC_HAS_CONTENTS
, 2),
2333 INIT_SEC_DATA (RDATA
, ".reldata", SEC_HAS_CONTENTS
, 2),
2334 INIT_SEC_DATA (IDATA5
, ".idata$5", SEC_HAS_CONTENTS
, 2),
2335 INIT_SEC_DATA (IDATA4
, ".idata$4", SEC_HAS_CONTENTS
, 2),
2336 INIT_SEC_DATA (IDATA6
, ".idata$6", SEC_HAS_CONTENTS
, 1),
2337 INIT_SEC_DATA (IDATA7
, ".idata$7", SEC_HAS_CONTENTS
, 2),
2338 INIT_SEC_DATA (DATA
, ".data", SEC_DATA
, 2),
2339 INIT_SEC_DATA (BSS
, ".bss", 0, 2)
2344 /* This is what we're trying to make. We generate the imp symbols with
2345 both single and double underscores, for compatibility.
2348 .global _GetFileVersionInfoSizeW@8
2349 .global __imp_GetFileVersionInfoSizeW@8
2350 _GetFileVersionInfoSizeW@8:
2351 jmp * __imp_GetFileVersionInfoSizeW@8
2352 .section .idata$7 # To force loading of head
2353 .long __version_a_head
2354 # Import Address Table
2356 __imp_GetFileVersionInfoSizeW@8:
2359 # Import Lookup Table
2365 .asciz "GetFileVersionInfoSizeW"
2368 For the PowerPC, here's the variation on the above scheme:
2370 # Rather than a simple "jmp *", the code to get to the dll function
2373 lwz r11,[tocv]__imp_function_name(r2)
2374 # RELOC: 00000000 TOCREL16,TOCDEFN __imp_function_name
2382 make_label (const char *prefix
, const char *name
)
2384 int len
= strlen (ASM_PREFIX (name
)) + strlen (prefix
) + strlen (name
);
2385 char *copy
= xmalloc (len
+ 1);
2387 strcpy (copy
, ASM_PREFIX (name
));
2388 strcat (copy
, prefix
);
2389 strcat (copy
, name
);
2394 make_imp_label (const char *prefix
, const char *name
)
2401 len
= strlen (prefix
) + strlen (name
);
2402 copy
= xmalloc (len
+ 1);
2403 strcpy (copy
, prefix
);
2404 strcat (copy
, name
);
2408 len
= strlen (ASM_PREFIX (name
)) + strlen (prefix
) + strlen (name
);
2409 copy
= xmalloc (len
+ 1);
2410 strcpy (copy
, prefix
);
2411 strcat (copy
, ASM_PREFIX (name
));
2412 strcat (copy
, name
);
2418 make_one_lib_file (export_type
*exp
, int i
, int delay
)
2421 asymbol
* exp_label
;
2422 asymbol
* iname
= 0;
2424 asymbol
* iname_lab
;
2425 asymbol
** iname_lab_pp
;
2426 asymbol
** iname_pp
;
2435 asymbol
* ptrs
[NSECS
+ 4 + EXTRA
+ 1];
2436 flagword applicable
;
2437 char * outname
= xmalloc (strlen (TMP_STUB
) + 10);
2441 sprintf (outname
, "%s%05d.o", TMP_STUB
, i
);
2443 abfd
= bfd_openw (outname
, HOW_BFD_WRITE_TARGET
);
2446 /* xgettext:c-format */
2447 fatal (_("bfd_open failed open stub file: %s: %s"),
2448 outname
, bfd_get_errmsg ());
2450 /* xgettext:c-format */
2451 inform (_("Creating stub file: %s"), outname
);
2453 bfd_set_format (abfd
, bfd_object
);
2454 bfd_set_arch_mach (abfd
, HOW_BFD_ARCH
, 0);
2457 if (machine
== MARM_INTERWORK
|| machine
== MTHUMB
)
2458 bfd_set_private_flags (abfd
, F_INTERWORK
);
2461 applicable
= bfd_applicable_section_flags (abfd
);
2463 /* First make symbols for the sections. */
2464 for (i
= 0; i
< NSECS
; i
++)
2466 sinfo
*si
= secdata
+ i
;
2470 si
->sec
= bfd_make_section_old_way (abfd
, si
->name
);
2471 bfd_set_section_flags (abfd
,
2473 si
->flags
& applicable
);
2475 bfd_set_section_alignment(abfd
, si
->sec
, si
->align
);
2476 si
->sec
->output_section
= si
->sec
;
2477 si
->sym
= bfd_make_empty_symbol(abfd
);
2478 si
->sym
->name
= si
->sec
->name
;
2479 si
->sym
->section
= si
->sec
;
2480 si
->sym
->flags
= BSF_LOCAL
;
2482 ptrs
[oidx
] = si
->sym
;
2483 si
->sympp
= ptrs
+ oidx
;
2492 exp_label
= bfd_make_empty_symbol (abfd
);
2493 exp_label
->name
= make_imp_label ("", exp
->name
);
2495 /* On PowerPC, the function name points to a descriptor in
2496 the rdata section, the first element of which is a
2497 pointer to the code (..function_name), and the second
2498 points to the .toc. */
2500 if (machine
== MPPC
)
2501 exp_label
->section
= secdata
[RDATA
].sec
;
2504 exp_label
->section
= secdata
[TEXT
].sec
;
2506 exp_label
->flags
= BSF_GLOBAL
;
2507 exp_label
->value
= 0;
2510 if (machine
== MTHUMB
)
2511 bfd_coff_set_symbol_class (abfd
, exp_label
, C_THUMBEXTFUNC
);
2513 ptrs
[oidx
++] = exp_label
;
2516 /* Generate imp symbols with one underscore for Microsoft
2517 compatibility, and with two underscores for backward
2518 compatibility with old versions of cygwin. */
2519 if (create_compat_implib
)
2521 iname
= bfd_make_empty_symbol (abfd
);
2522 iname
->name
= make_imp_label ("___imp", exp
->name
);
2523 iname
->section
= secdata
[IDATA5
].sec
;
2524 iname
->flags
= BSF_GLOBAL
;
2528 iname2
= bfd_make_empty_symbol (abfd
);
2529 iname2
->name
= make_imp_label ("__imp_", exp
->name
);
2530 iname2
->section
= secdata
[IDATA5
].sec
;
2531 iname2
->flags
= BSF_GLOBAL
;
2534 iname_lab
= bfd_make_empty_symbol (abfd
);
2536 iname_lab
->name
= head_label
;
2537 iname_lab
->section
= bfd_und_section_ptr
;
2538 iname_lab
->flags
= 0;
2539 iname_lab
->value
= 0;
2541 iname_pp
= ptrs
+ oidx
;
2542 if (create_compat_implib
)
2543 ptrs
[oidx
++] = iname
;
2544 ptrs
[oidx
++] = iname2
;
2546 iname_lab_pp
= ptrs
+ oidx
;
2547 ptrs
[oidx
++] = iname_lab
;
2550 /* The symbol referring to the code (.text). */
2552 asymbol
*function_name
;
2554 function_name
= bfd_make_empty_symbol(abfd
);
2555 function_name
->name
= make_label ("..", exp
->name
);
2556 function_name
->section
= secdata
[TEXT
].sec
;
2557 function_name
->flags
= BSF_GLOBAL
;
2558 function_name
->value
= 0;
2560 fn_pp
= ptrs
+ oidx
;
2561 ptrs
[oidx
++] = function_name
;
2564 /* The .toc symbol. */
2566 asymbol
*toc_symbol
;
2568 toc_symbol
= bfd_make_empty_symbol (abfd
);
2569 toc_symbol
->name
= make_label (".", "toc");
2570 toc_symbol
->section
= bfd_und_section_ptr
;
2571 toc_symbol
->flags
= BSF_GLOBAL
;
2572 toc_symbol
->value
= 0;
2574 toc_pp
= ptrs
+ oidx
;
2575 ptrs
[oidx
++] = toc_symbol
;
2581 for (i
= 0; i
< NSECS
; i
++)
2583 sinfo
*si
= secdata
+ i
;
2584 asection
*sec
= si
->sec
;
2585 arelent
*rel
, *rel2
= 0, *rel3
= 0;
2593 si
->size
= HOW_JTAB_SIZE
;
2594 si
->data
= xmalloc (HOW_JTAB_SIZE
);
2595 memcpy (si
->data
, HOW_JTAB
, HOW_JTAB_SIZE
);
2597 /* Add the reloc into idata$5. */
2598 rel
= xmalloc (sizeof (arelent
));
2600 rpp
= xmalloc (sizeof (arelent
*) * (delay
? 4 : 2));
2604 rel
->address
= HOW_JTAB_ROFF
;
2609 rel2
= xmalloc (sizeof (arelent
));
2611 rel2
->address
= HOW_JTAB_ROFF2
;
2613 rel3
= xmalloc (sizeof (arelent
));
2615 rel3
->address
= HOW_JTAB_ROFF3
;
2620 if (machine
== MPPC
)
2622 rel
->howto
= bfd_reloc_type_lookup (abfd
,
2623 BFD_RELOC_16_GOTOFF
);
2624 rel
->sym_ptr_ptr
= iname_pp
;
2626 else if (machine
== MX86
)
2628 rel
->howto
= bfd_reloc_type_lookup (abfd
,
2629 BFD_RELOC_32_PCREL
);
2630 rel
->sym_ptr_ptr
= iname_pp
;
2634 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2635 rel
->sym_ptr_ptr
= secdata
[IDATA5
].sympp
;
2640 if (machine
== MX86
)
2641 rel2
->howto
= bfd_reloc_type_lookup (abfd
,
2642 BFD_RELOC_32_PCREL
);
2644 rel2
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2645 rel2
->sym_ptr_ptr
= rel
->sym_ptr_ptr
;
2646 rel3
->howto
= bfd_reloc_type_lookup (abfd
,
2647 BFD_RELOC_32_PCREL
);
2648 rel3
->sym_ptr_ptr
= iname_lab_pp
;
2651 sec
->orelocation
= rpp
;
2652 sec
->reloc_count
= delay
? 3 : 1;
2659 si
->size
= create_for_pep
? 8 : 4;
2660 si
->data
= xmalloc (si
->size
);
2661 sec
->reloc_count
= 1;
2662 memset (si
->data
, 0, si
->size
);
2663 /* Point after jmp [__imp_...] instruction. */
2665 rel
= xmalloc (sizeof (arelent
));
2666 rpp
= xmalloc (sizeof (arelent
*) * 2);
2672 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_64
);
2674 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2675 rel
->sym_ptr_ptr
= secdata
[TEXT
].sympp
;
2676 sec
->orelocation
= rpp
;
2679 /* else fall through */
2681 /* An idata$4 or idata$5 is one word long, and has an
2686 si
->data
= xmalloc (8);
2690 si
->data
[0] = exp
->ordinal
;
2691 si
->data
[1] = exp
->ordinal
>> 8;
2692 si
->data
[2] = exp
->ordinal
>> 16;
2693 si
->data
[3] = exp
->ordinal
>> 24;
2701 sec
->reloc_count
= 1;
2702 memset (si
->data
, 0, si
->size
);
2703 rel
= xmalloc (sizeof (arelent
));
2704 rpp
= xmalloc (sizeof (arelent
*) * 2);
2709 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_RVA
);
2710 rel
->sym_ptr_ptr
= secdata
[IDATA6
].sympp
;
2711 sec
->orelocation
= rpp
;
2716 si
->data
= xmalloc (4);
2721 si
->data
[0] = exp
->ordinal
;
2722 si
->data
[1] = exp
->ordinal
>> 8;
2723 si
->data
[2] = exp
->ordinal
>> 16;
2728 sec
->reloc_count
= 1;
2729 memset (si
->data
, 0, si
->size
);
2730 rel
= xmalloc (sizeof (arelent
));
2731 rpp
= xmalloc (sizeof (arelent
*) * 2);
2736 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_RVA
);
2737 rel
->sym_ptr_ptr
= secdata
[IDATA6
].sympp
;
2738 sec
->orelocation
= rpp
;
2746 /* This used to add 1 to exp->hint. I don't know
2747 why it did that, and it does not match what I see
2748 in programs compiled with the MS tools. */
2749 int idx
= exp
->hint
;
2751 si
->size
= strlen (exp
->its_name
) + 3;
2753 si
->size
= strlen (xlate (exp
->import_name
)) + 3;
2754 si
->data
= xmalloc (si
->size
);
2755 si
->data
[0] = idx
& 0xff;
2756 si
->data
[1] = idx
>> 8;
2758 strcpy ((char *) si
->data
+ 2, exp
->its_name
);
2760 strcpy ((char *) si
->data
+ 2, xlate (exp
->import_name
));
2767 si
->data
= xmalloc (4);
2768 memset (si
->data
, 0, si
->size
);
2769 rel
= xmalloc (sizeof (arelent
));
2770 rpp
= xmalloc (sizeof (arelent
*) * 2);
2774 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_RVA
);
2775 rel
->sym_ptr_ptr
= iname_lab_pp
;
2776 sec
->orelocation
= rpp
;
2777 sec
->reloc_count
= 1;
2783 /* The .pdata section is 5 words long.
2787 bfd_vma BeginAddress, [0x00]
2789 ExceptionHandler, [0x08]
2791 PrologEndAddress; [0x10]
2794 /* So this pdata section setups up this as a glue linkage to
2795 a dll routine. There are a number of house keeping things
2798 1. In the name of glue trickery, the ADDR32 relocs for 0,
2799 4, and 0x10 are set to point to the same place:
2801 2. There is one more reloc needed in the pdata section.
2802 The actual glue instruction to restore the toc on
2803 return is saved as the offset in an IMGLUE reloc.
2804 So we need a total of four relocs for this section.
2806 3. Lastly, the HandlerData field is set to 0x03, to indicate
2807 that this is a glue routine. */
2808 arelent
*imglue
, *ba_rel
, *ea_rel
, *pea_rel
;
2810 /* Alignment must be set to 2**2 or you get extra stuff. */
2811 bfd_set_section_alignment(abfd
, sec
, 2);
2814 si
->data
= xmalloc (si
->size
);
2815 memset (si
->data
, 0, si
->size
);
2816 rpp
= xmalloc (sizeof (arelent
*) * 5);
2817 rpp
[0] = imglue
= xmalloc (sizeof (arelent
));
2818 rpp
[1] = ba_rel
= xmalloc (sizeof (arelent
));
2819 rpp
[2] = ea_rel
= xmalloc (sizeof (arelent
));
2820 rpp
[3] = pea_rel
= xmalloc (sizeof (arelent
));
2823 /* Stick the toc reload instruction in the glue reloc. */
2824 bfd_put_32(abfd
, ppc_glue_insn
, (char *) &imglue
->address
);
2827 imglue
->howto
= bfd_reloc_type_lookup (abfd
,
2828 BFD_RELOC_32_GOTOFF
);
2829 imglue
->sym_ptr_ptr
= fn_pp
;
2831 ba_rel
->address
= 0;
2833 ba_rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2834 ba_rel
->sym_ptr_ptr
= fn_pp
;
2836 bfd_put_32 (abfd
, 0x18, si
->data
+ 0x04);
2837 ea_rel
->address
= 4;
2839 ea_rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2840 ea_rel
->sym_ptr_ptr
= fn_pp
;
2842 /* Mark it as glue. */
2843 bfd_put_32 (abfd
, 0x03, si
->data
+ 0x0c);
2845 /* Mark the prolog end address. */
2846 bfd_put_32 (abfd
, 0x0D, si
->data
+ 0x10);
2847 pea_rel
->address
= 0x10;
2848 pea_rel
->addend
= 0;
2849 pea_rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2850 pea_rel
->sym_ptr_ptr
= fn_pp
;
2852 sec
->orelocation
= rpp
;
2853 sec
->reloc_count
= 4;
2857 /* Each external function in a PowerPC PE file has a two word
2858 descriptor consisting of:
2859 1. The address of the code.
2860 2. The address of the appropriate .toc
2861 We use relocs to build this. */
2863 si
->data
= xmalloc (8);
2864 memset (si
->data
, 0, si
->size
);
2866 rpp
= xmalloc (sizeof (arelent
*) * 3);
2867 rpp
[0] = rel
= xmalloc (sizeof (arelent
));
2868 rpp
[1] = xmalloc (sizeof (arelent
));
2873 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2874 rel
->sym_ptr_ptr
= fn_pp
;
2880 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2881 rel
->sym_ptr_ptr
= toc_pp
;
2883 sec
->orelocation
= rpp
;
2884 sec
->reloc_count
= 2;
2886 #endif /* DLLTOOL_PPC */
2892 /* Size up all the sections. */
2893 for (i
= 0; i
< NSECS
; i
++)
2895 sinfo
*si
= secdata
+ i
;
2897 bfd_set_section_size (abfd
, si
->sec
, si
->size
);
2898 bfd_set_section_vma (abfd
, si
->sec
, vma
);
2901 /* Write them out. */
2902 for (i
= 0; i
< NSECS
; i
++)
2904 sinfo
*si
= secdata
+ i
;
2906 if (i
== IDATA5
&& no_idata5
)
2909 if (i
== IDATA4
&& no_idata4
)
2912 bfd_set_section_contents (abfd
, si
->sec
,
2917 bfd_set_symtab (abfd
, ptrs
, oidx
);
2919 abfd
= bfd_openr (outname
, HOW_BFD_READ_TARGET
);
2921 /* xgettext:c-format */
2922 fatal (_("bfd_open failed reopen stub file: %s: %s"),
2923 outname
, bfd_get_errmsg ());
2931 FILE *f
= fopen (TMP_HEAD_S
, FOPEN_WT
);
2936 fatal (_("failed to open temporary head file: %s"), TMP_HEAD_S
);
2940 fprintf (f
, "%s IMAGE_IMPORT_DESCRIPTOR\n", ASM_C
);
2941 fprintf (f
, "\t.section\t.idata$2\n");
2943 fprintf (f
,"\t%s\t%s\n", ASM_GLOBAL
, head_label
);
2945 fprintf (f
, "%s:\n", head_label
);
2947 fprintf (f
, "\t%shname%s\t%sPtr to image import by name list\n",
2948 ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
2950 fprintf (f
, "\t%sthis should be the timestamp, but NT sometimes\n", ASM_C
);
2951 fprintf (f
, "\t%sdoesn't load DLLs when this is set.\n", ASM_C
);
2952 fprintf (f
, "\t%s\t0\t%s loaded time\n", ASM_LONG
, ASM_C
);
2953 fprintf (f
, "\t%s\t0\t%s Forwarder chain\n", ASM_LONG
, ASM_C
);
2954 fprintf (f
, "\t%s__%s_iname%s\t%s imported dll's name\n",
2959 fprintf (f
, "\t%sfthunk%s\t%s pointer to firstthunk\n",
2961 ASM_RVA_AFTER
, ASM_C
);
2963 fprintf (f
, "%sStuff for compatibility\n", ASM_C
);
2967 fprintf (f
, "\t.section\t.idata$5\n");
2968 if (use_nul_prefixed_import_tables
)
2971 fprintf (f
,"\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
2973 fprintf (f
,"\t%s\t0\n", ASM_LONG
);
2975 fprintf (f
, "fthunk:\n");
2980 fprintf (f
, "\t.section\t.idata$4\n");
2981 if (use_nul_prefixed_import_tables
)
2984 fprintf (f
,"\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
2986 fprintf (f
,"\t%s\t0\n", ASM_LONG
);
2988 fprintf (f
, "hname:\n");
2993 assemble_file (TMP_HEAD_S
, TMP_HEAD_O
);
2995 abfd
= bfd_openr (TMP_HEAD_O
, HOW_BFD_READ_TARGET
);
2997 /* xgettext:c-format */
2998 fatal (_("failed to open temporary head file: %s: %s"),
2999 TMP_HEAD_O
, bfd_get_errmsg ());
3005 make_delay_head (void)
3007 FILE *f
= fopen (TMP_HEAD_S
, FOPEN_WT
);
3012 fatal (_("failed to open temporary head file: %s"), TMP_HEAD_S
);
3016 /* Output the __tailMerge__xxx function */
3017 fprintf (f
, "%s Import trampoline\n", ASM_C
);
3018 fprintf (f
, "\t.section\t.text\n");
3019 fprintf(f
,"\t%s\t%s\n", ASM_GLOBAL
, head_label
);
3020 fprintf (f
, "%s:\n", head_label
);
3021 fprintf (f
, mtable
[machine
].trampoline
, imp_name_lab
);
3023 /* Output the delay import descriptor */
3024 fprintf (f
, "\n%s DELAY_IMPORT_DESCRIPTOR\n", ASM_C
);
3025 fprintf (f
, ".section\t.text$2\n");
3026 fprintf (f
,"%s __DELAY_IMPORT_DESCRIPTOR_%s\n", ASM_GLOBAL
,imp_name_lab
);
3027 fprintf (f
, "__DELAY_IMPORT_DESCRIPTOR_%s:\n", imp_name_lab
);
3028 fprintf (f
, "\t%s 1\t%s grAttrs\n", ASM_LONG
, ASM_C
);
3029 fprintf (f
, "\t%s__%s_iname%s\t%s rvaDLLName\n",
3030 ASM_RVA_BEFORE
, imp_name_lab
, ASM_RVA_AFTER
, ASM_C
);
3031 fprintf (f
, "\t%s__DLL_HANDLE_%s%s\t%s rvaHmod\n",
3032 ASM_RVA_BEFORE
, imp_name_lab
, ASM_RVA_AFTER
, ASM_C
);
3033 fprintf (f
, "\t%s__IAT_%s%s\t%s rvaIAT\n",
3034 ASM_RVA_BEFORE
, imp_name_lab
, ASM_RVA_AFTER
, ASM_C
);
3035 fprintf (f
, "\t%s__INT_%s%s\t%s rvaINT\n",
3036 ASM_RVA_BEFORE
, imp_name_lab
, ASM_RVA_AFTER
, ASM_C
);
3037 fprintf (f
, "\t%s\t0\t%s rvaBoundIAT\n", ASM_LONG
, ASM_C
);
3038 fprintf (f
, "\t%s\t0\t%s rvaUnloadIAT\n", ASM_LONG
, ASM_C
);
3039 fprintf (f
, "\t%s\t0\t%s dwTimeStamp\n", ASM_LONG
, ASM_C
);
3041 /* Output the dll_handle */
3042 fprintf (f
, "\n.section .data\n");
3043 fprintf (f
, "__DLL_HANDLE_%s:\n", imp_name_lab
);
3044 fprintf (f
, "\t%s\t0\t%s Handle\n", ASM_LONG
, ASM_C
);
3046 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
3049 fprintf (f
, "%sStuff for compatibility\n", ASM_C
);
3053 fprintf (f
, "\t.section\t.idata$5\n");
3054 /* NULL terminating list. */
3056 fprintf (f
,"\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
3058 fprintf (f
,"\t%s\t0\n", ASM_LONG
);
3059 fprintf (f
, "__IAT_%s:\n", imp_name_lab
);
3064 fprintf (f
, "\t.section\t.idata$4\n");
3065 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
3067 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
3068 fprintf (f
, "\t.section\t.idata$4\n");
3069 fprintf (f
, "__INT_%s:\n", imp_name_lab
);
3072 fprintf (f
, "\t.section\t.idata$2\n");
3076 assemble_file (TMP_HEAD_S
, TMP_HEAD_O
);
3078 abfd
= bfd_openr (TMP_HEAD_O
, HOW_BFD_READ_TARGET
);
3080 /* xgettext:c-format */
3081 fatal (_("failed to open temporary head file: %s: %s"),
3082 TMP_HEAD_O
, bfd_get_errmsg ());
3090 FILE *f
= fopen (TMP_TAIL_S
, FOPEN_WT
);
3095 fatal (_("failed to open temporary tail file: %s"), TMP_TAIL_S
);
3101 fprintf (f
, "\t.section\t.idata$4\n");
3103 fprintf (f
,"\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
3105 fprintf (f
,"\t%s\t0\n", ASM_LONG
); /* NULL terminating list. */
3110 fprintf (f
, "\t.section\t.idata$5\n");
3112 fprintf (f
,"\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
3114 fprintf (f
,"\t%s\t0\n", ASM_LONG
); /* NULL terminating list. */
3118 /* Normally, we need to see a null descriptor built in idata$3 to
3119 act as the terminator for the list. The ideal way, I suppose,
3120 would be to mark this section as a comdat type 2 section, so
3121 only one would appear in the final .exe (if our linker supported
3122 comdat, that is) or cause it to be inserted by something else (say
3125 fprintf (f
, "\t.section\t.idata$3\n");
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
);
3129 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
3130 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
3134 /* Other PowerPC NT compilers use idata$6 for the dllname, so I
3135 do too. Original, huh? */
3136 fprintf (f
, "\t.section\t.idata$6\n");
3138 fprintf (f
, "\t.section\t.idata$7\n");
3141 fprintf (f
, "\t%s\t__%s_iname\n", ASM_GLOBAL
, imp_name_lab
);
3142 fprintf (f
, "__%s_iname:\t%s\t\"%s\"\n",
3143 imp_name_lab
, ASM_TEXT
, dll_name
);
3147 assemble_file (TMP_TAIL_S
, TMP_TAIL_O
);
3149 abfd
= bfd_openr (TMP_TAIL_O
, HOW_BFD_READ_TARGET
);
3151 /* xgettext:c-format */
3152 fatal (_("failed to open temporary tail file: %s: %s"),
3153 TMP_TAIL_O
, bfd_get_errmsg ());
3159 gen_lib_file (int delay
)
3170 outarch
= bfd_openw (imp_name
, HOW_BFD_WRITE_TARGET
);
3173 /* xgettext:c-format */
3174 fatal (_("Can't create .lib file: %s: %s"),
3175 imp_name
, bfd_get_errmsg ());
3177 /* xgettext:c-format */
3178 inform (_("Creating library file: %s"), imp_name
);
3180 bfd_set_format (outarch
, bfd_archive
);
3181 outarch
->has_armap
= 1;
3182 outarch
->is_thin_archive
= 0;
3184 /* Work out a reasonable size of things to put onto one line. */
3187 ar_head
= make_delay_head ();
3191 ar_head
= make_head ();
3193 ar_tail
= make_tail();
3195 if (ar_head
== NULL
|| ar_tail
== NULL
)
3198 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
3201 /* Don't add PRIVATE entries to import lib. */
3204 n
= make_one_lib_file (exp
, i
, delay
);
3205 n
->archive_next
= head
;
3207 if (ext_prefix_alias
)
3209 export_type alias_exp
;
3211 assert (i
< PREFIX_ALIAS_BASE
);
3212 alias_exp
.name
= make_imp_label (ext_prefix_alias
, exp
->name
);
3213 alias_exp
.internal_name
= exp
->internal_name
;
3214 alias_exp
.its_name
= exp
->its_name
;
3215 alias_exp
.import_name
= exp
->name
;
3216 alias_exp
.ordinal
= exp
->ordinal
;
3217 alias_exp
.constant
= exp
->constant
;
3218 alias_exp
.noname
= exp
->noname
;
3219 alias_exp
.private = exp
->private;
3220 alias_exp
.data
= exp
->data
;
3221 alias_exp
.hint
= exp
->hint
;
3222 alias_exp
.forward
= exp
->forward
;
3223 alias_exp
.next
= exp
->next
;
3224 n
= make_one_lib_file (&alias_exp
, i
+ PREFIX_ALIAS_BASE
, delay
);
3225 n
->archive_next
= head
;
3230 /* Now stick them all into the archive. */
3231 ar_head
->archive_next
= head
;
3232 ar_tail
->archive_next
= ar_head
;
3235 if (! bfd_set_archive_head (outarch
, head
))
3236 bfd_fatal ("bfd_set_archive_head");
3238 if (! bfd_close (outarch
))
3239 bfd_fatal (imp_name
);
3241 while (head
!= NULL
)
3243 bfd
*n
= head
->archive_next
;
3248 /* Delete all the temp files. */
3249 if (dontdeltemps
== 0)
3251 unlink (TMP_HEAD_O
);
3252 unlink (TMP_HEAD_S
);
3253 unlink (TMP_TAIL_O
);
3254 unlink (TMP_TAIL_S
);
3257 if (dontdeltemps
< 2)
3261 name
= (char *) alloca (strlen (TMP_STUB
) + 10);
3262 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
3264 /* Don't delete non-existent stubs for PRIVATE entries. */
3267 sprintf (name
, "%s%05d.o", TMP_STUB
, i
);
3268 if (unlink (name
) < 0)
3269 /* xgettext:c-format */
3270 non_fatal (_("cannot delete %s: %s"), name
, strerror (errno
));
3271 if (ext_prefix_alias
)
3273 sprintf (name
, "%s%05d.o", TMP_STUB
, i
+ PREFIX_ALIAS_BASE
);
3274 if (unlink (name
) < 0)
3275 /* xgettext:c-format */
3276 non_fatal (_("cannot delete %s: %s"), name
, strerror (errno
));
3281 inform (_("Created lib file"));
3284 /* Append a copy of data (cast to char *) to list. */
3287 dll_name_list_append (dll_name_list_type
* list
, bfd_byte
* data
)
3289 dll_name_list_node_type
* entry
;
3291 /* Error checking. */
3292 if (! list
|| ! list
->tail
)
3295 /* Allocate new node. */
3296 entry
= ((dll_name_list_node_type
*)
3297 xmalloc (sizeof (dll_name_list_node_type
)));
3299 /* Initialize its values. */
3300 entry
->dllname
= xstrdup ((char *) data
);
3303 /* Add to tail, and move tail. */
3304 list
->tail
->next
= entry
;
3308 /* Count the number of entries in list. */
3311 dll_name_list_count (dll_name_list_type
* list
)
3313 dll_name_list_node_type
* p
;
3316 /* Error checking. */
3317 if (! list
|| ! list
->head
)
3322 while (p
&& p
->next
)
3330 /* Print each entry in list to stdout. */
3333 dll_name_list_print (dll_name_list_type
* list
)
3335 dll_name_list_node_type
* p
;
3337 /* Error checking. */
3338 if (! list
|| ! list
->head
)
3343 while (p
&& p
->next
&& p
->next
->dllname
&& *(p
->next
->dllname
))
3345 printf ("%s\n", p
->next
->dllname
);
3350 /* Free all entries in list, and list itself. */
3353 dll_name_list_free (dll_name_list_type
* list
)
3357 dll_name_list_free_contents (list
->head
);
3364 /* Recursive function to free all nodes entry->next->next...
3365 as well as entry itself. */
3368 dll_name_list_free_contents (dll_name_list_node_type
* entry
)
3374 dll_name_list_free_contents (entry
->next
);
3379 free (entry
->dllname
);
3380 entry
->dllname
= NULL
;
3386 /* Allocate and initialize a dll_name_list_type object,
3387 including its sentinel node. Caller is responsible
3388 for calling dll_name_list_free when finished with
3391 static dll_name_list_type
*
3392 dll_name_list_create (void)
3394 /* Allocate list. */
3395 dll_name_list_type
* list
= xmalloc (sizeof (dll_name_list_type
));
3397 /* Allocate and initialize sentinel node. */
3398 list
->head
= xmalloc (sizeof (dll_name_list_node_type
));
3399 list
->head
->dllname
= NULL
;
3400 list
->head
->next
= NULL
;
3402 /* Bookkeeping for empty list. */
3403 list
->tail
= list
->head
;
3408 /* Search the symbol table of the suppled BFD for a symbol whose name matches
3409 OBJ (where obj is cast to const char *). If found, set global variable
3410 identify_member_contains_symname_result TRUE. It is the caller's
3411 responsibility to set the result variable FALSE before iterating with
3415 identify_member_contains_symname (bfd
* abfd
,
3416 bfd
* archive_bfd ATTRIBUTE_UNUSED
,
3419 long storage_needed
;
3420 asymbol
** symbol_table
;
3421 long number_of_symbols
;
3423 symname_search_data_type
* search_data
= (symname_search_data_type
*) obj
;
3425 /* If we already found the symbol in a different member,
3427 if (search_data
->found
)
3430 storage_needed
= bfd_get_symtab_upper_bound (abfd
);
3431 if (storage_needed
<= 0)
3434 symbol_table
= xmalloc (storage_needed
);
3435 number_of_symbols
= bfd_canonicalize_symtab (abfd
, symbol_table
);
3436 if (number_of_symbols
< 0)
3438 free (symbol_table
);
3442 for (i
= 0; i
< number_of_symbols
; i
++)
3444 if (strncmp (symbol_table
[i
]->name
,
3445 search_data
->symname
,
3446 strlen (search_data
->symname
)) == 0)
3448 search_data
->found
= TRUE
;
3452 free (symbol_table
);
3455 /* This is the main implementation for the --identify option.
3456 Given the name of an import library in identify_imp_name, first determine
3457 if the import library is a GNU binutils-style one (where the DLL name is
3458 stored in an .idata$7 (.idata$6 on PPC) section, or if it is a MS-style
3459 one (where the DLL name, along with much other data, is stored in the
3460 .idata$6 section). We determine the style of import library by searching
3461 for the DLL-structure symbol inserted by MS tools:
3462 __NULL_IMPORT_DESCRIPTOR.
3464 Once we know which section to search, evaluate each section for the
3465 appropriate properties that indicate it may contain the name of the
3466 associated DLL (this differs depending on the style). Add the contents
3467 of all sections which meet the criteria to a linked list of dll names.
3469 Finally, print them all to stdout. (If --identify-strict, an error is
3470 reported if more than one match was found). */
3473 identify_dll_for_implib (void)
3477 identify_data_type identify_data
;
3478 symname_search_data_type search_data
;
3480 /* Initialize identify_data. */
3481 identify_data
.list
= dll_name_list_create ();
3482 identify_data
.ms_style_implib
= FALSE
;
3484 /* Initialize search_data. */
3485 search_data
.symname
= "__NULL_IMPORT_DESCRIPTOR";
3486 search_data
.found
= FALSE
;
3490 abfd
= bfd_openr (identify_imp_name
, 0);
3492 /* xgettext:c-format */
3493 fatal (_("Can't open .lib file: %s: %s"),
3494 identify_imp_name
, bfd_get_errmsg ());
3496 if (! bfd_check_format (abfd
, bfd_archive
))
3498 if (! bfd_close (abfd
))
3499 bfd_fatal (identify_imp_name
);
3501 fatal (_("%s is not a library"), identify_imp_name
);
3504 /* Detect if this a Microsoft import library. */
3505 identify_search_archive (abfd
,
3506 identify_member_contains_symname
,
3507 (void *)(& search_data
));
3508 if (search_data
.found
)
3509 identify_data
.ms_style_implib
= TRUE
;
3511 /* Rewind the bfd. */
3512 if (! bfd_close (abfd
))
3513 bfd_fatal (identify_imp_name
);
3514 abfd
= bfd_openr (identify_imp_name
, 0);
3516 bfd_fatal (identify_imp_name
);
3518 if (!bfd_check_format (abfd
, bfd_archive
))
3520 if (!bfd_close (abfd
))
3521 bfd_fatal (identify_imp_name
);
3523 fatal (_("%s is not a library"), identify_imp_name
);
3526 /* Now search for the dll name. */
3527 identify_search_archive (abfd
,
3528 identify_search_member
,
3529 (void *)(& identify_data
));
3531 if (! bfd_close (abfd
))
3532 bfd_fatal (identify_imp_name
);
3534 count
= dll_name_list_count (identify_data
.list
);
3537 if (identify_strict
&& count
> 1)
3539 dll_name_list_free (identify_data
.list
);
3540 identify_data
.list
= NULL
;
3541 fatal (_("Import library `%s' specifies two or more dlls"),
3544 dll_name_list_print (identify_data
.list
);
3545 dll_name_list_free (identify_data
.list
);
3546 identify_data
.list
= NULL
;
3550 dll_name_list_free (identify_data
.list
);
3551 identify_data
.list
= NULL
;
3552 fatal (_("Unable to determine dll name for `%s' (not an import library?)"),
3557 /* Loop over all members of the archive, applying the supplied function to
3558 each member that is a bfd_object. The function will be called as if:
3559 func (member_bfd, abfd, user_storage) */
3562 identify_search_archive (bfd
* abfd
,
3563 void (* operation
) (bfd
*, bfd
*, void *),
3564 void * user_storage
)
3566 bfd
* arfile
= NULL
;
3567 bfd
* last_arfile
= NULL
;
3572 arfile
= bfd_openr_next_archived_file (abfd
, arfile
);
3576 if (bfd_get_error () != bfd_error_no_more_archived_files
)
3577 bfd_fatal (bfd_get_filename (abfd
));
3581 if (bfd_check_format_matches (arfile
, bfd_object
, &matching
))
3582 (*operation
) (arfile
, abfd
, user_storage
);
3585 bfd_nonfatal (bfd_get_filename (arfile
));
3589 if (last_arfile
!= NULL
)
3590 bfd_close (last_arfile
);
3592 last_arfile
= arfile
;
3595 if (last_arfile
!= NULL
)
3597 bfd_close (last_arfile
);
3601 /* Call the identify_search_section() function for each section of this
3605 identify_search_member (bfd
*abfd
,
3606 bfd
*archive_bfd ATTRIBUTE_UNUSED
,
3609 bfd_map_over_sections (abfd
, identify_search_section
, obj
);
3612 /* This predicate returns true if section->name matches the desired value.
3613 By default, this is .idata$7 (.idata$6 on PPC, or if the import
3614 library is ms-style). */
3617 identify_process_section_p (asection
* section
, bfd_boolean ms_style_implib
)
3619 static const char * SECTION_NAME
=
3621 /* dllname is stored in idata$6 on PPC */
3626 static const char * MS_SECTION_NAME
= ".idata$6";
3628 const char * section_name
=
3629 (ms_style_implib
? MS_SECTION_NAME
: SECTION_NAME
);
3631 if (strcmp (section_name
, section
->name
) == 0)
3636 /* If *section has contents and its name is .idata$7 (.data$6 on PPC or if
3637 import lib ms-generated) -- and it satisfies several other constraints
3638 -- then add the contents of the section to obj->list. */
3641 identify_search_section (bfd
* abfd
, asection
* section
, void * obj
)
3644 bfd_size_type datasize
;
3645 identify_data_type
* identify_data
= (identify_data_type
*)obj
;
3646 bfd_boolean ms_style
= identify_data
->ms_style_implib
;
3648 if ((section
->flags
& SEC_HAS_CONTENTS
) == 0)
3651 if (! identify_process_section_p (section
, ms_style
))
3654 /* Binutils import libs seem distinguish the .idata$7 section that contains
3655 the DLL name from other .idata$7 sections by the absence of the
3657 if (!ms_style
&& ((section
->flags
& SEC_RELOC
) == SEC_RELOC
))
3660 /* MS import libs seem to distinguish the .idata$6 section
3661 that contains the DLL name from other .idata$6 sections
3662 by the presence of the SEC_DATA flag. */
3663 if (ms_style
&& ((section
->flags
& SEC_DATA
) == 0))
3666 if ((datasize
= bfd_section_size (abfd
, section
)) == 0)
3669 data
= (bfd_byte
*) xmalloc (datasize
+ 1);
3672 bfd_get_section_contents (abfd
, section
, data
, 0, datasize
);
3673 data
[datasize
] = '\0';
3675 /* Use a heuristic to determine if data is a dll name.
3676 Possible to defeat this if (a) the library has MANY
3677 (more than 0x302f) imports, (b) it is an ms-style
3678 import library, but (c) it is buggy, in that the SEC_DATA
3679 flag is set on the "wrong" sections. This heuristic might
3680 also fail to record a valid dll name if the dllname uses
3681 a multibyte or unicode character set (is that valid?).
3683 This heuristic is based on the fact that symbols names in
3684 the chosen section -- as opposed to the dll name -- begin
3685 at offset 2 in the data. The first two bytes are a 16bit
3686 little-endian count, and start at 0x0000. However, the dll
3687 name begins at offset 0 in the data. We assume that the
3688 dll name does not contain unprintable characters. */
3689 if (data
[0] != '\0' && ISPRINT (data
[0])
3690 && ((datasize
< 2) || ISPRINT (data
[1])))
3691 dll_name_list_append (identify_data
->list
, data
);
3696 /* Run through the information gathered from the .o files and the
3697 .def file and work out the best stuff. */
3700 pfunc (const void *a
, const void *b
)
3702 export_type
*ap
= *(export_type
**) a
;
3703 export_type
*bp
= *(export_type
**) b
;
3705 if (ap
->ordinal
== bp
->ordinal
)
3708 /* Unset ordinals go to the bottom. */
3709 if (ap
->ordinal
== -1)
3711 if (bp
->ordinal
== -1)
3713 return (ap
->ordinal
- bp
->ordinal
);
3717 nfunc (const void *a
, const void *b
)
3719 export_type
*ap
= *(export_type
**) a
;
3720 export_type
*bp
= *(export_type
**) b
;
3721 const char *an
= ap
->name
;
3722 const char *bn
= bp
->name
;
3729 an
= (an
[0] == '@') ? an
+ 1 : an
;
3730 bn
= (bn
[0] == '@') ? bn
+ 1 : bn
;
3733 return (strcmp (an
, bn
));
3737 remove_null_names (export_type
**ptr
)
3742 for (dst
= src
= 0; src
< d_nfuncs
; src
++)
3746 ptr
[dst
] = ptr
[src
];
3754 process_duplicates (export_type
**d_export_vec
)
3762 /* Remove duplicates. */
3763 qsort (d_export_vec
, d_nfuncs
, sizeof (export_type
*), nfunc
);
3765 for (i
= 0; i
< d_nfuncs
- 1; i
++)
3767 if (strcmp (d_export_vec
[i
]->name
,
3768 d_export_vec
[i
+ 1]->name
) == 0)
3770 export_type
*a
= d_export_vec
[i
];
3771 export_type
*b
= d_export_vec
[i
+ 1];
3775 /* xgettext:c-format */
3776 inform (_("Warning, ignoring duplicate EXPORT %s %d,%d"),
3777 a
->name
, a
->ordinal
, b
->ordinal
);
3779 if (a
->ordinal
!= -1
3780 && b
->ordinal
!= -1)
3781 /* xgettext:c-format */
3782 fatal (_("Error, duplicate EXPORT with ordinals: %s"),
3785 /* Merge attributes. */
3786 b
->ordinal
= a
->ordinal
> 0 ? a
->ordinal
: b
->ordinal
;
3787 b
->constant
|= a
->constant
;
3788 b
->noname
|= a
->noname
;
3790 d_export_vec
[i
] = 0;
3793 remove_null_names (d_export_vec
);
3797 /* Count the names. */
3798 for (i
= 0; i
< d_nfuncs
; i
++)
3799 if (!d_export_vec
[i
]->noname
)
3804 fill_ordinals (export_type
**d_export_vec
)
3811 qsort (d_export_vec
, d_nfuncs
, sizeof (export_type
*), pfunc
);
3813 /* Fill in the unset ordinals with ones from our range. */
3814 ptr
= (char *) xmalloc (size
);
3816 memset (ptr
, 0, size
);
3818 /* Mark in our large vector all the numbers that are taken. */
3819 for (i
= 0; i
< d_nfuncs
; i
++)
3821 if (d_export_vec
[i
]->ordinal
!= -1)
3823 ptr
[d_export_vec
[i
]->ordinal
] = 1;
3825 if (lowest
== -1 || d_export_vec
[i
]->ordinal
< lowest
)
3826 lowest
= d_export_vec
[i
]->ordinal
;
3830 /* Start at 1 for compatibility with MS toolchain. */
3834 /* Now fill in ordinals where the user wants us to choose. */
3835 for (i
= 0; i
< d_nfuncs
; i
++)
3837 if (d_export_vec
[i
]->ordinal
== -1)
3841 /* First try within or after any user supplied range. */
3842 for (j
= lowest
; j
< size
; j
++)
3846 d_export_vec
[i
]->ordinal
= j
;
3850 /* Then try before the range. */
3851 for (j
= lowest
; j
>0; j
--)
3855 d_export_vec
[i
]->ordinal
= j
;
3865 qsort (d_export_vec
, d_nfuncs
, sizeof (export_type
*), pfunc
);
3867 /* Work out the lowest and highest ordinal numbers. */
3870 if (d_export_vec
[0])
3871 d_low_ord
= d_export_vec
[0]->ordinal
;
3872 if (d_export_vec
[d_nfuncs
-1])
3873 d_high_ord
= d_export_vec
[d_nfuncs
-1]->ordinal
;
3880 /* First work out the minimum ordinal chosen. */
3885 export_type
**d_export_vec
= xmalloc (sizeof (export_type
*) * d_nfuncs
);
3887 inform (_("Processing definitions"));
3889 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
3890 d_export_vec
[i
] = exp
;
3892 process_duplicates (d_export_vec
);
3893 fill_ordinals (d_export_vec
);
3895 /* Put back the list in the new order. */
3897 for (i
= d_nfuncs
- 1; i
>= 0; i
--)
3899 d_export_vec
[i
]->next
= d_exports
;
3900 d_exports
= d_export_vec
[i
];
3903 /* Build list in alpha order. */
3904 d_exports_lexically
= (export_type
**)
3905 xmalloc (sizeof (export_type
*) * (d_nfuncs
+ 1));
3907 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
3908 d_exports_lexically
[i
] = exp
;
3910 d_exports_lexically
[i
] = 0;
3912 qsort (d_exports_lexically
, i
, sizeof (export_type
*), nfunc
);
3914 /* Fill exp entries with their hint values. */
3915 for (i
= 0; i
< d_nfuncs
; i
++)
3916 if (!d_exports_lexically
[i
]->noname
|| show_allnames
)
3917 d_exports_lexically
[i
]->hint
= hint
++;
3919 inform (_("Processed definitions"));
3923 usage (FILE *file
, int status
)
3925 /* xgetext:c-format */
3926 fprintf (file
, _("Usage %s <option(s)> <object-file(s)>\n"), program_name
);
3927 /* xgetext:c-format */
3928 fprintf (file
, _(" -m --machine <machine> Create as DLL for <machine>. [default: %s]\n"), mname
);
3929 fprintf (file
, _(" possible <machine>: arm[_interwork], i386, mcore[-elf]{-le|-be}, ppc, thumb\n"));
3930 fprintf (file
, _(" -e --output-exp <outname> Generate an export file.\n"));
3931 fprintf (file
, _(" -l --output-lib <outname> Generate an interface library.\n"));
3932 fprintf (file
, _(" -y --output-delaylib <outname> Create a delay-import library.\n"));
3933 fprintf (file
, _(" -a --add-indirect Add dll indirects to export file.\n"));
3934 fprintf (file
, _(" -D --dllname <name> Name of input dll to put into interface lib.\n"));
3935 fprintf (file
, _(" -d --input-def <deffile> Name of .def file to be read in.\n"));
3936 fprintf (file
, _(" -z --output-def <deffile> Name of .def file to be created.\n"));
3937 fprintf (file
, _(" --export-all-symbols Export all symbols to .def\n"));
3938 fprintf (file
, _(" --no-export-all-symbols Only export listed symbols\n"));
3939 fprintf (file
, _(" --exclude-symbols <list> Don't export <list>\n"));
3940 fprintf (file
, _(" --no-default-excludes Clear default exclude symbols\n"));
3941 fprintf (file
, _(" -b --base-file <basefile> Read linker generated base file.\n"));
3942 fprintf (file
, _(" -x --no-idata4 Don't generate idata$4 section.\n"));
3943 fprintf (file
, _(" -c --no-idata5 Don't generate idata$5 section.\n"));
3944 fprintf (file
, _(" --use-nul-prefixed-import-tables Use zero prefixed idata$4 and idata$5.\n"));
3945 fprintf (file
, _(" -U --add-underscore Add underscores to all symbols in interface library.\n"));
3946 fprintf (file
, _(" --add-stdcall-underscore Add underscores to stdcall symbols in interface library.\n"));
3947 fprintf (file
, _(" --no-leading-underscore All symbols shouldn't be prefixed by an underscore.\n"));
3948 fprintf (file
, _(" --leading-underscore All symbols should be prefixed by an underscore.\n"));
3949 fprintf (file
, _(" -k --kill-at Kill @<n> from exported names.\n"));
3950 fprintf (file
, _(" -A --add-stdcall-alias Add aliases without @<n>.\n"));
3951 fprintf (file
, _(" -p --ext-prefix-alias <prefix> Add aliases with <prefix>.\n"));
3952 fprintf (file
, _(" -S --as <name> Use <name> for assembler.\n"));
3953 fprintf (file
, _(" -f --as-flags <flags> Pass <flags> to the assembler.\n"));
3954 fprintf (file
, _(" -C --compat-implib Create backward compatible import library.\n"));
3955 fprintf (file
, _(" -n --no-delete Keep temp files (repeat for extra preservation).\n"));
3956 fprintf (file
, _(" -t --temp-prefix <prefix> Use <prefix> to construct temp file names.\n"));
3957 fprintf (file
, _(" -I --identify <implib> Report the name of the DLL associated with <implib>.\n"));
3958 fprintf (file
, _(" --identify-strict Causes --identify to report error when multiple DLLs.\n"));
3959 fprintf (file
, _(" -v --verbose Be verbose.\n"));
3960 fprintf (file
, _(" -V --version Display the program version.\n"));
3961 fprintf (file
, _(" -h --help Display this information.\n"));
3962 fprintf (file
, _(" @<file> Read options from <file>.\n"));
3963 #ifdef DLLTOOL_MCORE_ELF
3964 fprintf (file
, _(" -M --mcore-elf <outname> Process mcore-elf object files into <outname>.\n"));
3965 fprintf (file
, _(" -L --linker <name> Use <name> as the linker.\n"));
3966 fprintf (file
, _(" -F --linker-flags <flags> Pass <flags> to the linker.\n"));
3968 if (REPORT_BUGS_TO
[0] && status
== 0)
3969 fprintf (file
, _("Report bugs to %s\n"), REPORT_BUGS_TO
);
3973 #define OPTION_EXPORT_ALL_SYMS 150
3974 #define OPTION_NO_EXPORT_ALL_SYMS (OPTION_EXPORT_ALL_SYMS + 1)
3975 #define OPTION_EXCLUDE_SYMS (OPTION_NO_EXPORT_ALL_SYMS + 1)
3976 #define OPTION_NO_DEFAULT_EXCLUDES (OPTION_EXCLUDE_SYMS + 1)
3977 #define OPTION_ADD_STDCALL_UNDERSCORE (OPTION_NO_DEFAULT_EXCLUDES + 1)
3978 #define OPTION_USE_NUL_PREFIXED_IMPORT_TABLES \
3979 (OPTION_ADD_STDCALL_UNDERSCORE + 1)
3980 #define OPTION_IDENTIFY_STRICT (OPTION_USE_NUL_PREFIXED_IMPORT_TABLES + 1)
3981 #define OPTION_NO_LEADING_UNDERSCORE (OPTION_IDENTIFY_STRICT + 1)
3982 #define OPTION_LEADING_UNDERSCORE (OPTION_NO_LEADING_UNDERSCORE + 1)
3984 static const struct option long_options
[] =
3986 {"no-delete", no_argument
, NULL
, 'n'},
3987 {"dllname", required_argument
, NULL
, 'D'},
3988 {"no-idata4", no_argument
, NULL
, 'x'},
3989 {"no-idata5", no_argument
, NULL
, 'c'},
3990 {"use-nul-prefixed-import-tables", no_argument
, NULL
,
3991 OPTION_USE_NUL_PREFIXED_IMPORT_TABLES
},
3992 {"output-exp", required_argument
, NULL
, 'e'},
3993 {"output-def", required_argument
, NULL
, 'z'},
3994 {"export-all-symbols", no_argument
, NULL
, OPTION_EXPORT_ALL_SYMS
},
3995 {"no-export-all-symbols", no_argument
, NULL
, OPTION_NO_EXPORT_ALL_SYMS
},
3996 {"exclude-symbols", required_argument
, NULL
, OPTION_EXCLUDE_SYMS
},
3997 {"no-default-excludes", no_argument
, NULL
, OPTION_NO_DEFAULT_EXCLUDES
},
3998 {"output-lib", required_argument
, NULL
, 'l'},
3999 {"def", required_argument
, NULL
, 'd'}, /* for compatibility with older versions */
4000 {"input-def", required_argument
, NULL
, 'd'},
4001 {"add-underscore", no_argument
, NULL
, 'U'},
4002 {"add-stdcall-underscore", no_argument
, NULL
, OPTION_ADD_STDCALL_UNDERSCORE
},
4003 {"no-leading-underscore", no_argument
, NULL
, OPTION_NO_LEADING_UNDERSCORE
},
4004 {"leading-underscore", no_argument
, NULL
, OPTION_LEADING_UNDERSCORE
},
4005 {"kill-at", no_argument
, NULL
, 'k'},
4006 {"add-stdcall-alias", no_argument
, NULL
, 'A'},
4007 {"ext-prefix-alias", required_argument
, NULL
, 'p'},
4008 {"identify", required_argument
, NULL
, 'I'},
4009 {"identify-strict", no_argument
, NULL
, OPTION_IDENTIFY_STRICT
},
4010 {"verbose", no_argument
, NULL
, 'v'},
4011 {"version", no_argument
, NULL
, 'V'},
4012 {"help", no_argument
, NULL
, 'h'},
4013 {"machine", required_argument
, NULL
, 'm'},
4014 {"add-indirect", no_argument
, NULL
, 'a'},
4015 {"base-file", required_argument
, NULL
, 'b'},
4016 {"as", required_argument
, NULL
, 'S'},
4017 {"as-flags", required_argument
, NULL
, 'f'},
4018 {"mcore-elf", required_argument
, NULL
, 'M'},
4019 {"compat-implib", no_argument
, NULL
, 'C'},
4020 {"temp-prefix", required_argument
, NULL
, 't'},
4021 {"output-delaylib", required_argument
, NULL
, 'y'},
4025 int main (int, char **);
4028 main (int ac
, char **av
)
4033 program_name
= av
[0];
4036 #if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
4037 setlocale (LC_MESSAGES
, "");
4039 #if defined (HAVE_SETLOCALE)
4040 setlocale (LC_CTYPE
, "");
4042 bindtextdomain (PACKAGE
, LOCALEDIR
);
4043 textdomain (PACKAGE
);
4045 expandargv (&ac
, &av
);
4047 while ((c
= getopt_long (ac
, av
,
4048 #ifdef DLLTOOL_MCORE_ELF
4049 "m:e:l:aD:d:z:b:xp:cCuUkAS:f:nI:vVHhM:L:F:",
4051 "m:e:l:y:aD:d:z:b:xp:cCuUkAS:f:nI:vVHh",
4058 case OPTION_EXPORT_ALL_SYMS
:
4059 export_all_symbols
= TRUE
;
4061 case OPTION_NO_EXPORT_ALL_SYMS
:
4062 export_all_symbols
= FALSE
;
4064 case OPTION_EXCLUDE_SYMS
:
4065 add_excludes (optarg
);
4067 case OPTION_NO_DEFAULT_EXCLUDES
:
4068 do_default_excludes
= FALSE
;
4070 case OPTION_USE_NUL_PREFIXED_IMPORT_TABLES
:
4071 use_nul_prefixed_import_tables
= TRUE
;
4073 case OPTION_ADD_STDCALL_UNDERSCORE
:
4074 add_stdcall_underscore
= 1;
4076 case OPTION_NO_LEADING_UNDERSCORE
:
4077 leading_underscore
= 0;
4079 case OPTION_LEADING_UNDERSCORE
:
4080 leading_underscore
= 1;
4082 case OPTION_IDENTIFY_STRICT
:
4083 identify_strict
= 1;
4095 tmp_prefix
= optarg
;
4101 /* Ignored for compatibility. */
4108 output_def
= fopen (optarg
, FOPEN_WT
);
4111 dll_name
= (char*) lbasename (optarg
);
4112 if (dll_name
!= optarg
)
4113 non_fatal (_("Path components stripped from dllname, '%s'."),
4130 identify_imp_name
= optarg
;
4136 print_version (program_name
);
4145 add_stdcall_alias
= 1;
4148 ext_prefix_alias
= optarg
;
4157 base_file
= fopen (optarg
, FOPEN_RB
);
4160 /* xgettext:c-format */
4161 fatal (_("Unable to open base-file: %s"), optarg
);
4164 #ifdef DLLTOOL_MCORE_ELF
4166 mcore_elf_out_file
= optarg
;
4169 mcore_elf_linker
= optarg
;
4172 mcore_elf_linker_flags
= optarg
;
4176 create_compat_implib
= 1;
4179 delayimp_name
= optarg
;
4188 tmp_prefix
= prefix_encode ("d", getpid ());
4190 for (i
= 0; mtable
[i
].type
; i
++)
4191 if (strcmp (mtable
[i
].type
, mname
) == 0)
4194 if (!mtable
[i
].type
)
4195 /* xgettext:c-format */
4196 fatal (_("Machine '%s' not supported"), mname
);
4200 /* Check if we generated PE+. */
4201 create_for_pep
= strcmp (mname
, "i386:x86-64") == 0;
4204 /* Check the default underscore */
4205 int u
= leading_underscore
; /* Underscoring mode. -1 for use default. */
4207 bfd_get_target_info (mtable
[machine
].how_bfd_target
, NULL
,
4210 leading_underscore
= (u
!= 0 ? TRUE
: FALSE
);
4213 if (!dll_name
&& exp_name
)
4215 /* If we are inferring dll_name from exp_name,
4216 strip off any path components, without emitting
4218 const char* exp_basename
= lbasename (exp_name
);
4219 const int len
= strlen (exp_basename
) + 5;
4220 dll_name
= xmalloc (len
);
4221 strcpy (dll_name
, exp_basename
);
4222 strcat (dll_name
, ".dll");
4223 dll_name_set_by_exp_name
= 1;
4226 if (as_name
== NULL
)
4227 as_name
= deduce_name ("as");
4229 /* Don't use the default exclude list if we're reading only the
4230 symbols in the .drectve section. The default excludes are meant
4231 to avoid exporting DLL entry point and Cygwin32 impure_ptr. */
4232 if (! export_all_symbols
)
4233 do_default_excludes
= FALSE
;
4235 if (do_default_excludes
)
4236 set_default_excludes ();
4239 process_def_file (def_file
);
4244 firstarg
= av
[optind
];
4245 scan_obj_file (av
[optind
]);
4256 /* Make imp_name safe for use as a label. */
4259 imp_name_lab
= xstrdup (imp_name
);
4260 for (p
= imp_name_lab
; *p
; p
++)
4265 head_label
= make_label("_head_", imp_name_lab
);
4271 /* Make delayimp_name safe for use as a label. */
4274 if (mtable
[machine
].how_dljtab
== 0)
4276 inform (_("Warning, machine type (%d) not supported for "
4277 "delayimport."), machine
);
4282 imp_name
= delayimp_name
;
4283 imp_name_lab
= xstrdup (imp_name
);
4284 for (p
= imp_name_lab
; *p
; p
++)
4289 head_label
= make_label("__tailMerge_", imp_name_lab
);
4297 if (identify_imp_name
)
4299 identify_dll_for_implib ();
4302 #ifdef DLLTOOL_MCORE_ELF
4303 if (mcore_elf_out_file
)
4304 mcore_elf_gen_out_file ();
4310 /* Look for the program formed by concatenating PROG_NAME and the
4311 string running from PREFIX to END_PREFIX. If the concatenated
4312 string contains a '/', try appending EXECUTABLE_SUFFIX if it is
4316 look_for_prog (const char *prog_name
, const char *prefix
, int end_prefix
)
4321 cmd
= xmalloc (strlen (prefix
)
4322 + strlen (prog_name
)
4323 #ifdef HAVE_EXECUTABLE_SUFFIX
4324 + strlen (EXECUTABLE_SUFFIX
)
4327 strcpy (cmd
, prefix
);
4329 sprintf (cmd
+ end_prefix
, "%s", prog_name
);
4331 if (strchr (cmd
, '/') != NULL
)
4335 found
= (stat (cmd
, &s
) == 0
4336 #ifdef HAVE_EXECUTABLE_SUFFIX
4337 || stat (strcat (cmd
, EXECUTABLE_SUFFIX
), &s
) == 0
4343 /* xgettext:c-format */
4344 inform (_("Tried file: %s"), cmd
);
4350 /* xgettext:c-format */
4351 inform (_("Using file: %s"), cmd
);
4356 /* Deduce the name of the program we are want to invoke.
4357 PROG_NAME is the basic name of the program we want to run,
4358 eg "as" or "ld". The catch is that we might want actually
4359 run "i386-pe-as" or "ppc-pe-ld".
4361 If argv[0] contains the full path, then try to find the program
4362 in the same place, with and then without a target-like prefix.
4364 Given, argv[0] = /usr/local/bin/i586-cygwin32-dlltool,
4365 deduce_name("as") uses the following search order:
4367 /usr/local/bin/i586-cygwin32-as
4371 If there's an EXECUTABLE_SUFFIX, it'll use that as well; for each
4372 name, it'll try without and then with EXECUTABLE_SUFFIX.
4374 Given, argv[0] = i586-cygwin32-dlltool, it will not even try "as"
4375 as the fallback, but rather return i586-cygwin32-as.
4377 Oh, and given, argv[0] = dlltool, it'll return "as".
4379 Returns a dynamically allocated string. */
4382 deduce_name (const char *prog_name
)
4385 char *dash
, *slash
, *cp
;
4389 for (cp
= program_name
; *cp
!= '\0'; ++cp
)
4394 #if defined(__DJGPP__) || defined (__CYGWIN__) || defined(__WIN32__)
4395 *cp
== ':' || *cp
== '\\' ||
4408 /* First, try looking for a prefixed PROG_NAME in the
4409 PROGRAM_NAME directory, with the same prefix as PROGRAM_NAME. */
4410 cmd
= look_for_prog (prog_name
, program_name
, dash
- program_name
+ 1);
4413 if (slash
!= NULL
&& cmd
== NULL
)
4415 /* Next, try looking for a PROG_NAME in the same directory as
4416 that of this program. */
4417 cmd
= look_for_prog (prog_name
, program_name
, slash
- program_name
+ 1);
4422 /* Just return PROG_NAME as is. */
4423 cmd
= xstrdup (prog_name
);
4429 #ifdef DLLTOOL_MCORE_ELF
4430 typedef struct fname_cache
4432 const char * filename
;
4433 struct fname_cache
* next
;
4437 static fname_cache fnames
;
4440 mcore_elf_cache_filename (const char * filename
)
4446 while (ptr
->next
!= NULL
)
4449 ptr
->filename
= filename
;
4450 ptr
->next
= (fname_cache
*) malloc (sizeof (fname_cache
));
4451 if (ptr
->next
!= NULL
)
4452 ptr
->next
->next
= NULL
;
4455 #define MCORE_ELF_TMP_OBJ "mcoreelf.o"
4456 #define MCORE_ELF_TMP_EXP "mcoreelf.exp"
4457 #define MCORE_ELF_TMP_LIB "mcoreelf.lib"
4460 mcore_elf_gen_out_file (void)
4465 /* Step one. Run 'ld -r' on the input object files in order to resolve
4466 any internal references and to generate a single .exports section. */
4469 ds
= dyn_string_new (100);
4470 dyn_string_append_cstr (ds
, "-r ");
4472 if (mcore_elf_linker_flags
!= NULL
)
4473 dyn_string_append_cstr (ds
, mcore_elf_linker_flags
);
4475 while (ptr
->next
!= NULL
)
4477 dyn_string_append_cstr (ds
, ptr
->filename
);
4478 dyn_string_append_cstr (ds
, " ");
4483 dyn_string_append_cstr (ds
, "-o ");
4484 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_OBJ
);
4486 if (mcore_elf_linker
== NULL
)
4487 mcore_elf_linker
= deduce_name ("ld");
4489 run (mcore_elf_linker
, ds
->s
);
4491 dyn_string_delete (ds
);
4493 /* Step two. Create a .exp file and a .lib file from the temporary file.
4494 Do this by recursively invoking dlltool... */
4495 ds
= dyn_string_new (100);
4497 dyn_string_append_cstr (ds
, "-S ");
4498 dyn_string_append_cstr (ds
, as_name
);
4500 dyn_string_append_cstr (ds
, " -e ");
4501 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_EXP
);
4502 dyn_string_append_cstr (ds
, " -l ");
4503 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_LIB
);
4504 dyn_string_append_cstr (ds
, " " );
4505 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_OBJ
);
4508 dyn_string_append_cstr (ds
, " -v");
4512 dyn_string_append_cstr (ds
, " -n");
4514 if (dontdeltemps
> 1)
4515 dyn_string_append_cstr (ds
, " -n");
4518 /* XXX - FIME: ought to check/copy other command line options as well. */
4519 run (program_name
, ds
->s
);
4521 dyn_string_delete (ds
);
4523 /* Step four. Feed the .exp and object files to ld -shared to create the dll. */
4524 ds
= dyn_string_new (100);
4526 dyn_string_append_cstr (ds
, "-shared ");
4528 if (mcore_elf_linker_flags
)
4529 dyn_string_append_cstr (ds
, mcore_elf_linker_flags
);
4531 dyn_string_append_cstr (ds
, " ");
4532 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_EXP
);
4533 dyn_string_append_cstr (ds
, " ");
4534 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_OBJ
);
4535 dyn_string_append_cstr (ds
, " -o ");
4536 dyn_string_append_cstr (ds
, mcore_elf_out_file
);
4538 run (mcore_elf_linker
, ds
->s
);
4540 dyn_string_delete (ds
);
4542 if (dontdeltemps
== 0)
4543 unlink (MCORE_ELF_TMP_EXP
);
4545 if (dontdeltemps
< 2)
4546 unlink (MCORE_ELF_TMP_OBJ
);
4548 #endif /* DLLTOOL_MCORE_ELF */