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"
248 #include "coff/arm.h"
249 #include "coff/internal.h"
251 #ifdef DLLTOOL_DEFAULT_MX86_64
252 #include "coff/x86_64.h"
254 #ifdef DLLTOOL_DEFAULT_I386
255 #include "coff/i386.h"
258 #ifndef COFF_PAGE_SIZE
259 #define COFF_PAGE_SIZE ((bfd_vma) 4096)
263 #define PAGE_MASK ((bfd_vma) (- COFF_PAGE_SIZE))
266 /* Get current BFD error message. */
267 #define bfd_get_errmsg() (bfd_errmsg (bfd_get_error ()))
269 /* Forward references. */
270 static char *look_for_prog (const char *, const char *, int);
271 static char *deduce_name (const char *);
273 #ifdef DLLTOOL_MCORE_ELF
274 static void mcore_elf_cache_filename (const char *);
275 static void mcore_elf_gen_out_file (void);
278 #ifdef HAVE_SYS_WAIT_H
279 #include <sys/wait.h>
280 #else /* ! HAVE_SYS_WAIT_H */
281 #if ! defined (_WIN32) || defined (__CYGWIN32__)
283 #define WIFEXITED(w) (((w) & 0377) == 0)
286 #define WIFSIGNALED(w) (((w) & 0377) != 0177 && ((w) & ~0377) == 0)
289 #define WTERMSIG(w) ((w) & 0177)
292 #define WEXITSTATUS(w) (((w) >> 8) & 0377)
294 #else /* defined (_WIN32) && ! defined (__CYGWIN32__) */
296 #define WIFEXITED(w) (((w) & 0xff) == 0)
299 #define WIFSIGNALED(w) (((w) & 0xff) != 0 && ((w) & 0xff) != 0x7f)
302 #define WTERMSIG(w) ((w) & 0x7f)
305 #define WEXITSTATUS(w) (((w) & 0xff00) >> 8)
307 #endif /* defined (_WIN32) && ! defined (__CYGWIN32__) */
308 #endif /* ! HAVE_SYS_WAIT_H */
310 #define show_allnames 0
312 /* ifunc and ihead data structures: ttk@cygnus.com 1997
314 When IMPORT declarations are encountered in a .def file the
315 function import information is stored in a structure referenced by
316 the global variable IMPORT_LIST. The structure is a linked list
317 containing the names of the dll files each function is imported
318 from and a linked list of functions being imported from that dll
319 file. This roughly parallels the structure of the .idata section
320 in the PE object file.
322 The contents of .def file are interpreted from within the
323 process_def_file function. Every time an IMPORT declaration is
324 encountered, it is broken up into its component parts and passed to
325 def_import. IMPORT_LIST is initialized to NULL in function main. */
327 typedef struct ifunct
329 char * name
; /* Name of function being imported. */
330 char * its_name
; /* Optional import table symbol name. */
331 int ord
; /* Two-byte ordinal value associated with function. */
335 typedef struct iheadt
337 char * dllname
; /* Name of dll file imported from. */
338 long nfuncs
; /* Number of functions in list. */
339 struct ifunct
*funchead
; /* First function in list. */
340 struct ifunct
*functail
; /* Last function in list. */
341 struct iheadt
*next
; /* Next dll file in list. */
344 /* Structure containing all import information as defined in .def file
345 (qv "ihead structure"). */
347 static iheadtype
*import_list
= NULL
;
348 static char *as_name
= NULL
;
349 static char * as_flags
= "";
350 static char *tmp_prefix
;
351 static int no_idata4
;
352 static int no_idata5
;
353 static char *exp_name
;
354 static char *imp_name
;
355 static char *delayimp_name
;
356 static char *identify_imp_name
;
357 static bfd_boolean identify_strict
;
359 /* Types used to implement a linked list of dllnames associated
360 with the specified import lib. Used by the identify_* code.
361 The head entry is acts as a sentinal node and is always empty
362 (head->dllname is NULL). */
363 typedef struct dll_name_list_node_t
366 struct dll_name_list_node_t
* next
;
367 } dll_name_list_node_type
;
369 typedef struct dll_name_list_t
371 dll_name_list_node_type
* head
;
372 dll_name_list_node_type
* tail
;
373 } dll_name_list_type
;
375 /* Types used to pass data to iterator functions. */
376 typedef struct symname_search_data_t
378 const char * symname
;
380 } symname_search_data_type
;
382 typedef struct identify_data_t
384 dll_name_list_type
* list
;
385 bfd_boolean ms_style_implib
;
386 } identify_data_type
;
389 static char *head_label
;
390 static char *imp_name_lab
;
391 static char *dll_name
;
392 static int dll_name_set_by_exp_name
;
393 static int add_indirect
= 0;
394 static int add_underscore
= 0;
395 static int add_stdcall_underscore
= 0;
396 /* This variable can hold three different values. The value
397 -1 (default) means that default underscoring should be used,
398 zero means that no underscoring should be done, and one
399 indicates that underscoring should be done. */
400 static int leading_underscore
= -1;
401 static int dontdeltemps
= 0;
403 /* TRUE if we should export all symbols. Otherwise, we only export
404 symbols listed in .drectve sections or in the def file. */
405 static bfd_boolean export_all_symbols
;
407 /* TRUE if we should exclude the symbols in DEFAULT_EXCLUDES when
408 exporting all symbols. */
409 static bfd_boolean do_default_excludes
= TRUE
;
411 static bfd_boolean use_nul_prefixed_import_tables
= FALSE
;
413 /* Default symbols to exclude when exporting all the symbols. */
414 static const char *default_excludes
= "DllMain@12,DllEntryPoint@0,impure_ptr";
416 /* TRUE if we should add __imp_<SYMBOL> to import libraries for backward
417 compatibility to old Cygwin releases. */
418 static bfd_boolean create_compat_implib
;
420 /* TRUE if we have to write PE+ import libraries. */
421 static bfd_boolean create_for_pep
;
423 static char *def_file
;
425 extern char * program_name
;
429 static int add_stdcall_alias
;
430 static const char *ext_prefix_alias
;
432 static FILE *output_def
;
433 static FILE *base_file
;
435 #ifdef DLLTOOL_DEFAULT_ARM
436 static const char *mname
= "arm";
439 #ifdef DLLTOOL_DEFAULT_ARM_WINCE
440 static const char *mname
= "arm-wince";
443 #ifdef DLLTOOL_DEFAULT_I386
444 static const char *mname
= "i386";
447 #ifdef DLLTOOL_DEFAULT_MX86_64
448 static const char *mname
= "i386:x86-64";
451 #ifdef DLLTOOL_DEFAULT_PPC
452 static const char *mname
= "ppc";
455 #ifdef DLLTOOL_DEFAULT_SH
456 static const char *mname
= "sh";
459 #ifdef DLLTOOL_DEFAULT_MIPS
460 static const char *mname
= "mips";
463 #ifdef DLLTOOL_DEFAULT_MCORE
464 static const char * mname
= "mcore-le";
467 #ifdef DLLTOOL_DEFAULT_MCORE_ELF
468 static const char * mname
= "mcore-elf";
469 static char * mcore_elf_out_file
= NULL
;
470 static char * mcore_elf_linker
= NULL
;
471 static char * mcore_elf_linker_flags
= NULL
;
473 #define DRECTVE_SECTION_NAME ((machine == MMCORE_ELF || machine == MMCORE_ELF_LE) ? ".exports" : ".drectve")
476 #ifndef DRECTVE_SECTION_NAME
477 #define DRECTVE_SECTION_NAME ".drectve"
480 /* What's the right name for this ? */
483 /* External name alias numbering starts here. */
484 #define PREFIX_ALIAS_BASE 20000
487 char *tmp_head_s_buf
;
488 char *tmp_head_o_buf
;
489 char *tmp_tail_s_buf
;
490 char *tmp_tail_o_buf
;
493 #define TMP_ASM dlltmp (&tmp_asm_buf, "%sc.s")
494 #define TMP_HEAD_S dlltmp (&tmp_head_s_buf, "%sh.s")
495 #define TMP_HEAD_O dlltmp (&tmp_head_o_buf, "%sh.o")
496 #define TMP_TAIL_S dlltmp (&tmp_tail_s_buf, "%st.s")
497 #define TMP_TAIL_O dlltmp (&tmp_tail_o_buf, "%st.o")
498 #define TMP_STUB dlltmp (&tmp_stub_buf, "%ss")
500 /* This bit of assembly does jmp * .... */
501 static const unsigned char i386_jtab
[] =
503 0xff, 0x25, 0x00, 0x00, 0x00, 0x00, 0x90, 0x90
506 static const unsigned char i386_dljtab
[] =
508 0xFF, 0x25, 0x00, 0x00, 0x00, 0x00, /* jmp __imp__function */
509 0xB8, 0x00, 0x00, 0x00, 0x00, /* mov eax, offset __imp__function */
510 0xE9, 0x00, 0x00, 0x00, 0x00 /* jmp __tailMerge__dllname */
513 static const unsigned char i386_x64_dljtab
[] =
515 0xFF, 0x25, 0x00, 0x00, 0x00, 0x00, /* jmp __imp__function */
516 0x48, 0x8d, 0x05, /* leaq rax, (__imp__function) */
517 0x00, 0x00, 0x00, 0x00,
518 0xE9, 0x00, 0x00, 0x00, 0x00 /* jmp __tailMerge__dllname */
521 static const unsigned char arm_jtab
[] =
523 0x00, 0xc0, 0x9f, 0xe5, /* ldr ip, [pc] */
524 0x00, 0xf0, 0x9c, 0xe5, /* ldr pc, [ip] */
528 static const unsigned char arm_interwork_jtab
[] =
530 0x04, 0xc0, 0x9f, 0xe5, /* ldr ip, [pc] */
531 0x00, 0xc0, 0x9c, 0xe5, /* ldr ip, [ip] */
532 0x1c, 0xff, 0x2f, 0xe1, /* bx ip */
536 static const unsigned char thumb_jtab
[] =
538 0x40, 0xb4, /* push {r6} */
539 0x02, 0x4e, /* ldr r6, [pc, #8] */
540 0x36, 0x68, /* ldr r6, [r6] */
541 0xb4, 0x46, /* mov ip, r6 */
542 0x40, 0xbc, /* pop {r6} */
543 0x60, 0x47, /* bx ip */
547 static const unsigned char mcore_be_jtab
[] =
549 0x71, 0x02, /* lrw r1,2 */
550 0x81, 0x01, /* ld.w r1,(r1,0) */
551 0x00, 0xC1, /* jmp r1 */
552 0x12, 0x00, /* nop */
553 0x00, 0x00, 0x00, 0x00 /* <address> */
556 static const unsigned char mcore_le_jtab
[] =
558 0x02, 0x71, /* lrw r1,2 */
559 0x01, 0x81, /* ld.w r1,(r1,0) */
560 0xC1, 0x00, /* jmp r1 */
561 0x00, 0x12, /* nop */
562 0x00, 0x00, 0x00, 0x00 /* <address> */
565 /* This is the glue sequence for PowerPC PE. There is a
566 tocrel16-tocdefn reloc against the first instruction.
567 We also need a IMGLUE reloc against the glue function
568 to restore the toc saved by the third instruction in
570 static const unsigned char ppc_jtab
[] =
572 0x00, 0x00, 0x62, 0x81, /* lwz r11,0(r2) */
573 /* Reloc TOCREL16 __imp_xxx */
574 0x00, 0x00, 0x8B, 0x81, /* lwz r12,0(r11) */
575 0x04, 0x00, 0x41, 0x90, /* stw r2,4(r1) */
576 0xA6, 0x03, 0x89, 0x7D, /* mtctr r12 */
577 0x04, 0x00, 0x4B, 0x80, /* lwz r2,4(r11) */
578 0x20, 0x04, 0x80, 0x4E /* bctr */
582 /* The glue instruction, picks up the toc from the stw in
583 the above code: "lwz r2,4(r1)". */
584 static bfd_vma ppc_glue_insn
= 0x80410004;
587 static const char i386_trampoline
[] =
591 "\tpushl $__DELAY_IMPORT_DESCRIPTOR_%s\n"
592 "\tcall ___delayLoadHelper2@8\n"
597 static const char i386_x64_trampoline
[] =
602 "\tsubq $40, %%rsp\n"
603 "\tmovq %%rax, %%rdx\n"
604 "\tleaq __DELAY_IMPORT_DESCRIPTOR_%s(%%rip), %%rcx\n"
605 "\tcall __delayLoadHelper2\n"
606 "\taddq $40, %%rsp\n"
616 const char *how_byte
;
617 const char *how_short
;
618 const char *how_long
;
619 const char *how_asciz
;
620 const char *how_comment
;
621 const char *how_jump
;
622 const char *how_global
;
623 const char *how_space
;
624 const char *how_align_short
;
625 const char *how_align_long
;
626 const char *how_default_as_switches
;
627 const char *how_bfd_target
;
628 enum bfd_architecture how_bfd_arch
;
629 const unsigned char *how_jtab
;
630 int how_jtab_size
; /* Size of the jtab entry. */
631 int how_jtab_roff
; /* Offset into it for the ind 32 reloc into idata 5. */
632 const unsigned char *how_dljtab
;
633 int how_dljtab_size
; /* Size of the dljtab entry. */
634 int how_dljtab_roff1
; /* Offset for the ind 32 reloc into idata 5. */
635 int how_dljtab_roff2
; /* Offset for the ind 32 reloc into idata 5. */
636 int how_dljtab_roff3
; /* Offset for the ind 32 reloc into idata 5. */
637 const char *trampoline
;
640 static const struct mac
645 "arm", ".byte", ".short", ".long", ".asciz", "@",
646 "ldr\tip,[pc]\n\tldr\tpc,[ip]\n\t.long",
647 ".global", ".space", ".align\t2",".align\t4", "-mapcs-32",
648 "pe-arm-little", bfd_arch_arm
,
649 arm_jtab
, sizeof (arm_jtab
), 8,
655 "i386", ".byte", ".short", ".long", ".asciz", "#",
656 "jmp *", ".global", ".space", ".align\t2",".align\t4", "",
657 "pe-i386",bfd_arch_i386
,
658 i386_jtab
, sizeof (i386_jtab
), 2,
659 i386_dljtab
, sizeof (i386_dljtab
), 2, 7, 12, i386_trampoline
664 "ppc", ".byte", ".short", ".long", ".asciz", "#",
665 "jmp *", ".global", ".space", ".align\t2",".align\t4", "",
666 "pe-powerpcle",bfd_arch_powerpc
,
667 ppc_jtab
, sizeof (ppc_jtab
), 0,
673 "thumb", ".byte", ".short", ".long", ".asciz", "@",
674 "push\t{r6}\n\tldr\tr6, [pc, #8]\n\tldr\tr6, [r6]\n\tmov\tip, r6\n\tpop\t{r6}\n\tbx\tip",
675 ".global", ".space", ".align\t2",".align\t4", "-mthumb-interwork",
676 "pe-arm-little", bfd_arch_arm
,
677 thumb_jtab
, sizeof (thumb_jtab
), 12,
681 #define MARM_INTERWORK 4
683 "arm_interwork", ".byte", ".short", ".long", ".asciz", "@",
684 "ldr\tip,[pc]\n\tldr\tip,[ip]\n\tbx\tip\n\t.long",
685 ".global", ".space", ".align\t2",".align\t4", "-mthumb-interwork",
686 "pe-arm-little", bfd_arch_arm
,
687 arm_interwork_jtab
, sizeof (arm_interwork_jtab
), 12,
693 "mcore-be", ".byte", ".short", ".long", ".asciz", "//",
694 "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
695 ".global", ".space", ".align\t2",".align\t4", "",
696 "pe-mcore-big", bfd_arch_mcore
,
697 mcore_be_jtab
, sizeof (mcore_be_jtab
), 8,
703 "mcore-le", ".byte", ".short", ".long", ".asciz", "//",
704 "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
705 ".global", ".space", ".align\t2",".align\t4", "-EL",
706 "pe-mcore-little", bfd_arch_mcore
,
707 mcore_le_jtab
, sizeof (mcore_le_jtab
), 8,
713 "mcore-elf-be", ".byte", ".short", ".long", ".asciz", "//",
714 "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
715 ".global", ".space", ".align\t2",".align\t4", "",
716 "elf32-mcore-big", bfd_arch_mcore
,
717 mcore_be_jtab
, sizeof (mcore_be_jtab
), 8,
722 #define MMCORE_ELF_LE 8
723 "mcore-elf-le", ".byte", ".short", ".long", ".asciz", "//",
724 "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
725 ".global", ".space", ".align\t2",".align\t4", "-EL",
726 "elf32-mcore-little", bfd_arch_mcore
,
727 mcore_le_jtab
, sizeof (mcore_le_jtab
), 8,
733 "arm-wince", ".byte", ".short", ".long", ".asciz", "@",
734 "ldr\tip,[pc]\n\tldr\tpc,[ip]\n\t.long",
735 ".global", ".space", ".align\t2",".align\t4", "-mapcs-32",
736 "pe-arm-wince-little", bfd_arch_arm
,
737 arm_jtab
, sizeof (arm_jtab
), 8,
743 "i386:x86-64", ".byte", ".short", ".long", ".asciz", "#",
744 "jmp *", ".global", ".space", ".align\t2",".align\t4", "",
745 "pe-x86-64",bfd_arch_i386
,
746 i386_jtab
, sizeof (i386_jtab
), 2,
747 i386_x64_dljtab
, sizeof (i386_x64_dljtab
), 2, 9, 14, i386_x64_trampoline
750 { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }
760 typedef struct export
763 const char *internal_name
;
764 const char *import_name
;
765 const char *its_name
;
768 int noname
; /* Don't put name in image file. */
769 int private; /* Don't put reference in import lib. */
771 int forward
; /* Number of forward label, 0 means no forward. */
776 /* A list of symbols which we should not export. */
780 struct string_list
*next
;
784 static struct string_list
*excludes
;
786 static const char *rvaafter (int);
787 static const char *rvabefore (int);
788 static const char *asm_prefix (int, const char *);
789 static void process_def_file (const char *);
790 static void new_directive (char *);
791 static void append_import (const char *, const char *, int, const char *);
792 static void run (const char *, char *);
793 static void scan_drectve_symbols (bfd
*);
794 static void scan_filtered_symbols (bfd
*, void *, long, unsigned int);
795 static void add_excludes (const char *);
796 static bfd_boolean
match_exclude (const char *);
797 static void set_default_excludes (void);
798 static long filter_symbols (bfd
*, void *, long, unsigned int);
799 static void scan_all_symbols (bfd
*);
800 static void scan_open_obj_file (bfd
*);
801 static void scan_obj_file (const char *);
802 static void dump_def_info (FILE *);
803 static int sfunc (const void *, const void *);
804 static void flush_page (FILE *, bfd_vma
*, bfd_vma
, int);
805 static void gen_def_file (void);
806 static void generate_idata_ofile (FILE *);
807 static void assemble_file (const char *, const char *);
808 static void gen_exp_file (void);
809 static const char *xlate (const char *);
810 static char *make_label (const char *, const char *);
811 static char *make_imp_label (const char *, const char *);
812 static bfd
*make_one_lib_file (export_type
*, int, int);
813 static bfd
*make_head (void);
814 static bfd
*make_tail (void);
815 static bfd
*make_delay_head (void);
816 static void gen_lib_file (int);
817 static void dll_name_list_append (dll_name_list_type
*, bfd_byte
*);
818 static int dll_name_list_count (dll_name_list_type
*);
819 static void dll_name_list_print (dll_name_list_type
*);
820 static void dll_name_list_free_contents (dll_name_list_node_type
*);
821 static void dll_name_list_free (dll_name_list_type
*);
822 static dll_name_list_type
* dll_name_list_create (void);
823 static void identify_dll_for_implib (void);
824 static void identify_search_archive
825 (bfd
*, void (*) (bfd
*, bfd
*, void *), void *);
826 static void identify_search_member (bfd
*, bfd
*, void *);
827 static bfd_boolean
identify_process_section_p (asection
*, bfd_boolean
);
828 static void identify_search_section (bfd
*, asection
*, void *);
829 static void identify_member_contains_symname (bfd
*, bfd
*, void *);
831 static int pfunc (const void *, const void *);
832 static int nfunc (const void *, const void *);
833 static void remove_null_names (export_type
**);
834 static void process_duplicates (export_type
**);
835 static void fill_ordinals (export_type
**);
836 static void mangle_defs (void);
837 static void usage (FILE *, int);
838 static void inform (const char *, ...) ATTRIBUTE_PRINTF_1
;
839 static void set_dll_name_from_def (const char *name
, char is_dll
);
842 prefix_encode (char *start
, unsigned code
)
844 static char alpha
[26] = "abcdefghijklmnopqrstuvwxyz";
848 p
= strchr (buf
, '\0');
850 *p
++ = alpha
[code
% sizeof (alpha
)];
851 while ((code
/= sizeof (alpha
)) != 0);
857 dlltmp (char **buf
, const char *fmt
)
861 *buf
= malloc (strlen (tmp_prefix
) + 64);
862 sprintf (*buf
, fmt
, tmp_prefix
);
868 inform (const char * message
, ...)
872 va_start (args
, message
);
877 report (message
, args
);
900 /* xgettext:c-format */
901 fatal (_("Internal error: Unknown machine type: %d"), mach
);
925 /* xgettext:c-format */
926 fatal (_("Internal error: Unknown machine type: %d"), mach
);
933 asm_prefix (int mach
, const char *name
)
949 /* Symbol names starting with ? do not have a leading underscore. */
950 if ((name
&& *name
== '?') || leading_underscore
== 0)
955 /* xgettext:c-format */
956 fatal (_("Internal error: Unknown machine type: %d"), mach
);
962 #define ASM_BYTE mtable[machine].how_byte
963 #define ASM_SHORT mtable[machine].how_short
964 #define ASM_LONG mtable[machine].how_long
965 #define ASM_TEXT mtable[machine].how_asciz
966 #define ASM_C mtable[machine].how_comment
967 #define ASM_JUMP mtable[machine].how_jump
968 #define ASM_GLOBAL mtable[machine].how_global
969 #define ASM_SPACE mtable[machine].how_space
970 #define ASM_ALIGN_SHORT mtable[machine].how_align_short
971 #define ASM_RVA_BEFORE rvabefore (machine)
972 #define ASM_RVA_AFTER rvaafter (machine)
973 #define ASM_PREFIX(NAME) asm_prefix (machine, (NAME))
974 #define ASM_ALIGN_LONG mtable[machine].how_align_long
975 #define HOW_BFD_READ_TARGET 0 /* Always default. */
976 #define HOW_BFD_WRITE_TARGET mtable[machine].how_bfd_target
977 #define HOW_BFD_ARCH mtable[machine].how_bfd_arch
978 #define HOW_JTAB (delay ? mtable[machine].how_dljtab \
979 : mtable[machine].how_jtab)
980 #define HOW_JTAB_SIZE (delay ? mtable[machine].how_dljtab_size \
981 : mtable[machine].how_jtab_size)
982 #define HOW_JTAB_ROFF (delay ? mtable[machine].how_dljtab_roff1 \
983 : mtable[machine].how_jtab_roff)
984 #define HOW_JTAB_ROFF2 (delay ? mtable[machine].how_dljtab_roff2 : 0)
985 #define HOW_JTAB_ROFF3 (delay ? mtable[machine].how_dljtab_roff3 : 0)
986 #define ASM_SWITCHES mtable[machine].how_default_as_switches
991 process_def_file (const char *name
)
993 FILE *f
= fopen (name
, FOPEN_RT
);
996 /* xgettext:c-format */
997 fatal (_("Can't open def file: %s"), name
);
1001 /* xgettext:c-format */
1002 inform (_("Processing def file: %s"), name
);
1006 inform (_("Processed def file"));
1009 /**********************************************************************/
1011 /* Communications with the parser. */
1013 static int d_nfuncs
; /* Number of functions exported. */
1014 static int d_named_nfuncs
; /* Number of named functions exported. */
1015 static int d_low_ord
; /* Lowest ordinal index. */
1016 static int d_high_ord
; /* Highest ordinal index. */
1017 static export_type
*d_exports
; /* List of exported functions. */
1018 static export_type
**d_exports_lexically
; /* Vector of exported functions in alpha order. */
1019 static dlist_type
*d_list
; /* Descriptions. */
1020 static dlist_type
*a_list
; /* Stuff to go in directives. */
1021 static int d_nforwards
= 0; /* Number of forwarded exports. */
1023 static int d_is_dll
;
1024 static int d_is_exe
;
1027 yyerror (const char * err ATTRIBUTE_UNUSED
)
1029 /* xgettext:c-format */
1030 non_fatal (_("Syntax error in def file %s:%d"), def_file
, linenumber
);
1036 def_exports (const char *name
, const char *internal_name
, int ordinal
,
1037 int noname
, int constant
, int data
, int private,
1038 const char *its_name
)
1040 struct export
*p
= (struct export
*) xmalloc (sizeof (*p
));
1043 p
->internal_name
= internal_name
? internal_name
: name
;
1044 p
->its_name
= its_name
;
1045 p
->import_name
= name
;
1046 p
->ordinal
= ordinal
;
1047 p
->constant
= constant
;
1049 p
->private = private;
1051 p
->next
= d_exports
;
1055 if ((internal_name
!= NULL
)
1056 && (strchr (internal_name
, '.') != NULL
))
1057 p
->forward
= ++d_nforwards
;
1059 p
->forward
= 0; /* no forward */
1063 set_dll_name_from_def (const char *name
, char is_dll
)
1065 const char *image_basename
= lbasename (name
);
1066 if (image_basename
!= name
)
1067 non_fatal (_("%s: Path components stripped from image name, '%s'."),
1069 /* Append the default suffix, if none specified. */
1070 if (strchr (image_basename
, '.') == 0)
1072 const char * suffix
= is_dll
? ".dll" : ".exe";
1074 dll_name
= xmalloc (strlen (image_basename
) + strlen (suffix
) + 1);
1075 sprintf (dll_name
, "%s%s", image_basename
, suffix
);
1078 dll_name
= xstrdup (image_basename
);
1082 def_name (const char *name
, int base
)
1084 /* xgettext:c-format */
1085 inform (_("NAME: %s base: %x"), name
, base
);
1088 non_fatal (_("Can't have LIBRARY and NAME"));
1090 if (dll_name_set_by_exp_name
&& name
&& *name
!= 0)
1093 dll_name_set_by_exp_name
= 0;
1095 /* If --dllname not provided, use the one in the DEF file.
1096 FIXME: Is this appropriate for executables? */
1098 set_dll_name_from_def (name
, 0);
1103 def_library (const char *name
, int base
)
1105 /* xgettext:c-format */
1106 inform (_("LIBRARY: %s base: %x"), name
, base
);
1109 non_fatal (_("Can't have LIBRARY and NAME"));
1111 if (dll_name_set_by_exp_name
&& name
&& *name
!= 0)
1114 dll_name_set_by_exp_name
= 0;
1117 /* If --dllname not provided, use the one in the DEF file. */
1119 set_dll_name_from_def (name
, 1);
1124 def_description (const char *desc
)
1126 dlist_type
*d
= (dlist_type
*) xmalloc (sizeof (dlist_type
));
1127 d
->text
= xstrdup (desc
);
1133 new_directive (char *dir
)
1135 dlist_type
*d
= (dlist_type
*) xmalloc (sizeof (dlist_type
));
1136 d
->text
= xstrdup (dir
);
1142 def_heapsize (int reserve
, int commit
)
1146 sprintf (b
, "-heap 0x%x,0x%x ", reserve
, commit
);
1148 sprintf (b
, "-heap 0x%x ", reserve
);
1149 new_directive (xstrdup (b
));
1153 def_stacksize (int reserve
, int commit
)
1157 sprintf (b
, "-stack 0x%x,0x%x ", reserve
, commit
);
1159 sprintf (b
, "-stack 0x%x ", reserve
);
1160 new_directive (xstrdup (b
));
1163 /* append_import simply adds the given import definition to the global
1164 import_list. It is used by def_import. */
1167 append_import (const char *symbol_name
, const char *dllname
, int func_ordinal
,
1168 const char *its_name
)
1173 for (pq
= &import_list
; *pq
!= NULL
; pq
= &(*pq
)->next
)
1175 if (strcmp ((*pq
)->dllname
, dllname
) == 0)
1178 q
->functail
->next
= xmalloc (sizeof (ifunctype
));
1179 q
->functail
= q
->functail
->next
;
1180 q
->functail
->ord
= func_ordinal
;
1181 q
->functail
->name
= xstrdup (symbol_name
);
1182 q
->functail
->its_name
= (its_name
? xstrdup (its_name
) : NULL
);
1183 q
->functail
->next
= NULL
;
1189 q
= xmalloc (sizeof (iheadtype
));
1190 q
->dllname
= xstrdup (dllname
);
1192 q
->funchead
= xmalloc (sizeof (ifunctype
));
1193 q
->functail
= q
->funchead
;
1195 q
->functail
->name
= xstrdup (symbol_name
);
1196 q
->functail
->its_name
= (its_name
? xstrdup (its_name
) : NULL
);
1197 q
->functail
->ord
= func_ordinal
;
1198 q
->functail
->next
= NULL
;
1203 /* def_import is called from within defparse.y when an IMPORT
1204 declaration is encountered. Depending on the form of the
1205 declaration, the module name may or may not need ".dll" to be
1206 appended to it, the name of the function may be stored in internal
1207 or entry, and there may or may not be an ordinal value associated
1210 /* A note regarding the parse modes:
1211 In defparse.y we have to accept import declarations which follow
1212 any one of the following forms:
1213 <func_name_in_app> = <dll_name>.<func_name_in_dll>
1214 <func_name_in_app> = <dll_name>.<number>
1215 <dll_name>.<func_name_in_dll>
1217 Furthermore, the dll's name may or may not end with ".dll", which
1218 complicates the parsing a little. Normally the dll's name is
1219 passed to def_import() in the "module" parameter, but when it ends
1220 with ".dll" it gets passed in "module" sans ".dll" and that needs
1223 def_import gets five parameters:
1224 APP_NAME - the name of the function in the application, if
1225 present, or NULL if not present.
1226 MODULE - the name of the dll, possibly sans extension (ie, '.dll').
1227 DLLEXT - the extension of the dll, if present, NULL if not present.
1228 ENTRY - the name of the function in the dll, if present, or NULL.
1229 ORD_VAL - the numerical tag of the function in the dll, if present,
1230 or NULL. Exactly one of <entry> or <ord_val> must be
1231 present (i.e., not NULL). */
1234 def_import (const char *app_name
, const char *module
, const char *dllext
,
1235 const char *entry
, int ord_val
, const char *its_name
)
1237 const char *application_name
;
1241 application_name
= entry
;
1244 if (app_name
!= NULL
)
1245 application_name
= app_name
;
1247 application_name
= "";
1251 module
= buf
= concat (module
, ".", dllext
, NULL
);
1253 append_import (application_name
, module
, ord_val
, its_name
);
1260 def_version (int major
, int minor
)
1262 printf (_("VERSION %d.%d\n"), major
, minor
);
1266 def_section (const char *name
, int attr
)
1281 sprintf (buf
, "-attr %s %s", name
, atts
);
1282 new_directive (xstrdup (buf
));
1289 def_section ("CODE", attr
);
1295 def_section ("DATA", attr
);
1298 /**********************************************************************/
1301 run (const char *what
, char *args
)
1304 int pid
, wait_status
;
1307 char *errmsg_fmt
, *errmsg_arg
;
1308 char *temp_base
= choose_temp_base ();
1310 inform (_("run: %s %s"), what
, args
);
1312 /* Count the args */
1314 for (s
= args
; *s
; s
++)
1318 argv
= xmalloc (sizeof (char *) * (i
+ 3));
1327 while (*s
!= ' ' && *s
!= 0)
1335 pid
= pexecute (argv
[0], (char * const *) argv
, program_name
, temp_base
,
1336 &errmsg_fmt
, &errmsg_arg
, PEXECUTE_ONE
| PEXECUTE_SEARCH
);
1341 inform ("%s", strerror (errno
));
1343 fatal (errmsg_fmt
, errmsg_arg
);
1346 pid
= pwait (pid
, & wait_status
, 0);
1350 /* xgettext:c-format */
1351 fatal (_("wait: %s"), strerror (errno
));
1353 else if (WIFSIGNALED (wait_status
))
1355 /* xgettext:c-format */
1356 fatal (_("subprocess got fatal signal %d"), WTERMSIG (wait_status
));
1358 else if (WIFEXITED (wait_status
))
1360 if (WEXITSTATUS (wait_status
) != 0)
1361 /* xgettext:c-format */
1362 non_fatal (_("%s exited with status %d"),
1363 what
, WEXITSTATUS (wait_status
));
1369 /* Look for a list of symbols to export in the .drectve section of
1370 ABFD. Pass each one to def_exports. */
1373 scan_drectve_symbols (bfd
*abfd
)
1381 /* Look for .drectve's */
1382 s
= bfd_get_section_by_name (abfd
, DRECTVE_SECTION_NAME
);
1387 size
= bfd_section_size (s
);
1388 buf
= xmalloc (size
);
1390 bfd_get_section_contents (abfd
, s
, buf
, 0, size
);
1392 /* xgettext:c-format */
1393 inform (_("Sucking in info from %s section in %s"),
1394 DRECTVE_SECTION_NAME
, bfd_get_filename (abfd
));
1396 /* Search for -export: strings. The exported symbols can optionally
1397 have type tags (eg., -export:foo,data), so handle those as well.
1398 Currently only data tag is supported. */
1404 && CONST_STRNEQ (p
, "-export:"))
1408 flagword flags
= BSF_FUNCTION
;
1411 /* Do we have a quoted export? */
1416 while (p
< e
&& *p
!= '"')
1422 while (p
< e
&& *p
!= ',' && *p
!= ' ' && *p
!= '-')
1425 c
= xmalloc (p
- name
+ 1);
1426 memcpy (c
, name
, p
- name
);
1428 /* Advance over trailing quote. */
1429 if (p
< e
&& *p
== '"')
1431 if (p
< e
&& *p
== ',') /* found type tag. */
1433 char *tag_start
= ++p
;
1434 while (p
< e
&& *p
!= ' ' && *p
!= '-')
1436 if (CONST_STRNEQ (tag_start
, "data"))
1437 flags
&= ~BSF_FUNCTION
;
1440 /* FIXME: The 5th arg is for the `constant' field.
1441 What should it be? Not that it matters since it's not
1442 currently useful. */
1443 def_exports (c
, 0, -1, 0, 0, ! (flags
& BSF_FUNCTION
), 0, NULL
);
1445 if (add_stdcall_alias
&& strchr (c
, '@'))
1447 int lead_at
= (*c
== '@') ;
1448 char *exported_name
= xstrdup (c
+ lead_at
);
1449 char *atsym
= strchr (exported_name
, '@');
1451 /* Note: stdcall alias symbols can never be data. */
1452 def_exports (exported_name
, xstrdup (c
), -1, 0, 0, 0, 0, NULL
);
1461 /* Look through the symbols in MINISYMS, and add each one to list of
1462 symbols to export. */
1465 scan_filtered_symbols (bfd
*abfd
, void *minisyms
, long symcount
,
1469 bfd_byte
*from
, *fromend
;
1471 store
= bfd_make_empty_symbol (abfd
);
1473 bfd_fatal (bfd_get_filename (abfd
));
1475 from
= (bfd_byte
*) minisyms
;
1476 fromend
= from
+ symcount
* size
;
1477 for (; from
< fromend
; from
+= size
)
1480 const char *symbol_name
;
1482 sym
= bfd_minisymbol_to_symbol (abfd
, FALSE
, from
, store
);
1484 bfd_fatal (bfd_get_filename (abfd
));
1486 symbol_name
= bfd_asymbol_name (sym
);
1487 if (bfd_get_symbol_leading_char (abfd
) == symbol_name
[0])
1490 def_exports (xstrdup (symbol_name
) , 0, -1, 0, 0,
1491 ! (sym
->flags
& BSF_FUNCTION
), 0, NULL
);
1493 if (add_stdcall_alias
&& strchr (symbol_name
, '@'))
1495 int lead_at
= (*symbol_name
== '@');
1496 char *exported_name
= xstrdup (symbol_name
+ lead_at
);
1497 char *atsym
= strchr (exported_name
, '@');
1499 /* Note: stdcall alias symbols can never be data. */
1500 def_exports (exported_name
, xstrdup (symbol_name
), -1, 0, 0, 0, 0, NULL
);
1505 /* Add a list of symbols to exclude. */
1508 add_excludes (const char *new_excludes
)
1511 char *exclude_string
;
1513 local_copy
= xstrdup (new_excludes
);
1515 exclude_string
= strtok (local_copy
, ",:");
1516 for (; exclude_string
; exclude_string
= strtok (NULL
, ",:"))
1518 struct string_list
*new_exclude
;
1520 new_exclude
= ((struct string_list
*)
1521 xmalloc (sizeof (struct string_list
)));
1522 new_exclude
->string
= (char *) xmalloc (strlen (exclude_string
) + 2);
1523 /* Don't add a leading underscore for fastcall symbols. */
1524 if (*exclude_string
== '@')
1525 sprintf (new_exclude
->string
, "%s", exclude_string
);
1527 sprintf (new_exclude
->string
, "%s%s", (!leading_underscore
? "" : "_"),
1529 new_exclude
->next
= excludes
;
1530 excludes
= new_exclude
;
1532 /* xgettext:c-format */
1533 inform (_("Excluding symbol: %s"), exclude_string
);
1539 /* See if STRING is on the list of symbols to exclude. */
1542 match_exclude (const char *string
)
1544 struct string_list
*excl_item
;
1546 for (excl_item
= excludes
; excl_item
; excl_item
= excl_item
->next
)
1547 if (strcmp (string
, excl_item
->string
) == 0)
1552 /* Add the default list of symbols to exclude. */
1555 set_default_excludes (void)
1557 add_excludes (default_excludes
);
1560 /* Choose which symbols to export. */
1563 filter_symbols (bfd
*abfd
, void *minisyms
, long symcount
, unsigned int size
)
1565 bfd_byte
*from
, *fromend
, *to
;
1568 store
= bfd_make_empty_symbol (abfd
);
1570 bfd_fatal (bfd_get_filename (abfd
));
1572 from
= (bfd_byte
*) minisyms
;
1573 fromend
= from
+ symcount
* size
;
1574 to
= (bfd_byte
*) minisyms
;
1576 for (; from
< fromend
; from
+= size
)
1581 sym
= bfd_minisymbol_to_symbol (abfd
, FALSE
, (const void *) from
, store
);
1583 bfd_fatal (bfd_get_filename (abfd
));
1585 /* Check for external and defined only symbols. */
1586 keep
= (((sym
->flags
& BSF_GLOBAL
) != 0
1587 || (sym
->flags
& BSF_WEAK
) != 0
1588 || bfd_is_com_section (sym
->section
))
1589 && ! bfd_is_und_section (sym
->section
));
1591 keep
= keep
&& ! match_exclude (sym
->name
);
1595 memcpy (to
, from
, size
);
1600 return (to
- (bfd_byte
*) minisyms
) / size
;
1603 /* Export all symbols in ABFD, except for ones we were told not to
1607 scan_all_symbols (bfd
*abfd
)
1613 /* Ignore bfds with an import descriptor table. We assume that any
1614 such BFD contains symbols which are exported from another DLL,
1615 and we don't want to reexport them from here. */
1616 if (bfd_get_section_by_name (abfd
, ".idata$4"))
1619 if (! (bfd_get_file_flags (abfd
) & HAS_SYMS
))
1621 /* xgettext:c-format */
1622 non_fatal (_("%s: no symbols"), bfd_get_filename (abfd
));
1626 symcount
= bfd_read_minisymbols (abfd
, FALSE
, &minisyms
, &size
);
1628 bfd_fatal (bfd_get_filename (abfd
));
1632 /* xgettext:c-format */
1633 non_fatal (_("%s: no symbols"), bfd_get_filename (abfd
));
1637 /* Discard the symbols we don't want to export. It's OK to do this
1638 in place; we'll free the storage anyway. */
1640 symcount
= filter_symbols (abfd
, minisyms
, symcount
, size
);
1641 scan_filtered_symbols (abfd
, minisyms
, symcount
, size
);
1646 /* Look at the object file to decide which symbols to export. */
1649 scan_open_obj_file (bfd
*abfd
)
1651 if (export_all_symbols
)
1652 scan_all_symbols (abfd
);
1654 scan_drectve_symbols (abfd
);
1656 /* FIXME: we ought to read in and block out the base relocations. */
1658 /* xgettext:c-format */
1659 inform (_("Done reading %s"), bfd_get_filename (abfd
));
1663 scan_obj_file (const char *filename
)
1665 bfd
* f
= bfd_openr (filename
, 0);
1668 /* xgettext:c-format */
1669 fatal (_("Unable to open object file: %s: %s"), filename
, bfd_get_errmsg ());
1671 /* xgettext:c-format */
1672 inform (_("Scanning object file %s"), filename
);
1674 if (bfd_check_format (f
, bfd_archive
))
1676 bfd
*arfile
= bfd_openr_next_archived_file (f
, 0);
1680 if (bfd_check_format (arfile
, bfd_object
))
1681 scan_open_obj_file (arfile
);
1682 next
= bfd_openr_next_archived_file (f
, arfile
);
1684 /* PR 17512: file: 58715298. */
1690 #ifdef DLLTOOL_MCORE_ELF
1691 if (mcore_elf_out_file
)
1692 inform (_("Cannot produce mcore-elf dll from archive file: %s"), filename
);
1695 else if (bfd_check_format (f
, bfd_object
))
1697 scan_open_obj_file (f
);
1699 #ifdef DLLTOOL_MCORE_ELF
1700 if (mcore_elf_out_file
)
1701 mcore_elf_cache_filename (filename
);
1711 dump_def_info (FILE *f
)
1715 fprintf (f
, "%s ", ASM_C
);
1716 for (i
= 0; oav
[i
]; i
++)
1717 fprintf (f
, "%s ", oav
[i
]);
1719 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
1721 fprintf (f
, "%s %d = %s %s @ %d %s%s%s%s%s%s\n",
1727 exp
->noname
? "NONAME " : "",
1728 exp
->private ? "PRIVATE " : "",
1729 exp
->constant
? "CONSTANT" : "",
1730 exp
->data
? "DATA" : "",
1731 exp
->its_name
? " ==" : "",
1732 exp
->its_name
? exp
->its_name
: "");
1736 /* Generate the .exp file. */
1739 sfunc (const void *a
, const void *b
)
1741 if (*(const bfd_vma
*) a
== *(const bfd_vma
*) b
)
1744 return ((*(const bfd_vma
*) a
> *(const bfd_vma
*) b
) ? 1 : -1);
1748 flush_page (FILE *f
, bfd_vma
*need
, bfd_vma page_addr
, int on_page
)
1752 /* Flush this page. */
1753 fprintf (f
, "\t%s\t0x%08x\t%s Starting RVA for chunk\n",
1757 fprintf (f
, "\t%s\t0x%x\t%s Size of block\n",
1759 (on_page
* 2) + (on_page
& 1) * 2 + 8,
1762 for (i
= 0; i
< on_page
; i
++)
1764 bfd_vma needed
= need
[i
];
1768 if (!create_for_pep
)
1770 /* Relocation via HIGHLOW. */
1771 needed
= ((needed
- page_addr
) | 0x3000) & 0xffff;
1775 /* Relocation via DIR64. */
1776 needed
= ((needed
- page_addr
) | 0xa000) & 0xffff;
1780 fprintf (f
, "\t%s\t0x%lx\n", ASM_SHORT
, (long) needed
);
1785 fprintf (f
, "\t%s\t0x%x\n", ASM_SHORT
, 0 | 0x0000);
1794 inform (_("Adding exports to output file"));
1796 fprintf (output_def
, ";");
1797 for (i
= 0; oav
[i
]; i
++)
1798 fprintf (output_def
, " %s", oav
[i
]);
1800 fprintf (output_def
, "\nEXPORTS\n");
1802 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
1804 char *quote
= strchr (exp
->name
, '.') ? "\"" : "";
1805 char *res
= cplus_demangle (exp
->internal_name
, DMGL_ANSI
| DMGL_PARAMS
);
1809 fprintf (output_def
,";\t%s\n", res
);
1813 if (strcmp (exp
->name
, exp
->internal_name
) == 0)
1815 fprintf (output_def
, "\t%s%s%s @ %d%s%s%s%s%s\n",
1820 exp
->noname
? " NONAME" : "",
1821 exp
->private ? "PRIVATE " : "",
1822 exp
->data
? " DATA" : "",
1823 exp
->its_name
? " ==" : "",
1824 exp
->its_name
? exp
->its_name
: "");
1828 char * quote1
= strchr (exp
->internal_name
, '.') ? "\"" : "";
1830 fprintf (output_def
, "\t%s%s%s = %s%s%s @ %d%s%s%s%s%s\n",
1838 exp
->noname
? " NONAME" : "",
1839 exp
->private ? "PRIVATE " : "",
1840 exp
->data
? " DATA" : "",
1841 exp
->its_name
? " ==" : "",
1842 exp
->its_name
? exp
->its_name
: "");
1846 inform (_("Added exports to output file"));
1849 /* generate_idata_ofile generates the portable assembly source code
1850 for the idata sections. It appends the source code to the end of
1854 generate_idata_ofile (FILE *filvar
)
1862 if (import_list
== NULL
)
1865 fprintf (filvar
, "%s Import data sections\n", ASM_C
);
1866 fprintf (filvar
, "\n\t.section\t.idata$2\n");
1867 fprintf (filvar
, "\t%s\tdoi_idata\n", ASM_GLOBAL
);
1868 fprintf (filvar
, "doi_idata:\n");
1871 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1873 fprintf (filvar
, "\t%slistone%d%s\t%s %s\n",
1874 ASM_RVA_BEFORE
, nheads
, ASM_RVA_AFTER
,
1875 ASM_C
, headptr
->dllname
);
1876 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1877 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1878 fprintf (filvar
, "\t%sdllname%d%s\n",
1879 ASM_RVA_BEFORE
, nheads
, ASM_RVA_AFTER
);
1880 fprintf (filvar
, "\t%slisttwo%d%s\n\n",
1881 ASM_RVA_BEFORE
, nheads
, ASM_RVA_AFTER
);
1885 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* NULL record at */
1886 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* end of idata$2 */
1887 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* section */
1888 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1889 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1891 fprintf (filvar
, "\n\t.section\t.idata$4\n");
1893 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1895 fprintf (filvar
, "listone%d:\n", headindex
);
1896 for (funcindex
= 0; funcindex
< headptr
->nfuncs
; funcindex
++)
1899 fprintf (filvar
, "\t%sfuncptr%d_%d%s\n%s\t0\n",
1900 ASM_RVA_BEFORE
, headindex
, funcindex
, ASM_RVA_AFTER
,
1903 fprintf (filvar
, "\t%sfuncptr%d_%d%s\n",
1904 ASM_RVA_BEFORE
, headindex
, funcindex
, ASM_RVA_AFTER
);
1907 fprintf (filvar
, "\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
1909 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* NULL terminating list. */
1913 fprintf (filvar
, "\n\t.section\t.idata$5\n");
1915 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1917 fprintf (filvar
, "listtwo%d:\n", headindex
);
1918 for (funcindex
= 0; funcindex
< headptr
->nfuncs
; funcindex
++)
1921 fprintf (filvar
, "\t%sfuncptr%d_%d%s\n%s\t0\n",
1922 ASM_RVA_BEFORE
, headindex
, funcindex
, ASM_RVA_AFTER
,
1925 fprintf (filvar
, "\t%sfuncptr%d_%d%s\n",
1926 ASM_RVA_BEFORE
, headindex
, funcindex
, ASM_RVA_AFTER
);
1929 fprintf (filvar
, "\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
1931 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* NULL terminating list. */
1935 fprintf (filvar
, "\n\t.section\t.idata$6\n");
1937 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1940 for (funcptr
= headptr
->funchead
; funcptr
!= NULL
;
1941 funcptr
= funcptr
->next
)
1943 fprintf (filvar
,"funcptr%d_%d:\n", headindex
, funcindex
);
1944 fprintf (filvar
,"\t%s\t%d\n", ASM_SHORT
,
1945 ((funcptr
->ord
) & 0xFFFF));
1946 fprintf (filvar
,"\t%s\t\"%s\"\n", ASM_TEXT
,
1947 (funcptr
->its_name
? funcptr
->its_name
: funcptr
->name
));
1948 fprintf (filvar
,"\t%s\t0\n", ASM_BYTE
);
1954 fprintf (filvar
, "\n\t.section\t.idata$7\n");
1956 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1958 fprintf (filvar
,"dllname%d:\n", headindex
);
1959 fprintf (filvar
,"\t%s\t\"%s\"\n", ASM_TEXT
, headptr
->dllname
);
1960 fprintf (filvar
,"\t%s\t0\n", ASM_BYTE
);
1965 /* Assemble the specified file. */
1967 assemble_file (const char * source
, const char * dest
)
1971 cmd
= xmalloc (strlen (ASM_SWITCHES
) + strlen (as_flags
)
1972 + strlen (source
) + strlen (dest
) + 50);
1974 sprintf (cmd
, "%s %s -o %s %s", ASM_SWITCHES
, as_flags
, dest
, source
);
1980 static const char * temp_file_to_remove
[5];
1981 #define TEMP_EXPORT_FILE 0
1982 #define TEMP_HEAD_FILE 1
1983 #define TEMP_TAIL_FILE 2
1984 #define TEMP_HEAD_O_FILE 3
1985 #define TEMP_TAIL_O_FILE 4
1988 unlink_temp_files (void)
1992 if (dontdeltemps
> 0)
1995 for (i
= 0; i
< ARRAY_SIZE (temp_file_to_remove
); i
++)
1997 if (temp_file_to_remove
[i
])
1999 unlink (temp_file_to_remove
[i
]);
2000 temp_file_to_remove
[i
] = NULL
;
2013 /* xgettext:c-format */
2014 inform (_("Generating export file: %s"), exp_name
);
2016 f
= fopen (TMP_ASM
, FOPEN_WT
);
2018 /* xgettext:c-format */
2019 fatal (_("Unable to open temporary assembler file: %s"), TMP_ASM
);
2021 temp_file_to_remove
[TEMP_EXPORT_FILE
] = TMP_ASM
;
2023 /* xgettext:c-format */
2024 inform (_("Opened temporary file: %s"), TMP_ASM
);
2030 fprintf (f
, "\t.section .edata\n\n");
2031 fprintf (f
, "\t%s 0 %s Allways 0\n", ASM_LONG
, ASM_C
);
2032 fprintf (f
, "\t%s 0x%lx %s Time and date\n", ASM_LONG
,
2033 (unsigned long) time(0), ASM_C
);
2034 fprintf (f
, "\t%s 0 %s Major and Minor version\n", ASM_LONG
, ASM_C
);
2035 fprintf (f
, "\t%sname%s %s Ptr to name of dll\n", ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
2036 fprintf (f
, "\t%s %d %s Starting ordinal of exports\n", ASM_LONG
, d_low_ord
, ASM_C
);
2039 fprintf (f
, "\t%s %d %s Number of functions\n", ASM_LONG
, d_high_ord
- d_low_ord
+ 1, ASM_C
);
2040 fprintf(f
,"\t%s named funcs %d, low ord %d, high ord %d\n",
2042 d_named_nfuncs
, d_low_ord
, d_high_ord
);
2043 fprintf (f
, "\t%s %d %s Number of names\n", ASM_LONG
,
2044 show_allnames
? d_high_ord
- d_low_ord
+ 1 : d_named_nfuncs
, ASM_C
);
2045 fprintf (f
, "\t%safuncs%s %s Address of functions\n", ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
2047 fprintf (f
, "\t%sanames%s %s Address of Name Pointer Table\n",
2048 ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
2050 fprintf (f
, "\t%sanords%s %s Address of ordinals\n", ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
2052 fprintf (f
, "name: %s \"%s\"\n", ASM_TEXT
, dll_name
);
2055 fprintf(f
,"%s Export address Table\n", ASM_C
);
2056 fprintf(f
,"\t%s\n", ASM_ALIGN_LONG
);
2057 fprintf (f
, "afuncs:\n");
2060 for (exp
= d_exports
; exp
; exp
= exp
->next
)
2062 if (exp
->ordinal
!= i
)
2064 while (i
< exp
->ordinal
)
2066 fprintf(f
,"\t%s\t0\n", ASM_LONG
);
2071 if (exp
->forward
== 0)
2073 if (exp
->internal_name
[0] == '@')
2074 fprintf (f
, "\t%s%s%s\t%s %d\n", ASM_RVA_BEFORE
,
2075 exp
->internal_name
, ASM_RVA_AFTER
, ASM_C
, exp
->ordinal
);
2077 fprintf (f
, "\t%s%s%s%s\t%s %d\n", ASM_RVA_BEFORE
,
2078 ASM_PREFIX (exp
->internal_name
),
2079 exp
->internal_name
, ASM_RVA_AFTER
, ASM_C
, exp
->ordinal
);
2082 fprintf (f
, "\t%sf%d%s\t%s %d\n", ASM_RVA_BEFORE
,
2083 exp
->forward
, ASM_RVA_AFTER
, ASM_C
, exp
->ordinal
);
2087 fprintf (f
,"%s Export Name Pointer Table\n", ASM_C
);
2088 fprintf (f
, "anames:\n");
2090 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
2092 if (!exp
->noname
|| show_allnames
)
2093 fprintf (f
, "\t%sn%d%s\n",
2094 ASM_RVA_BEFORE
, exp
->ordinal
, ASM_RVA_AFTER
);
2097 fprintf (f
,"%s Export Ordinal Table\n", ASM_C
);
2098 fprintf (f
, "anords:\n");
2099 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
2101 if (!exp
->noname
|| show_allnames
)
2102 fprintf (f
, "\t%s %d\n", ASM_SHORT
, exp
->ordinal
- d_low_ord
);
2105 fprintf(f
,"%s Export Name Table\n", ASM_C
);
2106 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
2108 if (!exp
->noname
|| show_allnames
)
2109 fprintf (f
, "n%d: %s \"%s\"\n",
2110 exp
->ordinal
, ASM_TEXT
,
2111 (exp
->its_name
? exp
->its_name
: xlate (exp
->name
)));
2112 if (exp
->forward
!= 0)
2113 fprintf (f
, "f%d: %s \"%s\"\n",
2114 exp
->forward
, ASM_TEXT
, exp
->internal_name
);
2119 fprintf (f
, "\t.section %s\n", DRECTVE_SECTION_NAME
);
2120 for (dl
= a_list
; dl
; dl
= dl
->next
)
2122 fprintf (f
, "\t%s\t\"%s\"\n", ASM_TEXT
, dl
->text
);
2128 fprintf (f
, "\t.section .rdata\n");
2129 for (dl
= d_list
; dl
; dl
= dl
->next
)
2134 /* We don't output as ascii because there can
2135 be quote characters in the string. */
2137 for (p
= dl
->text
; *p
; p
++)
2140 fprintf (f
, "\t%s\t", ASM_BYTE
);
2143 fprintf (f
, "%d", *p
);
2146 fprintf (f
, ",0\n");
2159 /* Add to the output file a way of getting to the exported names
2160 without using the import library. */
2163 fprintf (f
, "\t.section\t.rdata\n");
2164 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
2165 if (!exp
->noname
|| show_allnames
)
2167 /* We use a single underscore for MS compatibility, and a
2168 double underscore for backward compatibility with old
2170 if (create_compat_implib
)
2171 fprintf (f
, "\t%s\t__imp_%s\n", ASM_GLOBAL
, exp
->name
);
2172 fprintf (f
, "\t%s\t_imp_%s%s\n", ASM_GLOBAL
,
2173 (!leading_underscore
? "" : "_"), exp
->name
);
2174 if (create_compat_implib
)
2175 fprintf (f
, "__imp_%s:\n", exp
->name
);
2176 fprintf (f
, "_imp_%s%s:\n", (!leading_underscore
? "" : "_"), exp
->name
);
2177 fprintf (f
, "\t%s\t%s\n", ASM_LONG
, exp
->name
);
2181 /* Dump the reloc section if a base file is provided. */
2185 bfd_vma need
[COFF_PAGE_SIZE
];
2187 bfd_size_type numbytes
;
2192 fprintf (f
, "\t.section\t.init\n");
2193 fprintf (f
, "lab:\n");
2195 fseek (base_file
, 0, SEEK_END
);
2196 numbytes
= ftell (base_file
);
2197 fseek (base_file
, 0, SEEK_SET
);
2198 copy
= xmalloc (numbytes
);
2199 if (fread (copy
, 1, numbytes
, base_file
) < numbytes
)
2200 fatal (_("failed to read the number of entries from base file"));
2201 num_entries
= numbytes
/ sizeof (bfd_vma
);
2204 fprintf (f
, "\t.section\t.reloc\n");
2209 bfd_vma last
= (bfd_vma
) -1;
2210 qsort (copy
, num_entries
, sizeof (bfd_vma
), sfunc
);
2211 /* Delete duplicates */
2212 for (src
= 0; src
< num_entries
; src
++)
2214 if (last
!= copy
[src
])
2215 last
= copy
[dst
++] = copy
[src
];
2219 page_addr
= addr
& PAGE_MASK
; /* work out the page addr */
2221 for (j
= 0; j
< num_entries
; j
++)
2224 if ((addr
& PAGE_MASK
) != page_addr
)
2226 flush_page (f
, need
, page_addr
, on_page
);
2228 page_addr
= addr
& PAGE_MASK
;
2230 need
[on_page
++] = addr
;
2232 flush_page (f
, need
, page_addr
, on_page
);
2234 /* fprintf (f, "\t%s\t0,0\t%s End\n", ASM_LONG, ASM_C);*/
2238 generate_idata_ofile (f
);
2242 /* Assemble the file. */
2243 assemble_file (TMP_ASM
, exp_name
);
2245 if (dontdeltemps
== 0)
2247 temp_file_to_remove
[TEMP_EXPORT_FILE
] = NULL
;
2251 inform (_("Generated exports file"));
2255 xlate (const char *name
)
2257 int lead_at
= (*name
== '@');
2258 int is_stdcall
= (!lead_at
&& strchr (name
, '@') != NULL
);
2260 if (!lead_at
&& (add_underscore
2261 || (add_stdcall_underscore
&& is_stdcall
)))
2263 char *copy
= xmalloc (strlen (name
) + 2);
2266 strcpy (copy
+ 1, name
);
2275 /* PR 9766: Look for the last @ sign in the name. */
2276 p
= strrchr (name
, '@');
2277 if (p
&& ISDIGIT (p
[1]))
2293 unsigned char *data
;
2296 #define INIT_SEC_DATA(id, name, flags, align) \
2297 { id, name, flags, align, NULL, NULL, NULL, 0, NULL }
2311 #define TEXT_SEC_FLAGS \
2312 (SEC_ALLOC | SEC_LOAD | SEC_CODE | SEC_READONLY | SEC_HAS_CONTENTS)
2313 #define DATA_SEC_FLAGS (SEC_ALLOC | SEC_LOAD | SEC_DATA)
2314 #define BSS_SEC_FLAGS SEC_ALLOC
2316 static sinfo secdata
[NSECS
] =
2318 INIT_SEC_DATA (TEXT
, ".text", TEXT_SEC_FLAGS
, 2),
2319 INIT_SEC_DATA (DATA
, ".data", DATA_SEC_FLAGS
, 2),
2320 INIT_SEC_DATA (BSS
, ".bss", BSS_SEC_FLAGS
, 2),
2321 INIT_SEC_DATA (IDATA7
, ".idata$7", SEC_HAS_CONTENTS
, 2),
2322 INIT_SEC_DATA (IDATA5
, ".idata$5", SEC_HAS_CONTENTS
, 2),
2323 INIT_SEC_DATA (IDATA4
, ".idata$4", SEC_HAS_CONTENTS
, 2),
2324 INIT_SEC_DATA (IDATA6
, ".idata$6", SEC_HAS_CONTENTS
, 1)
2329 /* Sections numbered to make the order the same as other PowerPC NT
2330 compilers. This also keeps funny alignment thingies from happening. */
2343 static sinfo secdata
[NSECS
] =
2345 INIT_SEC_DATA (TEXT
, ".text", SEC_CODE
| SEC_HAS_CONTENTS
, 3),
2346 INIT_SEC_DATA (PDATA
, ".pdata", SEC_HAS_CONTENTS
, 2),
2347 INIT_SEC_DATA (RDATA
, ".reldata", SEC_HAS_CONTENTS
, 2),
2348 INIT_SEC_DATA (IDATA5
, ".idata$5", SEC_HAS_CONTENTS
, 2),
2349 INIT_SEC_DATA (IDATA4
, ".idata$4", SEC_HAS_CONTENTS
, 2),
2350 INIT_SEC_DATA (IDATA6
, ".idata$6", SEC_HAS_CONTENTS
, 1),
2351 INIT_SEC_DATA (IDATA7
, ".idata$7", SEC_HAS_CONTENTS
, 2),
2352 INIT_SEC_DATA (DATA
, ".data", SEC_DATA
, 2),
2353 INIT_SEC_DATA (BSS
, ".bss", 0, 2)
2358 /* This is what we're trying to make. We generate the imp symbols with
2359 both single and double underscores, for compatibility.
2362 .global _GetFileVersionInfoSizeW@8
2363 .global __imp_GetFileVersionInfoSizeW@8
2364 _GetFileVersionInfoSizeW@8:
2365 jmp * __imp_GetFileVersionInfoSizeW@8
2366 .section .idata$7 # To force loading of head
2367 .long __version_a_head
2368 # Import Address Table
2370 __imp_GetFileVersionInfoSizeW@8:
2373 # Import Lookup Table
2379 .asciz "GetFileVersionInfoSizeW"
2382 For the PowerPC, here's the variation on the above scheme:
2384 # Rather than a simple "jmp *", the code to get to the dll function
2387 lwz r11,[tocv]__imp_function_name(r2)
2388 # RELOC: 00000000 TOCREL16,TOCDEFN __imp_function_name
2396 make_label (const char *prefix
, const char *name
)
2398 int len
= strlen (ASM_PREFIX (name
)) + strlen (prefix
) + strlen (name
);
2399 char *copy
= xmalloc (len
+ 1);
2401 strcpy (copy
, ASM_PREFIX (name
));
2402 strcat (copy
, prefix
);
2403 strcat (copy
, name
);
2408 make_imp_label (const char *prefix
, const char *name
)
2415 len
= strlen (prefix
) + strlen (name
);
2416 copy
= xmalloc (len
+ 1);
2417 strcpy (copy
, prefix
);
2418 strcat (copy
, name
);
2422 len
= strlen (ASM_PREFIX (name
)) + strlen (prefix
) + strlen (name
);
2423 copy
= xmalloc (len
+ 1);
2424 strcpy (copy
, prefix
);
2425 strcat (copy
, ASM_PREFIX (name
));
2426 strcat (copy
, name
);
2432 make_one_lib_file (export_type
*exp
, int i
, int delay
)
2435 asymbol
* exp_label
;
2436 asymbol
* iname
= 0;
2438 asymbol
* iname_lab
;
2439 asymbol
** iname_lab_pp
;
2440 asymbol
** iname_pp
;
2449 asymbol
* ptrs
[NSECS
+ 4 + EXTRA
+ 1];
2450 flagword applicable
;
2451 char * outname
= xmalloc (strlen (TMP_STUB
) + 10);
2455 sprintf (outname
, "%s%05d.o", TMP_STUB
, i
);
2457 abfd
= bfd_openw (outname
, HOW_BFD_WRITE_TARGET
);
2460 /* xgettext:c-format */
2461 fatal (_("bfd_open failed open stub file: %s: %s"),
2462 outname
, bfd_get_errmsg ());
2464 /* xgettext:c-format */
2465 inform (_("Creating stub file: %s"), outname
);
2467 bfd_set_format (abfd
, bfd_object
);
2468 bfd_set_arch_mach (abfd
, HOW_BFD_ARCH
, 0);
2471 if (machine
== MARM_INTERWORK
|| machine
== MTHUMB
)
2472 bfd_set_private_flags (abfd
, F_INTERWORK
);
2475 applicable
= bfd_applicable_section_flags (abfd
);
2477 /* First make symbols for the sections. */
2478 for (i
= 0; i
< NSECS
; i
++)
2480 sinfo
*si
= secdata
+ i
;
2484 si
->sec
= bfd_make_section_old_way (abfd
, si
->name
);
2485 bfd_set_section_flags (si
->sec
, si
->flags
& applicable
);
2487 bfd_set_section_alignment (si
->sec
, si
->align
);
2488 si
->sec
->output_section
= si
->sec
;
2489 si
->sym
= bfd_make_empty_symbol(abfd
);
2490 si
->sym
->name
= si
->sec
->name
;
2491 si
->sym
->section
= si
->sec
;
2492 si
->sym
->flags
= BSF_LOCAL
;
2494 ptrs
[oidx
] = si
->sym
;
2495 si
->sympp
= ptrs
+ oidx
;
2504 exp_label
= bfd_make_empty_symbol (abfd
);
2505 exp_label
->name
= make_imp_label ("", exp
->name
);
2507 /* On PowerPC, the function name points to a descriptor in
2508 the rdata section, the first element of which is a
2509 pointer to the code (..function_name), and the second
2510 points to the .toc. */
2512 if (machine
== MPPC
)
2513 exp_label
->section
= secdata
[RDATA
].sec
;
2516 exp_label
->section
= secdata
[TEXT
].sec
;
2518 exp_label
->flags
= BSF_GLOBAL
;
2519 exp_label
->value
= 0;
2522 if (machine
== MTHUMB
)
2523 bfd_coff_set_symbol_class (abfd
, exp_label
, C_THUMBEXTFUNC
);
2525 ptrs
[oidx
++] = exp_label
;
2528 /* Generate imp symbols with one underscore for Microsoft
2529 compatibility, and with two underscores for backward
2530 compatibility with old versions of cygwin. */
2531 if (create_compat_implib
)
2533 iname
= bfd_make_empty_symbol (abfd
);
2534 iname
->name
= make_imp_label ("___imp", exp
->name
);
2535 iname
->section
= secdata
[IDATA5
].sec
;
2536 iname
->flags
= BSF_GLOBAL
;
2540 iname2
= bfd_make_empty_symbol (abfd
);
2541 iname2
->name
= make_imp_label ("__imp_", exp
->name
);
2542 iname2
->section
= secdata
[IDATA5
].sec
;
2543 iname2
->flags
= BSF_GLOBAL
;
2546 iname_lab
= bfd_make_empty_symbol (abfd
);
2548 iname_lab
->name
= head_label
;
2549 iname_lab
->section
= bfd_und_section_ptr
;
2550 iname_lab
->flags
= 0;
2551 iname_lab
->value
= 0;
2553 iname_pp
= ptrs
+ oidx
;
2554 if (create_compat_implib
)
2555 ptrs
[oidx
++] = iname
;
2556 ptrs
[oidx
++] = iname2
;
2558 iname_lab_pp
= ptrs
+ oidx
;
2559 ptrs
[oidx
++] = iname_lab
;
2562 /* The symbol referring to the code (.text). */
2564 asymbol
*function_name
;
2566 function_name
= bfd_make_empty_symbol(abfd
);
2567 function_name
->name
= make_label ("..", exp
->name
);
2568 function_name
->section
= secdata
[TEXT
].sec
;
2569 function_name
->flags
= BSF_GLOBAL
;
2570 function_name
->value
= 0;
2572 fn_pp
= ptrs
+ oidx
;
2573 ptrs
[oidx
++] = function_name
;
2576 /* The .toc symbol. */
2578 asymbol
*toc_symbol
;
2580 toc_symbol
= bfd_make_empty_symbol (abfd
);
2581 toc_symbol
->name
= make_label (".", "toc");
2582 toc_symbol
->section
= bfd_und_section_ptr
;
2583 toc_symbol
->flags
= BSF_GLOBAL
;
2584 toc_symbol
->value
= 0;
2586 toc_pp
= ptrs
+ oidx
;
2587 ptrs
[oidx
++] = toc_symbol
;
2593 for (i
= 0; i
< NSECS
; i
++)
2595 sinfo
*si
= secdata
+ i
;
2596 asection
*sec
= si
->sec
;
2597 arelent
*rel
, *rel2
= 0, *rel3
= 0;
2605 si
->size
= HOW_JTAB_SIZE
;
2606 si
->data
= xmalloc (HOW_JTAB_SIZE
);
2607 memcpy (si
->data
, HOW_JTAB
, HOW_JTAB_SIZE
);
2609 /* Add the reloc into idata$5. */
2610 rel
= xmalloc (sizeof (arelent
));
2612 rpp
= xmalloc (sizeof (arelent
*) * (delay
? 4 : 2));
2616 rel
->address
= HOW_JTAB_ROFF
;
2621 rel2
= xmalloc (sizeof (arelent
));
2623 rel2
->address
= HOW_JTAB_ROFF2
;
2625 rel3
= xmalloc (sizeof (arelent
));
2627 rel3
->address
= HOW_JTAB_ROFF3
;
2632 if (machine
== MPPC
)
2634 rel
->howto
= bfd_reloc_type_lookup (abfd
,
2635 BFD_RELOC_16_GOTOFF
);
2636 rel
->sym_ptr_ptr
= iname_pp
;
2638 else if (machine
== MX86
)
2640 rel
->howto
= bfd_reloc_type_lookup (abfd
,
2641 BFD_RELOC_32_PCREL
);
2642 rel
->sym_ptr_ptr
= iname_pp
;
2646 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2647 rel
->sym_ptr_ptr
= secdata
[IDATA5
].sympp
;
2652 if (machine
== MX86
)
2653 rel2
->howto
= bfd_reloc_type_lookup (abfd
,
2654 BFD_RELOC_32_PCREL
);
2656 rel2
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2657 rel2
->sym_ptr_ptr
= rel
->sym_ptr_ptr
;
2658 rel3
->howto
= bfd_reloc_type_lookup (abfd
,
2659 BFD_RELOC_32_PCREL
);
2660 rel3
->sym_ptr_ptr
= iname_lab_pp
;
2663 sec
->orelocation
= rpp
;
2664 sec
->reloc_count
= delay
? 3 : 1;
2671 si
->size
= create_for_pep
? 8 : 4;
2672 si
->data
= xmalloc (si
->size
);
2673 sec
->reloc_count
= 1;
2674 memset (si
->data
, 0, si
->size
);
2675 /* Point after jmp [__imp_...] instruction. */
2677 rel
= xmalloc (sizeof (arelent
));
2678 rpp
= xmalloc (sizeof (arelent
*) * 2);
2684 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_64
);
2686 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2687 rel
->sym_ptr_ptr
= secdata
[TEXT
].sympp
;
2688 sec
->orelocation
= rpp
;
2694 /* An idata$4 or idata$5 is one word long, and has an
2699 si
->data
= xmalloc (8);
2703 si
->data
[0] = exp
->ordinal
;
2704 si
->data
[1] = exp
->ordinal
>> 8;
2705 si
->data
[2] = exp
->ordinal
>> 16;
2706 si
->data
[3] = exp
->ordinal
>> 24;
2714 sec
->reloc_count
= 1;
2715 memset (si
->data
, 0, si
->size
);
2716 rel
= xmalloc (sizeof (arelent
));
2717 rpp
= xmalloc (sizeof (arelent
*) * 2);
2722 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_RVA
);
2723 rel
->sym_ptr_ptr
= secdata
[IDATA6
].sympp
;
2724 sec
->orelocation
= rpp
;
2729 si
->data
= xmalloc (4);
2734 si
->data
[0] = exp
->ordinal
;
2735 si
->data
[1] = exp
->ordinal
>> 8;
2736 si
->data
[2] = exp
->ordinal
>> 16;
2741 sec
->reloc_count
= 1;
2742 memset (si
->data
, 0, si
->size
);
2743 rel
= xmalloc (sizeof (arelent
));
2744 rpp
= xmalloc (sizeof (arelent
*) * 2);
2749 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_RVA
);
2750 rel
->sym_ptr_ptr
= secdata
[IDATA6
].sympp
;
2751 sec
->orelocation
= rpp
;
2759 int idx
= exp
->ordinal
;
2762 si
->size
= strlen (exp
->its_name
) + 3;
2764 si
->size
= strlen (xlate (exp
->import_name
)) + 3;
2765 si
->data
= xmalloc (si
->size
);
2766 memset (si
->data
, 0, si
->size
);
2767 si
->data
[0] = idx
& 0xff;
2768 si
->data
[1] = idx
>> 8;
2770 strcpy ((char *) si
->data
+ 2, exp
->its_name
);
2772 strcpy ((char *) si
->data
+ 2, xlate (exp
->import_name
));
2779 si
->data
= xmalloc (4);
2780 memset (si
->data
, 0, si
->size
);
2781 rel
= xmalloc (sizeof (arelent
));
2782 rpp
= xmalloc (sizeof (arelent
*) * 2);
2786 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_RVA
);
2787 rel
->sym_ptr_ptr
= iname_lab_pp
;
2788 sec
->orelocation
= rpp
;
2789 sec
->reloc_count
= 1;
2795 /* The .pdata section is 5 words long.
2799 bfd_vma BeginAddress, [0x00]
2801 ExceptionHandler, [0x08]
2803 PrologEndAddress; [0x10]
2806 /* So this pdata section setups up this as a glue linkage to
2807 a dll routine. There are a number of house keeping things
2810 1. In the name of glue trickery, the ADDR32 relocs for 0,
2811 4, and 0x10 are set to point to the same place:
2813 2. There is one more reloc needed in the pdata section.
2814 The actual glue instruction to restore the toc on
2815 return is saved as the offset in an IMGLUE reloc.
2816 So we need a total of four relocs for this section.
2818 3. Lastly, the HandlerData field is set to 0x03, to indicate
2819 that this is a glue routine. */
2820 arelent
*imglue
, *ba_rel
, *ea_rel
, *pea_rel
;
2822 /* Alignment must be set to 2**2 or you get extra stuff. */
2823 bfd_set_section_alignment (sec
, 2);
2826 si
->data
= xmalloc (si
->size
);
2827 memset (si
->data
, 0, si
->size
);
2828 rpp
= xmalloc (sizeof (arelent
*) * 5);
2829 rpp
[0] = imglue
= xmalloc (sizeof (arelent
));
2830 rpp
[1] = ba_rel
= xmalloc (sizeof (arelent
));
2831 rpp
[2] = ea_rel
= xmalloc (sizeof (arelent
));
2832 rpp
[3] = pea_rel
= xmalloc (sizeof (arelent
));
2835 /* Stick the toc reload instruction in the glue reloc. */
2836 bfd_put_32(abfd
, ppc_glue_insn
, (char *) &imglue
->address
);
2839 imglue
->howto
= bfd_reloc_type_lookup (abfd
,
2840 BFD_RELOC_32_GOTOFF
);
2841 imglue
->sym_ptr_ptr
= fn_pp
;
2843 ba_rel
->address
= 0;
2845 ba_rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2846 ba_rel
->sym_ptr_ptr
= fn_pp
;
2848 bfd_put_32 (abfd
, 0x18, si
->data
+ 0x04);
2849 ea_rel
->address
= 4;
2851 ea_rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2852 ea_rel
->sym_ptr_ptr
= fn_pp
;
2854 /* Mark it as glue. */
2855 bfd_put_32 (abfd
, 0x03, si
->data
+ 0x0c);
2857 /* Mark the prolog end address. */
2858 bfd_put_32 (abfd
, 0x0D, si
->data
+ 0x10);
2859 pea_rel
->address
= 0x10;
2860 pea_rel
->addend
= 0;
2861 pea_rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2862 pea_rel
->sym_ptr_ptr
= fn_pp
;
2864 sec
->orelocation
= rpp
;
2865 sec
->reloc_count
= 4;
2869 /* Each external function in a PowerPC PE file has a two word
2870 descriptor consisting of:
2871 1. The address of the code.
2872 2. The address of the appropriate .toc
2873 We use relocs to build this. */
2875 si
->data
= xmalloc (8);
2876 memset (si
->data
, 0, si
->size
);
2878 rpp
= xmalloc (sizeof (arelent
*) * 3);
2879 rpp
[0] = rel
= xmalloc (sizeof (arelent
));
2880 rpp
[1] = xmalloc (sizeof (arelent
));
2885 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2886 rel
->sym_ptr_ptr
= fn_pp
;
2892 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2893 rel
->sym_ptr_ptr
= toc_pp
;
2895 sec
->orelocation
= rpp
;
2896 sec
->reloc_count
= 2;
2898 #endif /* DLLTOOL_PPC */
2904 /* Size up all the sections. */
2905 for (i
= 0; i
< NSECS
; i
++)
2907 sinfo
*si
= secdata
+ i
;
2909 bfd_set_section_size (si
->sec
, si
->size
);
2910 bfd_set_section_vma (si
->sec
, vma
);
2913 /* Write them out. */
2914 for (i
= 0; i
< NSECS
; i
++)
2916 sinfo
*si
= secdata
+ i
;
2918 if (i
== IDATA5
&& no_idata5
)
2921 if (i
== IDATA4
&& no_idata4
)
2924 bfd_set_section_contents (abfd
, si
->sec
,
2929 bfd_set_symtab (abfd
, ptrs
, oidx
);
2931 abfd
= bfd_openr (outname
, HOW_BFD_READ_TARGET
);
2933 /* xgettext:c-format */
2934 fatal (_("bfd_open failed reopen stub file: %s: %s"),
2935 outname
, bfd_get_errmsg ());
2943 FILE *f
= fopen (TMP_HEAD_S
, FOPEN_WT
);
2948 fatal (_("failed to open temporary head file: %s"), TMP_HEAD_S
);
2952 temp_file_to_remove
[TEMP_HEAD_FILE
] = TMP_HEAD_S
;
2954 fprintf (f
, "%s IMAGE_IMPORT_DESCRIPTOR\n", ASM_C
);
2955 fprintf (f
, "\t.section\t.idata$2\n");
2957 fprintf (f
,"\t%s\t%s\n", ASM_GLOBAL
, head_label
);
2959 fprintf (f
, "%s:\n", head_label
);
2961 fprintf (f
, "\t%shname%s\t%sPtr to image import by name list\n",
2962 ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
2964 fprintf (f
, "\t%sthis should be the timestamp, but NT sometimes\n", ASM_C
);
2965 fprintf (f
, "\t%sdoesn't load DLLs when this is set.\n", ASM_C
);
2966 fprintf (f
, "\t%s\t0\t%s loaded time\n", ASM_LONG
, ASM_C
);
2967 fprintf (f
, "\t%s\t0\t%s Forwarder chain\n", ASM_LONG
, ASM_C
);
2968 fprintf (f
, "\t%s__%s_iname%s\t%s imported dll's name\n",
2973 fprintf (f
, "\t%sfthunk%s\t%s pointer to firstthunk\n",
2975 ASM_RVA_AFTER
, ASM_C
);
2977 fprintf (f
, "%sStuff for compatibility\n", ASM_C
);
2981 fprintf (f
, "\t.section\t.idata$5\n");
2982 if (use_nul_prefixed_import_tables
)
2985 fprintf (f
,"\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
2987 fprintf (f
,"\t%s\t0\n", ASM_LONG
);
2989 fprintf (f
, "fthunk:\n");
2994 fprintf (f
, "\t.section\t.idata$4\n");
2995 if (use_nul_prefixed_import_tables
)
2998 fprintf (f
,"\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
3000 fprintf (f
,"\t%s\t0\n", ASM_LONG
);
3002 fprintf (f
, "hname:\n");
3007 assemble_file (TMP_HEAD_S
, TMP_HEAD_O
);
3009 abfd
= bfd_openr (TMP_HEAD_O
, HOW_BFD_READ_TARGET
);
3011 /* xgettext:c-format */
3012 fatal (_("failed to open temporary head file: %s: %s"),
3013 TMP_HEAD_O
, bfd_get_errmsg ());
3015 temp_file_to_remove
[TEMP_HEAD_O_FILE
] = TMP_HEAD_O
;
3020 make_delay_head (void)
3022 FILE *f
= fopen (TMP_HEAD_S
, FOPEN_WT
);
3027 fatal (_("failed to open temporary head file: %s"), TMP_HEAD_S
);
3031 temp_file_to_remove
[TEMP_HEAD_FILE
] = TMP_HEAD_S
;
3033 /* Output the __tailMerge__xxx function */
3034 fprintf (f
, "%s Import trampoline\n", ASM_C
);
3035 fprintf (f
, "\t.section\t.text\n");
3036 fprintf(f
,"\t%s\t%s\n", ASM_GLOBAL
, head_label
);
3037 fprintf (f
, "%s:\n", head_label
);
3038 fprintf (f
, mtable
[machine
].trampoline
, imp_name_lab
);
3040 /* Output the delay import descriptor */
3041 fprintf (f
, "\n%s DELAY_IMPORT_DESCRIPTOR\n", ASM_C
);
3042 fprintf (f
, ".section\t.text$2\n");
3043 fprintf (f
,"%s __DELAY_IMPORT_DESCRIPTOR_%s\n", ASM_GLOBAL
,imp_name_lab
);
3044 fprintf (f
, "__DELAY_IMPORT_DESCRIPTOR_%s:\n", imp_name_lab
);
3045 fprintf (f
, "\t%s 1\t%s grAttrs\n", ASM_LONG
, ASM_C
);
3046 fprintf (f
, "\t%s__%s_iname%s\t%s rvaDLLName\n",
3047 ASM_RVA_BEFORE
, imp_name_lab
, ASM_RVA_AFTER
, ASM_C
);
3048 fprintf (f
, "\t%s__DLL_HANDLE_%s%s\t%s rvaHmod\n",
3049 ASM_RVA_BEFORE
, imp_name_lab
, ASM_RVA_AFTER
, ASM_C
);
3050 fprintf (f
, "\t%s__IAT_%s%s\t%s rvaIAT\n",
3051 ASM_RVA_BEFORE
, imp_name_lab
, ASM_RVA_AFTER
, ASM_C
);
3052 fprintf (f
, "\t%s__INT_%s%s\t%s rvaINT\n",
3053 ASM_RVA_BEFORE
, imp_name_lab
, ASM_RVA_AFTER
, ASM_C
);
3054 fprintf (f
, "\t%s\t0\t%s rvaBoundIAT\n", ASM_LONG
, ASM_C
);
3055 fprintf (f
, "\t%s\t0\t%s rvaUnloadIAT\n", ASM_LONG
, ASM_C
);
3056 fprintf (f
, "\t%s\t0\t%s dwTimeStamp\n", ASM_LONG
, ASM_C
);
3058 /* Output the dll_handle */
3059 fprintf (f
, "\n.section .data\n");
3060 fprintf (f
, "__DLL_HANDLE_%s:\n", imp_name_lab
);
3061 fprintf (f
, "\t%s\t0\t%s Handle\n", ASM_LONG
, ASM_C
);
3063 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
3066 fprintf (f
, "%sStuff for compatibility\n", ASM_C
);
3070 fprintf (f
, "\t.section\t.idata$5\n");
3071 /* NULL terminating list. */
3073 fprintf (f
,"\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
3075 fprintf (f
,"\t%s\t0\n", ASM_LONG
);
3076 fprintf (f
, "__IAT_%s:\n", imp_name_lab
);
3081 fprintf (f
, "\t.section\t.idata$4\n");
3082 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
3084 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
3085 fprintf (f
, "\t.section\t.idata$4\n");
3086 fprintf (f
, "__INT_%s:\n", imp_name_lab
);
3089 fprintf (f
, "\t.section\t.idata$2\n");
3093 assemble_file (TMP_HEAD_S
, TMP_HEAD_O
);
3095 abfd
= bfd_openr (TMP_HEAD_O
, HOW_BFD_READ_TARGET
);
3097 /* xgettext:c-format */
3098 fatal (_("failed to open temporary head file: %s: %s"),
3099 TMP_HEAD_O
, bfd_get_errmsg ());
3101 temp_file_to_remove
[TEMP_HEAD_O_FILE
] = TMP_HEAD_O
;
3108 FILE *f
= fopen (TMP_TAIL_S
, FOPEN_WT
);
3113 fatal (_("failed to open temporary tail file: %s"), TMP_TAIL_S
);
3117 temp_file_to_remove
[TEMP_TAIL_FILE
] = TMP_TAIL_S
;
3121 fprintf (f
, "\t.section\t.idata$4\n");
3123 fprintf (f
,"\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
3125 fprintf (f
,"\t%s\t0\n", ASM_LONG
); /* NULL terminating list. */
3130 fprintf (f
, "\t.section\t.idata$5\n");
3132 fprintf (f
,"\t%s\t0\n\t%s\t0\n", ASM_LONG
, ASM_LONG
);
3134 fprintf (f
,"\t%s\t0\n", ASM_LONG
); /* NULL terminating list. */
3138 /* Normally, we need to see a null descriptor built in idata$3 to
3139 act as the terminator for the list. The ideal way, I suppose,
3140 would be to mark this section as a comdat type 2 section, so
3141 only one would appear in the final .exe (if our linker supported
3142 comdat, that is) or cause it to be inserted by something else (say
3145 fprintf (f
, "\t.section\t.idata$3\n");
3146 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
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
);
3154 /* Other PowerPC NT compilers use idata$6 for the dllname, so I
3155 do too. Original, huh? */
3156 fprintf (f
, "\t.section\t.idata$6\n");
3158 fprintf (f
, "\t.section\t.idata$7\n");
3161 fprintf (f
, "\t%s\t__%s_iname\n", ASM_GLOBAL
, imp_name_lab
);
3162 fprintf (f
, "__%s_iname:\t%s\t\"%s\"\n",
3163 imp_name_lab
, ASM_TEXT
, dll_name
);
3167 assemble_file (TMP_TAIL_S
, TMP_TAIL_O
);
3169 abfd
= bfd_openr (TMP_TAIL_O
, HOW_BFD_READ_TARGET
);
3171 /* xgettext:c-format */
3172 fatal (_("failed to open temporary tail file: %s: %s"),
3173 TMP_TAIL_O
, bfd_get_errmsg ());
3175 temp_file_to_remove
[TEMP_TAIL_O_FILE
] = TMP_TAIL_O
;
3180 gen_lib_file (int delay
)
3191 outarch
= bfd_openw (imp_name
, HOW_BFD_WRITE_TARGET
);
3194 /* xgettext:c-format */
3195 fatal (_("Can't create .lib file: %s: %s"),
3196 imp_name
, bfd_get_errmsg ());
3198 /* xgettext:c-format */
3199 inform (_("Creating library file: %s"), imp_name
);
3201 xatexit (unlink_temp_files
);
3203 bfd_set_format (outarch
, bfd_archive
);
3204 outarch
->has_armap
= 1;
3205 outarch
->is_thin_archive
= 0;
3207 /* Work out a reasonable size of things to put onto one line. */
3210 ar_head
= make_delay_head ();
3214 ar_head
= make_head ();
3216 ar_tail
= make_tail();
3218 if (ar_head
== NULL
|| ar_tail
== NULL
)
3221 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
3224 /* Don't add PRIVATE entries to import lib. */
3227 n
= make_one_lib_file (exp
, i
, delay
);
3228 n
->archive_next
= head
;
3230 if (ext_prefix_alias
)
3232 export_type alias_exp
;
3234 assert (i
< PREFIX_ALIAS_BASE
);
3235 alias_exp
.name
= make_imp_label (ext_prefix_alias
, exp
->name
);
3236 alias_exp
.internal_name
= exp
->internal_name
;
3237 alias_exp
.its_name
= exp
->its_name
;
3238 alias_exp
.import_name
= exp
->name
;
3239 alias_exp
.ordinal
= exp
->ordinal
;
3240 alias_exp
.constant
= exp
->constant
;
3241 alias_exp
.noname
= exp
->noname
;
3242 alias_exp
.private = exp
->private;
3243 alias_exp
.data
= exp
->data
;
3244 alias_exp
.forward
= exp
->forward
;
3245 alias_exp
.next
= exp
->next
;
3246 n
= make_one_lib_file (&alias_exp
, i
+ PREFIX_ALIAS_BASE
, delay
);
3247 n
->archive_next
= head
;
3252 /* Now stick them all into the archive. */
3253 ar_head
->archive_next
= head
;
3254 ar_tail
->archive_next
= ar_head
;
3257 if (! bfd_set_archive_head (outarch
, head
))
3258 bfd_fatal ("bfd_set_archive_head");
3260 if (! bfd_close (outarch
))
3261 bfd_fatal (imp_name
);
3263 while (head
!= NULL
)
3265 bfd
*n
= head
->archive_next
;
3270 /* Delete all the temp files. */
3271 unlink_temp_files ();
3273 if (dontdeltemps
< 2)
3277 name
= xmalloc (strlen (TMP_STUB
) + 10);
3278 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
3280 /* Don't delete non-existent stubs for PRIVATE entries. */
3283 sprintf (name
, "%s%05d.o", TMP_STUB
, i
);
3284 if (unlink (name
) < 0)
3285 /* xgettext:c-format */
3286 non_fatal (_("cannot delete %s: %s"), name
, strerror (errno
));
3287 if (ext_prefix_alias
)
3289 sprintf (name
, "%s%05d.o", TMP_STUB
, i
+ PREFIX_ALIAS_BASE
);
3290 if (unlink (name
) < 0)
3291 /* xgettext:c-format */
3292 non_fatal (_("cannot delete %s: %s"), name
, strerror (errno
));
3298 inform (_("Created lib file"));
3301 /* Append a copy of data (cast to char *) to list. */
3304 dll_name_list_append (dll_name_list_type
* list
, bfd_byte
* data
)
3306 dll_name_list_node_type
* entry
;
3308 /* Error checking. */
3309 if (! list
|| ! list
->tail
)
3312 /* Allocate new node. */
3313 entry
= ((dll_name_list_node_type
*)
3314 xmalloc (sizeof (dll_name_list_node_type
)));
3316 /* Initialize its values. */
3317 entry
->dllname
= xstrdup ((char *) data
);
3320 /* Add to tail, and move tail. */
3321 list
->tail
->next
= entry
;
3325 /* Count the number of entries in list. */
3328 dll_name_list_count (dll_name_list_type
* list
)
3330 dll_name_list_node_type
* p
;
3333 /* Error checking. */
3334 if (! list
|| ! list
->head
)
3339 while (p
&& p
->next
)
3347 /* Print each entry in list to stdout. */
3350 dll_name_list_print (dll_name_list_type
* list
)
3352 dll_name_list_node_type
* p
;
3354 /* Error checking. */
3355 if (! list
|| ! list
->head
)
3360 while (p
&& p
->next
&& p
->next
->dllname
&& *(p
->next
->dllname
))
3362 printf ("%s\n", p
->next
->dllname
);
3367 /* Free all entries in list, and list itself. */
3370 dll_name_list_free (dll_name_list_type
* list
)
3374 dll_name_list_free_contents (list
->head
);
3381 /* Recursive function to free all nodes entry->next->next...
3382 as well as entry itself. */
3385 dll_name_list_free_contents (dll_name_list_node_type
* entry
)
3391 dll_name_list_free_contents (entry
->next
);
3396 free (entry
->dllname
);
3397 entry
->dllname
= NULL
;
3403 /* Allocate and initialize a dll_name_list_type object,
3404 including its sentinel node. Caller is responsible
3405 for calling dll_name_list_free when finished with
3408 static dll_name_list_type
*
3409 dll_name_list_create (void)
3411 /* Allocate list. */
3412 dll_name_list_type
* list
= xmalloc (sizeof (dll_name_list_type
));
3414 /* Allocate and initialize sentinel node. */
3415 list
->head
= xmalloc (sizeof (dll_name_list_node_type
));
3416 list
->head
->dllname
= NULL
;
3417 list
->head
->next
= NULL
;
3419 /* Bookkeeping for empty list. */
3420 list
->tail
= list
->head
;
3425 /* Search the symbol table of the suppled BFD for a symbol whose name matches
3426 OBJ (where obj is cast to const char *). If found, set global variable
3427 identify_member_contains_symname_result TRUE. It is the caller's
3428 responsibility to set the result variable FALSE before iterating with
3432 identify_member_contains_symname (bfd
* abfd
,
3433 bfd
* archive_bfd ATTRIBUTE_UNUSED
,
3436 long storage_needed
;
3437 asymbol
** symbol_table
;
3438 long number_of_symbols
;
3440 symname_search_data_type
* search_data
= (symname_search_data_type
*) obj
;
3442 /* If we already found the symbol in a different member,
3444 if (search_data
->found
)
3447 storage_needed
= bfd_get_symtab_upper_bound (abfd
);
3448 if (storage_needed
<= 0)
3451 symbol_table
= xmalloc (storage_needed
);
3452 number_of_symbols
= bfd_canonicalize_symtab (abfd
, symbol_table
);
3453 if (number_of_symbols
< 0)
3455 free (symbol_table
);
3459 for (i
= 0; i
< number_of_symbols
; i
++)
3461 if (strncmp (symbol_table
[i
]->name
,
3462 search_data
->symname
,
3463 strlen (search_data
->symname
)) == 0)
3465 search_data
->found
= TRUE
;
3469 free (symbol_table
);
3472 /* This is the main implementation for the --identify option.
3473 Given the name of an import library in identify_imp_name, first determine
3474 if the import library is a GNU binutils-style one (where the DLL name is
3475 stored in an .idata$7 (.idata$6 on PPC) section, or if it is a MS-style
3476 one (where the DLL name, along with much other data, is stored in the
3477 .idata$6 section). We determine the style of import library by searching
3478 for the DLL-structure symbol inserted by MS tools:
3479 __NULL_IMPORT_DESCRIPTOR.
3481 Once we know which section to search, evaluate each section for the
3482 appropriate properties that indicate it may contain the name of the
3483 associated DLL (this differs depending on the style). Add the contents
3484 of all sections which meet the criteria to a linked list of dll names.
3486 Finally, print them all to stdout. (If --identify-strict, an error is
3487 reported if more than one match was found). */
3490 identify_dll_for_implib (void)
3494 identify_data_type identify_data
;
3495 symname_search_data_type search_data
;
3497 /* Initialize identify_data. */
3498 identify_data
.list
= dll_name_list_create ();
3499 identify_data
.ms_style_implib
= FALSE
;
3501 /* Initialize search_data. */
3502 search_data
.symname
= "__NULL_IMPORT_DESCRIPTOR";
3503 search_data
.found
= FALSE
;
3505 if (bfd_init () != BFD_INIT_MAGIC
)
3506 fatal (_("fatal error: libbfd ABI mismatch"));
3508 abfd
= bfd_openr (identify_imp_name
, 0);
3510 /* xgettext:c-format */
3511 fatal (_("Can't open .lib file: %s: %s"),
3512 identify_imp_name
, bfd_get_errmsg ());
3514 if (! bfd_check_format (abfd
, bfd_archive
))
3516 if (! bfd_close (abfd
))
3517 bfd_fatal (identify_imp_name
);
3519 fatal (_("%s is not a library"), identify_imp_name
);
3522 /* Detect if this a Microsoft import library. */
3523 identify_search_archive (abfd
,
3524 identify_member_contains_symname
,
3525 (void *)(& search_data
));
3526 if (search_data
.found
)
3527 identify_data
.ms_style_implib
= TRUE
;
3529 /* Rewind the bfd. */
3530 if (! bfd_close (abfd
))
3531 bfd_fatal (identify_imp_name
);
3532 abfd
= bfd_openr (identify_imp_name
, 0);
3534 bfd_fatal (identify_imp_name
);
3536 if (!bfd_check_format (abfd
, bfd_archive
))
3538 if (!bfd_close (abfd
))
3539 bfd_fatal (identify_imp_name
);
3541 fatal (_("%s is not a library"), identify_imp_name
);
3544 /* Now search for the dll name. */
3545 identify_search_archive (abfd
,
3546 identify_search_member
,
3547 (void *)(& identify_data
));
3549 if (! bfd_close (abfd
))
3550 bfd_fatal (identify_imp_name
);
3552 count
= dll_name_list_count (identify_data
.list
);
3555 if (identify_strict
&& count
> 1)
3557 dll_name_list_free (identify_data
.list
);
3558 identify_data
.list
= NULL
;
3559 fatal (_("Import library `%s' specifies two or more dlls"),
3562 dll_name_list_print (identify_data
.list
);
3563 dll_name_list_free (identify_data
.list
);
3564 identify_data
.list
= NULL
;
3568 dll_name_list_free (identify_data
.list
);
3569 identify_data
.list
= NULL
;
3570 fatal (_("Unable to determine dll name for `%s' (not an import library?)"),
3575 /* Loop over all members of the archive, applying the supplied function to
3576 each member that is a bfd_object. The function will be called as if:
3577 func (member_bfd, abfd, user_storage) */
3580 identify_search_archive (bfd
* abfd
,
3581 void (* operation
) (bfd
*, bfd
*, void *),
3582 void * user_storage
)
3584 bfd
* arfile
= NULL
;
3585 bfd
* last_arfile
= NULL
;
3590 arfile
= bfd_openr_next_archived_file (abfd
, arfile
);
3594 if (bfd_get_error () != bfd_error_no_more_archived_files
)
3595 bfd_fatal (bfd_get_filename (abfd
));
3599 if (bfd_check_format_matches (arfile
, bfd_object
, &matching
))
3600 (*operation
) (arfile
, abfd
, user_storage
);
3603 bfd_nonfatal (bfd_get_filename (arfile
));
3607 if (last_arfile
!= NULL
)
3609 bfd_close (last_arfile
);
3610 /* PR 17512: file: 8b2168d4. */
3611 if (last_arfile
== arfile
)
3618 last_arfile
= arfile
;
3621 if (last_arfile
!= NULL
)
3623 bfd_close (last_arfile
);
3627 /* Call the identify_search_section() function for each section of this
3631 identify_search_member (bfd
*abfd
,
3632 bfd
*archive_bfd ATTRIBUTE_UNUSED
,
3635 bfd_map_over_sections (abfd
, identify_search_section
, obj
);
3638 /* This predicate returns true if section->name matches the desired value.
3639 By default, this is .idata$7 (.idata$6 on PPC, or if the import
3640 library is ms-style). */
3643 identify_process_section_p (asection
* section
, bfd_boolean ms_style_implib
)
3645 static const char * SECTION_NAME
=
3647 /* dllname is stored in idata$6 on PPC */
3652 static const char * MS_SECTION_NAME
= ".idata$6";
3654 const char * section_name
=
3655 (ms_style_implib
? MS_SECTION_NAME
: SECTION_NAME
);
3657 if (strcmp (section_name
, section
->name
) == 0)
3662 /* If *section has contents and its name is .idata$7 (.data$6 on PPC or if
3663 import lib ms-generated) -- and it satisfies several other constraints
3664 -- then add the contents of the section to obj->list. */
3667 identify_search_section (bfd
* abfd
, asection
* section
, void * obj
)
3670 bfd_size_type datasize
;
3671 identify_data_type
* identify_data
= (identify_data_type
*)obj
;
3672 bfd_boolean ms_style
= identify_data
->ms_style_implib
;
3674 if ((section
->flags
& SEC_HAS_CONTENTS
) == 0)
3677 if (! identify_process_section_p (section
, ms_style
))
3680 /* Binutils import libs seem distinguish the .idata$7 section that contains
3681 the DLL name from other .idata$7 sections by the absence of the
3683 if (!ms_style
&& ((section
->flags
& SEC_RELOC
) == SEC_RELOC
))
3686 /* MS import libs seem to distinguish the .idata$6 section
3687 that contains the DLL name from other .idata$6 sections
3688 by the presence of the SEC_DATA flag. */
3689 if (ms_style
&& ((section
->flags
& SEC_DATA
) == 0))
3692 if ((datasize
= bfd_section_size (section
)) == 0)
3695 data
= (bfd_byte
*) xmalloc (datasize
+ 1);
3698 bfd_get_section_contents (abfd
, section
, data
, 0, datasize
);
3699 data
[datasize
] = '\0';
3701 /* Use a heuristic to determine if data is a dll name.
3702 Possible to defeat this if (a) the library has MANY
3703 (more than 0x302f) imports, (b) it is an ms-style
3704 import library, but (c) it is buggy, in that the SEC_DATA
3705 flag is set on the "wrong" sections. This heuristic might
3706 also fail to record a valid dll name if the dllname uses
3707 a multibyte or unicode character set (is that valid?).
3709 This heuristic is based on the fact that symbols names in
3710 the chosen section -- as opposed to the dll name -- begin
3711 at offset 2 in the data. The first two bytes are a 16bit
3712 little-endian count, and start at 0x0000. However, the dll
3713 name begins at offset 0 in the data. We assume that the
3714 dll name does not contain unprintable characters. */
3715 if (data
[0] != '\0' && ISPRINT (data
[0])
3716 && ((datasize
< 2) || ISPRINT (data
[1])))
3717 dll_name_list_append (identify_data
->list
, data
);
3722 /* Run through the information gathered from the .o files and the
3723 .def file and work out the best stuff. */
3726 pfunc (const void *a
, const void *b
)
3728 export_type
*ap
= *(export_type
**) a
;
3729 export_type
*bp
= *(export_type
**) b
;
3731 if (ap
->ordinal
== bp
->ordinal
)
3734 /* Unset ordinals go to the bottom. */
3735 if (ap
->ordinal
== -1)
3737 if (bp
->ordinal
== -1)
3739 return (ap
->ordinal
- bp
->ordinal
);
3743 nfunc (const void *a
, const void *b
)
3745 export_type
*ap
= *(export_type
**) a
;
3746 export_type
*bp
= *(export_type
**) b
;
3747 const char *an
= ap
->name
;
3748 const char *bn
= bp
->name
;
3755 an
= (an
[0] == '@') ? an
+ 1 : an
;
3756 bn
= (bn
[0] == '@') ? bn
+ 1 : bn
;
3759 return (strcmp (an
, bn
));
3763 remove_null_names (export_type
**ptr
)
3768 for (dst
= src
= 0; src
< d_nfuncs
; src
++)
3772 ptr
[dst
] = ptr
[src
];
3780 process_duplicates (export_type
**d_export_vec
)
3788 /* Remove duplicates. */
3789 qsort (d_export_vec
, d_nfuncs
, sizeof (export_type
*), nfunc
);
3791 for (i
= 0; i
< d_nfuncs
- 1; i
++)
3793 if (strcmp (d_export_vec
[i
]->name
,
3794 d_export_vec
[i
+ 1]->name
) == 0)
3796 export_type
*a
= d_export_vec
[i
];
3797 export_type
*b
= d_export_vec
[i
+ 1];
3801 /* xgettext:c-format */
3802 inform (_("Warning, ignoring duplicate EXPORT %s %d,%d"),
3803 a
->name
, a
->ordinal
, b
->ordinal
);
3805 if (a
->ordinal
!= -1
3806 && b
->ordinal
!= -1)
3807 /* xgettext:c-format */
3808 fatal (_("Error, duplicate EXPORT with ordinals: %s"),
3811 /* Merge attributes. */
3812 b
->ordinal
= a
->ordinal
> 0 ? a
->ordinal
: b
->ordinal
;
3813 b
->constant
|= a
->constant
;
3814 b
->noname
|= a
->noname
;
3816 d_export_vec
[i
] = 0;
3819 remove_null_names (d_export_vec
);
3823 /* Count the names. */
3824 for (i
= 0; i
< d_nfuncs
; i
++)
3825 if (!d_export_vec
[i
]->noname
)
3830 fill_ordinals (export_type
**d_export_vec
)
3837 qsort (d_export_vec
, d_nfuncs
, sizeof (export_type
*), pfunc
);
3839 /* Fill in the unset ordinals with ones from our range. */
3840 ptr
= (char *) xmalloc (size
);
3842 memset (ptr
, 0, size
);
3844 /* Mark in our large vector all the numbers that are taken. */
3845 for (i
= 0; i
< d_nfuncs
; i
++)
3847 if (d_export_vec
[i
]->ordinal
!= -1)
3849 ptr
[d_export_vec
[i
]->ordinal
] = 1;
3851 if (lowest
== -1 || d_export_vec
[i
]->ordinal
< lowest
)
3852 lowest
= d_export_vec
[i
]->ordinal
;
3856 /* Start at 1 for compatibility with MS toolchain. */
3860 /* Now fill in ordinals where the user wants us to choose. */
3861 for (i
= 0; i
< d_nfuncs
; i
++)
3863 if (d_export_vec
[i
]->ordinal
== -1)
3867 /* First try within or after any user supplied range. */
3868 for (j
= lowest
; j
< size
; j
++)
3872 d_export_vec
[i
]->ordinal
= j
;
3876 /* Then try before the range. */
3877 for (j
= lowest
; j
>0; j
--)
3881 d_export_vec
[i
]->ordinal
= j
;
3891 qsort (d_export_vec
, d_nfuncs
, sizeof (export_type
*), pfunc
);
3893 /* Work out the lowest and highest ordinal numbers. */
3896 if (d_export_vec
[0])
3897 d_low_ord
= d_export_vec
[0]->ordinal
;
3898 if (d_export_vec
[d_nfuncs
-1])
3899 d_high_ord
= d_export_vec
[d_nfuncs
-1]->ordinal
;
3906 /* First work out the minimum ordinal chosen. */
3908 export_type
**d_export_vec
= xmalloc (sizeof (export_type
*) * d_nfuncs
);
3911 inform (_("Processing definitions"));
3913 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
3914 d_export_vec
[i
] = exp
;
3916 process_duplicates (d_export_vec
);
3917 fill_ordinals (d_export_vec
);
3919 /* Put back the list in the new order. */
3921 for (i
= d_nfuncs
- 1; i
>= 0; i
--)
3923 d_export_vec
[i
]->next
= d_exports
;
3924 d_exports
= d_export_vec
[i
];
3927 /* Build list in alpha order. */
3928 d_exports_lexically
= (export_type
**)
3929 xmalloc (sizeof (export_type
*) * (d_nfuncs
+ 1));
3931 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
3932 d_exports_lexically
[i
] = exp
;
3934 d_exports_lexically
[i
] = 0;
3936 qsort (d_exports_lexically
, i
, sizeof (export_type
*), nfunc
);
3938 inform (_("Processed definitions"));
3942 usage (FILE *file
, int status
)
3944 /* xgetext:c-format */
3945 fprintf (file
, _("Usage %s <option(s)> <object-file(s)>\n"), program_name
);
3946 /* xgetext:c-format */
3947 fprintf (file
, _(" -m --machine <machine> Create as DLL for <machine>. [default: %s]\n"), mname
);
3948 fprintf (file
, _(" possible <machine>: arm[_interwork], i386, mcore[-elf]{-le|-be}, ppc, thumb\n"));
3949 fprintf (file
, _(" -e --output-exp <outname> Generate an export file.\n"));
3950 fprintf (file
, _(" -l --output-lib <outname> Generate an interface library.\n"));
3951 fprintf (file
, _(" -y --output-delaylib <outname> Create a delay-import library.\n"));
3952 fprintf (file
, _(" -a --add-indirect Add dll indirects to export file.\n"));
3953 fprintf (file
, _(" -D --dllname <name> Name of input dll to put into interface lib.\n"));
3954 fprintf (file
, _(" -d --input-def <deffile> Name of .def file to be read in.\n"));
3955 fprintf (file
, _(" -z --output-def <deffile> Name of .def file to be created.\n"));
3956 fprintf (file
, _(" --export-all-symbols Export all symbols to .def\n"));
3957 fprintf (file
, _(" --no-export-all-symbols Only export listed symbols\n"));
3958 fprintf (file
, _(" --exclude-symbols <list> Don't export <list>\n"));
3959 fprintf (file
, _(" --no-default-excludes Clear default exclude symbols\n"));
3960 fprintf (file
, _(" -b --base-file <basefile> Read linker generated base file.\n"));
3961 fprintf (file
, _(" -x --no-idata4 Don't generate idata$4 section.\n"));
3962 fprintf (file
, _(" -c --no-idata5 Don't generate idata$5 section.\n"));
3963 fprintf (file
, _(" --use-nul-prefixed-import-tables Use zero prefixed idata$4 and idata$5.\n"));
3964 fprintf (file
, _(" -U --add-underscore Add underscores to all symbols in interface library.\n"));
3965 fprintf (file
, _(" --add-stdcall-underscore Add underscores to stdcall symbols in interface library.\n"));
3966 fprintf (file
, _(" --no-leading-underscore All symbols shouldn't be prefixed by an underscore.\n"));
3967 fprintf (file
, _(" --leading-underscore All symbols should be prefixed by an underscore.\n"));
3968 fprintf (file
, _(" -k --kill-at Kill @<n> from exported names.\n"));
3969 fprintf (file
, _(" -A --add-stdcall-alias Add aliases without @<n>.\n"));
3970 fprintf (file
, _(" -p --ext-prefix-alias <prefix> Add aliases with <prefix>.\n"));
3971 fprintf (file
, _(" -S --as <name> Use <name> for assembler.\n"));
3972 fprintf (file
, _(" -f --as-flags <flags> Pass <flags> to the assembler.\n"));
3973 fprintf (file
, _(" -C --compat-implib Create backward compatible import library.\n"));
3974 fprintf (file
, _(" -n --no-delete Keep temp files (repeat for extra preservation).\n"));
3975 fprintf (file
, _(" -t --temp-prefix <prefix> Use <prefix> to construct temp file names.\n"));
3976 fprintf (file
, _(" -I --identify <implib> Report the name of the DLL associated with <implib>.\n"));
3977 fprintf (file
, _(" --identify-strict Causes --identify to report error when multiple DLLs.\n"));
3978 fprintf (file
, _(" -v --verbose Be verbose.\n"));
3979 fprintf (file
, _(" -V --version Display the program version.\n"));
3980 fprintf (file
, _(" -h --help Display this information.\n"));
3981 fprintf (file
, _(" @<file> Read options from <file>.\n"));
3982 #ifdef DLLTOOL_MCORE_ELF
3983 fprintf (file
, _(" -M --mcore-elf <outname> Process mcore-elf object files into <outname>.\n"));
3984 fprintf (file
, _(" -L --linker <name> Use <name> as the linker.\n"));
3985 fprintf (file
, _(" -F --linker-flags <flags> Pass <flags> to the linker.\n"));
3987 if (REPORT_BUGS_TO
[0] && status
== 0)
3988 fprintf (file
, _("Report bugs to %s\n"), REPORT_BUGS_TO
);
3992 #define OPTION_EXPORT_ALL_SYMS 150
3993 #define OPTION_NO_EXPORT_ALL_SYMS (OPTION_EXPORT_ALL_SYMS + 1)
3994 #define OPTION_EXCLUDE_SYMS (OPTION_NO_EXPORT_ALL_SYMS + 1)
3995 #define OPTION_NO_DEFAULT_EXCLUDES (OPTION_EXCLUDE_SYMS + 1)
3996 #define OPTION_ADD_STDCALL_UNDERSCORE (OPTION_NO_DEFAULT_EXCLUDES + 1)
3997 #define OPTION_USE_NUL_PREFIXED_IMPORT_TABLES \
3998 (OPTION_ADD_STDCALL_UNDERSCORE + 1)
3999 #define OPTION_IDENTIFY_STRICT (OPTION_USE_NUL_PREFIXED_IMPORT_TABLES + 1)
4000 #define OPTION_NO_LEADING_UNDERSCORE (OPTION_IDENTIFY_STRICT + 1)
4001 #define OPTION_LEADING_UNDERSCORE (OPTION_NO_LEADING_UNDERSCORE + 1)
4003 static const struct option long_options
[] =
4005 {"no-delete", no_argument
, NULL
, 'n'},
4006 {"dllname", required_argument
, NULL
, 'D'},
4007 {"no-idata4", no_argument
, NULL
, 'x'},
4008 {"no-idata5", no_argument
, NULL
, 'c'},
4009 {"use-nul-prefixed-import-tables", no_argument
, NULL
,
4010 OPTION_USE_NUL_PREFIXED_IMPORT_TABLES
},
4011 {"output-exp", required_argument
, NULL
, 'e'},
4012 {"output-def", required_argument
, NULL
, 'z'},
4013 {"export-all-symbols", no_argument
, NULL
, OPTION_EXPORT_ALL_SYMS
},
4014 {"no-export-all-symbols", no_argument
, NULL
, OPTION_NO_EXPORT_ALL_SYMS
},
4015 {"exclude-symbols", required_argument
, NULL
, OPTION_EXCLUDE_SYMS
},
4016 {"no-default-excludes", no_argument
, NULL
, OPTION_NO_DEFAULT_EXCLUDES
},
4017 {"output-lib", required_argument
, NULL
, 'l'},
4018 {"def", required_argument
, NULL
, 'd'}, /* for compatibility with older versions */
4019 {"input-def", required_argument
, NULL
, 'd'},
4020 {"add-underscore", no_argument
, NULL
, 'U'},
4021 {"add-stdcall-underscore", no_argument
, NULL
, OPTION_ADD_STDCALL_UNDERSCORE
},
4022 {"no-leading-underscore", no_argument
, NULL
, OPTION_NO_LEADING_UNDERSCORE
},
4023 {"leading-underscore", no_argument
, NULL
, OPTION_LEADING_UNDERSCORE
},
4024 {"kill-at", no_argument
, NULL
, 'k'},
4025 {"add-stdcall-alias", no_argument
, NULL
, 'A'},
4026 {"ext-prefix-alias", required_argument
, NULL
, 'p'},
4027 {"identify", required_argument
, NULL
, 'I'},
4028 {"identify-strict", no_argument
, NULL
, OPTION_IDENTIFY_STRICT
},
4029 {"verbose", no_argument
, NULL
, 'v'},
4030 {"version", no_argument
, NULL
, 'V'},
4031 {"help", no_argument
, NULL
, 'h'},
4032 {"machine", required_argument
, NULL
, 'm'},
4033 {"add-indirect", no_argument
, NULL
, 'a'},
4034 {"base-file", required_argument
, NULL
, 'b'},
4035 {"as", required_argument
, NULL
, 'S'},
4036 {"as-flags", required_argument
, NULL
, 'f'},
4037 {"mcore-elf", required_argument
, NULL
, 'M'},
4038 {"compat-implib", no_argument
, NULL
, 'C'},
4039 {"temp-prefix", required_argument
, NULL
, 't'},
4040 {"output-delaylib", required_argument
, NULL
, 'y'},
4044 int main (int, char **);
4047 main (int ac
, char **av
)
4052 program_name
= av
[0];
4055 #if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
4056 setlocale (LC_MESSAGES
, "");
4058 #if defined (HAVE_SETLOCALE)
4059 setlocale (LC_CTYPE
, "");
4061 bindtextdomain (PACKAGE
, LOCALEDIR
);
4062 textdomain (PACKAGE
);
4064 bfd_set_error_program_name (program_name
);
4065 expandargv (&ac
, &av
);
4067 while ((c
= getopt_long (ac
, av
,
4068 #ifdef DLLTOOL_MCORE_ELF
4069 "m:e:l:aD:d:z:b:xp:cCuUkAS:t:f:nI:vVHhM:L:F:",
4071 "m:e:l:y:aD:d:z:b:xp:cCuUkAS:t:f:nI:vVHh",
4078 case OPTION_EXPORT_ALL_SYMS
:
4079 export_all_symbols
= TRUE
;
4081 case OPTION_NO_EXPORT_ALL_SYMS
:
4082 export_all_symbols
= FALSE
;
4084 case OPTION_EXCLUDE_SYMS
:
4085 add_excludes (optarg
);
4087 case OPTION_NO_DEFAULT_EXCLUDES
:
4088 do_default_excludes
= FALSE
;
4090 case OPTION_USE_NUL_PREFIXED_IMPORT_TABLES
:
4091 use_nul_prefixed_import_tables
= TRUE
;
4093 case OPTION_ADD_STDCALL_UNDERSCORE
:
4094 add_stdcall_underscore
= 1;
4096 case OPTION_NO_LEADING_UNDERSCORE
:
4097 leading_underscore
= 0;
4099 case OPTION_LEADING_UNDERSCORE
:
4100 leading_underscore
= 1;
4102 case OPTION_IDENTIFY_STRICT
:
4103 identify_strict
= 1;
4115 tmp_prefix
= optarg
;
4121 /* Ignored for compatibility. */
4128 output_def
= fopen (optarg
, FOPEN_WT
);
4130 /* xgettext:c-format */
4131 fatal (_("Unable to open def-file: %s"), optarg
);
4134 dll_name
= (char*) lbasename (optarg
);
4135 if (dll_name
!= optarg
)
4136 non_fatal (_("Path components stripped from dllname, '%s'."),
4153 identify_imp_name
= optarg
;
4159 print_version (program_name
);
4168 add_stdcall_alias
= 1;
4171 ext_prefix_alias
= optarg
;
4180 base_file
= fopen (optarg
, FOPEN_RB
);
4183 /* xgettext:c-format */
4184 fatal (_("Unable to open base-file: %s"), optarg
);
4187 #ifdef DLLTOOL_MCORE_ELF
4189 mcore_elf_out_file
= optarg
;
4192 mcore_elf_linker
= optarg
;
4195 mcore_elf_linker_flags
= optarg
;
4199 create_compat_implib
= 1;
4202 delayimp_name
= optarg
;
4211 tmp_prefix
= prefix_encode ("d", getpid ());
4213 for (i
= 0; mtable
[i
].type
; i
++)
4214 if (strcmp (mtable
[i
].type
, mname
) == 0)
4217 if (!mtable
[i
].type
)
4218 /* xgettext:c-format */
4219 fatal (_("Machine '%s' not supported"), mname
);
4223 /* Check if we generated PE+. */
4224 create_for_pep
= strcmp (mname
, "i386:x86-64") == 0;
4227 /* Check the default underscore */
4228 int u
= leading_underscore
; /* Underscoring mode. -1 for use default. */
4230 bfd_get_target_info (mtable
[machine
].how_bfd_target
, NULL
,
4233 leading_underscore
= (u
!= 0 ? TRUE
: FALSE
);
4236 if (!dll_name
&& exp_name
)
4238 /* If we are inferring dll_name from exp_name,
4239 strip off any path components, without emitting
4241 const char* exp_basename
= lbasename (exp_name
);
4242 const int len
= strlen (exp_basename
) + 5;
4243 dll_name
= xmalloc (len
);
4244 strcpy (dll_name
, exp_basename
);
4245 strcat (dll_name
, ".dll");
4246 dll_name_set_by_exp_name
= 1;
4249 if (as_name
== NULL
)
4250 as_name
= deduce_name ("as");
4252 /* Don't use the default exclude list if we're reading only the
4253 symbols in the .drectve section. The default excludes are meant
4254 to avoid exporting DLL entry point and Cygwin32 impure_ptr. */
4255 if (! export_all_symbols
)
4256 do_default_excludes
= FALSE
;
4258 if (do_default_excludes
)
4259 set_default_excludes ();
4262 process_def_file (def_file
);
4267 firstarg
= av
[optind
];
4268 scan_obj_file (av
[optind
]);
4279 /* Make imp_name safe for use as a label. */
4282 imp_name_lab
= xstrdup (imp_name
);
4283 for (p
= imp_name_lab
; *p
; p
++)
4288 head_label
= make_label("_head_", imp_name_lab
);
4294 /* Make delayimp_name safe for use as a label. */
4297 if (mtable
[machine
].how_dljtab
== 0)
4299 inform (_("Warning, machine type (%d) not supported for "
4300 "delayimport."), machine
);
4305 imp_name
= delayimp_name
;
4306 imp_name_lab
= xstrdup (imp_name
);
4307 for (p
= imp_name_lab
; *p
; p
++)
4312 head_label
= make_label("__tailMerge_", imp_name_lab
);
4320 if (identify_imp_name
)
4322 identify_dll_for_implib ();
4325 #ifdef DLLTOOL_MCORE_ELF
4326 if (mcore_elf_out_file
)
4327 mcore_elf_gen_out_file ();
4333 /* Look for the program formed by concatenating PROG_NAME and the
4334 string running from PREFIX to END_PREFIX. If the concatenated
4335 string contains a '/', try appending EXECUTABLE_SUFFIX if it is
4339 look_for_prog (const char *prog_name
, const char *prefix
, int end_prefix
)
4344 cmd
= xmalloc (strlen (prefix
)
4345 + strlen (prog_name
)
4346 #ifdef HAVE_EXECUTABLE_SUFFIX
4347 + strlen (EXECUTABLE_SUFFIX
)
4350 strcpy (cmd
, prefix
);
4352 sprintf (cmd
+ end_prefix
, "%s", prog_name
);
4354 if (strchr (cmd
, '/') != NULL
)
4358 found
= (stat (cmd
, &s
) == 0
4359 #ifdef HAVE_EXECUTABLE_SUFFIX
4360 || stat (strcat (cmd
, EXECUTABLE_SUFFIX
), &s
) == 0
4366 /* xgettext:c-format */
4367 inform (_("Tried file: %s"), cmd
);
4373 /* xgettext:c-format */
4374 inform (_("Using file: %s"), cmd
);
4379 /* Deduce the name of the program we are want to invoke.
4380 PROG_NAME is the basic name of the program we want to run,
4381 eg "as" or "ld". The catch is that we might want actually
4382 run "i386-pe-as" or "ppc-pe-ld".
4384 If argv[0] contains the full path, then try to find the program
4385 in the same place, with and then without a target-like prefix.
4387 Given, argv[0] = /usr/local/bin/i586-cygwin32-dlltool,
4388 deduce_name("as") uses the following search order:
4390 /usr/local/bin/i586-cygwin32-as
4394 If there's an EXECUTABLE_SUFFIX, it'll use that as well; for each
4395 name, it'll try without and then with EXECUTABLE_SUFFIX.
4397 Given, argv[0] = i586-cygwin32-dlltool, it will not even try "as"
4398 as the fallback, but rather return i586-cygwin32-as.
4400 Oh, and given, argv[0] = dlltool, it'll return "as".
4402 Returns a dynamically allocated string. */
4405 deduce_name (const char *prog_name
)
4408 char *dash
, *slash
, *cp
;
4412 for (cp
= program_name
; *cp
!= '\0'; ++cp
)
4417 #if defined(__DJGPP__) || defined (__CYGWIN__) || defined(__WIN32__)
4418 *cp
== ':' || *cp
== '\\' ||
4431 /* First, try looking for a prefixed PROG_NAME in the
4432 PROGRAM_NAME directory, with the same prefix as PROGRAM_NAME. */
4433 cmd
= look_for_prog (prog_name
, program_name
, dash
- program_name
+ 1);
4436 if (slash
!= NULL
&& cmd
== NULL
)
4438 /* Next, try looking for a PROG_NAME in the same directory as
4439 that of this program. */
4440 cmd
= look_for_prog (prog_name
, program_name
, slash
- program_name
+ 1);
4445 /* Just return PROG_NAME as is. */
4446 cmd
= xstrdup (prog_name
);
4452 #ifdef DLLTOOL_MCORE_ELF
4453 typedef struct fname_cache
4455 const char * filename
;
4456 struct fname_cache
* next
;
4460 static fname_cache fnames
;
4463 mcore_elf_cache_filename (const char * filename
)
4469 while (ptr
->next
!= NULL
)
4472 ptr
->filename
= filename
;
4473 ptr
->next
= (fname_cache
*) malloc (sizeof (fname_cache
));
4474 if (ptr
->next
!= NULL
)
4475 ptr
->next
->next
= NULL
;
4478 #define MCORE_ELF_TMP_OBJ "mcoreelf.o"
4479 #define MCORE_ELF_TMP_EXP "mcoreelf.exp"
4480 #define MCORE_ELF_TMP_LIB "mcoreelf.lib"
4483 mcore_elf_gen_out_file (void)
4488 /* Step one. Run 'ld -r' on the input object files in order to resolve
4489 any internal references and to generate a single .exports section. */
4492 ds
= dyn_string_new (100);
4493 dyn_string_append_cstr (ds
, "-r ");
4495 if (mcore_elf_linker_flags
!= NULL
)
4496 dyn_string_append_cstr (ds
, mcore_elf_linker_flags
);
4498 while (ptr
->next
!= NULL
)
4500 dyn_string_append_cstr (ds
, ptr
->filename
);
4501 dyn_string_append_cstr (ds
, " ");
4506 dyn_string_append_cstr (ds
, "-o ");
4507 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_OBJ
);
4509 if (mcore_elf_linker
== NULL
)
4510 mcore_elf_linker
= deduce_name ("ld");
4512 run (mcore_elf_linker
, ds
->s
);
4514 dyn_string_delete (ds
);
4516 /* Step two. Create a .exp file and a .lib file from the temporary file.
4517 Do this by recursively invoking dlltool... */
4518 ds
= dyn_string_new (100);
4520 dyn_string_append_cstr (ds
, "-S ");
4521 dyn_string_append_cstr (ds
, as_name
);
4523 dyn_string_append_cstr (ds
, " -e ");
4524 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_EXP
);
4525 dyn_string_append_cstr (ds
, " -l ");
4526 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_LIB
);
4527 dyn_string_append_cstr (ds
, " " );
4528 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_OBJ
);
4531 dyn_string_append_cstr (ds
, " -v");
4535 dyn_string_append_cstr (ds
, " -n");
4537 if (dontdeltemps
> 1)
4538 dyn_string_append_cstr (ds
, " -n");
4541 /* XXX - FIME: ought to check/copy other command line options as well. */
4542 run (program_name
, ds
->s
);
4544 dyn_string_delete (ds
);
4546 /* Step four. Feed the .exp and object files to ld -shared to create the dll. */
4547 ds
= dyn_string_new (100);
4549 dyn_string_append_cstr (ds
, "-shared ");
4551 if (mcore_elf_linker_flags
)
4552 dyn_string_append_cstr (ds
, mcore_elf_linker_flags
);
4554 dyn_string_append_cstr (ds
, " ");
4555 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_EXP
);
4556 dyn_string_append_cstr (ds
, " ");
4557 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_OBJ
);
4558 dyn_string_append_cstr (ds
, " -o ");
4559 dyn_string_append_cstr (ds
, mcore_elf_out_file
);
4561 run (mcore_elf_linker
, ds
->s
);
4563 dyn_string_delete (ds
);
4565 if (dontdeltemps
== 0)
4566 unlink (MCORE_ELF_TMP_EXP
);
4568 if (dontdeltemps
< 2)
4569 unlink (MCORE_ELF_TMP_OBJ
);
4571 #endif /* DLLTOOL_MCORE_ELF */