1 /* dlltool.c -- tool to generate stuff for PE style DLLs
2 Copyright (C) 1995-2019 Free Software Foundation, Inc.
4 This file is part of GNU Binutils.
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 3 of the License, or
9 (at your option) any later version.
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
22 /* This program allows you to build the files necessary to create
23 DLLs to run on a system which understands PE format image files.
26 See "Peering Inside the PE: A Tour of the Win32 Portable Executable
27 File Format", MSJ 1994, Volume 9 for more information.
28 Also see "Microsoft Portable Executable and Common Object File Format,
29 Specification 4.1" for more information.
31 A DLL contains an export table which contains the information
32 which the runtime loader needs to tie up references from a
35 The export table is generated by this program by reading
36 in a .DEF file or scanning the .a and .o files which will be in the
37 DLL. A .o file can contain information in special ".drectve" sections
38 with export information.
40 A DEF file contains any number of the following commands:
43 NAME <name> [ , <base> ]
44 The result is going to be <name>.EXE
46 LIBRARY <name> [ , <base> ]
47 The result is going to be <name>.DLL
49 EXPORTS ( ( ( <name1> [ = <name2> ] )
50 | ( <name1> = <module-name> . <external-name>))
51 [ @ <integer> ] [ NONAME ] [CONSTANT] [DATA] [PRIVATE] ) *
52 Declares name1 as an exported symbol from the
53 DLL, with optional ordinal number <integer>.
54 Or declares name1 as an alias (forward) of the function <external-name>
55 in the DLL <module-name>.
57 IMPORTS ( ( <internal-name> = <module-name> . <integer> )
58 | ( [ <internal-name> = ] <module-name> . <external-name> )) *
59 Declares that <external-name> or the exported function whose ordinal number
60 is <integer> is to be imported from the file <module-name>. If
61 <internal-name> is specified then this is the name that the imported
62 function will be refereed to in the body of the DLL.
65 Puts <string> into output .exp file in the .rdata section
67 [STACKSIZE|HEAPSIZE] <number-reserve> [ , <number-commit> ]
68 Generates --stack|--heap <number-reserve>,<number-commit>
69 in the output .drectve section. The linker will
70 see this and act upon it.
73 SECTIONS ( <sectionname> <attr>+ )*
74 <attr> = READ | WRITE | EXECUTE | SHARED
75 Generates --attr <sectionname> <attr> in the output
76 .drectve section. The linker will see this and act
80 A -export:<name> in a .drectve section in an input .o or .a
81 file to this program is equivalent to a EXPORTS <name>
86 The program generates output files with the prefix supplied
87 on the command line, or in the def file, or taken from the first
90 The .exp.s file contains the information necessary to export
91 the routines in the DLL. The .lib.s file contains the information
92 necessary to use the DLL's routines from a referencing program.
99 asm (".section .drectve");
100 asm (".ascii \"-export:adef\"");
104 printf ("hello from the dll %s\n", s);
109 printf ("hello from the dll and the other entry point %s\n", s);
113 asm (".section .drectve");
114 asm (".ascii \"-export:cdef\"");
115 asm (".ascii \"-export:ddef\"");
119 printf ("hello from the dll %s\n", s);
124 printf ("hello from the dll and the other entry point %s\n", s);
142 HEAPSIZE 0x40000, 0x2000
146 SECTIONS donkey READ WRITE
149 # Compile up the parts of the dll and the program
151 gcc -c file1.c file2.c themain.c
153 # Optional: put the dll objects into a library
154 # (you don't have to, you could name all the object
155 # files on the dlltool line)
157 ar qcv thedll.in file1.o file2.o
160 # Run this tool over the DLL's .def file and generate an exports
161 # file (thedll.o) and an imports file (thedll.a).
162 # (You may have to use -S to tell dlltool where to find the assembler).
164 dlltool --def thedll.def --output-exp thedll.o --output-lib thedll.a
166 # Build the dll with the library and the export table
168 ld -o thedll.dll thedll.o thedll.in
170 # Link the executable with the import library
172 gcc -o themain.exe themain.o thedll.a
174 This example can be extended if relocations are needed in the DLL:
176 # Compile up the parts of the dll and the program
178 gcc -c file1.c file2.c themain.c
180 # Run this tool over the DLL's .def file and generate an imports file.
182 dlltool --def thedll.def --output-lib thedll.lib
184 # Link the executable with the import library and generate a base file
187 gcc -o themain.exe themain.o thedll.lib -Wl,--base-file -Wl,themain.base
189 # Run this tool over the DLL's .def file and generate an exports file
190 # which includes the relocations from the base file.
192 dlltool --def thedll.def --base-file themain.base --output-exp thedll.exp
194 # Build the dll with file1.o, file2.o and the export table
196 ld -o thedll.dll thedll.exp file1.o file2.o */
198 /* .idata section description
200 The .idata section is the import table. It is a collection of several
201 subsections used to keep the pieces for each dll together: .idata$[234567].
202 IE: Each dll's .idata$2's are catenated together, each .idata$3's, etc.
204 .idata$2 = Import Directory Table
205 = array of IMAGE_IMPORT_DESCRIPTOR's.
207 DWORD Import Lookup Table; - pointer to .idata$4
208 DWORD TimeDateStamp; - currently always 0
209 DWORD ForwarderChain; - currently always 0
210 DWORD Name; - pointer to dll's name
211 PIMAGE_THUNK_DATA FirstThunk; - pointer to .idata$5
213 .idata$3 = null terminating entry for .idata$2.
215 .idata$4 = Import Lookup Table
216 = array of array of pointers to hint name table.
217 There is one for each dll being imported from, and each dll's set is
218 terminated by a trailing NULL.
220 .idata$5 = Import Address Table
221 = array of array of pointers to hint name table.
222 There is one for each dll being imported from, and each dll's set is
223 terminated by a trailing NULL.
224 Initially, this table is identical to the Import Lookup Table. However,
225 at load time, the loader overwrites the entries with the address of the
228 .idata$6 = Hint Name Table
229 = Array of { short, asciz } entries, one for each imported function.
230 The `short' is the function's ordinal number.
232 .idata$7 = dll name (eg: "kernel32.dll"). (.idata$6 for ppc). */
236 #include "libiberty.h"
238 #include "demangle.h"
239 #include "dyn-string.h"
242 #include "safe-ctype.h"
243 #include "coff-bfd.h"
249 #include "coff/arm.h"
250 #include "coff/internal.h"
252 #ifdef DLLTOOL_DEFAULT_MX86_64
253 #include "coff/x86_64.h"
255 #ifdef DLLTOOL_DEFAULT_I386
256 #include "coff/i386.h"
259 #ifndef COFF_PAGE_SIZE
260 #define COFF_PAGE_SIZE ((bfd_vma) 4096)
264 #define PAGE_MASK ((bfd_vma) (- COFF_PAGE_SIZE))
267 /* Get current BFD error message. */
268 #define bfd_get_errmsg() (bfd_errmsg (bfd_get_error ()))
270 /* Forward references. */
271 static char *look_for_prog (const char *, const char *, int);
272 static char *deduce_name (const char *);
274 #ifdef DLLTOOL_MCORE_ELF
275 static void mcore_elf_cache_filename (const char *);
276 static void mcore_elf_gen_out_file (void);
279 #ifdef HAVE_SYS_WAIT_H
280 #include <sys/wait.h>
281 #else /* ! HAVE_SYS_WAIT_H */
282 #if ! defined (_WIN32) || defined (__CYGWIN32__)
284 #define WIFEXITED(w) (((w) & 0377) == 0)
287 #define WIFSIGNALED(w) (((w) & 0377) != 0177 && ((w) & ~0377) == 0)
290 #define WTERMSIG(w) ((w) & 0177)
293 #define WEXITSTATUS(w) (((w) >> 8) & 0377)
295 #else /* defined (_WIN32) && ! defined (__CYGWIN32__) */
297 #define WIFEXITED(w) (((w) & 0xff) == 0)
300 #define WIFSIGNALED(w) (((w) & 0xff) != 0 && ((w) & 0xff) != 0x7f)
303 #define WTERMSIG(w) ((w) & 0x7f)
306 #define WEXITSTATUS(w) (((w) & 0xff00) >> 8)
308 #endif /* defined (_WIN32) && ! defined (__CYGWIN32__) */
309 #endif /* ! HAVE_SYS_WAIT_H */
311 #define show_allnames 0
313 /* ifunc and ihead data structures: ttk@cygnus.com 1997
315 When IMPORT declarations are encountered in a .def file the
316 function import information is stored in a structure referenced by
317 the global variable IMPORT_LIST. The structure is a linked list
318 containing the names of the dll files each function is imported
319 from and a linked list of functions being imported from that dll
320 file. This roughly parallels the structure of the .idata section
321 in the PE object file.
323 The contents of .def file are interpreted from within the
324 process_def_file function. Every time an IMPORT declaration is
325 encountered, it is broken up into its component parts and passed to
326 def_import. IMPORT_LIST is initialized to NULL in function main. */
328 typedef struct ifunct
330 char * name
; /* Name of function being imported. */
331 char * its_name
; /* Optional import table symbol name. */
332 int ord
; /* Two-byte ordinal value associated with function. */
336 typedef struct iheadt
338 char * dllname
; /* Name of dll file imported from. */
339 long nfuncs
; /* Number of functions in list. */
340 struct ifunct
*funchead
; /* First function in list. */
341 struct ifunct
*functail
; /* Last function in list. */
342 struct iheadt
*next
; /* Next dll file in list. */
345 /* Structure containing all import information as defined in .def file
346 (qv "ihead structure"). */
348 static iheadtype
*import_list
= NULL
;
349 static char *as_name
= NULL
;
350 static char * as_flags
= "";
351 static char *tmp_prefix
;
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_WINCE
441 static const char *mname
= "arm-wince";
444 #ifdef DLLTOOL_DEFAULT_I386
445 static const char *mname
= "i386";
448 #ifdef DLLTOOL_DEFAULT_MX86_64
449 static const char *mname
= "i386:x86-64";
452 #ifdef DLLTOOL_DEFAULT_PPC
453 static const char *mname
= "ppc";
456 #ifdef DLLTOOL_DEFAULT_SH
457 static const char *mname
= "sh";
460 #ifdef DLLTOOL_DEFAULT_MIPS
461 static const char *mname
= "mips";
464 #ifdef DLLTOOL_DEFAULT_MCORE
465 static const char * mname
= "mcore-le";
468 #ifdef DLLTOOL_DEFAULT_MCORE_ELF
469 static const char * mname
= "mcore-elf";
470 static char * mcore_elf_out_file
= NULL
;
471 static char * mcore_elf_linker
= NULL
;
472 static char * mcore_elf_linker_flags
= NULL
;
474 #define DRECTVE_SECTION_NAME ((machine == MMCORE_ELF || machine == MMCORE_ELF_LE) ? ".exports" : ".drectve")
477 #ifndef DRECTVE_SECTION_NAME
478 #define DRECTVE_SECTION_NAME ".drectve"
481 /* What's the right name for this ? */
484 /* External name alias numbering starts here. */
485 #define PREFIX_ALIAS_BASE 20000
488 char *tmp_head_s_buf
;
489 char *tmp_head_o_buf
;
490 char *tmp_tail_s_buf
;
491 char *tmp_tail_o_buf
;
494 #define TMP_ASM dlltmp (&tmp_asm_buf, "%sc.s")
495 #define TMP_HEAD_S dlltmp (&tmp_head_s_buf, "%sh.s")
496 #define TMP_HEAD_O dlltmp (&tmp_head_o_buf, "%sh.o")
497 #define TMP_TAIL_S dlltmp (&tmp_tail_s_buf, "%st.s")
498 #define TMP_TAIL_O dlltmp (&tmp_tail_o_buf, "%st.o")
499 #define TMP_STUB dlltmp (&tmp_stub_buf, "%ss")
501 /* This bit of assembly does jmp * .... */
502 static const unsigned char i386_jtab
[] =
504 0xff, 0x25, 0x00, 0x00, 0x00, 0x00, 0x90, 0x90
507 static const unsigned char i386_dljtab
[] =
509 0xFF, 0x25, 0x00, 0x00, 0x00, 0x00, /* jmp __imp__function */
510 0xB8, 0x00, 0x00, 0x00, 0x00, /* mov eax, offset __imp__function */
511 0xE9, 0x00, 0x00, 0x00, 0x00 /* jmp __tailMerge__dllname */
514 static const unsigned char i386_x64_dljtab
[] =
516 0xFF, 0x25, 0x00, 0x00, 0x00, 0x00, /* jmp __imp__function */
517 0x48, 0x8d, 0x05, /* leaq rax, (__imp__function) */
518 0x00, 0x00, 0x00, 0x00,
519 0xE9, 0x00, 0x00, 0x00, 0x00 /* jmp __tailMerge__dllname */
522 static const unsigned char arm_jtab
[] =
524 0x00, 0xc0, 0x9f, 0xe5, /* ldr ip, [pc] */
525 0x00, 0xf0, 0x9c, 0xe5, /* ldr pc, [ip] */
529 static const unsigned char arm_interwork_jtab
[] =
531 0x04, 0xc0, 0x9f, 0xe5, /* ldr ip, [pc] */
532 0x00, 0xc0, 0x9c, 0xe5, /* ldr ip, [ip] */
533 0x1c, 0xff, 0x2f, 0xe1, /* bx ip */
537 static const unsigned char thumb_jtab
[] =
539 0x40, 0xb4, /* push {r6} */
540 0x02, 0x4e, /* ldr r6, [pc, #8] */
541 0x36, 0x68, /* ldr r6, [r6] */
542 0xb4, 0x46, /* mov ip, r6 */
543 0x40, 0xbc, /* pop {r6} */
544 0x60, 0x47, /* bx ip */
548 static const unsigned char mcore_be_jtab
[] =
550 0x71, 0x02, /* lrw r1,2 */
551 0x81, 0x01, /* ld.w r1,(r1,0) */
552 0x00, 0xC1, /* jmp r1 */
553 0x12, 0x00, /* nop */
554 0x00, 0x00, 0x00, 0x00 /* <address> */
557 static const unsigned char mcore_le_jtab
[] =
559 0x02, 0x71, /* lrw r1,2 */
560 0x01, 0x81, /* ld.w r1,(r1,0) */
561 0xC1, 0x00, /* jmp r1 */
562 0x00, 0x12, /* nop */
563 0x00, 0x00, 0x00, 0x00 /* <address> */
566 /* This is the glue sequence for PowerPC PE. There is a
567 tocrel16-tocdefn reloc against the first instruction.
568 We also need a IMGLUE reloc against the glue function
569 to restore the toc saved by the third instruction in
571 static const unsigned char ppc_jtab
[] =
573 0x00, 0x00, 0x62, 0x81, /* lwz r11,0(r2) */
574 /* Reloc TOCREL16 __imp_xxx */
575 0x00, 0x00, 0x8B, 0x81, /* lwz r12,0(r11) */
576 0x04, 0x00, 0x41, 0x90, /* stw r2,4(r1) */
577 0xA6, 0x03, 0x89, 0x7D, /* mtctr r12 */
578 0x04, 0x00, 0x4B, 0x80, /* lwz r2,4(r11) */
579 0x20, 0x04, 0x80, 0x4E /* bctr */
583 /* The glue instruction, picks up the toc from the stw in
584 the above code: "lwz r2,4(r1)". */
585 static bfd_vma ppc_glue_insn
= 0x80410004;
588 static const char i386_trampoline
[] =
592 "\tpushl $__DELAY_IMPORT_DESCRIPTOR_%s\n"
593 "\tcall ___delayLoadHelper2@8\n"
598 static const char i386_x64_trampoline
[] =
603 "\tsubq $40, %%rsp\n"
604 "\tmovq %%rax, %%rdx\n"
605 "\tleaq __DELAY_IMPORT_DESCRIPTOR_%s(%%rip), %%rcx\n"
606 "\tcall __delayLoadHelper2\n"
607 "\taddq $40, %%rsp\n"
617 const char *how_byte
;
618 const char *how_short
;
619 const char *how_long
;
620 const char *how_asciz
;
621 const char *how_comment
;
622 const char *how_jump
;
623 const char *how_global
;
624 const char *how_space
;
625 const char *how_align_short
;
626 const char *how_align_long
;
627 const char *how_default_as_switches
;
628 const char *how_bfd_target
;
629 enum bfd_architecture how_bfd_arch
;
630 const unsigned char *how_jtab
;
631 int how_jtab_size
; /* Size of the jtab entry. */
632 int how_jtab_roff
; /* Offset into it for the ind 32 reloc into idata 5. */
633 const unsigned char *how_dljtab
;
634 int how_dljtab_size
; /* Size of the dljtab entry. */
635 int how_dljtab_roff1
; /* Offset for the ind 32 reloc into idata 5. */
636 int how_dljtab_roff2
; /* Offset for the ind 32 reloc into idata 5. */
637 int how_dljtab_roff3
; /* Offset for the ind 32 reloc into idata 5. */
638 const char *trampoline
;
641 static const struct mac
646 "arm", ".byte", ".short", ".long", ".asciz", "@",
647 "ldr\tip,[pc]\n\tldr\tpc,[ip]\n\t.long",
648 ".global", ".space", ".align\t2",".align\t4", "-mapcs-32",
649 "pe-arm-little", bfd_arch_arm
,
650 arm_jtab
, sizeof (arm_jtab
), 8,
656 "i386", ".byte", ".short", ".long", ".asciz", "#",
657 "jmp *", ".global", ".space", ".align\t2",".align\t4", "",
658 "pe-i386",bfd_arch_i386
,
659 i386_jtab
, sizeof (i386_jtab
), 2,
660 i386_dljtab
, sizeof (i386_dljtab
), 2, 7, 12, i386_trampoline
665 "ppc", ".byte", ".short", ".long", ".asciz", "#",
666 "jmp *", ".global", ".space", ".align\t2",".align\t4", "",
667 "pe-powerpcle",bfd_arch_powerpc
,
668 ppc_jtab
, sizeof (ppc_jtab
), 0,
674 "thumb", ".byte", ".short", ".long", ".asciz", "@",
675 "push\t{r6}\n\tldr\tr6, [pc, #8]\n\tldr\tr6, [r6]\n\tmov\tip, r6\n\tpop\t{r6}\n\tbx\tip",
676 ".global", ".space", ".align\t2",".align\t4", "-mthumb-interwork",
677 "pe-arm-little", bfd_arch_arm
,
678 thumb_jtab
, sizeof (thumb_jtab
), 12,
682 #define MARM_INTERWORK 4
684 "arm_interwork", ".byte", ".short", ".long", ".asciz", "@",
685 "ldr\tip,[pc]\n\tldr\tip,[ip]\n\tbx\tip\n\t.long",
686 ".global", ".space", ".align\t2",".align\t4", "-mthumb-interwork",
687 "pe-arm-little", bfd_arch_arm
,
688 arm_interwork_jtab
, sizeof (arm_interwork_jtab
), 12,
694 "mcore-be", ".byte", ".short", ".long", ".asciz", "//",
695 "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
696 ".global", ".space", ".align\t2",".align\t4", "",
697 "pe-mcore-big", bfd_arch_mcore
,
698 mcore_be_jtab
, sizeof (mcore_be_jtab
), 8,
704 "mcore-le", ".byte", ".short", ".long", ".asciz", "//",
705 "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
706 ".global", ".space", ".align\t2",".align\t4", "-EL",
707 "pe-mcore-little", bfd_arch_mcore
,
708 mcore_le_jtab
, sizeof (mcore_le_jtab
), 8,
714 "mcore-elf-be", ".byte", ".short", ".long", ".asciz", "//",
715 "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
716 ".global", ".space", ".align\t2",".align\t4", "",
717 "elf32-mcore-big", bfd_arch_mcore
,
718 mcore_be_jtab
, sizeof (mcore_be_jtab
), 8,
723 #define MMCORE_ELF_LE 8
724 "mcore-elf-le", ".byte", ".short", ".long", ".asciz", "//",
725 "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
726 ".global", ".space", ".align\t2",".align\t4", "-EL",
727 "elf32-mcore-little", bfd_arch_mcore
,
728 mcore_le_jtab
, sizeof (mcore_le_jtab
), 8,
734 "arm-wince", ".byte", ".short", ".long", ".asciz", "@",
735 "ldr\tip,[pc]\n\tldr\tpc,[ip]\n\t.long",
736 ".global", ".space", ".align\t2",".align\t4", "-mapcs-32",
737 "pe-arm-wince-little", bfd_arch_arm
,
738 arm_jtab
, sizeof (arm_jtab
), 8,
744 "i386:x86-64", ".byte", ".short", ".long", ".asciz", "#",
745 "jmp *", ".global", ".space", ".align\t2",".align\t4", "",
746 "pe-x86-64",bfd_arch_i386
,
747 i386_jtab
, sizeof (i386_jtab
), 2,
748 i386_x64_dljtab
, sizeof (i386_x64_dljtab
), 2, 9, 14, i386_x64_trampoline
751 { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }
761 typedef struct export
764 const char *internal_name
;
765 const char *import_name
;
766 const char *its_name
;
769 int noname
; /* Don't put name in image file. */
770 int private; /* Don't put reference in import lib. */
772 int forward
; /* Number of forward label, 0 means no forward. */
777 /* A list of symbols which we should not export. */
781 struct string_list
*next
;
785 static struct string_list
*excludes
;
787 static const char *rvaafter (int);
788 static const char *rvabefore (int);
789 static const char *asm_prefix (int, const char *);
790 static void process_def_file (const char *);
791 static void new_directive (char *);
792 static void append_import (const char *, const char *, int, const char *);
793 static void run (const char *, char *);
794 static void scan_drectve_symbols (bfd
*);
795 static void scan_filtered_symbols (bfd
*, void *, long, unsigned int);
796 static void add_excludes (const char *);
797 static bfd_boolean
match_exclude (const char *);
798 static void set_default_excludes (void);
799 static long filter_symbols (bfd
*, void *, long, unsigned int);
800 static void scan_all_symbols (bfd
*);
801 static void scan_open_obj_file (bfd
*);
802 static void scan_obj_file (const char *);
803 static void dump_def_info (FILE *);
804 static int sfunc (const void *, const void *);
805 static void flush_page (FILE *, bfd_vma
*, bfd_vma
, int);
806 static void gen_def_file (void);
807 static void generate_idata_ofile (FILE *);
808 static void assemble_file (const char *, const char *);
809 static void gen_exp_file (void);
810 static const char *xlate (const char *);
811 static char *make_label (const char *, const char *);
812 static char *make_imp_label (const char *, const char *);
813 static bfd
*make_one_lib_file (export_type
*, int, int);
814 static bfd
*make_head (void);
815 static bfd
*make_tail (void);
816 static bfd
*make_delay_head (void);
817 static void gen_lib_file (int);
818 static void dll_name_list_append (dll_name_list_type
*, bfd_byte
*);
819 static int dll_name_list_count (dll_name_list_type
*);
820 static void dll_name_list_print (dll_name_list_type
*);
821 static void dll_name_list_free_contents (dll_name_list_node_type
*);
822 static void dll_name_list_free (dll_name_list_type
*);
823 static dll_name_list_type
* dll_name_list_create (void);
824 static void identify_dll_for_implib (void);
825 static void identify_search_archive
826 (bfd
*, void (*) (bfd
*, bfd
*, void *), void *);
827 static void identify_search_member (bfd
*, bfd
*, void *);
828 static bfd_boolean
identify_process_section_p (asection
*, bfd_boolean
);
829 static void identify_search_section (bfd
*, asection
*, void *);
830 static void identify_member_contains_symname (bfd
*, bfd
*, void *);
832 static int pfunc (const void *, const void *);
833 static int nfunc (const void *, const void *);
834 static void remove_null_names (export_type
**);
835 static void process_duplicates (export_type
**);
836 static void fill_ordinals (export_type
**);
837 static void mangle_defs (void);
838 static void usage (FILE *, int);
839 static void inform (const char *, ...) ATTRIBUTE_PRINTF_1
;
840 static void set_dll_name_from_def (const char *name
, char is_dll
);
843 prefix_encode (char *start
, unsigned code
)
845 static char alpha
[26] = "abcdefghijklmnopqrstuvwxyz";
849 p
= strchr (buf
, '\0');
851 *p
++ = alpha
[code
% sizeof (alpha
)];
852 while ((code
/= sizeof (alpha
)) != 0);
858 dlltmp (char **buf
, const char *fmt
)
862 *buf
= malloc (strlen (tmp_prefix
) + 64);
863 sprintf (*buf
, fmt
, tmp_prefix
);
869 inform (const char * message
, ...)
873 va_start (args
, message
);
878 report (message
, args
);
901 /* xgettext:c-format */
902 fatal (_("Internal error: Unknown machine type: %d"), mach
);
926 /* xgettext:c-format */
927 fatal (_("Internal error: Unknown machine type: %d"), mach
);
934 asm_prefix (int mach
, const char *name
)
950 /* Symbol names starting with ? do not have a leading underscore. */
951 if ((name
&& *name
== '?') || leading_underscore
== 0)
956 /* xgettext:c-format */
957 fatal (_("Internal error: Unknown machine type: %d"), mach
);
963 #define ASM_BYTE mtable[machine].how_byte
964 #define ASM_SHORT mtable[machine].how_short
965 #define ASM_LONG mtable[machine].how_long
966 #define ASM_TEXT mtable[machine].how_asciz
967 #define ASM_C mtable[machine].how_comment
968 #define ASM_JUMP mtable[machine].how_jump
969 #define ASM_GLOBAL mtable[machine].how_global
970 #define ASM_SPACE mtable[machine].how_space
971 #define ASM_ALIGN_SHORT mtable[machine].how_align_short
972 #define ASM_RVA_BEFORE rvabefore (machine)
973 #define ASM_RVA_AFTER rvaafter (machine)
974 #define ASM_PREFIX(NAME) asm_prefix (machine, (NAME))
975 #define ASM_ALIGN_LONG mtable[machine].how_align_long
976 #define HOW_BFD_READ_TARGET 0 /* Always default. */
977 #define HOW_BFD_WRITE_TARGET mtable[machine].how_bfd_target
978 #define HOW_BFD_ARCH mtable[machine].how_bfd_arch
979 #define HOW_JTAB (delay ? mtable[machine].how_dljtab \
980 : mtable[machine].how_jtab)
981 #define HOW_JTAB_SIZE (delay ? mtable[machine].how_dljtab_size \
982 : mtable[machine].how_jtab_size)
983 #define HOW_JTAB_ROFF (delay ? mtable[machine].how_dljtab_roff1 \
984 : mtable[machine].how_jtab_roff)
985 #define HOW_JTAB_ROFF2 (delay ? mtable[machine].how_dljtab_roff2 : 0)
986 #define HOW_JTAB_ROFF3 (delay ? mtable[machine].how_dljtab_roff3 : 0)
987 #define ASM_SWITCHES mtable[machine].how_default_as_switches
992 process_def_file (const char *name
)
994 FILE *f
= fopen (name
, FOPEN_RT
);
997 /* xgettext:c-format */
998 fatal (_("Can't open def file: %s"), name
);
1002 /* xgettext:c-format */
1003 inform (_("Processing def file: %s"), name
);
1007 inform (_("Processed def file"));
1010 /**********************************************************************/
1012 /* Communications with the parser. */
1014 static int d_nfuncs
; /* Number of functions exported. */
1015 static int d_named_nfuncs
; /* Number of named functions exported. */
1016 static int d_low_ord
; /* Lowest ordinal index. */
1017 static int d_high_ord
; /* Highest ordinal index. */
1018 static export_type
*d_exports
; /* List of exported functions. */
1019 static export_type
**d_exports_lexically
; /* Vector of exported functions in alpha order. */
1020 static dlist_type
*d_list
; /* Descriptions. */
1021 static dlist_type
*a_list
; /* Stuff to go in directives. */
1022 static int d_nforwards
= 0; /* Number of forwarded exports. */
1024 static int d_is_dll
;
1025 static int d_is_exe
;
1028 yyerror (const char * err ATTRIBUTE_UNUSED
)
1030 /* xgettext:c-format */
1031 non_fatal (_("Syntax error in def file %s:%d"), def_file
, linenumber
);
1037 def_exports (const char *name
, const char *internal_name
, int ordinal
,
1038 int noname
, int constant
, int data
, int private,
1039 const char *its_name
)
1041 struct export
*p
= (struct export
*) xmalloc (sizeof (*p
));
1044 p
->internal_name
= internal_name
? internal_name
: name
;
1045 p
->its_name
= its_name
;
1046 p
->import_name
= name
;
1047 p
->ordinal
= ordinal
;
1048 p
->constant
= constant
;
1050 p
->private = private;
1052 p
->next
= d_exports
;
1056 if ((internal_name
!= NULL
)
1057 && (strchr (internal_name
, '.') != NULL
))
1058 p
->forward
= ++d_nforwards
;
1060 p
->forward
= 0; /* no forward */
1064 set_dll_name_from_def (const char *name
, char is_dll
)
1066 const char *image_basename
= lbasename (name
);
1067 if (image_basename
!= name
)
1068 non_fatal (_("%s: Path components stripped from image name, '%s'."),
1070 /* Append the default suffix, if none specified. */
1071 if (strchr (image_basename
, '.') == 0)
1073 const char * suffix
= is_dll
? ".dll" : ".exe";
1075 dll_name
= xmalloc (strlen (image_basename
) + strlen (suffix
) + 1);
1076 sprintf (dll_name
, "%s%s", image_basename
, suffix
);
1079 dll_name
= xstrdup (image_basename
);
1083 def_name (const char *name
, int base
)
1085 /* xgettext:c-format */
1086 inform (_("NAME: %s base: %x"), name
, base
);
1089 non_fatal (_("Can't have LIBRARY and NAME"));
1091 if (dll_name_set_by_exp_name
&& name
&& *name
!= 0)
1094 dll_name_set_by_exp_name
= 0;
1096 /* If --dllname not provided, use the one in the DEF file.
1097 FIXME: Is this appropriate for executables? */
1099 set_dll_name_from_def (name
, 0);
1104 def_library (const char *name
, int base
)
1106 /* xgettext:c-format */
1107 inform (_("LIBRARY: %s base: %x"), name
, base
);
1110 non_fatal (_("Can't have LIBRARY and NAME"));
1112 if (dll_name_set_by_exp_name
&& name
&& *name
!= 0)
1115 dll_name_set_by_exp_name
= 0;
1118 /* If --dllname not provided, use the one in the DEF file. */
1120 set_dll_name_from_def (name
, 1);
1125 def_description (const char *desc
)
1127 dlist_type
*d
= (dlist_type
*) xmalloc (sizeof (dlist_type
));
1128 d
->text
= xstrdup (desc
);
1134 new_directive (char *dir
)
1136 dlist_type
*d
= (dlist_type
*) xmalloc (sizeof (dlist_type
));
1137 d
->text
= xstrdup (dir
);
1143 def_heapsize (int reserve
, int commit
)
1147 sprintf (b
, "-heap 0x%x,0x%x ", reserve
, commit
);
1149 sprintf (b
, "-heap 0x%x ", reserve
);
1150 new_directive (xstrdup (b
));
1154 def_stacksize (int reserve
, int commit
)
1158 sprintf (b
, "-stack 0x%x,0x%x ", reserve
, commit
);
1160 sprintf (b
, "-stack 0x%x ", reserve
);
1161 new_directive (xstrdup (b
));
1164 /* append_import simply adds the given import definition to the global
1165 import_list. It is used by def_import. */
1168 append_import (const char *symbol_name
, const char *dllname
, int func_ordinal
,
1169 const char *its_name
)
1174 for (pq
= &import_list
; *pq
!= NULL
; pq
= &(*pq
)->next
)
1176 if (strcmp ((*pq
)->dllname
, dllname
) == 0)
1179 q
->functail
->next
= xmalloc (sizeof (ifunctype
));
1180 q
->functail
= q
->functail
->next
;
1181 q
->functail
->ord
= func_ordinal
;
1182 q
->functail
->name
= xstrdup (symbol_name
);
1183 q
->functail
->its_name
= (its_name
? xstrdup (its_name
) : NULL
);
1184 q
->functail
->next
= NULL
;
1190 q
= xmalloc (sizeof (iheadtype
));
1191 q
->dllname
= xstrdup (dllname
);
1193 q
->funchead
= xmalloc (sizeof (ifunctype
));
1194 q
->functail
= q
->funchead
;
1196 q
->functail
->name
= xstrdup (symbol_name
);
1197 q
->functail
->its_name
= (its_name
? xstrdup (its_name
) : NULL
);
1198 q
->functail
->ord
= func_ordinal
;
1199 q
->functail
->next
= NULL
;
1204 /* def_import is called from within defparse.y when an IMPORT
1205 declaration is encountered. Depending on the form of the
1206 declaration, the module name may or may not need ".dll" to be
1207 appended to it, the name of the function may be stored in internal
1208 or entry, and there may or may not be an ordinal value associated
1211 /* A note regarding the parse modes:
1212 In defparse.y we have to accept import declarations which follow
1213 any one of the following forms:
1214 <func_name_in_app> = <dll_name>.<func_name_in_dll>
1215 <func_name_in_app> = <dll_name>.<number>
1216 <dll_name>.<func_name_in_dll>
1218 Furthermore, the dll's name may or may not end with ".dll", which
1219 complicates the parsing a little. Normally the dll's name is
1220 passed to def_import() in the "module" parameter, but when it ends
1221 with ".dll" it gets passed in "module" sans ".dll" and that needs
1224 def_import gets five parameters:
1225 APP_NAME - the name of the function in the application, if
1226 present, or NULL if not present.
1227 MODULE - the name of the dll, possibly sans extension (ie, '.dll').
1228 DLLEXT - the extension of the dll, if present, NULL if not present.
1229 ENTRY - the name of the function in the dll, if present, or NULL.
1230 ORD_VAL - the numerical tag of the function in the dll, if present,
1231 or NULL. Exactly one of <entry> or <ord_val> must be
1232 present (i.e., not NULL). */
1235 def_import (const char *app_name
, const char *module
, const char *dllext
,
1236 const char *entry
, int ord_val
, const char *its_name
)
1238 const char *application_name
;
1242 application_name
= entry
;
1245 if (app_name
!= NULL
)
1246 application_name
= app_name
;
1248 application_name
= "";
1252 module
= buf
= concat (module
, ".", dllext
, NULL
);
1254 append_import (application_name
, module
, ord_val
, its_name
);
1261 def_version (int major
, int minor
)
1263 printf (_("VERSION %d.%d\n"), major
, minor
);
1267 def_section (const char *name
, int attr
)
1282 sprintf (buf
, "-attr %s %s", name
, atts
);
1283 new_directive (xstrdup (buf
));
1290 def_section ("CODE", attr
);
1296 def_section ("DATA", attr
);
1299 /**********************************************************************/
1302 run (const char *what
, char *args
)
1305 int pid
, wait_status
;
1308 char *errmsg_fmt
, *errmsg_arg
;
1309 char *temp_base
= choose_temp_base ();
1311 inform (_("run: %s %s"), what
, args
);
1313 /* Count the args */
1315 for (s
= args
; *s
; s
++)
1319 argv
= xmalloc (sizeof (char *) * (i
+ 3));
1328 while (*s
!= ' ' && *s
!= 0)
1336 pid
= pexecute (argv
[0], (char * const *) argv
, program_name
, temp_base
,
1337 &errmsg_fmt
, &errmsg_arg
, PEXECUTE_ONE
| PEXECUTE_SEARCH
);
1342 inform ("%s", strerror (errno
));
1344 fatal (errmsg_fmt
, errmsg_arg
);
1347 pid
= pwait (pid
, & wait_status
, 0);
1351 /* xgettext:c-format */
1352 fatal (_("wait: %s"), strerror (errno
));
1354 else if (WIFSIGNALED (wait_status
))
1356 /* xgettext:c-format */
1357 fatal (_("subprocess got fatal signal %d"), WTERMSIG (wait_status
));
1359 else if (WIFEXITED (wait_status
))
1361 if (WEXITSTATUS (wait_status
) != 0)
1362 /* xgettext:c-format */
1363 non_fatal (_("%s exited with status %d"),
1364 what
, WEXITSTATUS (wait_status
));
1370 /* Look for a list of symbols to export in the .drectve section of
1371 ABFD. Pass each one to def_exports. */
1374 scan_drectve_symbols (bfd
*abfd
)
1382 /* Look for .drectve's */
1383 s
= bfd_get_section_by_name (abfd
, DRECTVE_SECTION_NAME
);
1388 size
= bfd_section_size (s
);
1389 buf
= xmalloc (size
);
1391 bfd_get_section_contents (abfd
, s
, buf
, 0, size
);
1393 /* xgettext:c-format */
1394 inform (_("Sucking in info from %s section in %s"),
1395 DRECTVE_SECTION_NAME
, bfd_get_filename (abfd
));
1397 /* Search for -export: strings. The exported symbols can optionally
1398 have type tags (eg., -export:foo,data), so handle those as well.
1399 Currently only data tag is supported. */
1405 && CONST_STRNEQ (p
, "-export:"))
1409 flagword flags
= BSF_FUNCTION
;
1412 /* Do we have a quoted export? */
1417 while (p
< e
&& *p
!= '"')
1423 while (p
< e
&& *p
!= ',' && *p
!= ' ' && *p
!= '-')
1426 c
= xmalloc (p
- name
+ 1);
1427 memcpy (c
, name
, p
- name
);
1429 /* Advance over trailing quote. */
1430 if (p
< e
&& *p
== '"')
1432 if (p
< e
&& *p
== ',') /* found type tag. */
1434 char *tag_start
= ++p
;
1435 while (p
< e
&& *p
!= ' ' && *p
!= '-')
1437 if (CONST_STRNEQ (tag_start
, "data"))
1438 flags
&= ~BSF_FUNCTION
;
1441 /* FIXME: The 5th arg is for the `constant' field.
1442 What should it be? Not that it matters since it's not
1443 currently useful. */
1444 def_exports (c
, 0, -1, 0, 0, ! (flags
& BSF_FUNCTION
), 0, NULL
);
1446 if (add_stdcall_alias
&& strchr (c
, '@'))
1448 int lead_at
= (*c
== '@') ;
1449 char *exported_name
= xstrdup (c
+ lead_at
);
1450 char *atsym
= strchr (exported_name
, '@');
1452 /* Note: stdcall alias symbols can never be data. */
1453 def_exports (exported_name
, xstrdup (c
), -1, 0, 0, 0, 0, NULL
);
1462 /* Look through the symbols in MINISYMS, and add each one to list of
1463 symbols to export. */
1466 scan_filtered_symbols (bfd
*abfd
, void *minisyms
, long symcount
,
1470 bfd_byte
*from
, *fromend
;
1472 store
= bfd_make_empty_symbol (abfd
);
1474 bfd_fatal (bfd_get_filename (abfd
));
1476 from
= (bfd_byte
*) minisyms
;
1477 fromend
= from
+ symcount
* size
;
1478 for (; from
< fromend
; from
+= size
)
1481 const char *symbol_name
;
1483 sym
= bfd_minisymbol_to_symbol (abfd
, FALSE
, from
, store
);
1485 bfd_fatal (bfd_get_filename (abfd
));
1487 symbol_name
= bfd_asymbol_name (sym
);
1488 if (bfd_get_symbol_leading_char (abfd
) == symbol_name
[0])
1491 def_exports (xstrdup (symbol_name
) , 0, -1, 0, 0,
1492 ! (sym
->flags
& BSF_FUNCTION
), 0, NULL
);
1494 if (add_stdcall_alias
&& strchr (symbol_name
, '@'))
1496 int lead_at
= (*symbol_name
== '@');
1497 char *exported_name
= xstrdup (symbol_name
+ lead_at
);
1498 char *atsym
= strchr (exported_name
, '@');
1500 /* Note: stdcall alias symbols can never be data. */
1501 def_exports (exported_name
, xstrdup (symbol_name
), -1, 0, 0, 0, 0, NULL
);
1506 /* Add a list of symbols to exclude. */
1509 add_excludes (const char *new_excludes
)
1512 char *exclude_string
;
1514 local_copy
= xstrdup (new_excludes
);
1516 exclude_string
= strtok (local_copy
, ",:");
1517 for (; exclude_string
; exclude_string
= strtok (NULL
, ",:"))
1519 struct string_list
*new_exclude
;
1521 new_exclude
= ((struct string_list
*)
1522 xmalloc (sizeof (struct string_list
)));
1523 new_exclude
->string
= (char *) xmalloc (strlen (exclude_string
) + 2);
1524 /* Don't add a leading underscore for fastcall symbols. */
1525 if (*exclude_string
== '@')
1526 sprintf (new_exclude
->string
, "%s", exclude_string
);
1528 sprintf (new_exclude
->string
, "%s%s", (!leading_underscore
? "" : "_"),
1530 new_exclude
->next
= excludes
;
1531 excludes
= new_exclude
;
1533 /* xgettext:c-format */
1534 inform (_("Excluding symbol: %s"), exclude_string
);
1540 /* See if STRING is on the list of symbols to exclude. */
1543 match_exclude (const char *string
)
1545 struct string_list
*excl_item
;
1547 for (excl_item
= excludes
; excl_item
; excl_item
= excl_item
->next
)
1548 if (strcmp (string
, excl_item
->string
) == 0)
1553 /* Add the default list of symbols to exclude. */
1556 set_default_excludes (void)
1558 add_excludes (default_excludes
);
1561 /* Choose which symbols to export. */
1564 filter_symbols (bfd
*abfd
, void *minisyms
, long symcount
, unsigned int size
)
1566 bfd_byte
*from
, *fromend
, *to
;
1569 store
= bfd_make_empty_symbol (abfd
);
1571 bfd_fatal (bfd_get_filename (abfd
));
1573 from
= (bfd_byte
*) minisyms
;
1574 fromend
= from
+ symcount
* size
;
1575 to
= (bfd_byte
*) minisyms
;
1577 for (; from
< fromend
; from
+= size
)
1582 sym
= bfd_minisymbol_to_symbol (abfd
, FALSE
, (const void *) from
, store
);
1584 bfd_fatal (bfd_get_filename (abfd
));
1586 /* Check for external and defined only symbols. */
1587 keep
= (((sym
->flags
& BSF_GLOBAL
) != 0
1588 || (sym
->flags
& BSF_WEAK
) != 0
1589 || bfd_is_com_section (sym
->section
))
1590 && ! bfd_is_und_section (sym
->section
));
1592 keep
= keep
&& ! match_exclude (sym
->name
);
1596 memcpy (to
, from
, size
);
1601 return (to
- (bfd_byte
*) minisyms
) / size
;
1604 /* Export all symbols in ABFD, except for ones we were told not to
1608 scan_all_symbols (bfd
*abfd
)
1614 /* Ignore bfds with an import descriptor table. We assume that any
1615 such BFD contains symbols which are exported from another DLL,
1616 and we don't want to reexport them from here. */
1617 if (bfd_get_section_by_name (abfd
, ".idata$4"))
1620 if (! (bfd_get_file_flags (abfd
) & HAS_SYMS
))
1622 /* xgettext:c-format */
1623 non_fatal (_("%s: no symbols"), bfd_get_filename (abfd
));
1627 symcount
= bfd_read_minisymbols (abfd
, FALSE
, &minisyms
, &size
);
1629 bfd_fatal (bfd_get_filename (abfd
));
1633 /* xgettext:c-format */
1634 non_fatal (_("%s: no symbols"), bfd_get_filename (abfd
));
1638 /* Discard the symbols we don't want to export. It's OK to do this
1639 in place; we'll free the storage anyway. */
1641 symcount
= filter_symbols (abfd
, minisyms
, symcount
, size
);
1642 scan_filtered_symbols (abfd
, minisyms
, symcount
, size
);
1647 /* Look at the object file to decide which symbols to export. */
1650 scan_open_obj_file (bfd
*abfd
)
1652 if (export_all_symbols
)
1653 scan_all_symbols (abfd
);
1655 scan_drectve_symbols (abfd
);
1657 /* FIXME: we ought to read in and block out the base relocations. */
1659 /* xgettext:c-format */
1660 inform (_("Done reading %s"), bfd_get_filename (abfd
));
1664 scan_obj_file (const char *filename
)
1666 bfd
* f
= bfd_openr (filename
, 0);
1669 /* xgettext:c-format */
1670 fatal (_("Unable to open object file: %s: %s"), filename
, bfd_get_errmsg ());
1672 /* xgettext:c-format */
1673 inform (_("Scanning object file %s"), filename
);
1675 if (bfd_check_format (f
, bfd_archive
))
1677 bfd
*arfile
= bfd_openr_next_archived_file (f
, 0);
1681 if (bfd_check_format (arfile
, bfd_object
))
1682 scan_open_obj_file (arfile
);
1683 next
= bfd_openr_next_archived_file (f
, arfile
);
1685 /* PR 17512: file: 58715298. */
1691 #ifdef DLLTOOL_MCORE_ELF
1692 if (mcore_elf_out_file
)
1693 inform (_("Cannot produce mcore-elf dll from archive file: %s"), filename
);
1696 else if (bfd_check_format (f
, bfd_object
))
1698 scan_open_obj_file (f
);
1700 #ifdef DLLTOOL_MCORE_ELF
1701 if (mcore_elf_out_file
)
1702 mcore_elf_cache_filename (filename
);
1712 dump_def_info (FILE *f
)
1716 fprintf (f
, "%s ", ASM_C
);
1717 for (i
= 0; oav
[i
]; i
++)
1718 fprintf (f
, "%s ", oav
[i
]);
1720 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
1722 fprintf (f
, "%s %d = %s %s @ %d %s%s%s%s%s%s\n",
1728 exp
->noname
? "NONAME " : "",
1729 exp
->private ? "PRIVATE " : "",
1730 exp
->constant
? "CONSTANT" : "",
1731 exp
->data
? "DATA" : "",
1732 exp
->its_name
? " ==" : "",
1733 exp
->its_name
? exp
->its_name
: "");
1737 /* Generate the .exp file. */
1740 sfunc (const void *a
, const void *b
)
1742 if (*(const bfd_vma
*) a
== *(const bfd_vma
*) b
)
1745 return ((*(const bfd_vma
*) a
> *(const bfd_vma
*) b
) ? 1 : -1);
1749 flush_page (FILE *f
, bfd_vma
*need
, bfd_vma page_addr
, int on_page
)
1753 /* Flush this page. */
1754 fprintf (f
, "\t%s\t0x%08x\t%s Starting RVA for chunk\n",
1758 fprintf (f
, "\t%s\t0x%x\t%s Size of block\n",
1760 (on_page
* 2) + (on_page
& 1) * 2 + 8,
1763 for (i
= 0; i
< on_page
; i
++)
1765 bfd_vma needed
= need
[i
];
1769 if (!create_for_pep
)
1771 /* Relocation via HIGHLOW. */
1772 needed
= ((needed
- page_addr
) | 0x3000) & 0xffff;
1776 /* Relocation via DIR64. */
1777 needed
= ((needed
- page_addr
) | 0xa000) & 0xffff;
1781 fprintf (f
, "\t%s\t0x%lx\n", ASM_SHORT
, (long) needed
);
1786 fprintf (f
, "\t%s\t0x%x\n", ASM_SHORT
, 0 | 0x0000);
1795 inform (_("Adding exports to output file"));
1797 fprintf (output_def
, ";");
1798 for (i
= 0; oav
[i
]; i
++)
1799 fprintf (output_def
, " %s", oav
[i
]);
1801 fprintf (output_def
, "\nEXPORTS\n");
1803 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
1805 char *quote
= strchr (exp
->name
, '.') ? "\"" : "";
1806 char *res
= cplus_demangle (exp
->internal_name
, DMGL_ANSI
| DMGL_PARAMS
);
1810 fprintf (output_def
,";\t%s\n", res
);
1814 if (strcmp (exp
->name
, exp
->internal_name
) == 0)
1816 fprintf (output_def
, "\t%s%s%s @ %d%s%s%s%s%s\n",
1821 exp
->noname
? " NONAME" : "",
1822 exp
->private ? "PRIVATE " : "",
1823 exp
->data
? " DATA" : "",
1824 exp
->its_name
? " ==" : "",
1825 exp
->its_name
? exp
->its_name
: "");
1829 char * quote1
= strchr (exp
->internal_name
, '.') ? "\"" : "";
1831 fprintf (output_def
, "\t%s%s%s = %s%s%s @ %d%s%s%s%s%s\n",
1839 exp
->noname
? " NONAME" : "",
1840 exp
->private ? "PRIVATE " : "",
1841 exp
->data
? " DATA" : "",
1842 exp
->its_name
? " ==" : "",
1843 exp
->its_name
? exp
->its_name
: "");
1847 inform (_("Added exports to output file"));
1850 /* generate_idata_ofile generates the portable assembly source code
1851 for the idata sections. It appends the source code to the end of
1855 generate_idata_ofile (FILE *filvar
)
1863 if (import_list
== NULL
)
1866 fprintf (filvar
, "%s Import data sections\n", ASM_C
);
1867 fprintf (filvar
, "\n\t.section\t.idata$2\n");
1868 fprintf (filvar
, "\t%s\tdoi_idata\n", ASM_GLOBAL
);
1869 fprintf (filvar
, "doi_idata:\n");
1872 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1874 fprintf (filvar
, "\t%slistone%d%s\t%s %s\n",
1875 ASM_RVA_BEFORE
, nheads
, ASM_RVA_AFTER
,
1876 ASM_C
, headptr
->dllname
);
1877 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1878 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1879 fprintf (filvar
, "\t%sdllname%d%s\n",
1880 ASM_RVA_BEFORE
, nheads
, ASM_RVA_AFTER
);
1881 fprintf (filvar
, "\t%slisttwo%d%s\n\n",
1882 ASM_RVA_BEFORE
, nheads
, ASM_RVA_AFTER
);
1886 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* NULL record at */
1887 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* end of idata$2 */
1888 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* section */
1889 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1890 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1892 fprintf (filvar
, "\n\t.section\t.idata$4\n");
1894 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1896 fprintf (filvar
, "listone%d:\n", headindex
);
1897 for (funcindex
= 0; funcindex
< headptr
->nfuncs
; funcindex
++)
1900 fprintf (filvar
, "\t%sfuncptr%d_%d%s\n%s\t0\n",
1901 ASM_RVA_BEFORE
, headindex
, funcindex
, ASM_RVA_AFTER
,
1904 fprintf (filvar
, "\t%sfuncptr%d_%d%s\n",
1905 ASM_RVA_BEFORE
, headindex
, funcindex
, ASM_RVA_AFTER
);
1908 fprintf (filvar
, "\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
1910 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* NULL terminating list. */
1914 fprintf (filvar
, "\n\t.section\t.idata$5\n");
1916 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1918 fprintf (filvar
, "listtwo%d:\n", headindex
);
1919 for (funcindex
= 0; funcindex
< headptr
->nfuncs
; funcindex
++)
1922 fprintf (filvar
, "\t%sfuncptr%d_%d%s\n%s\t0\n",
1923 ASM_RVA_BEFORE
, headindex
, funcindex
, ASM_RVA_AFTER
,
1926 fprintf (filvar
, "\t%sfuncptr%d_%d%s\n",
1927 ASM_RVA_BEFORE
, headindex
, funcindex
, ASM_RVA_AFTER
);
1930 fprintf (filvar
, "\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
1932 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* NULL terminating list. */
1936 fprintf (filvar
, "\n\t.section\t.idata$6\n");
1938 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1941 for (funcptr
= headptr
->funchead
; funcptr
!= NULL
;
1942 funcptr
= funcptr
->next
)
1944 fprintf (filvar
,"funcptr%d_%d:\n", headindex
, funcindex
);
1945 fprintf (filvar
,"\t%s\t%d\n", ASM_SHORT
,
1946 ((funcptr
->ord
) & 0xFFFF));
1947 fprintf (filvar
,"\t%s\t\"%s\"\n", ASM_TEXT
,
1948 (funcptr
->its_name
? funcptr
->its_name
: funcptr
->name
));
1949 fprintf (filvar
,"\t%s\t0\n", ASM_BYTE
);
1955 fprintf (filvar
, "\n\t.section\t.idata$7\n");
1957 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1959 fprintf (filvar
,"dllname%d:\n", headindex
);
1960 fprintf (filvar
,"\t%s\t\"%s\"\n", ASM_TEXT
, headptr
->dllname
);
1961 fprintf (filvar
,"\t%s\t0\n", ASM_BYTE
);
1966 /* Assemble the specified file. */
1968 assemble_file (const char * source
, const char * dest
)
1972 cmd
= xmalloc (strlen (ASM_SWITCHES
) + strlen (as_flags
)
1973 + strlen (source
) + strlen (dest
) + 50);
1975 sprintf (cmd
, "%s %s -o %s %s", ASM_SWITCHES
, as_flags
, dest
, source
);
1981 static const char * temp_file_to_remove
[5];
1982 #define TEMP_EXPORT_FILE 0
1983 #define TEMP_HEAD_FILE 1
1984 #define TEMP_TAIL_FILE 2
1985 #define TEMP_HEAD_O_FILE 3
1986 #define TEMP_TAIL_O_FILE 4
1989 unlink_temp_files (void)
1993 if (dontdeltemps
> 0)
1996 for (i
= 0; i
< ARRAY_SIZE (temp_file_to_remove
); i
++)
1998 if (temp_file_to_remove
[i
])
2000 unlink (temp_file_to_remove
[i
]);
2001 temp_file_to_remove
[i
] = NULL
;
2014 /* xgettext:c-format */
2015 inform (_("Generating export file: %s"), exp_name
);
2017 f
= fopen (TMP_ASM
, FOPEN_WT
);
2019 /* xgettext:c-format */
2020 fatal (_("Unable to open temporary assembler file: %s"), TMP_ASM
);
2022 temp_file_to_remove
[TEMP_EXPORT_FILE
] = TMP_ASM
;
2024 /* xgettext:c-format */
2025 inform (_("Opened temporary file: %s"), TMP_ASM
);
2031 fprintf (f
, "\t.section .edata\n\n");
2032 fprintf (f
, "\t%s 0 %s Allways 0\n", ASM_LONG
, ASM_C
);
2033 fprintf (f
, "\t%s 0x%lx %s Time and date\n", ASM_LONG
,
2034 (unsigned long) time(0), ASM_C
);
2035 fprintf (f
, "\t%s 0 %s Major and Minor version\n", ASM_LONG
, ASM_C
);
2036 fprintf (f
, "\t%sname%s %s Ptr to name of dll\n", ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
2037 fprintf (f
, "\t%s %d %s Starting ordinal of exports\n", ASM_LONG
, d_low_ord
, ASM_C
);
2040 fprintf (f
, "\t%s %d %s Number of functions\n", ASM_LONG
, d_high_ord
- d_low_ord
+ 1, ASM_C
);
2041 fprintf(f
,"\t%s named funcs %d, low ord %d, high ord %d\n",
2043 d_named_nfuncs
, d_low_ord
, d_high_ord
);
2044 fprintf (f
, "\t%s %d %s Number of names\n", ASM_LONG
,
2045 show_allnames
? d_high_ord
- d_low_ord
+ 1 : d_named_nfuncs
, ASM_C
);
2046 fprintf (f
, "\t%safuncs%s %s Address of functions\n", ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
2048 fprintf (f
, "\t%sanames%s %s Address of Name Pointer Table\n",
2049 ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
2051 fprintf (f
, "\t%sanords%s %s Address of ordinals\n", ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
2053 fprintf (f
, "name: %s \"%s\"\n", ASM_TEXT
, dll_name
);
2056 fprintf(f
,"%s Export address Table\n", ASM_C
);
2057 fprintf(f
,"\t%s\n", ASM_ALIGN_LONG
);
2058 fprintf (f
, "afuncs:\n");
2061 for (exp
= d_exports
; exp
; exp
= exp
->next
)
2063 if (exp
->ordinal
!= i
)
2065 while (i
< exp
->ordinal
)
2067 fprintf(f
,"\t%s\t0\n", ASM_LONG
);
2072 if (exp
->forward
== 0)
2074 if (exp
->internal_name
[0] == '@')
2075 fprintf (f
, "\t%s%s%s\t%s %d\n", ASM_RVA_BEFORE
,
2076 exp
->internal_name
, ASM_RVA_AFTER
, ASM_C
, exp
->ordinal
);
2078 fprintf (f
, "\t%s%s%s%s\t%s %d\n", ASM_RVA_BEFORE
,
2079 ASM_PREFIX (exp
->internal_name
),
2080 exp
->internal_name
, ASM_RVA_AFTER
, ASM_C
, exp
->ordinal
);
2083 fprintf (f
, "\t%sf%d%s\t%s %d\n", ASM_RVA_BEFORE
,
2084 exp
->forward
, ASM_RVA_AFTER
, ASM_C
, exp
->ordinal
);
2088 fprintf (f
,"%s Export Name Pointer Table\n", ASM_C
);
2089 fprintf (f
, "anames:\n");
2091 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
2093 if (!exp
->noname
|| show_allnames
)
2094 fprintf (f
, "\t%sn%d%s\n",
2095 ASM_RVA_BEFORE
, exp
->ordinal
, ASM_RVA_AFTER
);
2098 fprintf (f
,"%s Export Ordinal Table\n", ASM_C
);
2099 fprintf (f
, "anords:\n");
2100 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
2102 if (!exp
->noname
|| show_allnames
)
2103 fprintf (f
, "\t%s %d\n", ASM_SHORT
, exp
->ordinal
- d_low_ord
);
2106 fprintf(f
,"%s Export Name Table\n", ASM_C
);
2107 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
2109 if (!exp
->noname
|| show_allnames
)
2110 fprintf (f
, "n%d: %s \"%s\"\n",
2111 exp
->ordinal
, ASM_TEXT
,
2112 (exp
->its_name
? exp
->its_name
: xlate (exp
->name
)));
2113 if (exp
->forward
!= 0)
2114 fprintf (f
, "f%d: %s \"%s\"\n",
2115 exp
->forward
, ASM_TEXT
, exp
->internal_name
);
2120 fprintf (f
, "\t.section %s\n", DRECTVE_SECTION_NAME
);
2121 for (dl
= a_list
; dl
; dl
= dl
->next
)
2123 fprintf (f
, "\t%s\t\"%s\"\n", ASM_TEXT
, dl
->text
);
2129 fprintf (f
, "\t.section .rdata\n");
2130 for (dl
= d_list
; dl
; dl
= dl
->next
)
2135 /* We don't output as ascii because there can
2136 be quote characters in the string. */
2138 for (p
= dl
->text
; *p
; p
++)
2141 fprintf (f
, "\t%s\t", ASM_BYTE
);
2144 fprintf (f
, "%d", *p
);
2147 fprintf (f
, ",0\n");
2160 /* Add to the output file a way of getting to the exported names
2161 without using the import library. */
2164 fprintf (f
, "\t.section\t.rdata\n");
2165 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
2166 if (!exp
->noname
|| show_allnames
)
2168 /* We use a single underscore for MS compatibility, and a
2169 double underscore for backward compatibility with old
2171 if (create_compat_implib
)
2172 fprintf (f
, "\t%s\t__imp_%s\n", ASM_GLOBAL
, exp
->name
);
2173 fprintf (f
, "\t%s\t_imp_%s%s\n", ASM_GLOBAL
,
2174 (!leading_underscore
? "" : "_"), exp
->name
);
2175 if (create_compat_implib
)
2176 fprintf (f
, "__imp_%s:\n", exp
->name
);
2177 fprintf (f
, "_imp_%s%s:\n", (!leading_underscore
? "" : "_"), exp
->name
);
2178 fprintf (f
, "\t%s\t%s\n", ASM_LONG
, exp
->name
);
2182 /* Dump the reloc section if a base file is provided. */
2186 bfd_vma need
[COFF_PAGE_SIZE
];
2188 bfd_size_type numbytes
;
2193 fprintf (f
, "\t.section\t.init\n");
2194 fprintf (f
, "lab:\n");
2196 fseek (base_file
, 0, SEEK_END
);
2197 numbytes
= ftell (base_file
);
2198 fseek (base_file
, 0, SEEK_SET
);
2199 copy
= xmalloc (numbytes
);
2200 if (fread (copy
, 1, numbytes
, base_file
) < numbytes
)
2201 fatal (_("failed to read the number of entries from base file"));
2202 num_entries
= numbytes
/ sizeof (bfd_vma
);
2205 fprintf (f
, "\t.section\t.reloc\n");
2210 bfd_vma last
= (bfd_vma
) -1;
2211 qsort (copy
, num_entries
, sizeof (bfd_vma
), sfunc
);
2212 /* Delete duplicates */
2213 for (src
= 0; src
< num_entries
; src
++)
2215 if (last
!= copy
[src
])
2216 last
= copy
[dst
++] = copy
[src
];
2220 page_addr
= addr
& PAGE_MASK
; /* work out the page addr */
2222 for (j
= 0; j
< num_entries
; j
++)
2225 if ((addr
& PAGE_MASK
) != page_addr
)
2227 flush_page (f
, need
, page_addr
, on_page
);
2229 page_addr
= addr
& PAGE_MASK
;
2231 need
[on_page
++] = addr
;
2233 flush_page (f
, need
, page_addr
, on_page
);
2235 /* fprintf (f, "\t%s\t0,0\t%s End\n", ASM_LONG, ASM_C);*/
2239 generate_idata_ofile (f
);
2243 /* Assemble the file. */
2244 assemble_file (TMP_ASM
, exp_name
);
2246 if (dontdeltemps
== 0)
2248 temp_file_to_remove
[TEMP_EXPORT_FILE
] = NULL
;
2252 inform (_("Generated exports file"));
2256 xlate (const char *name
)
2258 int lead_at
= (*name
== '@');
2259 int is_stdcall
= (!lead_at
&& strchr (name
, '@') != NULL
);
2261 if (!lead_at
&& (add_underscore
2262 || (add_stdcall_underscore
&& is_stdcall
)))
2264 char *copy
= xmalloc (strlen (name
) + 2);
2267 strcpy (copy
+ 1, name
);
2276 /* PR 9766: Look for the last @ sign in the name. */
2277 p
= strrchr (name
, '@');
2278 if (p
&& ISDIGIT (p
[1]))
2294 unsigned char *data
;
2297 #define INIT_SEC_DATA(id, name, flags, align) \
2298 { id, name, flags, align, NULL, NULL, NULL, 0, NULL }
2312 #define TEXT_SEC_FLAGS \
2313 (SEC_ALLOC | SEC_LOAD | SEC_CODE | SEC_READONLY | SEC_HAS_CONTENTS)
2314 #define DATA_SEC_FLAGS (SEC_ALLOC | SEC_LOAD | SEC_DATA)
2315 #define BSS_SEC_FLAGS SEC_ALLOC
2317 static sinfo secdata
[NSECS
] =
2319 INIT_SEC_DATA (TEXT
, ".text", TEXT_SEC_FLAGS
, 2),
2320 INIT_SEC_DATA (DATA
, ".data", DATA_SEC_FLAGS
, 2),
2321 INIT_SEC_DATA (BSS
, ".bss", BSS_SEC_FLAGS
, 2),
2322 INIT_SEC_DATA (IDATA7
, ".idata$7", SEC_HAS_CONTENTS
, 2),
2323 INIT_SEC_DATA (IDATA5
, ".idata$5", SEC_HAS_CONTENTS
, 2),
2324 INIT_SEC_DATA (IDATA4
, ".idata$4", SEC_HAS_CONTENTS
, 2),
2325 INIT_SEC_DATA (IDATA6
, ".idata$6", SEC_HAS_CONTENTS
, 1)
2330 /* Sections numbered to make the order the same as other PowerPC NT
2331 compilers. This also keeps funny alignment thingies from happening. */
2344 static sinfo secdata
[NSECS
] =
2346 INIT_SEC_DATA (TEXT
, ".text", SEC_CODE
| SEC_HAS_CONTENTS
, 3),
2347 INIT_SEC_DATA (PDATA
, ".pdata", SEC_HAS_CONTENTS
, 2),
2348 INIT_SEC_DATA (RDATA
, ".reldata", SEC_HAS_CONTENTS
, 2),
2349 INIT_SEC_DATA (IDATA5
, ".idata$5", SEC_HAS_CONTENTS
, 2),
2350 INIT_SEC_DATA (IDATA4
, ".idata$4", SEC_HAS_CONTENTS
, 2),
2351 INIT_SEC_DATA (IDATA6
, ".idata$6", SEC_HAS_CONTENTS
, 1),
2352 INIT_SEC_DATA (IDATA7
, ".idata$7", SEC_HAS_CONTENTS
, 2),
2353 INIT_SEC_DATA (DATA
, ".data", SEC_DATA
, 2),
2354 INIT_SEC_DATA (BSS
, ".bss", 0, 2)
2359 /* This is what we're trying to make. We generate the imp symbols with
2360 both single and double underscores, for compatibility.
2363 .global _GetFileVersionInfoSizeW@8
2364 .global __imp_GetFileVersionInfoSizeW@8
2365 _GetFileVersionInfoSizeW@8:
2366 jmp * __imp_GetFileVersionInfoSizeW@8
2367 .section .idata$7 # To force loading of head
2368 .long __version_a_head
2369 # Import Address Table
2371 __imp_GetFileVersionInfoSizeW@8:
2374 # Import Lookup Table
2380 .asciz "GetFileVersionInfoSizeW"
2383 For the PowerPC, here's the variation on the above scheme:
2385 # Rather than a simple "jmp *", the code to get to the dll function
2388 lwz r11,[tocv]__imp_function_name(r2)
2389 # RELOC: 00000000 TOCREL16,TOCDEFN __imp_function_name
2397 make_label (const char *prefix
, const char *name
)
2399 int len
= strlen (ASM_PREFIX (name
)) + strlen (prefix
) + strlen (name
);
2400 char *copy
= xmalloc (len
+ 1);
2402 strcpy (copy
, ASM_PREFIX (name
));
2403 strcat (copy
, prefix
);
2404 strcat (copy
, name
);
2409 make_imp_label (const char *prefix
, const char *name
)
2416 len
= strlen (prefix
) + strlen (name
);
2417 copy
= xmalloc (len
+ 1);
2418 strcpy (copy
, prefix
);
2419 strcat (copy
, name
);
2423 len
= strlen (ASM_PREFIX (name
)) + strlen (prefix
) + strlen (name
);
2424 copy
= xmalloc (len
+ 1);
2425 strcpy (copy
, prefix
);
2426 strcat (copy
, ASM_PREFIX (name
));
2427 strcat (copy
, name
);
2433 make_one_lib_file (export_type
*exp
, int i
, int delay
)
2436 asymbol
* exp_label
;
2437 asymbol
* iname
= 0;
2439 asymbol
* iname_lab
;
2440 asymbol
** iname_lab_pp
;
2441 asymbol
** iname_pp
;
2450 asymbol
* ptrs
[NSECS
+ 4 + EXTRA
+ 1];
2451 flagword applicable
;
2452 char * outname
= xmalloc (strlen (TMP_STUB
) + 10);
2456 sprintf (outname
, "%s%05d.o", TMP_STUB
, i
);
2458 abfd
= bfd_openw (outname
, HOW_BFD_WRITE_TARGET
);
2461 /* xgettext:c-format */
2462 fatal (_("bfd_open failed open stub file: %s: %s"),
2463 outname
, bfd_get_errmsg ());
2465 /* xgettext:c-format */
2466 inform (_("Creating stub file: %s"), outname
);
2468 bfd_set_format (abfd
, bfd_object
);
2469 bfd_set_arch_mach (abfd
, HOW_BFD_ARCH
, 0);
2472 if (machine
== MARM_INTERWORK
|| machine
== MTHUMB
)
2473 bfd_set_private_flags (abfd
, F_INTERWORK
);
2476 applicable
= bfd_applicable_section_flags (abfd
);
2478 /* First make symbols for the sections. */
2479 for (i
= 0; i
< NSECS
; i
++)
2481 sinfo
*si
= secdata
+ i
;
2485 si
->sec
= bfd_make_section_old_way (abfd
, si
->name
);
2486 bfd_set_section_flags (si
->sec
, si
->flags
& applicable
);
2488 bfd_set_section_alignment (si
->sec
, si
->align
);
2489 si
->sec
->output_section
= si
->sec
;
2490 si
->sym
= bfd_make_empty_symbol(abfd
);
2491 si
->sym
->name
= si
->sec
->name
;
2492 si
->sym
->section
= si
->sec
;
2493 si
->sym
->flags
= BSF_LOCAL
;
2495 ptrs
[oidx
] = si
->sym
;
2496 si
->sympp
= ptrs
+ oidx
;
2505 exp_label
= bfd_make_empty_symbol (abfd
);
2506 exp_label
->name
= make_imp_label ("", exp
->name
);
2508 /* On PowerPC, the function name points to a descriptor in
2509 the rdata section, the first element of which is a
2510 pointer to the code (..function_name), and the second
2511 points to the .toc. */
2513 if (machine
== MPPC
)
2514 exp_label
->section
= secdata
[RDATA
].sec
;
2517 exp_label
->section
= secdata
[TEXT
].sec
;
2519 exp_label
->flags
= BSF_GLOBAL
;
2520 exp_label
->value
= 0;
2523 if (machine
== MTHUMB
)
2524 bfd_coff_set_symbol_class (abfd
, exp_label
, C_THUMBEXTFUNC
);
2526 ptrs
[oidx
++] = exp_label
;
2529 /* Generate imp symbols with one underscore for Microsoft
2530 compatibility, and with two underscores for backward
2531 compatibility with old versions of cygwin. */
2532 if (create_compat_implib
)
2534 iname
= bfd_make_empty_symbol (abfd
);
2535 iname
->name
= make_imp_label ("___imp", exp
->name
);
2536 iname
->section
= secdata
[IDATA5
].sec
;
2537 iname
->flags
= BSF_GLOBAL
;
2541 iname2
= bfd_make_empty_symbol (abfd
);
2542 iname2
->name
= make_imp_label ("__imp_", exp
->name
);
2543 iname2
->section
= secdata
[IDATA5
].sec
;
2544 iname2
->flags
= BSF_GLOBAL
;
2547 iname_lab
= bfd_make_empty_symbol (abfd
);
2549 iname_lab
->name
= head_label
;
2550 iname_lab
->section
= bfd_und_section_ptr
;
2551 iname_lab
->flags
= 0;
2552 iname_lab
->value
= 0;
2554 iname_pp
= ptrs
+ oidx
;
2555 if (create_compat_implib
)
2556 ptrs
[oidx
++] = iname
;
2557 ptrs
[oidx
++] = iname2
;
2559 iname_lab_pp
= ptrs
+ oidx
;
2560 ptrs
[oidx
++] = iname_lab
;
2563 /* The symbol referring to the code (.text). */
2565 asymbol
*function_name
;
2567 function_name
= bfd_make_empty_symbol(abfd
);
2568 function_name
->name
= make_label ("..", exp
->name
);
2569 function_name
->section
= secdata
[TEXT
].sec
;
2570 function_name
->flags
= BSF_GLOBAL
;
2571 function_name
->value
= 0;
2573 fn_pp
= ptrs
+ oidx
;
2574 ptrs
[oidx
++] = function_name
;
2577 /* The .toc symbol. */
2579 asymbol
*toc_symbol
;
2581 toc_symbol
= bfd_make_empty_symbol (abfd
);
2582 toc_symbol
->name
= make_label (".", "toc");
2583 toc_symbol
->section
= bfd_und_section_ptr
;
2584 toc_symbol
->flags
= BSF_GLOBAL
;
2585 toc_symbol
->value
= 0;
2587 toc_pp
= ptrs
+ oidx
;
2588 ptrs
[oidx
++] = toc_symbol
;
2594 for (i
= 0; i
< NSECS
; i
++)
2596 sinfo
*si
= secdata
+ i
;
2597 asection
*sec
= si
->sec
;
2598 arelent
*rel
, *rel2
= 0, *rel3
= 0;
2606 si
->size
= HOW_JTAB_SIZE
;
2607 si
->data
= xmalloc (HOW_JTAB_SIZE
);
2608 memcpy (si
->data
, HOW_JTAB
, HOW_JTAB_SIZE
);
2610 /* Add the reloc into idata$5. */
2611 rel
= xmalloc (sizeof (arelent
));
2613 rpp
= xmalloc (sizeof (arelent
*) * (delay
? 4 : 2));
2617 rel
->address
= HOW_JTAB_ROFF
;
2622 rel2
= xmalloc (sizeof (arelent
));
2624 rel2
->address
= HOW_JTAB_ROFF2
;
2626 rel3
= xmalloc (sizeof (arelent
));
2628 rel3
->address
= HOW_JTAB_ROFF3
;
2633 if (machine
== MPPC
)
2635 rel
->howto
= bfd_reloc_type_lookup (abfd
,
2636 BFD_RELOC_16_GOTOFF
);
2637 rel
->sym_ptr_ptr
= iname_pp
;
2639 else if (machine
== MX86
)
2641 rel
->howto
= bfd_reloc_type_lookup (abfd
,
2642 BFD_RELOC_32_PCREL
);
2643 rel
->sym_ptr_ptr
= iname_pp
;
2647 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2648 rel
->sym_ptr_ptr
= secdata
[IDATA5
].sympp
;
2653 if (machine
== MX86
)
2654 rel2
->howto
= bfd_reloc_type_lookup (abfd
,
2655 BFD_RELOC_32_PCREL
);
2657 rel2
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2658 rel2
->sym_ptr_ptr
= rel
->sym_ptr_ptr
;
2659 rel3
->howto
= bfd_reloc_type_lookup (abfd
,
2660 BFD_RELOC_32_PCREL
);
2661 rel3
->sym_ptr_ptr
= iname_lab_pp
;
2664 sec
->orelocation
= rpp
;
2665 sec
->reloc_count
= delay
? 3 : 1;
2672 si
->size
= create_for_pep
? 8 : 4;
2673 si
->data
= xmalloc (si
->size
);
2674 sec
->reloc_count
= 1;
2675 memset (si
->data
, 0, si
->size
);
2676 /* Point after jmp [__imp_...] instruction. */
2678 rel
= xmalloc (sizeof (arelent
));
2679 rpp
= xmalloc (sizeof (arelent
*) * 2);
2685 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_64
);
2687 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2688 rel
->sym_ptr_ptr
= secdata
[TEXT
].sympp
;
2689 sec
->orelocation
= rpp
;
2695 /* An idata$4 or idata$5 is one word long, and has an
2700 si
->data
= xmalloc (8);
2704 si
->data
[0] = exp
->ordinal
;
2705 si
->data
[1] = exp
->ordinal
>> 8;
2706 si
->data
[2] = exp
->ordinal
>> 16;
2707 si
->data
[3] = exp
->ordinal
>> 24;
2715 sec
->reloc_count
= 1;
2716 memset (si
->data
, 0, si
->size
);
2717 rel
= xmalloc (sizeof (arelent
));
2718 rpp
= xmalloc (sizeof (arelent
*) * 2);
2723 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_RVA
);
2724 rel
->sym_ptr_ptr
= secdata
[IDATA6
].sympp
;
2725 sec
->orelocation
= rpp
;
2730 si
->data
= xmalloc (4);
2735 si
->data
[0] = exp
->ordinal
;
2736 si
->data
[1] = exp
->ordinal
>> 8;
2737 si
->data
[2] = exp
->ordinal
>> 16;
2742 sec
->reloc_count
= 1;
2743 memset (si
->data
, 0, si
->size
);
2744 rel
= xmalloc (sizeof (arelent
));
2745 rpp
= xmalloc (sizeof (arelent
*) * 2);
2750 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_RVA
);
2751 rel
->sym_ptr_ptr
= secdata
[IDATA6
].sympp
;
2752 sec
->orelocation
= rpp
;
2760 int idx
= exp
->ordinal
;
2763 si
->size
= strlen (exp
->its_name
) + 3;
2765 si
->size
= strlen (xlate (exp
->import_name
)) + 3;
2766 si
->data
= xmalloc (si
->size
);
2767 memset (si
->data
, 0, si
->size
);
2768 si
->data
[0] = idx
& 0xff;
2769 si
->data
[1] = idx
>> 8;
2771 strcpy ((char *) si
->data
+ 2, exp
->its_name
);
2773 strcpy ((char *) si
->data
+ 2, xlate (exp
->import_name
));
2780 si
->data
= xmalloc (4);
2781 memset (si
->data
, 0, si
->size
);
2782 rel
= xmalloc (sizeof (arelent
));
2783 rpp
= xmalloc (sizeof (arelent
*) * 2);
2787 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_RVA
);
2788 rel
->sym_ptr_ptr
= iname_lab_pp
;
2789 sec
->orelocation
= rpp
;
2790 sec
->reloc_count
= 1;
2796 /* The .pdata section is 5 words long.
2800 bfd_vma BeginAddress, [0x00]
2802 ExceptionHandler, [0x08]
2804 PrologEndAddress; [0x10]
2807 /* So this pdata section setups up this as a glue linkage to
2808 a dll routine. There are a number of house keeping things
2811 1. In the name of glue trickery, the ADDR32 relocs for 0,
2812 4, and 0x10 are set to point to the same place:
2814 2. There is one more reloc needed in the pdata section.
2815 The actual glue instruction to restore the toc on
2816 return is saved as the offset in an IMGLUE reloc.
2817 So we need a total of four relocs for this section.
2819 3. Lastly, the HandlerData field is set to 0x03, to indicate
2820 that this is a glue routine. */
2821 arelent
*imglue
, *ba_rel
, *ea_rel
, *pea_rel
;
2823 /* Alignment must be set to 2**2 or you get extra stuff. */
2824 bfd_set_section_alignment (sec
, 2);
2827 si
->data
= xmalloc (si
->size
);
2828 memset (si
->data
, 0, si
->size
);
2829 rpp
= xmalloc (sizeof (arelent
*) * 5);
2830 rpp
[0] = imglue
= xmalloc (sizeof (arelent
));
2831 rpp
[1] = ba_rel
= xmalloc (sizeof (arelent
));
2832 rpp
[2] = ea_rel
= xmalloc (sizeof (arelent
));
2833 rpp
[3] = pea_rel
= xmalloc (sizeof (arelent
));
2836 /* Stick the toc reload instruction in the glue reloc. */
2837 bfd_put_32(abfd
, ppc_glue_insn
, (char *) &imglue
->address
);
2840 imglue
->howto
= bfd_reloc_type_lookup (abfd
,
2841 BFD_RELOC_32_GOTOFF
);
2842 imglue
->sym_ptr_ptr
= fn_pp
;
2844 ba_rel
->address
= 0;
2846 ba_rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2847 ba_rel
->sym_ptr_ptr
= fn_pp
;
2849 bfd_put_32 (abfd
, 0x18, si
->data
+ 0x04);
2850 ea_rel
->address
= 4;
2852 ea_rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2853 ea_rel
->sym_ptr_ptr
= fn_pp
;
2855 /* Mark it as glue. */
2856 bfd_put_32 (abfd
, 0x03, si
->data
+ 0x0c);
2858 /* Mark the prolog end address. */
2859 bfd_put_32 (abfd
, 0x0D, si
->data
+ 0x10);
2860 pea_rel
->address
= 0x10;
2861 pea_rel
->addend
= 0;
2862 pea_rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2863 pea_rel
->sym_ptr_ptr
= fn_pp
;
2865 sec
->orelocation
= rpp
;
2866 sec
->reloc_count
= 4;
2870 /* Each external function in a PowerPC PE file has a two word
2871 descriptor consisting of:
2872 1. The address of the code.
2873 2. The address of the appropriate .toc
2874 We use relocs to build this. */
2876 si
->data
= xmalloc (8);
2877 memset (si
->data
, 0, si
->size
);
2879 rpp
= xmalloc (sizeof (arelent
*) * 3);
2880 rpp
[0] = rel
= xmalloc (sizeof (arelent
));
2881 rpp
[1] = xmalloc (sizeof (arelent
));
2886 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2887 rel
->sym_ptr_ptr
= fn_pp
;
2893 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2894 rel
->sym_ptr_ptr
= toc_pp
;
2896 sec
->orelocation
= rpp
;
2897 sec
->reloc_count
= 2;
2899 #endif /* DLLTOOL_PPC */
2905 /* Size up all the sections. */
2906 for (i
= 0; i
< NSECS
; i
++)
2908 sinfo
*si
= secdata
+ i
;
2910 bfd_set_section_size (si
->sec
, si
->size
);
2911 bfd_set_section_vma (si
->sec
, vma
);
2914 /* Write them out. */
2915 for (i
= 0; i
< NSECS
; i
++)
2917 sinfo
*si
= secdata
+ i
;
2919 if (i
== IDATA5
&& no_idata5
)
2922 if (i
== IDATA4
&& no_idata4
)
2925 bfd_set_section_contents (abfd
, si
->sec
,
2930 bfd_set_symtab (abfd
, ptrs
, oidx
);
2932 abfd
= bfd_openr (outname
, HOW_BFD_READ_TARGET
);
2934 /* xgettext:c-format */
2935 fatal (_("bfd_open failed reopen stub file: %s: %s"),
2936 outname
, bfd_get_errmsg ());
2944 FILE *f
= fopen (TMP_HEAD_S
, FOPEN_WT
);
2949 fatal (_("failed to open temporary head file: %s"), TMP_HEAD_S
);
2953 temp_file_to_remove
[TEMP_HEAD_FILE
] = TMP_HEAD_S
;
2955 fprintf (f
, "%s IMAGE_IMPORT_DESCRIPTOR\n", ASM_C
);
2956 fprintf (f
, "\t.section\t.idata$2\n");
2958 fprintf (f
,"\t%s\t%s\n", ASM_GLOBAL
, head_label
);
2960 fprintf (f
, "%s:\n", head_label
);
2962 fprintf (f
, "\t%shname%s\t%sPtr to image import by name list\n",
2963 ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
2965 fprintf (f
, "\t%sthis should be the timestamp, but NT sometimes\n", ASM_C
);
2966 fprintf (f
, "\t%sdoesn't load DLLs when this is set.\n", ASM_C
);
2967 fprintf (f
, "\t%s\t0\t%s loaded time\n", ASM_LONG
, ASM_C
);
2968 fprintf (f
, "\t%s\t0\t%s Forwarder chain\n", ASM_LONG
, ASM_C
);
2969 fprintf (f
, "\t%s__%s_iname%s\t%s imported dll's name\n",
2974 fprintf (f
, "\t%sfthunk%s\t%s pointer to firstthunk\n",
2976 ASM_RVA_AFTER
, ASM_C
);
2978 fprintf (f
, "%sStuff for compatibility\n", ASM_C
);
2982 fprintf (f
, "\t.section\t.idata$5\n");
2983 if (use_nul_prefixed_import_tables
)
2986 fprintf (f
,"\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
2988 fprintf (f
,"\t%s\t0\n", ASM_LONG
);
2990 fprintf (f
, "fthunk:\n");
2995 fprintf (f
, "\t.section\t.idata$4\n");
2996 if (use_nul_prefixed_import_tables
)
2999 fprintf (f
,"\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
3001 fprintf (f
,"\t%s\t0\n", ASM_LONG
);
3003 fprintf (f
, "hname:\n");
3008 assemble_file (TMP_HEAD_S
, TMP_HEAD_O
);
3010 abfd
= bfd_openr (TMP_HEAD_O
, HOW_BFD_READ_TARGET
);
3012 /* xgettext:c-format */
3013 fatal (_("failed to open temporary head file: %s: %s"),
3014 TMP_HEAD_O
, bfd_get_errmsg ());
3016 temp_file_to_remove
[TEMP_HEAD_O_FILE
] = TMP_HEAD_O
;
3021 make_delay_head (void)
3023 FILE *f
= fopen (TMP_HEAD_S
, FOPEN_WT
);
3028 fatal (_("failed to open temporary head file: %s"), TMP_HEAD_S
);
3032 temp_file_to_remove
[TEMP_HEAD_FILE
] = TMP_HEAD_S
;
3034 /* Output the __tailMerge__xxx function */
3035 fprintf (f
, "%s Import trampoline\n", ASM_C
);
3036 fprintf (f
, "\t.section\t.text\n");
3037 fprintf(f
,"\t%s\t%s\n", ASM_GLOBAL
, head_label
);
3038 fprintf (f
, "%s:\n", head_label
);
3039 fprintf (f
, mtable
[machine
].trampoline
, imp_name_lab
);
3041 /* Output the delay import descriptor */
3042 fprintf (f
, "\n%s DELAY_IMPORT_DESCRIPTOR\n", ASM_C
);
3043 fprintf (f
, ".section\t.text$2\n");
3044 fprintf (f
,"%s __DELAY_IMPORT_DESCRIPTOR_%s\n", ASM_GLOBAL
,imp_name_lab
);
3045 fprintf (f
, "__DELAY_IMPORT_DESCRIPTOR_%s:\n", imp_name_lab
);
3046 fprintf (f
, "\t%s 1\t%s grAttrs\n", ASM_LONG
, ASM_C
);
3047 fprintf (f
, "\t%s__%s_iname%s\t%s rvaDLLName\n",
3048 ASM_RVA_BEFORE
, imp_name_lab
, ASM_RVA_AFTER
, ASM_C
);
3049 fprintf (f
, "\t%s__DLL_HANDLE_%s%s\t%s rvaHmod\n",
3050 ASM_RVA_BEFORE
, imp_name_lab
, ASM_RVA_AFTER
, ASM_C
);
3051 fprintf (f
, "\t%s__IAT_%s%s\t%s rvaIAT\n",
3052 ASM_RVA_BEFORE
, imp_name_lab
, ASM_RVA_AFTER
, ASM_C
);
3053 fprintf (f
, "\t%s__INT_%s%s\t%s rvaINT\n",
3054 ASM_RVA_BEFORE
, imp_name_lab
, ASM_RVA_AFTER
, ASM_C
);
3055 fprintf (f
, "\t%s\t0\t%s rvaBoundIAT\n", ASM_LONG
, ASM_C
);
3056 fprintf (f
, "\t%s\t0\t%s rvaUnloadIAT\n", ASM_LONG
, ASM_C
);
3057 fprintf (f
, "\t%s\t0\t%s dwTimeStamp\n", ASM_LONG
, ASM_C
);
3059 /* Output the dll_handle */
3060 fprintf (f
, "\n.section .data\n");
3061 fprintf (f
, "__DLL_HANDLE_%s:\n", imp_name_lab
);
3062 fprintf (f
, "\t%s\t0\t%s Handle\n", ASM_LONG
, ASM_C
);
3064 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
3067 fprintf (f
, "%sStuff for compatibility\n", ASM_C
);
3071 fprintf (f
, "\t.section\t.idata$5\n");
3072 /* NULL terminating list. */
3074 fprintf (f
,"\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
3076 fprintf (f
,"\t%s\t0\n", ASM_LONG
);
3077 fprintf (f
, "__IAT_%s:\n", imp_name_lab
);
3082 fprintf (f
, "\t.section\t.idata$4\n");
3083 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
3085 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
3086 fprintf (f
, "\t.section\t.idata$4\n");
3087 fprintf (f
, "__INT_%s:\n", imp_name_lab
);
3090 fprintf (f
, "\t.section\t.idata$2\n");
3094 assemble_file (TMP_HEAD_S
, TMP_HEAD_O
);
3096 abfd
= bfd_openr (TMP_HEAD_O
, HOW_BFD_READ_TARGET
);
3098 /* xgettext:c-format */
3099 fatal (_("failed to open temporary head file: %s: %s"),
3100 TMP_HEAD_O
, bfd_get_errmsg ());
3102 temp_file_to_remove
[TEMP_HEAD_O_FILE
] = TMP_HEAD_O
;
3109 FILE *f
= fopen (TMP_TAIL_S
, FOPEN_WT
);
3114 fatal (_("failed to open temporary tail file: %s"), TMP_TAIL_S
);
3118 temp_file_to_remove
[TEMP_TAIL_FILE
] = TMP_TAIL_S
;
3122 fprintf (f
, "\t.section\t.idata$4\n");
3124 fprintf (f
,"\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
3126 fprintf (f
,"\t%s\t0\n", ASM_LONG
); /* NULL terminating list. */
3131 fprintf (f
, "\t.section\t.idata$5\n");
3133 fprintf (f
,"\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
3135 fprintf (f
,"\t%s\t0\n", ASM_LONG
); /* NULL terminating list. */
3139 /* Normally, we need to see a null descriptor built in idata$3 to
3140 act as the terminator for the list. The ideal way, I suppose,
3141 would be to mark this section as a comdat type 2 section, so
3142 only one would appear in the final .exe (if our linker supported
3143 comdat, that is) or cause it to be inserted by something else (say
3146 fprintf (f
, "\t.section\t.idata$3\n");
3147 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
3148 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
3149 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
3150 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
3151 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
3155 /* Other PowerPC NT compilers use idata$6 for the dllname, so I
3156 do too. Original, huh? */
3157 fprintf (f
, "\t.section\t.idata$6\n");
3159 fprintf (f
, "\t.section\t.idata$7\n");
3162 fprintf (f
, "\t%s\t__%s_iname\n", ASM_GLOBAL
, imp_name_lab
);
3163 fprintf (f
, "__%s_iname:\t%s\t\"%s\"\n",
3164 imp_name_lab
, ASM_TEXT
, dll_name
);
3168 assemble_file (TMP_TAIL_S
, TMP_TAIL_O
);
3170 abfd
= bfd_openr (TMP_TAIL_O
, HOW_BFD_READ_TARGET
);
3172 /* xgettext:c-format */
3173 fatal (_("failed to open temporary tail file: %s: %s"),
3174 TMP_TAIL_O
, bfd_get_errmsg ());
3176 temp_file_to_remove
[TEMP_TAIL_O_FILE
] = TMP_TAIL_O
;
3181 gen_lib_file (int delay
)
3192 outarch
= bfd_openw (imp_name
, HOW_BFD_WRITE_TARGET
);
3195 /* xgettext:c-format */
3196 fatal (_("Can't create .lib file: %s: %s"),
3197 imp_name
, bfd_get_errmsg ());
3199 /* xgettext:c-format */
3200 inform (_("Creating library file: %s"), imp_name
);
3202 xatexit (unlink_temp_files
);
3204 bfd_set_format (outarch
, bfd_archive
);
3205 outarch
->has_armap
= 1;
3206 outarch
->is_thin_archive
= 0;
3208 /* Work out a reasonable size of things to put onto one line. */
3211 ar_head
= make_delay_head ();
3215 ar_head
= make_head ();
3217 ar_tail
= make_tail();
3219 if (ar_head
== NULL
|| ar_tail
== NULL
)
3222 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
3225 /* Don't add PRIVATE entries to import lib. */
3228 n
= make_one_lib_file (exp
, i
, delay
);
3229 n
->archive_next
= head
;
3231 if (ext_prefix_alias
)
3233 export_type alias_exp
;
3235 assert (i
< PREFIX_ALIAS_BASE
);
3236 alias_exp
.name
= make_imp_label (ext_prefix_alias
, exp
->name
);
3237 alias_exp
.internal_name
= exp
->internal_name
;
3238 alias_exp
.its_name
= exp
->its_name
;
3239 alias_exp
.import_name
= exp
->name
;
3240 alias_exp
.ordinal
= exp
->ordinal
;
3241 alias_exp
.constant
= exp
->constant
;
3242 alias_exp
.noname
= exp
->noname
;
3243 alias_exp
.private = exp
->private;
3244 alias_exp
.data
= exp
->data
;
3245 alias_exp
.forward
= exp
->forward
;
3246 alias_exp
.next
= exp
->next
;
3247 n
= make_one_lib_file (&alias_exp
, i
+ PREFIX_ALIAS_BASE
, delay
);
3248 n
->archive_next
= head
;
3253 /* Now stick them all into the archive. */
3254 ar_head
->archive_next
= head
;
3255 ar_tail
->archive_next
= ar_head
;
3258 if (! bfd_set_archive_head (outarch
, head
))
3259 bfd_fatal ("bfd_set_archive_head");
3261 if (! bfd_close (outarch
))
3262 bfd_fatal (imp_name
);
3264 while (head
!= NULL
)
3266 bfd
*n
= head
->archive_next
;
3271 /* Delete all the temp files. */
3272 unlink_temp_files ();
3274 if (dontdeltemps
< 2)
3278 name
= xmalloc (strlen (TMP_STUB
) + 10);
3279 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
3281 /* Don't delete non-existent stubs for PRIVATE entries. */
3284 sprintf (name
, "%s%05d.o", TMP_STUB
, i
);
3285 if (unlink (name
) < 0)
3286 /* xgettext:c-format */
3287 non_fatal (_("cannot delete %s: %s"), name
, strerror (errno
));
3288 if (ext_prefix_alias
)
3290 sprintf (name
, "%s%05d.o", TMP_STUB
, i
+ PREFIX_ALIAS_BASE
);
3291 if (unlink (name
) < 0)
3292 /* xgettext:c-format */
3293 non_fatal (_("cannot delete %s: %s"), name
, strerror (errno
));
3299 inform (_("Created lib file"));
3302 /* Append a copy of data (cast to char *) to list. */
3305 dll_name_list_append (dll_name_list_type
* list
, bfd_byte
* data
)
3307 dll_name_list_node_type
* entry
;
3309 /* Error checking. */
3310 if (! list
|| ! list
->tail
)
3313 /* Allocate new node. */
3314 entry
= ((dll_name_list_node_type
*)
3315 xmalloc (sizeof (dll_name_list_node_type
)));
3317 /* Initialize its values. */
3318 entry
->dllname
= xstrdup ((char *) data
);
3321 /* Add to tail, and move tail. */
3322 list
->tail
->next
= entry
;
3326 /* Count the number of entries in list. */
3329 dll_name_list_count (dll_name_list_type
* list
)
3331 dll_name_list_node_type
* p
;
3334 /* Error checking. */
3335 if (! list
|| ! list
->head
)
3340 while (p
&& p
->next
)
3348 /* Print each entry in list to stdout. */
3351 dll_name_list_print (dll_name_list_type
* list
)
3353 dll_name_list_node_type
* p
;
3355 /* Error checking. */
3356 if (! list
|| ! list
->head
)
3361 while (p
&& p
->next
&& p
->next
->dllname
&& *(p
->next
->dllname
))
3363 printf ("%s\n", p
->next
->dllname
);
3368 /* Free all entries in list, and list itself. */
3371 dll_name_list_free (dll_name_list_type
* list
)
3375 dll_name_list_free_contents (list
->head
);
3382 /* Recursive function to free all nodes entry->next->next...
3383 as well as entry itself. */
3386 dll_name_list_free_contents (dll_name_list_node_type
* entry
)
3392 dll_name_list_free_contents (entry
->next
);
3397 free (entry
->dllname
);
3398 entry
->dllname
= NULL
;
3404 /* Allocate and initialize a dll_name_list_type object,
3405 including its sentinel node. Caller is responsible
3406 for calling dll_name_list_free when finished with
3409 static dll_name_list_type
*
3410 dll_name_list_create (void)
3412 /* Allocate list. */
3413 dll_name_list_type
* list
= xmalloc (sizeof (dll_name_list_type
));
3415 /* Allocate and initialize sentinel node. */
3416 list
->head
= xmalloc (sizeof (dll_name_list_node_type
));
3417 list
->head
->dllname
= NULL
;
3418 list
->head
->next
= NULL
;
3420 /* Bookkeeping for empty list. */
3421 list
->tail
= list
->head
;
3426 /* Search the symbol table of the suppled BFD for a symbol whose name matches
3427 OBJ (where obj is cast to const char *). If found, set global variable
3428 identify_member_contains_symname_result TRUE. It is the caller's
3429 responsibility to set the result variable FALSE before iterating with
3433 identify_member_contains_symname (bfd
* abfd
,
3434 bfd
* archive_bfd ATTRIBUTE_UNUSED
,
3437 long storage_needed
;
3438 asymbol
** symbol_table
;
3439 long number_of_symbols
;
3441 symname_search_data_type
* search_data
= (symname_search_data_type
*) obj
;
3443 /* If we already found the symbol in a different member,
3445 if (search_data
->found
)
3448 storage_needed
= bfd_get_symtab_upper_bound (abfd
);
3449 if (storage_needed
<= 0)
3452 symbol_table
= xmalloc (storage_needed
);
3453 number_of_symbols
= bfd_canonicalize_symtab (abfd
, symbol_table
);
3454 if (number_of_symbols
< 0)
3456 free (symbol_table
);
3460 for (i
= 0; i
< number_of_symbols
; i
++)
3462 if (strncmp (symbol_table
[i
]->name
,
3463 search_data
->symname
,
3464 strlen (search_data
->symname
)) == 0)
3466 search_data
->found
= TRUE
;
3470 free (symbol_table
);
3473 /* This is the main implementation for the --identify option.
3474 Given the name of an import library in identify_imp_name, first determine
3475 if the import library is a GNU binutils-style one (where the DLL name is
3476 stored in an .idata$7 (.idata$6 on PPC) section, or if it is a MS-style
3477 one (where the DLL name, along with much other data, is stored in the
3478 .idata$6 section). We determine the style of import library by searching
3479 for the DLL-structure symbol inserted by MS tools:
3480 __NULL_IMPORT_DESCRIPTOR.
3482 Once we know which section to search, evaluate each section for the
3483 appropriate properties that indicate it may contain the name of the
3484 associated DLL (this differs depending on the style). Add the contents
3485 of all sections which meet the criteria to a linked list of dll names.
3487 Finally, print them all to stdout. (If --identify-strict, an error is
3488 reported if more than one match was found). */
3491 identify_dll_for_implib (void)
3495 identify_data_type identify_data
;
3496 symname_search_data_type search_data
;
3498 /* Initialize identify_data. */
3499 identify_data
.list
= dll_name_list_create ();
3500 identify_data
.ms_style_implib
= FALSE
;
3502 /* Initialize search_data. */
3503 search_data
.symname
= "__NULL_IMPORT_DESCRIPTOR";
3504 search_data
.found
= FALSE
;
3506 if (bfd_init () != BFD_INIT_MAGIC
)
3507 fatal (_("fatal error: libbfd ABI mismatch"));
3509 abfd
= bfd_openr (identify_imp_name
, 0);
3511 /* xgettext:c-format */
3512 fatal (_("Can't open .lib file: %s: %s"),
3513 identify_imp_name
, bfd_get_errmsg ());
3515 if (! bfd_check_format (abfd
, bfd_archive
))
3517 if (! bfd_close (abfd
))
3518 bfd_fatal (identify_imp_name
);
3520 fatal (_("%s is not a library"), identify_imp_name
);
3523 /* Detect if this a Microsoft import library. */
3524 identify_search_archive (abfd
,
3525 identify_member_contains_symname
,
3526 (void *)(& search_data
));
3527 if (search_data
.found
)
3528 identify_data
.ms_style_implib
= TRUE
;
3530 /* Rewind the bfd. */
3531 if (! bfd_close (abfd
))
3532 bfd_fatal (identify_imp_name
);
3533 abfd
= bfd_openr (identify_imp_name
, 0);
3535 bfd_fatal (identify_imp_name
);
3537 if (!bfd_check_format (abfd
, bfd_archive
))
3539 if (!bfd_close (abfd
))
3540 bfd_fatal (identify_imp_name
);
3542 fatal (_("%s is not a library"), identify_imp_name
);
3545 /* Now search for the dll name. */
3546 identify_search_archive (abfd
,
3547 identify_search_member
,
3548 (void *)(& identify_data
));
3550 if (! bfd_close (abfd
))
3551 bfd_fatal (identify_imp_name
);
3553 count
= dll_name_list_count (identify_data
.list
);
3556 if (identify_strict
&& count
> 1)
3558 dll_name_list_free (identify_data
.list
);
3559 identify_data
.list
= NULL
;
3560 fatal (_("Import library `%s' specifies two or more dlls"),
3563 dll_name_list_print (identify_data
.list
);
3564 dll_name_list_free (identify_data
.list
);
3565 identify_data
.list
= NULL
;
3569 dll_name_list_free (identify_data
.list
);
3570 identify_data
.list
= NULL
;
3571 fatal (_("Unable to determine dll name for `%s' (not an import library?)"),
3576 /* Loop over all members of the archive, applying the supplied function to
3577 each member that is a bfd_object. The function will be called as if:
3578 func (member_bfd, abfd, user_storage) */
3581 identify_search_archive (bfd
* abfd
,
3582 void (* operation
) (bfd
*, bfd
*, void *),
3583 void * user_storage
)
3585 bfd
* arfile
= NULL
;
3586 bfd
* last_arfile
= NULL
;
3591 arfile
= bfd_openr_next_archived_file (abfd
, arfile
);
3595 if (bfd_get_error () != bfd_error_no_more_archived_files
)
3596 bfd_fatal (bfd_get_filename (abfd
));
3600 if (bfd_check_format_matches (arfile
, bfd_object
, &matching
))
3601 (*operation
) (arfile
, abfd
, user_storage
);
3604 bfd_nonfatal (bfd_get_filename (arfile
));
3608 if (last_arfile
!= NULL
)
3610 bfd_close (last_arfile
);
3611 /* PR 17512: file: 8b2168d4. */
3612 if (last_arfile
== arfile
)
3619 last_arfile
= arfile
;
3622 if (last_arfile
!= NULL
)
3624 bfd_close (last_arfile
);
3628 /* Call the identify_search_section() function for each section of this
3632 identify_search_member (bfd
*abfd
,
3633 bfd
*archive_bfd ATTRIBUTE_UNUSED
,
3636 bfd_map_over_sections (abfd
, identify_search_section
, obj
);
3639 /* This predicate returns true if section->name matches the desired value.
3640 By default, this is .idata$7 (.idata$6 on PPC, or if the import
3641 library is ms-style). */
3644 identify_process_section_p (asection
* section
, bfd_boolean ms_style_implib
)
3646 static const char * SECTION_NAME
=
3648 /* dllname is stored in idata$6 on PPC */
3653 static const char * MS_SECTION_NAME
= ".idata$6";
3655 const char * section_name
=
3656 (ms_style_implib
? MS_SECTION_NAME
: SECTION_NAME
);
3658 if (strcmp (section_name
, section
->name
) == 0)
3663 /* If *section has contents and its name is .idata$7 (.data$6 on PPC or if
3664 import lib ms-generated) -- and it satisfies several other constraints
3665 -- then add the contents of the section to obj->list. */
3668 identify_search_section (bfd
* abfd
, asection
* section
, void * obj
)
3671 bfd_size_type datasize
;
3672 identify_data_type
* identify_data
= (identify_data_type
*)obj
;
3673 bfd_boolean ms_style
= identify_data
->ms_style_implib
;
3675 if ((section
->flags
& SEC_HAS_CONTENTS
) == 0)
3678 if (! identify_process_section_p (section
, ms_style
))
3681 /* Binutils import libs seem distinguish the .idata$7 section that contains
3682 the DLL name from other .idata$7 sections by the absence of the
3684 if (!ms_style
&& ((section
->flags
& SEC_RELOC
) == SEC_RELOC
))
3687 /* MS import libs seem to distinguish the .idata$6 section
3688 that contains the DLL name from other .idata$6 sections
3689 by the presence of the SEC_DATA flag. */
3690 if (ms_style
&& ((section
->flags
& SEC_DATA
) == 0))
3693 if ((datasize
= bfd_section_size (section
)) == 0)
3696 data
= (bfd_byte
*) xmalloc (datasize
+ 1);
3699 bfd_get_section_contents (abfd
, section
, data
, 0, datasize
);
3700 data
[datasize
] = '\0';
3702 /* Use a heuristic to determine if data is a dll name.
3703 Possible to defeat this if (a) the library has MANY
3704 (more than 0x302f) imports, (b) it is an ms-style
3705 import library, but (c) it is buggy, in that the SEC_DATA
3706 flag is set on the "wrong" sections. This heuristic might
3707 also fail to record a valid dll name if the dllname uses
3708 a multibyte or unicode character set (is that valid?).
3710 This heuristic is based on the fact that symbols names in
3711 the chosen section -- as opposed to the dll name -- begin
3712 at offset 2 in the data. The first two bytes are a 16bit
3713 little-endian count, and start at 0x0000. However, the dll
3714 name begins at offset 0 in the data. We assume that the
3715 dll name does not contain unprintable characters. */
3716 if (data
[0] != '\0' && ISPRINT (data
[0])
3717 && ((datasize
< 2) || ISPRINT (data
[1])))
3718 dll_name_list_append (identify_data
->list
, data
);
3723 /* Run through the information gathered from the .o files and the
3724 .def file and work out the best stuff. */
3727 pfunc (const void *a
, const void *b
)
3729 export_type
*ap
= *(export_type
**) a
;
3730 export_type
*bp
= *(export_type
**) b
;
3732 if (ap
->ordinal
== bp
->ordinal
)
3735 /* Unset ordinals go to the bottom. */
3736 if (ap
->ordinal
== -1)
3738 if (bp
->ordinal
== -1)
3740 return (ap
->ordinal
- bp
->ordinal
);
3744 nfunc (const void *a
, const void *b
)
3746 export_type
*ap
= *(export_type
**) a
;
3747 export_type
*bp
= *(export_type
**) b
;
3748 const char *an
= ap
->name
;
3749 const char *bn
= bp
->name
;
3756 an
= (an
[0] == '@') ? an
+ 1 : an
;
3757 bn
= (bn
[0] == '@') ? bn
+ 1 : bn
;
3760 return (strcmp (an
, bn
));
3764 remove_null_names (export_type
**ptr
)
3769 for (dst
= src
= 0; src
< d_nfuncs
; src
++)
3773 ptr
[dst
] = ptr
[src
];
3781 process_duplicates (export_type
**d_export_vec
)
3789 /* Remove duplicates. */
3790 qsort (d_export_vec
, d_nfuncs
, sizeof (export_type
*), nfunc
);
3792 for (i
= 0; i
< d_nfuncs
- 1; i
++)
3794 if (strcmp (d_export_vec
[i
]->name
,
3795 d_export_vec
[i
+ 1]->name
) == 0)
3797 export_type
*a
= d_export_vec
[i
];
3798 export_type
*b
= d_export_vec
[i
+ 1];
3802 /* xgettext:c-format */
3803 inform (_("Warning, ignoring duplicate EXPORT %s %d,%d"),
3804 a
->name
, a
->ordinal
, b
->ordinal
);
3806 if (a
->ordinal
!= -1
3807 && b
->ordinal
!= -1)
3808 /* xgettext:c-format */
3809 fatal (_("Error, duplicate EXPORT with ordinals: %s"),
3812 /* Merge attributes. */
3813 b
->ordinal
= a
->ordinal
> 0 ? a
->ordinal
: b
->ordinal
;
3814 b
->constant
|= a
->constant
;
3815 b
->noname
|= a
->noname
;
3817 d_export_vec
[i
] = 0;
3820 remove_null_names (d_export_vec
);
3824 /* Count the names. */
3825 for (i
= 0; i
< d_nfuncs
; i
++)
3826 if (!d_export_vec
[i
]->noname
)
3831 fill_ordinals (export_type
**d_export_vec
)
3838 qsort (d_export_vec
, d_nfuncs
, sizeof (export_type
*), pfunc
);
3840 /* Fill in the unset ordinals with ones from our range. */
3841 ptr
= (char *) xmalloc (size
);
3843 memset (ptr
, 0, size
);
3845 /* Mark in our large vector all the numbers that are taken. */
3846 for (i
= 0; i
< d_nfuncs
; i
++)
3848 if (d_export_vec
[i
]->ordinal
!= -1)
3850 ptr
[d_export_vec
[i
]->ordinal
] = 1;
3852 if (lowest
== -1 || d_export_vec
[i
]->ordinal
< lowest
)
3853 lowest
= d_export_vec
[i
]->ordinal
;
3857 /* Start at 1 for compatibility with MS toolchain. */
3861 /* Now fill in ordinals where the user wants us to choose. */
3862 for (i
= 0; i
< d_nfuncs
; i
++)
3864 if (d_export_vec
[i
]->ordinal
== -1)
3868 /* First try within or after any user supplied range. */
3869 for (j
= lowest
; j
< size
; j
++)
3873 d_export_vec
[i
]->ordinal
= j
;
3877 /* Then try before the range. */
3878 for (j
= lowest
; j
>0; j
--)
3882 d_export_vec
[i
]->ordinal
= j
;
3892 qsort (d_export_vec
, d_nfuncs
, sizeof (export_type
*), pfunc
);
3894 /* Work out the lowest and highest ordinal numbers. */
3897 if (d_export_vec
[0])
3898 d_low_ord
= d_export_vec
[0]->ordinal
;
3899 if (d_export_vec
[d_nfuncs
-1])
3900 d_high_ord
= d_export_vec
[d_nfuncs
-1]->ordinal
;
3907 /* First work out the minimum ordinal chosen. */
3909 export_type
**d_export_vec
= xmalloc (sizeof (export_type
*) * d_nfuncs
);
3912 inform (_("Processing definitions"));
3914 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
3915 d_export_vec
[i
] = exp
;
3917 process_duplicates (d_export_vec
);
3918 fill_ordinals (d_export_vec
);
3920 /* Put back the list in the new order. */
3922 for (i
= d_nfuncs
- 1; i
>= 0; i
--)
3924 d_export_vec
[i
]->next
= d_exports
;
3925 d_exports
= d_export_vec
[i
];
3928 /* Build list in alpha order. */
3929 d_exports_lexically
= (export_type
**)
3930 xmalloc (sizeof (export_type
*) * (d_nfuncs
+ 1));
3932 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
3933 d_exports_lexically
[i
] = exp
;
3935 d_exports_lexically
[i
] = 0;
3937 qsort (d_exports_lexically
, i
, sizeof (export_type
*), nfunc
);
3939 inform (_("Processed definitions"));
3943 usage (FILE *file
, int status
)
3945 /* xgetext:c-format */
3946 fprintf (file
, _("Usage %s <option(s)> <object-file(s)>\n"), program_name
);
3947 /* xgetext:c-format */
3948 fprintf (file
, _(" -m --machine <machine> Create as DLL for <machine>. [default: %s]\n"), mname
);
3949 fprintf (file
, _(" possible <machine>: arm[_interwork], i386, mcore[-elf]{-le|-be}, ppc, thumb\n"));
3950 fprintf (file
, _(" -e --output-exp <outname> Generate an export file.\n"));
3951 fprintf (file
, _(" -l --output-lib <outname> Generate an interface library.\n"));
3952 fprintf (file
, _(" -y --output-delaylib <outname> Create a delay-import library.\n"));
3953 fprintf (file
, _(" -a --add-indirect Add dll indirects to export file.\n"));
3954 fprintf (file
, _(" -D --dllname <name> Name of input dll to put into interface lib.\n"));
3955 fprintf (file
, _(" -d --input-def <deffile> Name of .def file to be read in.\n"));
3956 fprintf (file
, _(" -z --output-def <deffile> Name of .def file to be created.\n"));
3957 fprintf (file
, _(" --export-all-symbols Export all symbols to .def\n"));
3958 fprintf (file
, _(" --no-export-all-symbols Only export listed symbols\n"));
3959 fprintf (file
, _(" --exclude-symbols <list> Don't export <list>\n"));
3960 fprintf (file
, _(" --no-default-excludes Clear default exclude symbols\n"));
3961 fprintf (file
, _(" -b --base-file <basefile> Read linker generated base file.\n"));
3962 fprintf (file
, _(" -x --no-idata4 Don't generate idata$4 section.\n"));
3963 fprintf (file
, _(" -c --no-idata5 Don't generate idata$5 section.\n"));
3964 fprintf (file
, _(" --use-nul-prefixed-import-tables Use zero prefixed idata$4 and idata$5.\n"));
3965 fprintf (file
, _(" -U --add-underscore Add underscores to all symbols in interface library.\n"));
3966 fprintf (file
, _(" --add-stdcall-underscore Add underscores to stdcall symbols in interface library.\n"));
3967 fprintf (file
, _(" --no-leading-underscore All symbols shouldn't be prefixed by an underscore.\n"));
3968 fprintf (file
, _(" --leading-underscore All symbols should be prefixed by an underscore.\n"));
3969 fprintf (file
, _(" -k --kill-at Kill @<n> from exported names.\n"));
3970 fprintf (file
, _(" -A --add-stdcall-alias Add aliases without @<n>.\n"));
3971 fprintf (file
, _(" -p --ext-prefix-alias <prefix> Add aliases with <prefix>.\n"));
3972 fprintf (file
, _(" -S --as <name> Use <name> for assembler.\n"));
3973 fprintf (file
, _(" -f --as-flags <flags> Pass <flags> to the assembler.\n"));
3974 fprintf (file
, _(" -C --compat-implib Create backward compatible import library.\n"));
3975 fprintf (file
, _(" -n --no-delete Keep temp files (repeat for extra preservation).\n"));
3976 fprintf (file
, _(" -t --temp-prefix <prefix> Use <prefix> to construct temp file names.\n"));
3977 fprintf (file
, _(" -I --identify <implib> Report the name of the DLL associated with <implib>.\n"));
3978 fprintf (file
, _(" --identify-strict Causes --identify to report error when multiple DLLs.\n"));
3979 fprintf (file
, _(" -v --verbose Be verbose.\n"));
3980 fprintf (file
, _(" -V --version Display the program version.\n"));
3981 fprintf (file
, _(" -h --help Display this information.\n"));
3982 fprintf (file
, _(" @<file> Read options from <file>.\n"));
3983 #ifdef DLLTOOL_MCORE_ELF
3984 fprintf (file
, _(" -M --mcore-elf <outname> Process mcore-elf object files into <outname>.\n"));
3985 fprintf (file
, _(" -L --linker <name> Use <name> as the linker.\n"));
3986 fprintf (file
, _(" -F --linker-flags <flags> Pass <flags> to the linker.\n"));
3988 if (REPORT_BUGS_TO
[0] && status
== 0)
3989 fprintf (file
, _("Report bugs to %s\n"), REPORT_BUGS_TO
);
3993 #define OPTION_EXPORT_ALL_SYMS 150
3994 #define OPTION_NO_EXPORT_ALL_SYMS (OPTION_EXPORT_ALL_SYMS + 1)
3995 #define OPTION_EXCLUDE_SYMS (OPTION_NO_EXPORT_ALL_SYMS + 1)
3996 #define OPTION_NO_DEFAULT_EXCLUDES (OPTION_EXCLUDE_SYMS + 1)
3997 #define OPTION_ADD_STDCALL_UNDERSCORE (OPTION_NO_DEFAULT_EXCLUDES + 1)
3998 #define OPTION_USE_NUL_PREFIXED_IMPORT_TABLES \
3999 (OPTION_ADD_STDCALL_UNDERSCORE + 1)
4000 #define OPTION_IDENTIFY_STRICT (OPTION_USE_NUL_PREFIXED_IMPORT_TABLES + 1)
4001 #define OPTION_NO_LEADING_UNDERSCORE (OPTION_IDENTIFY_STRICT + 1)
4002 #define OPTION_LEADING_UNDERSCORE (OPTION_NO_LEADING_UNDERSCORE + 1)
4004 static const struct option long_options
[] =
4006 {"no-delete", no_argument
, NULL
, 'n'},
4007 {"dllname", required_argument
, NULL
, 'D'},
4008 {"no-idata4", no_argument
, NULL
, 'x'},
4009 {"no-idata5", no_argument
, NULL
, 'c'},
4010 {"use-nul-prefixed-import-tables", no_argument
, NULL
,
4011 OPTION_USE_NUL_PREFIXED_IMPORT_TABLES
},
4012 {"output-exp", required_argument
, NULL
, 'e'},
4013 {"output-def", required_argument
, NULL
, 'z'},
4014 {"export-all-symbols", no_argument
, NULL
, OPTION_EXPORT_ALL_SYMS
},
4015 {"no-export-all-symbols", no_argument
, NULL
, OPTION_NO_EXPORT_ALL_SYMS
},
4016 {"exclude-symbols", required_argument
, NULL
, OPTION_EXCLUDE_SYMS
},
4017 {"no-default-excludes", no_argument
, NULL
, OPTION_NO_DEFAULT_EXCLUDES
},
4018 {"output-lib", required_argument
, NULL
, 'l'},
4019 {"def", required_argument
, NULL
, 'd'}, /* for compatibility with older versions */
4020 {"input-def", required_argument
, NULL
, 'd'},
4021 {"add-underscore", no_argument
, NULL
, 'U'},
4022 {"add-stdcall-underscore", no_argument
, NULL
, OPTION_ADD_STDCALL_UNDERSCORE
},
4023 {"no-leading-underscore", no_argument
, NULL
, OPTION_NO_LEADING_UNDERSCORE
},
4024 {"leading-underscore", no_argument
, NULL
, OPTION_LEADING_UNDERSCORE
},
4025 {"kill-at", no_argument
, NULL
, 'k'},
4026 {"add-stdcall-alias", no_argument
, NULL
, 'A'},
4027 {"ext-prefix-alias", required_argument
, NULL
, 'p'},
4028 {"identify", required_argument
, NULL
, 'I'},
4029 {"identify-strict", no_argument
, NULL
, OPTION_IDENTIFY_STRICT
},
4030 {"verbose", no_argument
, NULL
, 'v'},
4031 {"version", no_argument
, NULL
, 'V'},
4032 {"help", no_argument
, NULL
, 'h'},
4033 {"machine", required_argument
, NULL
, 'm'},
4034 {"add-indirect", no_argument
, NULL
, 'a'},
4035 {"base-file", required_argument
, NULL
, 'b'},
4036 {"as", required_argument
, NULL
, 'S'},
4037 {"as-flags", required_argument
, NULL
, 'f'},
4038 {"mcore-elf", required_argument
, NULL
, 'M'},
4039 {"compat-implib", no_argument
, NULL
, 'C'},
4040 {"temp-prefix", required_argument
, NULL
, 't'},
4041 {"output-delaylib", required_argument
, NULL
, 'y'},
4045 int main (int, char **);
4048 main (int ac
, char **av
)
4053 program_name
= av
[0];
4056 #if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
4057 setlocale (LC_MESSAGES
, "");
4059 #if defined (HAVE_SETLOCALE)
4060 setlocale (LC_CTYPE
, "");
4062 bindtextdomain (PACKAGE
, LOCALEDIR
);
4063 textdomain (PACKAGE
);
4065 bfd_set_error_program_name (program_name
);
4066 expandargv (&ac
, &av
);
4068 while ((c
= getopt_long (ac
, av
,
4069 #ifdef DLLTOOL_MCORE_ELF
4070 "m:e:l:aD:d:z:b:xp:cCuUkAS:t:f:nI:vVHhM:L:F:",
4072 "m:e:l:y:aD:d:z:b:xp:cCuUkAS:t:f:nI:vVHh",
4079 case OPTION_EXPORT_ALL_SYMS
:
4080 export_all_symbols
= TRUE
;
4082 case OPTION_NO_EXPORT_ALL_SYMS
:
4083 export_all_symbols
= FALSE
;
4085 case OPTION_EXCLUDE_SYMS
:
4086 add_excludes (optarg
);
4088 case OPTION_NO_DEFAULT_EXCLUDES
:
4089 do_default_excludes
= FALSE
;
4091 case OPTION_USE_NUL_PREFIXED_IMPORT_TABLES
:
4092 use_nul_prefixed_import_tables
= TRUE
;
4094 case OPTION_ADD_STDCALL_UNDERSCORE
:
4095 add_stdcall_underscore
= 1;
4097 case OPTION_NO_LEADING_UNDERSCORE
:
4098 leading_underscore
= 0;
4100 case OPTION_LEADING_UNDERSCORE
:
4101 leading_underscore
= 1;
4103 case OPTION_IDENTIFY_STRICT
:
4104 identify_strict
= 1;
4116 tmp_prefix
= optarg
;
4122 /* Ignored for compatibility. */
4129 output_def
= fopen (optarg
, FOPEN_WT
);
4131 /* xgettext:c-format */
4132 fatal (_("Unable to open def-file: %s"), optarg
);
4135 dll_name
= (char*) lbasename (optarg
);
4136 if (dll_name
!= optarg
)
4137 non_fatal (_("Path components stripped from dllname, '%s'."),
4154 identify_imp_name
= optarg
;
4160 print_version (program_name
);
4169 add_stdcall_alias
= 1;
4172 ext_prefix_alias
= optarg
;
4181 base_file
= fopen (optarg
, FOPEN_RB
);
4184 /* xgettext:c-format */
4185 fatal (_("Unable to open base-file: %s"), optarg
);
4188 #ifdef DLLTOOL_MCORE_ELF
4190 mcore_elf_out_file
= optarg
;
4193 mcore_elf_linker
= optarg
;
4196 mcore_elf_linker_flags
= optarg
;
4200 create_compat_implib
= 1;
4203 delayimp_name
= optarg
;
4212 tmp_prefix
= prefix_encode ("d", getpid ());
4214 for (i
= 0; mtable
[i
].type
; i
++)
4215 if (strcmp (mtable
[i
].type
, mname
) == 0)
4218 if (!mtable
[i
].type
)
4219 /* xgettext:c-format */
4220 fatal (_("Machine '%s' not supported"), mname
);
4224 /* Check if we generated PE+. */
4225 create_for_pep
= strcmp (mname
, "i386:x86-64") == 0;
4228 /* Check the default underscore */
4229 int u
= leading_underscore
; /* Underscoring mode. -1 for use default. */
4231 bfd_get_target_info (mtable
[machine
].how_bfd_target
, NULL
,
4234 leading_underscore
= (u
!= 0 ? TRUE
: FALSE
);
4237 if (!dll_name
&& exp_name
)
4239 /* If we are inferring dll_name from exp_name,
4240 strip off any path components, without emitting
4242 const char* exp_basename
= lbasename (exp_name
);
4243 const int len
= strlen (exp_basename
) + 5;
4244 dll_name
= xmalloc (len
);
4245 strcpy (dll_name
, exp_basename
);
4246 strcat (dll_name
, ".dll");
4247 dll_name_set_by_exp_name
= 1;
4250 if (as_name
== NULL
)
4251 as_name
= deduce_name ("as");
4253 /* Don't use the default exclude list if we're reading only the
4254 symbols in the .drectve section. The default excludes are meant
4255 to avoid exporting DLL entry point and Cygwin32 impure_ptr. */
4256 if (! export_all_symbols
)
4257 do_default_excludes
= FALSE
;
4259 if (do_default_excludes
)
4260 set_default_excludes ();
4263 process_def_file (def_file
);
4268 firstarg
= av
[optind
];
4269 scan_obj_file (av
[optind
]);
4280 /* Make imp_name safe for use as a label. */
4283 imp_name_lab
= xstrdup (imp_name
);
4284 for (p
= imp_name_lab
; *p
; p
++)
4289 head_label
= make_label("_head_", imp_name_lab
);
4295 /* Make delayimp_name safe for use as a label. */
4298 if (mtable
[machine
].how_dljtab
== 0)
4300 inform (_("Warning, machine type (%d) not supported for "
4301 "delayimport."), machine
);
4306 imp_name
= delayimp_name
;
4307 imp_name_lab
= xstrdup (imp_name
);
4308 for (p
= imp_name_lab
; *p
; p
++)
4313 head_label
= make_label("__tailMerge_", imp_name_lab
);
4321 if (identify_imp_name
)
4323 identify_dll_for_implib ();
4326 #ifdef DLLTOOL_MCORE_ELF
4327 if (mcore_elf_out_file
)
4328 mcore_elf_gen_out_file ();
4334 /* Look for the program formed by concatenating PROG_NAME and the
4335 string running from PREFIX to END_PREFIX. If the concatenated
4336 string contains a '/', try appending EXECUTABLE_SUFFIX if it is
4340 look_for_prog (const char *prog_name
, const char *prefix
, int end_prefix
)
4345 cmd
= xmalloc (strlen (prefix
)
4346 + strlen (prog_name
)
4347 #ifdef HAVE_EXECUTABLE_SUFFIX
4348 + strlen (EXECUTABLE_SUFFIX
)
4351 strcpy (cmd
, prefix
);
4353 sprintf (cmd
+ end_prefix
, "%s", prog_name
);
4355 if (strchr (cmd
, '/') != NULL
)
4359 found
= (stat (cmd
, &s
) == 0
4360 #ifdef HAVE_EXECUTABLE_SUFFIX
4361 || stat (strcat (cmd
, EXECUTABLE_SUFFIX
), &s
) == 0
4367 /* xgettext:c-format */
4368 inform (_("Tried file: %s"), cmd
);
4374 /* xgettext:c-format */
4375 inform (_("Using file: %s"), cmd
);
4380 /* Deduce the name of the program we are want to invoke.
4381 PROG_NAME is the basic name of the program we want to run,
4382 eg "as" or "ld". The catch is that we might want actually
4383 run "i386-pe-as" or "ppc-pe-ld".
4385 If argv[0] contains the full path, then try to find the program
4386 in the same place, with and then without a target-like prefix.
4388 Given, argv[0] = /usr/local/bin/i586-cygwin32-dlltool,
4389 deduce_name("as") uses the following search order:
4391 /usr/local/bin/i586-cygwin32-as
4395 If there's an EXECUTABLE_SUFFIX, it'll use that as well; for each
4396 name, it'll try without and then with EXECUTABLE_SUFFIX.
4398 Given, argv[0] = i586-cygwin32-dlltool, it will not even try "as"
4399 as the fallback, but rather return i586-cygwin32-as.
4401 Oh, and given, argv[0] = dlltool, it'll return "as".
4403 Returns a dynamically allocated string. */
4406 deduce_name (const char *prog_name
)
4409 char *dash
, *slash
, *cp
;
4413 for (cp
= program_name
; *cp
!= '\0'; ++cp
)
4418 #if defined(__DJGPP__) || defined (__CYGWIN__) || defined(__WIN32__)
4419 *cp
== ':' || *cp
== '\\' ||
4432 /* First, try looking for a prefixed PROG_NAME in the
4433 PROGRAM_NAME directory, with the same prefix as PROGRAM_NAME. */
4434 cmd
= look_for_prog (prog_name
, program_name
, dash
- program_name
+ 1);
4437 if (slash
!= NULL
&& cmd
== NULL
)
4439 /* Next, try looking for a PROG_NAME in the same directory as
4440 that of this program. */
4441 cmd
= look_for_prog (prog_name
, program_name
, slash
- program_name
+ 1);
4446 /* Just return PROG_NAME as is. */
4447 cmd
= xstrdup (prog_name
);
4453 #ifdef DLLTOOL_MCORE_ELF
4454 typedef struct fname_cache
4456 const char * filename
;
4457 struct fname_cache
* next
;
4461 static fname_cache fnames
;
4464 mcore_elf_cache_filename (const char * filename
)
4470 while (ptr
->next
!= NULL
)
4473 ptr
->filename
= filename
;
4474 ptr
->next
= (fname_cache
*) malloc (sizeof (fname_cache
));
4475 if (ptr
->next
!= NULL
)
4476 ptr
->next
->next
= NULL
;
4479 #define MCORE_ELF_TMP_OBJ "mcoreelf.o"
4480 #define MCORE_ELF_TMP_EXP "mcoreelf.exp"
4481 #define MCORE_ELF_TMP_LIB "mcoreelf.lib"
4484 mcore_elf_gen_out_file (void)
4489 /* Step one. Run 'ld -r' on the input object files in order to resolve
4490 any internal references and to generate a single .exports section. */
4493 ds
= dyn_string_new (100);
4494 dyn_string_append_cstr (ds
, "-r ");
4496 if (mcore_elf_linker_flags
!= NULL
)
4497 dyn_string_append_cstr (ds
, mcore_elf_linker_flags
);
4499 while (ptr
->next
!= NULL
)
4501 dyn_string_append_cstr (ds
, ptr
->filename
);
4502 dyn_string_append_cstr (ds
, " ");
4507 dyn_string_append_cstr (ds
, "-o ");
4508 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_OBJ
);
4510 if (mcore_elf_linker
== NULL
)
4511 mcore_elf_linker
= deduce_name ("ld");
4513 run (mcore_elf_linker
, ds
->s
);
4515 dyn_string_delete (ds
);
4517 /* Step two. Create a .exp file and a .lib file from the temporary file.
4518 Do this by recursively invoking dlltool... */
4519 ds
= dyn_string_new (100);
4521 dyn_string_append_cstr (ds
, "-S ");
4522 dyn_string_append_cstr (ds
, as_name
);
4524 dyn_string_append_cstr (ds
, " -e ");
4525 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_EXP
);
4526 dyn_string_append_cstr (ds
, " -l ");
4527 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_LIB
);
4528 dyn_string_append_cstr (ds
, " " );
4529 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_OBJ
);
4532 dyn_string_append_cstr (ds
, " -v");
4536 dyn_string_append_cstr (ds
, " -n");
4538 if (dontdeltemps
> 1)
4539 dyn_string_append_cstr (ds
, " -n");
4542 /* XXX - FIME: ought to check/copy other command line options as well. */
4543 run (program_name
, ds
->s
);
4545 dyn_string_delete (ds
);
4547 /* Step four. Feed the .exp and object files to ld -shared to create the dll. */
4548 ds
= dyn_string_new (100);
4550 dyn_string_append_cstr (ds
, "-shared ");
4552 if (mcore_elf_linker_flags
)
4553 dyn_string_append_cstr (ds
, mcore_elf_linker_flags
);
4555 dyn_string_append_cstr (ds
, " ");
4556 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_EXP
);
4557 dyn_string_append_cstr (ds
, " ");
4558 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_OBJ
);
4559 dyn_string_append_cstr (ds
, " -o ");
4560 dyn_string_append_cstr (ds
, mcore_elf_out_file
);
4562 run (mcore_elf_linker
, ds
->s
);
4564 dyn_string_delete (ds
);
4566 if (dontdeltemps
== 0)
4567 unlink (MCORE_ELF_TMP_EXP
);
4569 if (dontdeltemps
< 2)
4570 unlink (MCORE_ELF_TMP_OBJ
);
4572 #endif /* DLLTOOL_MCORE_ELF */