1 /* dlltool.c -- tool to generate stuff for PE style DLLs
2 Copyright (C) 1995, 96, 97, 98, 1999 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 2 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., 59 Temple Place - Suite 330, Boston, MA
23 This program allows you to build the files necessary to create
24 DLLs to run on a system which understands PE format image files.
27 See "Peering Inside the PE: A Tour of the Win32 Portable Executable
28 File Format", MSJ 1994, Volume 9 for more information.
29 Also see "Microsoft Portable Executable and Common Object File Format,
30 Specification 4.1" for more information.
32 A DLL contains an export table which contains the information
33 which the runtime loader needs to tie up references from a
36 The export table is generated by this program by reading
37 in a .DEF file or scanning the .a and .o files which will be in the
38 DLL. A .o file can contain information in special ".drectve" sections
39 with export information.
41 A DEF file contains any number of the following commands:
44 NAME <name> [ , <base> ]
45 The result is going to be <name>.EXE
47 LIBRARY <name> [ , <base> ]
48 The result is going to be <name>.DLL
50 EXPORTS ( <name1> [ = <name2> ] [ @ <integer> ] [ NONAME ] [CONSTANT] [DATA] ) *
51 Declares name1 as an exported symbol from the
52 DLL, with optional ordinal number <integer>
54 IMPORTS ( ( <internal-name> = <module-name> . <integer> )
55 | ( [ <internal-name> = ] <module-name> . <external-name> )) *
56 Declares that <external-name> or the exported function whoes ordinal number
57 is <integer> is to be imported from the file <module-name>. If
58 <internal-name> is specified then this is the name that the imported
59 function will be refered to in the body of the DLL.
62 Puts <string> into output .exp file in the .rdata section
64 [STACKSIZE|HEAPSIZE] <number-reserve> [ , <number-commit> ]
65 Generates --stack|--heap <number-reserve>,<number-commit>
66 in the output .drectve section. The linker will
67 see this and act upon it.
70 SECTIONS ( <sectionname> <attr>+ )*
71 <attr> = READ | WRITE | EXECUTE | SHARED
72 Generates --attr <sectionname> <attr> in the output
73 .drectve section. The linker will see this and act
77 A -export:<name> in a .drectve section in an input .o or .a
78 file to this program is equivalent to a EXPORTS <name>
83 The program generates output files with the prefix supplied
84 on the command line, or in the def file, or taken from the first
87 The .exp.s file contains the information necessary to export
88 the routines in the DLL. The .lib.s file contains the information
89 necessary to use the DLL's routines from a referencing program.
96 asm (".section .drectve");
97 asm (".ascii \"-export:adef\"");
101 printf ("hello from the dll %s\n", s);
106 printf ("hello from the dll and the other entry point %s\n", s);
110 asm (".section .drectve");
111 asm (".ascii \"-export:cdef\"");
112 asm (".ascii \"-export:ddef\"");
116 printf ("hello from the dll %s\n", s);
121 printf ("hello from the dll and the other entry point %s\n", s);
139 HEAPSIZE 0x40000, 0x2000
143 SECTIONS donkey READ WRITE
146 # compile up the parts of the dll
151 # put them in a library (you don't have to, you
152 # could name all the .os on the dlltool line)
154 ar qcv thedll.in file1.o file2.o
157 # run this tool over the library and the def file
158 ./dlltool --def thedll.def --output-exp thedll.o --output-lib thedll.a
160 # build the dll with the library with file1.o, file2.o and the export table
161 ld -o thedll.dll thedll.o thedll.in
166 # link the executable with the import library
167 gcc -o themain.exe themain.o thedll.a
171 /* .idata section description
173 The .idata section is the import table. It is a collection of several
174 subsections used to keep the pieces for each dll together: .idata$[234567].
175 IE: Each dll's .idata$2's are catenated together, each .idata$3's, etc.
177 .idata$2 = Import Directory Table
178 = array of IMAGE_IMPORT_DESCRIPTOR's.
180 DWORD Import Lookup Table; - pointer to .idata$4
181 DWORD TimeDateStamp; - currently always 0
182 DWORD ForwarderChain; - currently always 0
183 DWORD Name; - pointer to dll's name
184 PIMAGE_THUNK_DATA FirstThunk; - pointer to .idata$5
186 .idata$3 = null terminating entry for .idata$2.
188 .idata$4 = Import Lookup Table
189 = array of array of pointers to hint name table.
190 There is one for each dll being imported from, and each dll's set is
191 terminated by a trailing NULL.
193 .idata$5 = Import Address Table
194 = array of array of pointers to hint name table.
195 There is one for each dll being imported from, and each dll's set is
196 terminated by a trailing NULL.
197 Initially, this table is identical to the Import Lookup Table. However,
198 at load time, the loader overwrites the entries with the address of the
201 .idata$6 = Hint Name Table
202 = Array of { short, asciz } entries, one for each imported function.
203 The `short' is the function's ordinal number.
205 .idata$7 = dll name (eg: "kernel32.dll"). (.idata$6 for ppc)
208 /* AIX requires this to be the first thing in the file. */
215 #define show_allnames 0
217 #define PAGE_SIZE 4096
218 #define PAGE_MASK (-PAGE_SIZE)
220 #include "libiberty.h"
223 #include "demangle.h"
235 #include "coff/arm.h"
236 #include "coff/internal.h"
240 /* Forward references. */
241 static char * deduce_name (char *);
243 #ifdef DLLTOOL_MCORE_ELF
244 static void mcore_elf_cache_filename (char *);
245 static void mcore_elf_gen_out_file (void);
248 #ifdef HAVE_SYS_WAIT_H
249 #include <sys/wait.h>
250 #else /* ! HAVE_SYS_WAIT_H */
251 #if ! defined (_WIN32) || defined (__CYGWIN32__)
253 #define WIFEXITED(w) (((w)&0377) == 0)
256 #define WIFSIGNALED(w) (((w)&0377) != 0177 && ((w)&~0377) == 0)
259 #define WTERMSIG(w) ((w) & 0177)
262 #define WEXITSTATUS(w) (((w) >> 8) & 0377)
264 #else /* defined (_WIN32) && ! defined (__CYGWIN32__) */
266 #define WIFEXITED(w) (((w) & 0xff) == 0)
269 #define WIFSIGNALED(w) (((w) & 0xff) != 0 && ((w) & 0xff) != 0x7f)
272 #define WTERMSIG(w) ((w) & 0x7f)
275 #define WEXITSTATUS(w) (((w) & 0xff00) >> 8)
277 #endif /* defined (_WIN32) && ! defined (__CYGWIN32__) */
278 #endif /* ! HAVE_SYS_WAIT_H */
280 /* ifunc and ihead data structures: ttk@cygnus.com 1997
282 When IMPORT declarations are encountered in a .def file the
283 function import information is stored in a structure referenced by
284 the global variable IMPORT_LIST. The structure is a linked list
285 containing the names of the dll files each function is imported
286 from and a linked list of functions being imported from that dll
287 file. This roughly parallels the structure of the .idata section
288 in the PE object file.
290 The contents of .def file are interpreted from within the
291 process_def_file function. Every time an IMPORT declaration is
292 encountered, it is broken up into its component parts and passed to
293 def_import. IMPORT_LIST is initialized to NULL in function main. */
295 typedef struct ifunct
297 char *name
; /* name of function being imported */
298 int ord
; /* two-byte ordinal value associated with function */
302 typedef struct iheadt
304 char *dllname
; /* name of dll file imported from */
305 long nfuncs
; /* number of functions in list */
306 struct ifunct
*funchead
; /* first function in list */
307 struct ifunct
*functail
; /* last function in list */
308 struct iheadt
*next
; /* next dll file in list */
311 /* Structure containing all import information as defined in .def file
312 (qv "ihead structure"). */
314 static iheadtype
*import_list
= NULL
;
316 static char *as_name
= NULL
;
317 static char * as_flags
= "";
319 static int no_idata4
;
320 static int no_idata5
;
321 static char *exp_name
;
322 static char *imp_name
;
323 static char *head_label
;
324 static char *imp_name_lab
;
325 static char *dll_name
;
327 static int add_indirect
= 0;
328 static int add_underscore
= 0;
329 static int dontdeltemps
= 0;
331 /* True if we should export all symbols. Otherwise, we only export
332 symbols listed in .drectve sections or in the def file. */
333 static boolean export_all_symbols
;
335 /* True if we should exclude the symbols in DEFAULT_EXCLUDES when
336 exporting all symbols. */
337 static boolean do_default_excludes
;
339 /* Default symbols to exclude when exporting all the symbols. */
340 static const char *default_excludes
= "DllMain@12,DllEntryPoint@0,impure_ptr";
342 static char *def_file
;
344 extern char * program_name
;
348 static int add_stdcall_alias
;
350 static FILE *output_def
;
351 static FILE *base_file
;
354 static const char *mname
= "arm";
358 static const char *mname
= "i386";
362 static const char *mname
= "ppc";
366 static const char * mname
= "mcore";
369 #ifdef DLLTOOL_MCORE_ELF
370 static const char * mname
= "mcore-elf";
371 static char * mcore_elf_out_file
= NULL
;
372 static char * mcore_elf_linker
= NULL
;
373 static char * mcore_elf_linker_flags
= NULL
;
375 #define DRECTVE_SECTION_NAME ((machine == MMCORE_ELF || machine == MMCORE_ELF_LE) ? ".exports" : ".drectve")
378 #ifndef DRECTVE_SECTION_NAME
379 #define DRECTVE_SECTION_NAME ".drectve"
382 #define PATHMAX 250 /* What's the right name for this ? */
384 #define TMP_ASM "dc.s"
385 #define TMP_HEAD_S "dh.s"
386 #define TMP_HEAD_O "dh.o"
387 #define TMP_TAIL_S "dt.s"
388 #define TMP_TAIL_O "dt.o"
389 #define TMP_STUB "ds"
391 /* This bit of assemly does jmp * .... */
392 static const unsigned char i386_jtab
[] =
394 0xff, 0x25, 0x00, 0x00, 0x00, 0x00, 0x90, 0x90
397 static const unsigned char arm_jtab
[] =
399 0x00, 0xc0, 0x9f, 0xe5, /* ldr ip, [pc] */
400 0x00, 0xf0, 0x9c, 0xe5, /* ldr pc, [ip] */
404 static const unsigned char arm_interwork_jtab
[] =
406 0x04, 0xc0, 0x9f, 0xe5, /* ldr ip, [pc] */
407 0x00, 0xc0, 0x9c, 0xe5, /* ldr ip, [ip] */
408 0x1c, 0xff, 0x2f, 0xe1, /* bx ip */
412 static const unsigned char thumb_jtab
[] =
414 0x40, 0xb4, /* push {r6} */
415 0x02, 0x4e, /* ldr r6, [pc, #8] */
416 0x36, 0x68, /* ldr r6, [r6] */
417 0xb4, 0x46, /* mov ip, r6 */
418 0x40, 0xbc, /* pop {r6} */
419 0x60, 0x47, /* bx ip */
423 static const unsigned char mcore_be_jtab
[] =
425 0x70, 0x01, /* jmpi 1 */
426 0x12, 0x11, /* nop */
427 0x00, 0x00, 0x00, 0x00 /* <address> */
430 static const unsigned char mcore_le_jtab
[] =
432 0x01, 0x70, /* jmpi 1 */
433 0x11, 0x12, /* nop */
434 0x00, 0x00, 0x00, 0x00 /* <address> */
437 /* This is the glue sequence for PowerPC PE. There is a */
438 /* tocrel16-tocdefn reloc against the first instruction. */
439 /* We also need a IMGLUE reloc against the glue function */
440 /* to restore the toc saved by the third instruction in */
442 static const unsigned char ppc_jtab
[] =
444 0x00, 0x00, 0x62, 0x81, /* lwz r11,0(r2) */
445 /* Reloc TOCREL16 __imp_xxx */
446 0x00, 0x00, 0x8B, 0x81, /* lwz r12,0(r11) */
447 0x04, 0x00, 0x41, 0x90, /* stw r2,4(r1) */
448 0xA6, 0x03, 0x89, 0x7D, /* mtctr r12 */
449 0x04, 0x00, 0x4B, 0x80, /* lwz r2,4(r11) */
450 0x20, 0x04, 0x80, 0x4E /* bctr */
454 /* the glue instruction, picks up the toc from the stw in */
455 /* the above code: "lwz r2,4(r1)" */
456 static bfd_vma ppc_glue_insn
= 0x80410004;
459 /* The outfile array must be big enough to contain a fully
460 qualified path name, plus an arbitary series of command
461 line switches. We hope that PATH_MAX times two will be
463 static char outfile
[PATHMAX
* 2];
468 const char *how_byte
;
469 const char *how_short
;
470 const char *how_long
;
471 const char *how_asciz
;
472 const char *how_comment
;
473 const char *how_jump
;
474 const char *how_global
;
475 const char *how_space
;
476 const char *how_align_short
;
477 const char *how_align_long
;
478 const char *how_bfd_target
;
479 enum bfd_architecture how_bfd_arch
;
480 const unsigned char *how_jtab
;
481 int how_jtab_size
; /* size of the jtab entry */
482 int how_jtab_roff
; /* offset into it for the ind 32 reloc into idata 5 */
485 static const struct mac
490 "arm", ".byte", ".short", ".long", ".asciz", "@",
491 "ldr\tip,[pc]\n\tldr\tpc,[ip]\n\t.long",
492 ".global", ".space", ".align\t2",".align\t4","pe-arm-little", bfd_arch_arm
,
493 arm_jtab
, sizeof (arm_jtab
), 8
498 "i386", ".byte", ".short", ".long", ".asciz", "#", "jmp *", ".global", ".space", ".align\t2",".align\t4","pe-i386",bfd_arch_i386
,
499 i386_jtab
, sizeof (i386_jtab
), 2
504 "ppc", ".byte", ".short", ".long", ".asciz", "#", "jmp *", ".global", ".space", ".align\t2",".align\t4","pe-powerpcle",bfd_arch_powerpc
,
505 ppc_jtab
, sizeof (ppc_jtab
), 0
510 "thumb", ".byte", ".short", ".long", ".asciz", "@",
511 "push\t{r6}\n\tldr\tr6, [pc, #8]\n\tldr\tr6, [r6]\n\tmov\tip, r6\n\tpop\t{r6}\n\tbx\tip",
512 ".global", ".space", ".align\t2",".align\t4","pe-arm-little", bfd_arch_arm
,
513 thumb_jtab
, sizeof (thumb_jtab
), 12
516 #define MARM_INTERWORK 4
518 "arm_interwork", ".byte", ".short", ".long", ".asciz", "@",
519 "ldr\tip,[pc]\n\tldr\tip,[ip]\n\tbx\tip\n\t.long",
520 ".global", ".space", ".align\t2",".align\t4","pe-arm-little", bfd_arch_arm
,
521 arm_interwork_jtab
, sizeof (arm_interwork_jtab
), 12
526 "mcore", ".byte", ".short", ".long", ".asciz", "//",
527 "jmpi\t1\n\tnop\n\t.long",
528 ".global", ".space", ".align\t2",".align\t4","pe-mcore-big", bfd_arch_mcore
,
529 mcore_be_jtab
, sizeof (mcore_be_jtab
), 8
534 "mcore-le", ".byte", ".short", ".long", ".asciz", "//",
535 "jmpi\t1\n\tnop\n\t.long",
536 ".global", ".space", ".align\t2",".align\t4","pe-mcore-little", bfd_arch_mcore
,
537 mcore_le_jtab
, sizeof (mcore_le_jtab
), 8
542 "mcore-elf", ".byte", ".short", ".long", ".asciz", "//",
543 "jmpi\t1\n\tnop\n\t.long",
544 ".global", ".space", ".align\t2",".align\t4","elf32-mcore-big", bfd_arch_mcore
,
545 mcore_be_jtab
, sizeof (mcore_be_jtab
), 8
549 #define MMCORE_ELF_LE 8
550 "mcore-elf-le", ".byte", ".short", ".long", ".asciz", "//",
551 "jmpi\t1\n\tnop\n\t.long",
552 ".global", ".space", ".align\t2",".align\t4","elf32-mcore-little", bfd_arch_mcore
,
553 mcore_le_jtab
, sizeof (mcore_le_jtab
), 8
566 typedef struct export
569 const char *internal_name
;
579 /* A list of symbols which we should not export. */
583 struct string_list
*next
;
587 static struct string_list
*excludes
;
589 static const char *rvaafter
PARAMS ((int));
590 static const char *rvabefore
PARAMS ((int));
591 static const char *asm_prefix
PARAMS ((int));
592 static void append_import
PARAMS ((const char *, const char *, int));
593 static void run
PARAMS ((const char *, char *));
594 static void scan_drectve_symbols
PARAMS ((bfd
*));
595 static void scan_filtered_symbols
PARAMS ((bfd
*, PTR
, long, unsigned int));
596 static void add_excludes
PARAMS ((const char *));
597 static boolean match_exclude
PARAMS ((const char *));
598 static void set_default_excludes
PARAMS ((void));
599 static long filter_symbols
PARAMS ((bfd
*, PTR
, long, unsigned int));
600 static void scan_all_symbols
PARAMS ((bfd
*));
601 static void scan_open_obj_file
PARAMS ((bfd
*));
602 static void scan_obj_file
PARAMS ((const char *));
603 static void dump_def_info
PARAMS ((FILE *));
604 static int sfunc
PARAMS ((const void *, const void *));
605 static void flush_page
PARAMS ((FILE *, long *, int, int));
606 static void gen_def_file
PARAMS ((void));
607 static void generate_idata_ofile
PARAMS ((FILE *));
608 static void gen_exp_file
PARAMS ((void));
609 static const char *xlate
PARAMS ((const char *));
611 static void dump_iat
PARAMS ((FILE *, export_type
*));
613 static char *make_label
PARAMS ((const char *, const char *));
614 static bfd
*make_one_lib_file
PARAMS ((export_type
*, int));
615 static bfd
*make_head
PARAMS ((void));
616 static bfd
*make_tail
PARAMS ((void));
617 static void gen_lib_file
PARAMS ((void));
618 static int pfunc
PARAMS ((const void *, const void *));
619 static int nfunc
PARAMS ((const void *, const void *));
620 static void remove_null_names
PARAMS ((export_type
**));
621 static void dtab
PARAMS ((export_type
**));
622 static void process_duplicates
PARAMS ((export_type
**));
623 static void fill_ordinals
PARAMS ((export_type
**));
624 static int alphafunc
PARAMS ((const void *, const void *));
625 static void mangle_defs
PARAMS ((void));
626 static void usage
PARAMS ((FILE *, int));
627 static void display
PARAMS ((const char *, va_list));
628 static void inform
PARAMS ((const char *, ...));
629 static void warn
PARAMS ((const char *, ...));
632 display (message
, args
)
633 const char * message
;
636 if (program_name
!= NULL
)
637 fprintf (stderr
, "%s: ", program_name
);
639 vfprintf (stderr
, message
, args
);
641 if (message
[strlen (message
) - 1] != '\n')
642 fputc ('\n', stderr
);
648 inform (const char * message
, ...)
650 inform (message
, va_alist
)
651 const char * message
;
661 va_start (args
, message
);
666 display (message
, args
);
673 warn (const char * message
, ...)
675 warn (message
, va_alist
)
676 const char * message
;
683 va_start (args
, message
);
688 display (message
, args
);
710 /* xgettext:c-format */
711 fatal (_("Internal error: Unknown machine type: %d\n"), machine
);
734 /* xgettext:c-format */
735 fatal (_("Internal error: Unknown machine type: %d\n"), machine
);
759 /* xgettext:c-format */
760 fatal (_("Internal error: Unknown machine type: %d\n"), machine
);
766 #define ASM_BYTE mtable[machine].how_byte
767 #define ASM_SHORT mtable[machine].how_short
768 #define ASM_LONG mtable[machine].how_long
769 #define ASM_TEXT mtable[machine].how_asciz
770 #define ASM_C mtable[machine].how_comment
771 #define ASM_JUMP mtable[machine].how_jump
772 #define ASM_GLOBAL mtable[machine].how_global
773 #define ASM_SPACE mtable[machine].how_space
774 #define ASM_ALIGN_SHORT mtable[machine].how_align_short
775 #define ASM_RVA_BEFORE rvabefore(machine)
776 #define ASM_RVA_AFTER rvaafter(machine)
777 #define ASM_PREFIX asm_prefix(machine)
778 #define ASM_ALIGN_LONG mtable[machine].how_align_long
779 #define HOW_BFD_TARGET 0 /* always default*/
780 #define HOW_BFD_ARCH mtable[machine].how_bfd_arch
781 #define HOW_JTAB mtable[machine].how_jtab
782 #define HOW_JTAB_SIZE mtable[machine].how_jtab_size
783 #define HOW_JTAB_ROFF mtable[machine].how_jtab_roff
787 process_def_file (name
)
790 FILE *f
= fopen (name
, FOPEN_RT
);
793 /* xgettext:c-format */
794 fatal (_("Can't open def file: %s"), name
);
798 /* xgettext:c-format */
799 inform (_("Processing def file: %s"), name
);
803 inform (_("Processed def file"));
806 /**********************************************************************/
808 /* Communications with the parser */
810 static const char *d_name
; /* Arg to NAME or LIBRARY */
811 static int d_nfuncs
; /* Number of functions exported */
812 static int d_named_nfuncs
; /* Number of named functions exported */
813 static int d_low_ord
; /* Lowest ordinal index */
814 static int d_high_ord
; /* Highest ordinal index */
815 static export_type
*d_exports
; /*list of exported functions */
816 static export_type
**d_exports_lexically
; /* vector of exported functions in alpha order */
817 static dlist_type
*d_list
; /* Descriptions */
818 static dlist_type
*a_list
; /* Stuff to go in directives */
827 /* xgettext:c-format */
828 warn (_("Syntax error in def file %s:%d\n"), def_file
, linenumber
);
834 def_exports (name
, internal_name
, ordinal
, noname
, constant
, data
)
836 const char *internal_name
;
842 struct export
*p
= (struct export
*) xmalloc (sizeof (*p
));
845 p
->internal_name
= internal_name
? internal_name
: name
;
846 p
->ordinal
= ordinal
;
847 p
->constant
= constant
;
856 def_name (name
, base
)
860 /* xgettext:c-format */
861 inform (_("NAME: %s base: %x"), name
, base
);
864 warn (_("Can't have LIBRARY and NAME\n"));
867 /* if --dllname not provided, use the one in the DEF file.
868 FIXME: Is this appropriate for executables? */
870 dll_name
= xstrdup (name
);
875 def_library (name
, base
)
879 /* xgettext:c-format */
880 inform (_("LIBRARY: %s base: %x"), name
, base
);
883 warn (_("%s: Can't have LIBRARY and NAME\n"), program_name
);
886 /* if --dllname not provided, use the one in the DEF file. */
888 dll_name
= xstrdup (name
);
893 def_description (desc
)
896 dlist_type
*d
= (dlist_type
*) xmalloc (sizeof (dlist_type
));
897 d
->text
= xstrdup (desc
);
906 dlist_type
*d
= (dlist_type
*) xmalloc (sizeof (dlist_type
));
907 d
->text
= xstrdup (dir
);
913 def_heapsize (reserve
, commit
)
919 sprintf (b
, "-heap 0x%x,0x%x ", reserve
, commit
);
921 sprintf (b
, "-heap 0x%x ", reserve
);
922 new_directive (xstrdup (b
));
926 def_stacksize (reserve
, commit
)
932 sprintf (b
, "-stack 0x%x,0x%x ", reserve
, commit
);
934 sprintf (b
, "-stack 0x%x ", reserve
);
935 new_directive (xstrdup (b
));
938 /* append_import simply adds the given import definition to the global
939 import_list. It is used by def_import. */
942 append_import (symbol_name
, dll_name
, func_ordinal
)
943 const char *symbol_name
;
944 const char *dll_name
;
950 for (pq
= &import_list
; *pq
!= NULL
; pq
= &(*pq
)->next
)
952 if (strcmp ((*pq
)->dllname
, dll_name
) == 0)
955 q
->functail
->next
= xmalloc (sizeof (ifunctype
));
956 q
->functail
= q
->functail
->next
;
957 q
->functail
->ord
= func_ordinal
;
958 q
->functail
->name
= xstrdup (symbol_name
);
959 q
->functail
->next
= NULL
;
965 q
= xmalloc (sizeof (iheadtype
));
966 q
->dllname
= xstrdup (dll_name
);
968 q
->funchead
= xmalloc (sizeof (ifunctype
));
969 q
->functail
= q
->funchead
;
971 q
->functail
->name
= xstrdup (symbol_name
);
972 q
->functail
->ord
= func_ordinal
;
973 q
->functail
->next
= NULL
;
978 /* def_import is called from within defparse.y when an IMPORT
979 declaration is encountered. Depending on the form of the
980 declaration, the module name may or may not need ".dll" to be
981 appended to it, the name of the function may be stored in internal
982 or entry, and there may or may not be an ordinal value associated
985 /* A note regarding the parse modes:
986 In defparse.y we have to accept import declarations which follow
987 any one of the following forms:
988 <func_name_in_app> = <dll_name>.<func_name_in_dll>
989 <func_name_in_app> = <dll_name>.<number>
990 <dll_name>.<func_name_in_dll>
992 Furthermore, the dll's name may or may not end with ".dll", which
993 complicates the parsing a little. Normally the dll's name is
994 passed to def_import() in the "module" parameter, but when it ends
995 with ".dll" it gets passed in "module" sans ".dll" and that needs
998 def_import gets five parameters:
999 APP_NAME - the name of the function in the application, if
1000 present, or NULL if not present.
1001 MODULE - the name of the dll, possibly sans extension (ie, '.dll').
1002 DLLEXT - the extension of the dll, if present, NULL if not present.
1003 ENTRY - the name of the function in the dll, if present, or NULL.
1004 ORD_VAL - the numerical tag of the function in the dll, if present,
1005 or NULL. Exactly one of <entry> or <ord_val> must be
1006 present (i.e., not NULL). */
1009 def_import (app_name
, module
, dllext
, entry
, ord_val
)
1010 const char *app_name
;
1016 const char *application_name
;
1020 application_name
= entry
;
1023 if (app_name
!= NULL
)
1024 application_name
= app_name
;
1026 application_name
= "";
1031 buf
= (char *) alloca (strlen (module
) + strlen (dllext
) + 2);
1032 sprintf (buf
, "%s.%s", module
, dllext
);
1036 append_import (application_name
, module
, ord_val
);
1040 def_version (major
, minor
)
1044 printf ("VERSION %d.%d\n", major
, minor
);
1048 def_section (name
, attr
)
1065 sprintf (buf
, "-attr %s %s", name
, atts
);
1066 new_directive (xstrdup (buf
));
1074 def_section ("CODE", attr
);
1081 def_section ("DATA", attr
);
1084 /**********************************************************************/
1092 int pid
, wait_status
;
1095 char *errmsg_fmt
, *errmsg_arg
;
1096 char *temp_base
= choose_temp_base ();
1098 inform ("run: %s %s\n", what
, args
);
1100 /* Count the args */
1102 for (s
= args
; *s
; s
++)
1106 argv
= alloca (sizeof (char *) * (i
+ 3));
1115 while (*s
!= ' ' && *s
!= 0)
1123 pid
= pexecute (argv
[0], (char * const *) argv
, program_name
, temp_base
,
1124 &errmsg_fmt
, &errmsg_arg
, PEXECUTE_ONE
| PEXECUTE_SEARCH
);
1128 inform (strerror (errno
));
1130 fatal (errmsg_fmt
, errmsg_arg
);
1133 pid
= pwait (pid
, & wait_status
, 0);
1137 /* xgettext:c-format */
1138 fatal (_("wait: %s"), strerror (errno
));
1140 else if (WIFSIGNALED (wait_status
))
1142 /* xgettext:c-format */
1143 fatal (_("subprocess got fatal signal %d"), WTERMSIG (wait_status
));
1145 else if (WIFEXITED (wait_status
))
1147 if (WEXITSTATUS (wait_status
) != 0)
1148 /* xgettext:c-format */
1149 warn (_("%s exited with status %d\n"),
1150 what
, WEXITSTATUS (wait_status
));
1156 /* Look for a list of symbols to export in the .drectve section of
1157 ABFD. Pass each one to def_exports. */
1160 scan_drectve_symbols (abfd
)
1169 /* Look for .drectve's */
1170 s
= bfd_get_section_by_name (abfd
, DRECTVE_SECTION_NAME
);
1175 size
= bfd_get_section_size_before_reloc (s
);
1176 buf
= xmalloc (size
);
1178 bfd_get_section_contents (abfd
, s
, buf
, 0, size
);
1180 /* xgettext:c-format */
1181 inform (_("Sucking in info from %s section in %s\n"),
1182 DRECTVE_SECTION_NAME
, bfd_get_filename (abfd
));
1184 /* Search for -export: strings */
1190 && strncmp (p
, "-export:", 8) == 0)
1197 while (p
< e
&& *p
!= ' ' && *p
!= '-')
1199 c
= xmalloc (p
- name
+ 1);
1200 memcpy (c
, name
, p
- name
);
1203 /* FIXME: The 5th arg is for the `constant' field.
1204 What should it be? Not that it matters since it's not
1205 currently useful. */
1206 def_exports (c
, 0, -1, 0, 0, 0);
1208 if (add_stdcall_alias
&& strchr (c
, '@'))
1210 char *exported_name
= xstrdup (c
);
1211 char *atsym
= strchr (exported_name
, '@');
1213 def_exports (exported_name
, xstrdup (c
), -1, 0, 0, 0);
1222 /* Look through the symbols in MINISYMS, and add each one to list of
1223 symbols to export. */
1226 scan_filtered_symbols (abfd
, minisyms
, symcount
, size
)
1233 bfd_byte
*from
, *fromend
;
1235 store
= bfd_make_empty_symbol (abfd
);
1237 bfd_fatal (bfd_get_filename (abfd
));
1239 from
= (bfd_byte
*) minisyms
;
1240 fromend
= from
+ symcount
* size
;
1241 for (; from
< fromend
; from
+= size
)
1244 const char *symbol_name
;
1246 sym
= bfd_minisymbol_to_symbol (abfd
, false, from
, store
);
1248 bfd_fatal (bfd_get_filename (abfd
));
1250 symbol_name
= bfd_asymbol_name (sym
);
1251 if (bfd_get_symbol_leading_char (abfd
) == symbol_name
[0])
1254 def_exports (xstrdup (symbol_name
) , 0, -1, 0, 0, 0);
1256 if (add_stdcall_alias
&& strchr (symbol_name
, '@'))
1258 char *exported_name
= xstrdup (symbol_name
);
1259 char *atsym
= strchr (exported_name
, '@');
1261 def_exports (exported_name
, xstrdup (symbol_name
), -1, 0, 0, 0);
1266 /* Add a list of symbols to exclude. */
1269 add_excludes (new_excludes
)
1270 const char *new_excludes
;
1273 char *exclude_string
;
1275 local_copy
= xstrdup (new_excludes
);
1277 exclude_string
= strtok (local_copy
, ",:");
1278 for (; exclude_string
; exclude_string
= strtok (NULL
, ",:"))
1280 struct string_list
*new_exclude
;
1282 new_exclude
= ((struct string_list
*)
1283 xmalloc (sizeof (struct string_list
)));
1284 new_exclude
->string
= (char *) xmalloc (strlen (exclude_string
) + 2);
1285 /* FIXME: Is it always right to add a leading underscore? */
1286 sprintf (new_exclude
->string
, "_%s", exclude_string
);
1287 new_exclude
->next
= excludes
;
1288 excludes
= new_exclude
;
1290 /* xgettext:c-format */
1291 inform (_("Excluding symbol: %s\n"), exclude_string
);
1297 /* See if STRING is on the list of symbols to exclude. */
1300 match_exclude (string
)
1303 struct string_list
*excl_item
;
1305 for (excl_item
= excludes
; excl_item
; excl_item
= excl_item
->next
)
1306 if (strcmp (string
, excl_item
->string
) == 0)
1311 /* Add the default list of symbols to exclude. */
1314 set_default_excludes (void)
1316 add_excludes (default_excludes
);
1319 /* Choose which symbols to export. */
1322 filter_symbols (abfd
, minisyms
, symcount
, size
)
1328 bfd_byte
*from
, *fromend
, *to
;
1331 store
= bfd_make_empty_symbol (abfd
);
1333 bfd_fatal (bfd_get_filename (abfd
));
1335 from
= (bfd_byte
*) minisyms
;
1336 fromend
= from
+ symcount
* size
;
1337 to
= (bfd_byte
*) minisyms
;
1339 for (; from
< fromend
; from
+= size
)
1344 sym
= bfd_minisymbol_to_symbol (abfd
, false, (const PTR
) from
, store
);
1346 bfd_fatal (bfd_get_filename (abfd
));
1348 /* Check for external and defined only symbols. */
1349 keep
= (((sym
->flags
& BSF_GLOBAL
) != 0
1350 || (sym
->flags
& BSF_WEAK
) != 0
1351 || bfd_is_com_section (sym
->section
))
1352 && ! bfd_is_und_section (sym
->section
));
1354 keep
= keep
&& ! match_exclude (sym
->name
);
1358 memcpy (to
, from
, size
);
1363 return (to
- (bfd_byte
*) minisyms
) / size
;
1366 /* Export all symbols in ABFD, except for ones we were told not to
1370 scan_all_symbols (abfd
)
1377 /* Ignore bfds with an import descriptor table. We assume that any
1378 such BFD contains symbols which are exported from another DLL,
1379 and we don't want to reexport them from here. */
1380 if (bfd_get_section_by_name (abfd
, ".idata$4"))
1383 if (! (bfd_get_file_flags (abfd
) & HAS_SYMS
))
1385 /* xgettext:c-format */
1386 warn (_("%s: no symbols\n"), bfd_get_filename (abfd
));
1390 symcount
= bfd_read_minisymbols (abfd
, false, &minisyms
, &size
);
1392 bfd_fatal (bfd_get_filename (abfd
));
1396 /* xgettext:c-format */
1397 warn (_("%s: no symbols\n"), bfd_get_filename (abfd
));
1401 /* Discard the symbols we don't want to export. It's OK to do this
1402 in place; we'll free the storage anyway. */
1404 symcount
= filter_symbols (abfd
, minisyms
, symcount
, size
);
1405 scan_filtered_symbols (abfd
, minisyms
, symcount
, size
);
1410 /* Look at the object file to decide which symbols to export. */
1413 scan_open_obj_file (abfd
)
1416 if (export_all_symbols
)
1417 scan_all_symbols (abfd
);
1419 scan_drectve_symbols (abfd
);
1421 /* FIXME: we ought to read in and block out the base relocations */
1423 /* xgettext:c-format */
1424 inform (_("Done reading %s\n"), bfd_get_filename (abfd
));
1428 scan_obj_file (filename
)
1429 const char *filename
;
1431 bfd
* f
= bfd_openr (filename
, 0);
1434 /* xgettext:c-format */
1435 fatal (_("Unable to open object file: %s"), filename
);
1437 /* xgettext:c-format */
1438 inform (_("Scanning object file %s"), filename
);
1440 if (bfd_check_format (f
, bfd_archive
))
1442 bfd
*arfile
= bfd_openr_next_archived_file (f
, 0);
1445 if (bfd_check_format (arfile
, bfd_object
))
1446 scan_open_obj_file (arfile
);
1448 arfile
= bfd_openr_next_archived_file (f
, arfile
);
1451 #ifdef DLLTOOL_MCORE_ELF
1452 if (mcore_elf_out_file
)
1453 inform (_("Cannot produce mcore-elf dll from archive file: %s"), filename
);
1456 else if (bfd_check_format (f
, bfd_object
))
1458 scan_open_obj_file (f
);
1460 #ifdef DLLTOOL_MCORE_ELF
1461 if (mcore_elf_out_file
)
1462 mcore_elf_cache_filename ((char *) filename
);
1469 /**********************************************************************/
1477 fprintf (f
, "%s ", ASM_C
);
1478 for (i
= 0; oav
[i
]; i
++)
1479 fprintf (f
, "%s ", oav
[i
]);
1481 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
1483 fprintf (f
, "%s %d = %s %s @ %d %s%s%s\n",
1489 exp
->noname
? "NONAME " : "",
1490 exp
->constant
? "CONSTANT" : "",
1491 exp
->data
? "DATA" : "");
1495 /* Generate the .exp file */
1502 return *(const long *) a
- *(const long *) b
;
1506 flush_page (f
, need
, page_addr
, on_page
)
1514 /* Flush this page */
1515 fprintf (f
, "\t%s\t0x%08x\t%s Starting RVA for chunk\n",
1519 fprintf (f
, "\t%s\t0x%x\t%s Size of block\n",
1521 (on_page
* 2) + (on_page
& 1) * 2 + 8,
1523 for (i
= 0; i
< on_page
; i
++)
1525 fprintf (f
, "\t%s\t0x%lx\n", ASM_SHORT
, (need
[i
] - page_addr
) | 0x3000);
1529 fprintf (f
, "\t%s\t0x%x\n", ASM_SHORT
, 0 | 0x0000);
1538 inform (_("Adding exports to output file"));
1540 fprintf (output_def
, ";");
1541 for (i
= 0; oav
[i
]; i
++)
1542 fprintf (output_def
, " %s", oav
[i
]);
1544 fprintf (output_def
, "\nEXPORTS\n");
1546 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
1548 char *quote
= strchr (exp
->name
, '.') ? "\"" : "";
1549 char *res
= cplus_demangle (exp
->internal_name
, DMGL_ANSI
| DMGL_PARAMS
);
1551 if (strcmp (exp
->name
, exp
->internal_name
) == 0)
1554 fprintf (output_def
, "\t%s%s%s @ %d%s%s ; %s\n",
1559 exp
->noname
? " NONAME" : "",
1560 exp
->data
? " DATA" : "",
1565 char *quote1
= strchr (exp
->internal_name
, '.') ? "\"" : "";
1567 fprintf (output_def
, "\t%s%s%s = %s%s%s @ %d%s%s ; %s\n",
1575 exp
->noname
? " NONAME" : "",
1576 exp
->data
? " DATA" : "",
1583 inform (_("Added exports to output file"));
1586 /* generate_idata_ofile generates the portable assembly source code
1587 for the idata sections. It appends the source code to the end of
1591 generate_idata_ofile (filvar
)
1600 if (import_list
== NULL
)
1603 fprintf (filvar
, "%s Import data sections\n", ASM_C
);
1604 fprintf (filvar
, "\n\t.section\t.idata$2\n");
1605 fprintf (filvar
, "\t%s\tdoi_idata\n", ASM_GLOBAL
);
1606 fprintf (filvar
, "doi_idata:\n");
1609 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1611 fprintf (filvar
, "\t%slistone%d%s\t%s %s\n",
1612 ASM_RVA_BEFORE
, nheads
, ASM_RVA_AFTER
,
1613 ASM_C
, headptr
->dllname
);
1614 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1615 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1616 fprintf (filvar
, "\t%sdllname%d%s\n",
1617 ASM_RVA_BEFORE
, nheads
, ASM_RVA_AFTER
);
1618 fprintf (filvar
, "\t%slisttwo%d%s\n\n",
1619 ASM_RVA_BEFORE
, nheads
, ASM_RVA_AFTER
);
1623 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* NULL record at */
1624 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* end of idata$2 */
1625 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* section */
1626 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1627 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1629 fprintf (filvar
, "\n\t.section\t.idata$4\n");
1631 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1633 fprintf (filvar
, "listone%d:\n", headindex
);
1634 for ( funcindex
= 0; funcindex
< headptr
->nfuncs
; funcindex
++ )
1635 fprintf (filvar
, "\t%sfuncptr%d_%d%s\n",
1636 ASM_RVA_BEFORE
, headindex
, funcindex
, ASM_RVA_AFTER
);
1637 fprintf (filvar
,"\t%s\t0\n", ASM_LONG
); /* NULL terminating list */
1641 fprintf (filvar
, "\n\t.section\t.idata$5\n");
1643 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1645 fprintf (filvar
, "listtwo%d:\n", headindex
);
1646 for ( funcindex
= 0; funcindex
< headptr
->nfuncs
; funcindex
++ )
1647 fprintf (filvar
, "\t%sfuncptr%d_%d%s\n",
1648 ASM_RVA_BEFORE
, headindex
, funcindex
, ASM_RVA_AFTER
);
1649 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* NULL terminating list */
1653 fprintf (filvar
, "\n\t.section\t.idata$6\n");
1655 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1658 for (funcptr
= headptr
->funchead
; funcptr
!= NULL
;
1659 funcptr
= funcptr
->next
)
1661 fprintf (filvar
,"funcptr%d_%d:\n", headindex
, funcindex
);
1662 fprintf (filvar
,"\t%s\t%d\n", ASM_SHORT
,
1663 ((funcptr
->ord
) & 0xFFFF));
1664 fprintf (filvar
,"\t%s\t\"%s\"\n", ASM_TEXT
, funcptr
->name
);
1665 fprintf (filvar
,"\t%s\t0\n", ASM_BYTE
);
1671 fprintf (filvar
, "\n\t.section\t.idata$7\n");
1673 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1675 fprintf (filvar
,"dllname%d:\n", headindex
);
1676 fprintf (filvar
,"\t%s\t\"%s\"\n", ASM_TEXT
, headptr
->dllname
);
1677 fprintf (filvar
,"\t%s\t0\n", ASM_BYTE
);
1690 /* xgettext:c-format */
1691 inform (_("Generating export file: %s\n"), exp_name
);
1693 f
= fopen (TMP_ASM
, FOPEN_WT
);
1695 /* xgettext:c-format */
1696 fatal (_("Unable to open temporary assembler file: %s"), TMP_ASM
);
1698 /* xgettext:c-format */
1699 inform (_("Opened temporary file: %s"), TMP_ASM
);
1705 fprintf (f
, "\t.section .edata\n\n");
1706 fprintf (f
, "\t%s 0 %s Allways 0\n", ASM_LONG
, ASM_C
);
1707 fprintf (f
, "\t%s 0x%lx %s Time and date\n", ASM_LONG
, (long) time(0),
1709 fprintf (f
, "\t%s 0 %s Major and Minor version\n", ASM_LONG
, ASM_C
);
1710 fprintf (f
, "\t%sname%s %s Ptr to name of dll\n", ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
1711 fprintf (f
, "\t%s %d %s Starting ordinal of exports\n", ASM_LONG
, d_low_ord
, ASM_C
);
1714 fprintf (f
, "\t%s %d %s Number of functions\n", ASM_LONG
, d_high_ord
- d_low_ord
+ 1, ASM_C
);
1715 fprintf(f
,"\t%s named funcs %d, low ord %d, high ord %d\n",
1717 d_named_nfuncs
, d_low_ord
, d_high_ord
);
1718 fprintf (f
, "\t%s %d %s Number of names\n", ASM_LONG
,
1719 show_allnames
? d_high_ord
- d_low_ord
+ 1 : d_named_nfuncs
, ASM_C
);
1720 fprintf (f
, "\t%safuncs%s %s Address of functions\n", ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
1722 fprintf (f
, "\t%sanames%s %s Address of Name Pointer Table\n",
1723 ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
1725 fprintf (f
, "\t%sanords%s %s Address of ordinals\n", ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
1727 fprintf (f
, "name: %s \"%s\"\n", ASM_TEXT
, dll_name
);
1730 fprintf(f
,"%s Export address Table\n", ASM_C
);
1731 fprintf(f
,"\t%s\n", ASM_ALIGN_LONG
);
1732 fprintf (f
, "afuncs:\n");
1735 for (exp
= d_exports
; exp
; exp
= exp
->next
)
1737 if (exp
->ordinal
!= i
)
1740 fprintf (f
, "\t%s\t%d\t%s %d..%d missing\n",
1742 (exp
->ordinal
- i
) * 4,
1744 i
, exp
->ordinal
- 1);
1747 while (i
< exp
->ordinal
)
1749 fprintf(f
,"\t%s\t0\n", ASM_LONG
);
1753 fprintf (f
, "\t%s%s%s%s\t%s %d\n", ASM_RVA_BEFORE
,
1755 exp
->internal_name
, ASM_RVA_AFTER
, ASM_C
, exp
->ordinal
);
1759 fprintf (f
,"%s Export Name Pointer Table\n", ASM_C
);
1760 fprintf (f
, "anames:\n");
1762 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
1764 if (!exp
->noname
|| show_allnames
)
1765 fprintf (f
, "\t%sn%d%s\n",
1766 ASM_RVA_BEFORE
, exp
->ordinal
, ASM_RVA_AFTER
);
1769 fprintf (f
,"%s Export Oridinal Table\n", ASM_C
);
1770 fprintf (f
, "anords:\n");
1771 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
1773 if (!exp
->noname
|| show_allnames
)
1774 fprintf (f
, "\t%s %d\n", ASM_SHORT
, exp
->ordinal
- d_low_ord
);
1777 fprintf(f
,"%s Export Name Table\n", ASM_C
);
1778 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
1779 if (!exp
->noname
|| show_allnames
)
1780 fprintf (f
, "n%d: %s \"%s\"\n",
1781 exp
->ordinal
, ASM_TEXT
, exp
->name
);
1785 fprintf (f
, "\t.section %s\n", DRECTVE_SECTION_NAME
);
1786 for (dl
= a_list
; dl
; dl
= dl
->next
)
1788 fprintf (f
, "\t%s\t\"%s\"\n", ASM_TEXT
, dl
->text
);
1794 fprintf (f
, "\t.section .rdata\n");
1795 for (dl
= d_list
; dl
; dl
= dl
->next
)
1799 /* We dont output as ascii 'cause there can
1800 be quote characters in the string */
1803 for (p
= dl
->text
; *p
; p
++)
1806 fprintf (f
, "\t%s\t", ASM_BYTE
);
1809 fprintf (f
, "%d", *p
);
1812 fprintf (f
, ",0\n");
1826 /* Add to the output file a way of getting to the exported names
1827 without using the import library. */
1830 fprintf (f
, "\t.section\t.rdata\n");
1831 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
1832 if (!exp
->noname
|| show_allnames
)
1834 /* We use a single underscore for MS compatibility, and a
1835 double underscore for backward compatibility with old
1837 fprintf (f
, "\t%s\t__imp_%s\n", ASM_GLOBAL
, exp
->name
);
1838 fprintf (f
, "\t%s\t_imp__%s\n", ASM_GLOBAL
, exp
->name
);
1839 fprintf (f
, "__imp_%s:\n", exp
->name
);
1840 fprintf (f
, "_imp__%s:\n", exp
->name
);
1841 fprintf (f
, "\t%s\t%s\n", ASM_LONG
, exp
->name
);
1845 /* Dump the reloc section if a base file is provided */
1849 long need
[PAGE_SIZE
];
1856 fprintf (f
, "\t.section\t.init\n");
1857 fprintf (f
, "lab:\n");
1859 fseek (base_file
, 0, SEEK_END
);
1860 numbytes
= ftell (base_file
);
1861 fseek (base_file
, 0, SEEK_SET
);
1862 copy
= xmalloc (numbytes
);
1863 fread (copy
, 1, numbytes
, base_file
);
1864 num_entries
= numbytes
/ sizeof (long);
1867 fprintf (f
, "\t.section\t.reloc\n");
1873 qsort (copy
, num_entries
, sizeof (long), sfunc
);
1874 /* Delete duplcates */
1875 for (src
= 0; src
< num_entries
; src
++)
1877 if (last
!= copy
[src
])
1878 last
= copy
[dst
++] = copy
[src
];
1882 page_addr
= addr
& PAGE_MASK
; /* work out the page addr */
1884 for (j
= 0; j
< num_entries
; j
++)
1887 if ((addr
& PAGE_MASK
) != page_addr
)
1889 flush_page (f
, need
, page_addr
, on_page
);
1891 page_addr
= addr
& PAGE_MASK
;
1893 need
[on_page
++] = addr
;
1895 flush_page (f
, need
, page_addr
, on_page
);
1897 /* fprintf (f, "\t%s\t0,0\t%s End\n", ASM_LONG, ASM_C);*/
1901 generate_idata_ofile (f
);
1905 /* assemble the file */
1906 sprintf (outfile
, "%s -o %s %s", as_flags
, exp_name
, TMP_ASM
);
1909 if (machine
== MARM_INTERWORK
|| machine
== MTHUMB
)
1910 strcat (outfile
, " -mthumb-interwork");
1913 run (as_name
, outfile
);
1915 if (dontdeltemps
== 0)
1918 inform (_("Generated exports file"));
1927 char *copy
= xmalloc (strlen (name
) + 2);
1929 strcpy (copy
+ 1, name
);
1936 p
= strchr (name
, '@');
1943 /**********************************************************************/
1952 if (exp
->noname
&& !show_allnames
)
1954 fprintf (f
, "\t%s\t0x%08x\n",
1956 exp
->ordinal
| 0x80000000); /* hint or orindal ?? */
1960 fprintf (f
, "\t%sID%d%s\n", ASM_RVA_BEFORE
,
1978 unsigned char *data
;
1993 static sinfo secdata
[NSECS
] =
1995 { TEXT
, ".text", SEC_CODE
| SEC_HAS_CONTENTS
, 2},
1996 { DATA
, ".data", SEC_DATA
, 2},
1997 { BSS
, ".bss", 0, 2},
1998 { IDATA7
, ".idata$7", SEC_HAS_CONTENTS
, 2},
1999 { IDATA5
, ".idata$5", SEC_HAS_CONTENTS
, 2},
2000 { IDATA4
, ".idata$4", SEC_HAS_CONTENTS
, 2},
2001 { IDATA6
, ".idata$6", SEC_HAS_CONTENTS
, 1}
2006 /* Sections numbered to make the order the same as other PowerPC NT */
2007 /* compilers. This also keeps funny alignment thingies from happening. */
2020 static sinfo secdata
[NSECS
] =
2022 { TEXT
, ".text", SEC_CODE
| SEC_HAS_CONTENTS
, 3},
2023 { PDATA
, ".pdata", SEC_HAS_CONTENTS
, 2},
2024 { RDATA
, ".reldata", SEC_HAS_CONTENTS
, 2},
2025 { IDATA5
, ".idata$5", SEC_HAS_CONTENTS
, 2},
2026 { IDATA4
, ".idata$4", SEC_HAS_CONTENTS
, 2},
2027 { IDATA6
, ".idata$6", SEC_HAS_CONTENTS
, 1},
2028 { IDATA7
, ".idata$7", SEC_HAS_CONTENTS
, 2},
2029 { DATA
, ".data", SEC_DATA
, 2},
2030 { BSS
, ".bss", 0, 2}
2036 This is what we're trying to make. We generate the imp symbols with
2037 both single and double underscores, for compatibility.
2040 .global _GetFileVersionInfoSizeW@8
2041 .global __imp_GetFileVersionInfoSizeW@8
2042 _GetFileVersionInfoSizeW@8:
2043 jmp * __imp_GetFileVersionInfoSizeW@8
2044 .section .idata$7 # To force loading of head
2045 .long __version_a_head
2046 # Import Address Table
2048 __imp_GetFileVersionInfoSizeW@8:
2051 # Import Lookup Table
2057 .asciz "GetFileVersionInfoSizeW"
2060 For the PowerPC, here's the variation on the above scheme:
2062 # Rather than a simple "jmp *", the code to get to the dll function
2065 lwz r11,[tocv]__imp_function_name(r2)
2066 # RELOC: 00000000 TOCREL16,TOCDEFN __imp_function_name
2075 make_label (prefix
, name
)
2079 int len
= strlen (ASM_PREFIX
) + strlen (prefix
) + strlen (name
);
2080 char *copy
= xmalloc (len
+1 );
2081 strcpy (copy
, ASM_PREFIX
);
2082 strcat (copy
, prefix
);
2083 strcat (copy
, name
);
2088 make_one_lib_file (exp
, i
)
2096 sprintf (outfile
, "%ss%05d.s", prefix
, i
);
2097 f
= fopen (outfile
, FOPEN_WT
);
2098 fprintf (f
, "\t.text\n");
2099 fprintf (f
, "\t%s\t%s%s\n", ASM_GLOBAL
, ASM_PREFIX
, exp
->name
);
2100 fprintf (f
, "\t%s\t__imp_%s\n", ASM_GLOBAL
, exp
->name
);
2101 fprintf (f
, "\t%s\t_imp__%s\n", ASM_GLOBAL
, exp
->name
);
2102 fprintf (f
, "%s%s:\n\t%s\t__imp_%s\n", ASM_PREFIX
,
2103 exp
->name
, ASM_JUMP
, exp
->name
);
2105 fprintf (f
, "\t.section\t.idata$7\t%s To force loading of head\n", ASM_C
);
2106 fprintf (f
, "\t%s\t%s\n", ASM_LONG
, head_label
);
2109 fprintf (f
,"%s Import Address Table\n", ASM_C
);
2111 fprintf (f
, "\t.section .idata$5\n");
2112 fprintf (f
, "__imp_%s:\n", exp
->name
);
2113 fprintf (f
, "_imp__%s:\n", exp
->name
);
2117 fprintf (f
, "\n%s Import Lookup Table\n", ASM_C
);
2118 fprintf (f
, "\t.section .idata$4\n");
2122 if(!exp
->noname
|| show_allnames
)
2124 fprintf (f
, "%s Hint/Name table\n", ASM_C
);
2125 fprintf (f
, "\t.section .idata$6\n");
2126 fprintf (f
, "ID%d:\t%s\t%d\n", exp
->ordinal
, ASM_SHORT
, exp
->hint
);
2127 fprintf (f
, "\t%s\t\"%s\"\n", ASM_TEXT
, xlate (exp
->name
));
2132 sprintf (outfile
, "%s -o %ss%05d.o %ss%d.s",
2133 as_flags
, prefix
, i
, prefix
, i
);
2136 if (machine
== MARM_INTERWORK
|| machine
== MTHUMB
)
2137 strcat (outfile
, " -mthumb-interwork");
2140 run (as_name
, outfile
);
2145 asymbol
* exp_label
;
2148 asymbol
* iname_lab
;
2149 asymbol
** iname_lab_pp
;
2150 asymbol
** iname_pp
;
2159 asymbol
* ptrs
[NSECS
+ 4 + EXTRA
+ 1];
2161 char * outname
= xmalloc (10);
2165 sprintf (outname
, "%s%05d.o", TMP_STUB
, i
);
2167 abfd
= bfd_openw (outname
, HOW_BFD_TARGET
);
2170 /* xgettext:c-format */
2171 fatal (_("bfd_open failed open stub file: %s"), outname
);
2173 /* xgettext:c-format */
2174 inform (_("Creating stub file: %s"), outname
);
2176 bfd_set_format (abfd
, bfd_object
);
2177 bfd_set_arch_mach (abfd
, HOW_BFD_ARCH
, 0);
2180 if (machine
== MARM_INTERWORK
|| machine
== MTHUMB
)
2181 bfd_set_private_flags (abfd
, F_INTERWORK
);
2184 /* First make symbols for the sections */
2185 for (i
= 0; i
< NSECS
; i
++)
2187 sinfo
*si
= secdata
+ i
;
2190 si
->sec
= bfd_make_section_old_way (abfd
, si
->name
);
2191 bfd_set_section_flags (abfd
,
2195 bfd_set_section_alignment(abfd
, si
->sec
, si
->align
);
2196 si
->sec
->output_section
= si
->sec
;
2197 si
->sym
= bfd_make_empty_symbol(abfd
);
2198 si
->sym
->name
= si
->sec
->name
;
2199 si
->sym
->section
= si
->sec
;
2200 si
->sym
->flags
= BSF_LOCAL
;
2202 ptrs
[oidx
] = si
->sym
;
2203 si
->sympp
= ptrs
+ oidx
;
2212 exp_label
= bfd_make_empty_symbol (abfd
);
2213 exp_label
->name
= make_label ("", exp
->name
);
2215 /* On PowerPC, the function name points to a descriptor in
2216 the rdata section, the first element of which is a
2217 pointer to the code (..function_name), and the second
2218 points to the .toc */
2220 if (machine
== MPPC
)
2221 exp_label
->section
= secdata
[RDATA
].sec
;
2224 exp_label
->section
= secdata
[TEXT
].sec
;
2226 exp_label
->flags
= BSF_GLOBAL
;
2227 exp_label
->value
= 0;
2230 if (machine
== MTHUMB
)
2231 bfd_coff_set_symbol_class (abfd
, exp_label
, C_THUMBEXTFUNC
);
2233 ptrs
[oidx
++] = exp_label
;
2236 /* Generate imp symbols with one underscore for Microsoft
2237 compatibility, and with two underscores for backward
2238 compatibility with old versions of cygwin. */
2239 iname
= bfd_make_empty_symbol(abfd
);
2240 iname
->name
= make_label ("__imp_", exp
->name
);
2241 iname
->section
= secdata
[IDATA5
].sec
;
2242 iname
->flags
= BSF_GLOBAL
;
2245 iname2
= bfd_make_empty_symbol(abfd
);
2246 iname2
->name
= make_label ("_imp__", exp
->name
);
2247 iname2
->section
= secdata
[IDATA5
].sec
;
2248 iname2
->flags
= BSF_GLOBAL
;
2251 iname_lab
= bfd_make_empty_symbol(abfd
);
2253 iname_lab
->name
= head_label
;
2254 iname_lab
->section
= (asection
*)&bfd_und_section
;
2255 iname_lab
->flags
= 0;
2256 iname_lab
->value
= 0;
2259 iname_pp
= ptrs
+ oidx
;
2260 ptrs
[oidx
++] = iname
;
2261 ptrs
[oidx
++] = iname2
;
2263 iname_lab_pp
= ptrs
+ oidx
;
2264 ptrs
[oidx
++] = iname_lab
;
2267 /* The symbol refering to the code (.text) */
2269 asymbol
*function_name
;
2271 function_name
= bfd_make_empty_symbol(abfd
);
2272 function_name
->name
= make_label ("..", exp
->name
);
2273 function_name
->section
= secdata
[TEXT
].sec
;
2274 function_name
->flags
= BSF_GLOBAL
;
2275 function_name
->value
= 0;
2277 fn_pp
= ptrs
+ oidx
;
2278 ptrs
[oidx
++] = function_name
;
2281 /* The .toc symbol */
2283 asymbol
*toc_symbol
; /* The .toc symbol */
2285 toc_symbol
= bfd_make_empty_symbol (abfd
);
2286 toc_symbol
->name
= make_label (".", "toc");
2287 toc_symbol
->section
= (asection
*)&bfd_und_section
;
2288 toc_symbol
->flags
= BSF_GLOBAL
;
2289 toc_symbol
->value
= 0;
2291 toc_pp
= ptrs
+ oidx
;
2292 ptrs
[oidx
++] = toc_symbol
;
2298 for (i
= 0; i
< NSECS
; i
++)
2300 sinfo
*si
= secdata
+ i
;
2301 asection
*sec
= si
->sec
;
2310 si
->size
= HOW_JTAB_SIZE
;
2311 si
->data
= xmalloc (HOW_JTAB_SIZE
);
2312 memcpy (si
->data
, HOW_JTAB
, HOW_JTAB_SIZE
);
2314 /* add the reloc into idata$5 */
2315 rel
= xmalloc (sizeof (arelent
));
2317 rpp
= xmalloc (sizeof (arelent
*) * 2);
2321 rel
->address
= HOW_JTAB_ROFF
;
2324 if (machine
== MPPC
)
2326 rel
->howto
= bfd_reloc_type_lookup (abfd
,
2327 BFD_RELOC_16_GOTOFF
);
2328 rel
->sym_ptr_ptr
= iname_pp
;
2332 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2333 rel
->sym_ptr_ptr
= secdata
[IDATA5
].sympp
;
2335 sec
->orelocation
= rpp
;
2336 sec
->reloc_count
= 1;
2341 /* An idata$4 or idata$5 is one word long, and has an
2344 si
->data
= xmalloc (4);
2349 si
->data
[0] = exp
->ordinal
;
2350 si
->data
[1] = exp
->ordinal
>> 8;
2351 si
->data
[2] = exp
->ordinal
>> 16;
2356 sec
->reloc_count
= 1;
2357 memset (si
->data
, 0, si
->size
);
2358 rel
= xmalloc (sizeof (arelent
));
2359 rpp
= xmalloc (sizeof (arelent
*) * 2);
2364 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_RVA
);
2365 rel
->sym_ptr_ptr
= secdata
[IDATA6
].sympp
;
2366 sec
->orelocation
= rpp
;
2374 /* This used to add 1 to exp->hint. I don't know
2375 why it did that, and it does not match what I see
2376 in programs compiled with the MS tools. */
2377 int idx
= exp
->hint
;
2378 si
->size
= strlen (xlate (exp
->name
)) + 3;
2379 si
->data
= xmalloc (si
->size
);
2380 si
->data
[0] = idx
& 0xff;
2381 si
->data
[1] = idx
>> 8;
2382 strcpy (si
->data
+ 2, xlate (exp
->name
));
2387 si
->data
=xmalloc(4);
2388 memset (si
->data
, 0, si
->size
);
2389 rel
= xmalloc (sizeof (arelent
));
2390 rpp
= xmalloc (sizeof (arelent
*) * 2);
2394 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_RVA
);
2395 rel
->sym_ptr_ptr
= iname_lab_pp
;
2396 sec
->orelocation
= rpp
;
2397 sec
->reloc_count
= 1;
2403 /* The .pdata section is 5 words long. */
2404 /* Think of it as: */
2407 /* bfd_vma BeginAddress, [0x00] */
2408 /* EndAddress, [0x04] */
2409 /* ExceptionHandler, [0x08] */
2410 /* HandlerData, [0x0c] */
2411 /* PrologEndAddress; [0x10] */
2414 /* So this pdata section setups up this as a glue linkage to
2415 a dll routine. There are a number of house keeping things
2418 1. In the name of glue trickery, the ADDR32 relocs for 0,
2419 4, and 0x10 are set to point to the same place:
2421 2. There is one more reloc needed in the pdata section.
2422 The actual glue instruction to restore the toc on
2423 return is saved as the offset in an IMGLUE reloc.
2424 So we need a total of four relocs for this section.
2426 3. Lastly, the HandlerData field is set to 0x03, to indicate
2427 that this is a glue routine.
2429 arelent
*imglue
, *ba_rel
, *ea_rel
, *pea_rel
;
2431 /* alignment must be set to 2**2 or you get extra stuff */
2432 bfd_set_section_alignment(abfd
, sec
, 2);
2435 si
->data
=xmalloc(4 * 5);
2436 memset (si
->data
, 0, si
->size
);
2437 rpp
= xmalloc (sizeof (arelent
*) * 5);
2438 rpp
[0] = imglue
= xmalloc (sizeof (arelent
));
2439 rpp
[1] = ba_rel
= xmalloc (sizeof (arelent
));
2440 rpp
[2] = ea_rel
= xmalloc (sizeof (arelent
));
2441 rpp
[3] = pea_rel
= xmalloc (sizeof (arelent
));
2444 /* stick the toc reload instruction in the glue reloc */
2445 bfd_put_32(abfd
, ppc_glue_insn
, (char *) &imglue
->address
);
2448 imglue
->howto
= bfd_reloc_type_lookup (abfd
,
2449 BFD_RELOC_32_GOTOFF
);
2450 imglue
->sym_ptr_ptr
= fn_pp
;
2452 ba_rel
->address
= 0;
2454 ba_rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2455 ba_rel
->sym_ptr_ptr
= fn_pp
;
2457 bfd_put_32(abfd
, 0x18, si
->data
+ 0x04);
2458 ea_rel
->address
= 4;
2460 ea_rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2461 ea_rel
->sym_ptr_ptr
= fn_pp
;
2463 /* mark it as glue */
2464 bfd_put_32(abfd
, 0x03, si
->data
+ 0x0c);
2466 /* mark the prolog end address */
2467 bfd_put_32(abfd
, 0x0D, si
->data
+ 0x10);
2468 pea_rel
->address
= 0x10;
2469 pea_rel
->addend
= 0;
2470 pea_rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2471 pea_rel
->sym_ptr_ptr
= fn_pp
;
2473 sec
->orelocation
= rpp
;
2474 sec
->reloc_count
= 4;
2478 /* Each external function in a PowerPC PE file has a two word
2479 descriptor consisting of:
2480 1. The address of the code.
2481 2. The address of the appropriate .toc
2482 We use relocs to build this.
2486 si
->data
= xmalloc (8);
2487 memset (si
->data
, 0, si
->size
);
2489 rpp
= xmalloc (sizeof (arelent
*) * 3);
2490 rpp
[0] = rel
= xmalloc (sizeof (arelent
));
2491 rpp
[1] = xmalloc (sizeof (arelent
));
2496 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2497 rel
->sym_ptr_ptr
= fn_pp
;
2503 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2504 rel
->sym_ptr_ptr
= toc_pp
;
2506 sec
->orelocation
= rpp
;
2507 sec
->reloc_count
= 2;
2509 #endif /* DLLTOOL_PPC */
2515 /* Size up all the sections */
2516 for (i
= 0; i
< NSECS
; i
++)
2518 sinfo
*si
= secdata
+ i
;
2520 bfd_set_section_size (abfd
, si
->sec
, si
->size
);
2521 bfd_set_section_vma (abfd
, si
->sec
, vma
);
2523 /* vma += si->size;*/
2526 /* Write them out */
2527 for (i
= 0; i
< NSECS
; i
++)
2529 sinfo
*si
= secdata
+ i
;
2531 if (i
== IDATA5
&& no_idata5
)
2534 if (i
== IDATA4
&& no_idata4
)
2537 bfd_set_section_contents (abfd
, si
->sec
,
2542 bfd_set_symtab (abfd
, ptrs
, oidx
);
2544 abfd
= bfd_openr (outname
, HOW_BFD_TARGET
);
2553 FILE * f
= fopen (TMP_HEAD_S
, FOPEN_WT
);
2557 fatal (_("failed to open temporary head file: %s"), TMP_HEAD_S
);
2561 fprintf (f
, "%s IMAGE_IMPORT_DESCRIPTOR\n", ASM_C
);
2562 fprintf (f
, "\t.section .idata$2\n");
2564 fprintf(f
,"\t%s\t%s\n", ASM_GLOBAL
,head_label
);
2566 fprintf (f
, "%s:\n", head_label
);
2568 fprintf (f
, "\t%shname%s\t%sPtr to image import by name list\n",
2569 ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
2571 fprintf (f
, "\t%sthis should be the timestamp, but NT sometimes\n", ASM_C
);
2572 fprintf (f
, "\t%sdoesn't load DLLs when this is set.\n", ASM_C
);
2573 fprintf (f
, "\t%s\t0\t%s loaded time\n", ASM_LONG
, ASM_C
);
2574 fprintf (f
, "\t%s\t0\t%s Forwarder chain\n", ASM_LONG
, ASM_C
);
2575 fprintf (f
, "\t%s__%s_iname%s\t%s imported dll's name\n",
2580 fprintf (f
, "\t%sfthunk%s\t%s pointer to firstthunk\n",
2582 ASM_RVA_AFTER
, ASM_C
);
2584 fprintf (f
, "%sStuff for compatibility\n", ASM_C
);
2588 fprintf (f
, "\t.section\t.idata$5\n");
2589 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2590 fprintf (f
, "fthunk:\n");
2595 fprintf (f
, "\t.section\t.idata$4\n");
2597 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2598 fprintf (f
, "\t.section .idata$4\n");
2599 fprintf (f
, "hname:\n");
2604 sprintf (outfile
, "%s -o %s %s", as_flags
, TMP_HEAD_O
, TMP_HEAD_S
);
2607 if (machine
== MARM_INTERWORK
|| machine
== MTHUMB
)
2608 strcat (outfile
, " -mthumb-interwork");
2611 run (as_name
, outfile
);
2613 return bfd_openr (TMP_HEAD_O
, HOW_BFD_TARGET
);
2619 FILE * f
= fopen (TMP_TAIL_S
, FOPEN_WT
);
2623 fatal (_("failed to open temporary tail file: %s"), TMP_TAIL_S
);
2629 fprintf (f
, "\t.section .idata$4\n");
2630 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2635 fprintf (f
, "\t.section .idata$5\n");
2636 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2640 /* Normally, we need to see a null descriptor built in idata$3 to
2641 act as the terminator for the list. The ideal way, I suppose,
2642 would be to mark this section as a comdat type 2 section, so
2643 only one would appear in the final .exe (if our linker supported
2644 comdat, that is) or cause it to be inserted by something else (say
2648 fprintf (f
, "\t.section .idata$3\n");
2649 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2650 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2651 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2652 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2653 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2657 /* Other PowerPC NT compilers use idata$6 for the dllname, so I
2658 do too. Original, huh? */
2659 fprintf (f
, "\t.section .idata$6\n");
2661 fprintf (f
, "\t.section .idata$7\n");
2664 fprintf (f
, "\t%s\t__%s_iname\n", ASM_GLOBAL
, imp_name_lab
);
2665 fprintf (f
, "__%s_iname:\t%s\t\"%s\"\n",
2666 imp_name_lab
, ASM_TEXT
, dll_name
);
2670 sprintf (outfile
, "%s -o %s %s", as_flags
, TMP_TAIL_O
, TMP_TAIL_S
);
2673 if (machine
== MARM_INTERWORK
|| MTHUMB
)
2674 strcat (outfile
, " -mthumb-interwork");
2677 run (as_name
, outfile
);
2679 return bfd_openr (TMP_TAIL_O
, HOW_BFD_TARGET
);
2694 outarch
= bfd_openw (imp_name
, HOW_BFD_TARGET
);
2697 /* xgettext:c-format */
2698 fatal (_("Can't open .lib file: %s"), imp_name
);
2700 /* xgettext:c-format */
2701 inform (_("Creating library file: %s\n"), imp_name
);
2703 bfd_set_format (outarch
, bfd_archive
);
2704 outarch
->has_armap
= 1;
2706 /* Work out a reasonable size of things to put onto one line. */
2708 ar_head
= make_head ();
2709 ar_tail
= make_tail();
2711 if (ar_head
== NULL
|| ar_tail
== NULL
)
2714 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
2716 bfd
*n
= make_one_lib_file (exp
, i
);
2721 /* Now stick them all into the archive */
2723 ar_head
->next
= head
;
2724 ar_tail
->next
= ar_head
;
2727 if (! bfd_set_archive_head (outarch
, head
))
2728 bfd_fatal ("bfd_set_archive_head");
2730 if (! bfd_close (outarch
))
2731 bfd_fatal (imp_name
);
2733 while (head
!= NULL
)
2735 bfd
*n
= head
->next
;
2740 /* Delete all the temp files */
2742 if (dontdeltemps
== 0)
2744 unlink (TMP_HEAD_O
);
2745 unlink (TMP_HEAD_S
);
2746 unlink (TMP_TAIL_O
);
2747 unlink (TMP_TAIL_S
);
2750 if (dontdeltemps
< 2)
2752 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
2754 sprintf (outfile
, "%s%05d.o", TMP_STUB
, i
);
2755 if (unlink (outfile
) < 0)
2756 /* xgettext:c-format */
2757 warn (_("cannot delete %s: %s\n"), outfile
, strerror (errno
));
2761 inform (_("Created lib file"));
2764 /**********************************************************************/
2766 /* Run through the information gathered from the .o files and the
2767 .def file and work out the best stuff */
2773 export_type
*ap
= *(export_type
**) a
;
2774 export_type
*bp
= *(export_type
**) b
;
2775 if (ap
->ordinal
== bp
->ordinal
)
2778 /* unset ordinals go to the bottom */
2779 if (ap
->ordinal
== -1)
2781 if (bp
->ordinal
== -1)
2783 return (ap
->ordinal
- bp
->ordinal
);
2791 export_type
*ap
= *(export_type
**) a
;
2792 export_type
*bp
= *(export_type
**) b
;
2794 return (strcmp (ap
->name
, bp
->name
));
2798 remove_null_names (ptr
)
2803 for (dst
= src
= 0; src
< d_nfuncs
; src
++)
2807 ptr
[dst
] = ptr
[src
];
2820 for (i
= 0; i
< d_nfuncs
; i
++)
2824 printf ("%d %s @ %d %s%s%s\n",
2825 i
, ptr
[i
]->name
, ptr
[i
]->ordinal
,
2826 ptr
[i
]->noname
? "NONAME " : "",
2827 ptr
[i
]->constant
? "CONSTANT" : "",
2828 ptr
[i
]->data
? "DATA" : "");
2837 process_duplicates (d_export_vec
)
2838 export_type
**d_export_vec
;
2846 /* Remove duplicates */
2847 qsort (d_export_vec
, d_nfuncs
, sizeof (export_type
*), nfunc
);
2849 dtab (d_export_vec
);
2850 for (i
= 0; i
< d_nfuncs
- 1; i
++)
2852 if (strcmp (d_export_vec
[i
]->name
,
2853 d_export_vec
[i
+ 1]->name
) == 0)
2856 export_type
*a
= d_export_vec
[i
];
2857 export_type
*b
= d_export_vec
[i
+ 1];
2861 /* xgettext:c-format */
2862 inform (_("Warning, ignoring duplicate EXPORT %s %d,%d\n"),
2863 a
->name
, a
->ordinal
, b
->ordinal
);
2865 if (a
->ordinal
!= -1
2866 && b
->ordinal
!= -1)
2867 /* xgettext:c-format */
2868 fatal (_("Error, duplicate EXPORT with oridinals: %s"),
2871 /* Merge attributes */
2872 b
->ordinal
= a
->ordinal
> 0 ? a
->ordinal
: b
->ordinal
;
2873 b
->constant
|= a
->constant
;
2874 b
->noname
|= a
->noname
;
2876 d_export_vec
[i
] = 0;
2879 dtab (d_export_vec
);
2880 remove_null_names (d_export_vec
);
2881 dtab (d_export_vec
);
2886 /* Count the names */
2887 for (i
= 0; i
< d_nfuncs
; i
++)
2889 if (!d_export_vec
[i
]->noname
)
2895 fill_ordinals (d_export_vec
)
2896 export_type
**d_export_vec
;
2903 qsort (d_export_vec
, d_nfuncs
, sizeof (export_type
*), pfunc
);
2905 /* fill in the unset ordinals with ones from our range */
2907 ptr
= (char *) xmalloc (size
);
2909 memset (ptr
, 0, size
);
2911 /* Mark in our large vector all the numbers that are taken */
2912 for (i
= 0; i
< d_nfuncs
; i
++)
2914 if (d_export_vec
[i
]->ordinal
!= -1)
2916 ptr
[d_export_vec
[i
]->ordinal
] = 1;
2917 if (lowest
== -1 || d_export_vec
[i
]->ordinal
< lowest
)
2919 lowest
= d_export_vec
[i
]->ordinal
;
2924 /* Start at 1 for compatibility with MS toolchain. */
2928 /* Now fill in ordinals where the user wants us to choose. */
2929 for (i
= 0; i
< d_nfuncs
; i
++)
2931 if (d_export_vec
[i
]->ordinal
== -1)
2935 /* First try within or after any user supplied range. */
2936 for (j
= lowest
; j
< size
; j
++)
2940 d_export_vec
[i
]->ordinal
= j
;
2944 /* Then try before the range. */
2945 for (j
= lowest
; j
>0; j
--)
2949 d_export_vec
[i
]->ordinal
= j
;
2960 qsort (d_export_vec
, d_nfuncs
, sizeof (export_type
*), pfunc
);
2962 /* Work out the lowest and highest ordinal numbers. */
2965 if (d_export_vec
[0])
2966 d_low_ord
= d_export_vec
[0]->ordinal
;
2967 if (d_export_vec
[d_nfuncs
-1])
2968 d_high_ord
= d_export_vec
[d_nfuncs
-1]->ordinal
;
2977 const export_type
**a
= (const export_type
**) av
;
2978 const export_type
**b
= (const export_type
**) bv
;
2980 return strcmp ((*a
)->name
, (*b
)->name
);
2986 /* First work out the minimum ordinal chosen */
2992 export_type
**d_export_vec
2993 = (export_type
**) xmalloc (sizeof (export_type
*) * d_nfuncs
);
2995 inform (_("Processing definitions"));
2997 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
2999 d_export_vec
[i
] = exp
;
3002 process_duplicates (d_export_vec
);
3003 fill_ordinals (d_export_vec
);
3005 /* Put back the list in the new order */
3007 for (i
= d_nfuncs
- 1; i
>= 0; i
--)
3009 d_export_vec
[i
]->next
= d_exports
;
3010 d_exports
= d_export_vec
[i
];
3013 /* Build list in alpha order */
3014 d_exports_lexically
= (export_type
**)
3015 xmalloc (sizeof (export_type
*) * (d_nfuncs
+ 1));
3017 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
3019 d_exports_lexically
[i
] = exp
;
3021 d_exports_lexically
[i
] = 0;
3023 qsort (d_exports_lexically
, i
, sizeof (export_type
*), alphafunc
);
3025 /* Fill exp entries with their hint values */
3027 for (i
= 0; i
< d_nfuncs
; i
++)
3029 if (!d_exports_lexically
[i
]->noname
|| show_allnames
)
3030 d_exports_lexically
[i
]->hint
= hint
++;
3033 inform (_("Processed definitions"));
3036 /**********************************************************************/
3039 usage (file
, status
)
3043 /* xgetext:c-format */
3044 fprintf (file
, _("Usage %s <options> <object-files>\n"), program_name
);
3045 /* xgetext:c-format */
3046 fprintf (file
, _(" -m --machine <machine> Create as DLL for <machine>. [default: %s]\n"), mname
);
3047 fprintf (file
, _(" possible <machine>: arm[_interwork], i386, mcore[-elf][-le], ppc, thumb\n"));
3048 fprintf (file
, _(" -e --output-exp <outname> Generate an export file.\n"));
3049 fprintf (file
, _(" -l --output-lib <outname> Generate an interface library.\n"));
3050 fprintf (file
, _(" -a --add-indirect Add dll indirects to export file.\n"));
3051 fprintf (file
, _(" -D --dllname <name> Name of input dll to put into interface lib.\n"));
3052 fprintf (file
, _(" -d --input-def <deffile> Name of .def file to be read in.\n"));
3053 fprintf (file
, _(" -z --output-def <deffile> Name of .def file to be created.\n"));
3054 fprintf (file
, _(" --export-all-symbols Export all symbols to .def\n"));
3055 fprintf (file
, _(" --no-export-all-symbols Only export listed symbols\n"));
3056 fprintf (file
, _(" --exclude-symbols <list> Don't export <list>\n"));
3057 fprintf (file
, _(" --no-default-excludes Clear default exclude symbols\n"));
3058 fprintf (file
, _(" -b --base-file <basefile> Read linker generated base file.\n"));
3059 fprintf (file
, _(" -x --no-idata4 Don't generate idata$4 section.\n"));
3060 fprintf (file
, _(" -c --no-idata5 Don't generate idata$5 section.\n"));
3061 fprintf (file
, _(" -U --add-underscore Add underscores to symbols in interface library.\n"));
3062 fprintf (file
, _(" -k --kill-at Kill @<n> from exported names.\n"));
3063 fprintf (file
, _(" -A --add-stdcall-alias Add aliases without @<n>.\n"));
3064 fprintf (file
, _(" -S --as <name> Use <name> for assembler.\n"));
3065 fprintf (file
, _(" -f --as-flags <flags> Pass <flags> to the assembler.\n"));
3066 fprintf (file
, _(" -n --no-delete Keep temp files (repeat for extra preservation).\n"));
3067 fprintf (file
, _(" -v --verbose Be verbose.\n"));
3068 fprintf (file
, _(" -V --version Display the program version.\n"));
3069 fprintf (file
, _(" -h --help Display this information.\n"));
3070 #ifdef DLLTOOL_MCORE_ELF
3071 fprintf (file
, _(" -M --mcore-elf <outname> Process mcore-elf object files into <outname>.\n"));
3072 fprintf (file
, _(" -L --linker <name> Use <name> as the linker.\n"));
3073 fprintf (file
, _(" -F --linker-flags <flags> Pass <flags> to the linker.\n"));
3078 #define OPTION_EXPORT_ALL_SYMS 150
3079 #define OPTION_NO_EXPORT_ALL_SYMS (OPTION_EXPORT_ALL_SYMS + 1)
3080 #define OPTION_EXCLUDE_SYMS (OPTION_NO_EXPORT_ALL_SYMS + 1)
3081 #define OPTION_NO_DEFAULT_EXCLUDES (OPTION_EXCLUDE_SYMS + 1)
3083 static const struct option long_options
[] =
3085 {"no-delete", no_argument
, NULL
, 'n'},
3086 {"dllname", required_argument
, NULL
, 'D'},
3087 {"no-idata4", no_argument
, NULL
, 'x'},
3088 {"no-idata5", no_argument
, NULL
, 'c'},
3089 {"output-exp", required_argument
, NULL
, 'e'},
3090 {"output-def", required_argument
, NULL
, 'z'},
3091 {"export-all-symbols", no_argument
, NULL
, OPTION_EXPORT_ALL_SYMS
},
3092 {"no-export-all-symbols", no_argument
, NULL
, OPTION_NO_EXPORT_ALL_SYMS
},
3093 {"exclude-symbols", required_argument
, NULL
, OPTION_EXCLUDE_SYMS
},
3094 {"no-default-excludes", no_argument
, NULL
, OPTION_NO_DEFAULT_EXCLUDES
},
3095 {"output-lib", required_argument
, NULL
, 'l'},
3096 {"def", required_argument
, NULL
, 'd'}, /* for compatiblity with older versions */
3097 {"input-def", required_argument
, NULL
, 'd'},
3098 {"add-underscore", no_argument
, NULL
, 'U'},
3099 {"kill-at", no_argument
, NULL
, 'k'},
3100 {"add-stdcall-alias", no_argument
, NULL
, 'A'},
3101 {"verbose", no_argument
, NULL
, 'v'},
3102 {"version", no_argument
, NULL
, 'V'},
3103 {"help", no_argument
, NULL
, 'h'},
3104 {"machine", required_argument
, NULL
, 'm'},
3105 {"add-indirect", no_argument
, NULL
, 'a'},
3106 {"base-file", required_argument
, NULL
, 'b'},
3107 {"as", required_argument
, NULL
, 'S'},
3108 {"as-flags", required_argument
, NULL
, 'f'},
3109 {"mcore-elf", required_argument
, NULL
, 'M'},
3121 program_name
= av
[0];
3124 #if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
3125 setlocale (LC_MESSAGES
, "");
3127 bindtextdomain (PACKAGE
, LOCALEDIR
);
3128 textdomain (PACKAGE
);
3130 while ((c
= getopt_long (ac
, av
,
3131 #ifdef DLLTOOL_MCORE_ELF
3132 "m:e:l:aD:d:z:b:xcuUkAS:f:nvVhM:L:F:",
3134 "m:e:l:aD:d:z:b:xcuUkAS:f:nvVh",
3141 case OPTION_EXPORT_ALL_SYMS
:
3142 export_all_symbols
= true;
3144 case OPTION_NO_EXPORT_ALL_SYMS
:
3145 export_all_symbols
= false;
3147 case OPTION_EXCLUDE_SYMS
:
3148 add_excludes (optarg
);
3150 case OPTION_NO_DEFAULT_EXCLUDES
:
3151 do_default_excludes
= false;
3166 /* ignored for compatibility */
3173 output_def
= fopen (optarg
, FOPEN_WT
);
3194 print_version (program_name
);
3203 add_stdcall_alias
= 1;
3212 base_file
= fopen (optarg
, FOPEN_RB
);
3215 /* xgettext:c-format */
3216 fatal (_("Unable to open base-file: %s"), optarg
);
3219 #ifdef DLLTOOL_MCORE_ELF
3221 mcore_elf_out_file
= optarg
;
3224 mcore_elf_linker
= optarg
;
3227 mcore_elf_linker_flags
= optarg
;
3236 for (i
= 0; mtable
[i
].type
; i
++)
3237 if (strcmp (mtable
[i
].type
, mname
) == 0)
3240 if (!mtable
[i
].type
)
3241 /* xgettext:c-format */
3242 fatal (_("Machine '%s' not supported"), mname
);
3246 if (!dll_name
&& exp_name
)
3248 int len
= strlen (exp_name
) + 5;
3249 dll_name
= xmalloc (len
);
3250 strcpy (dll_name
, exp_name
);
3251 strcat (dll_name
, ".dll");
3254 if (as_name
== NULL
)
3255 as_name
= deduce_name ("as");
3257 /* Don't use the default exclude list if we're reading only the
3258 symbols in the .drectve section. The default excludes are meant
3259 to avoid exporting DLL entry point and Cygwin32 impure_ptr. */
3260 if (! export_all_symbols
)
3261 do_default_excludes
= false;
3263 if (do_default_excludes
)
3264 set_default_excludes ();
3267 process_def_file (def_file
);
3272 firstarg
= av
[optind
];
3273 scan_obj_file (av
[optind
]);
3284 /* Make imp_name safe for use as a label. */
3287 imp_name_lab
= xstrdup (imp_name
);
3288 for (p
= imp_name_lab
; *p
; p
++)
3290 if (!isalpha ((unsigned char) *p
) && !isdigit ((unsigned char) *p
))
3293 head_label
= make_label("_head_", imp_name_lab
);
3300 #ifdef DLLTOOL_MCORE_ELF
3301 if (mcore_elf_out_file
)
3302 mcore_elf_gen_out_file ();
3308 /* Deduce the name of the program we are want to invoke.
3309 PROG_NAME is the basic name of the program we want to run,
3310 eg "as" or "ld". The catch is that we might want actually
3311 run "i386-pe-as" or "ppc-pe-ld". We detect this case by
3312 examining the name used to invoke dlltool itself. If
3313 dlltool is actually called <foo>-<bar>-dlltool then we
3314 prepend <foo>-<bar> to the default name. */
3316 deduce_name (char * prog_name
)
3318 /* Use our own static array to hold the constructed name
3319 rather than the outfile[] array, as that array may
3320 already be in use. */
3321 static char new_name
[32];
3324 p
= strrchr (program_name
, '-');
3329 /* assert (strlen (program_name) < 32); */
3331 strcpy (new_name
, program_name
);
3333 new_name
[(p
- program_name
) + 1] = 0;
3335 strcat (new_name
, prog_name
);
3340 #ifdef DLLTOOL_MCORE_ELF
3341 typedef struct fname_cache
3344 struct fname_cache
* next
;
3348 static fname_cache fnames
;
3351 mcore_elf_cache_filename (char * filename
)
3357 while (ptr
->next
!= NULL
)
3360 ptr
->filename
= filename
;
3361 ptr
->next
= (fname_cache
*) malloc (sizeof (fname_cache
));
3362 if (ptr
->next
!= NULL
)
3363 ptr
->next
->next
= NULL
;
3366 #define MCORE_ELF_TMP_OBJ "mcoreelf.o"
3367 #define MCORE_ELF_TMP_EXP "mcoreelf.exp"
3368 #define MCORE_ELF_TMP_LIB "mcoreelf.lib"
3371 mcore_elf_gen_out_file (void)
3375 /* Step one. Run 'ld -r' on the input object files in order to resolve
3376 any internal references and to generate a single .exports section. */
3379 strcpy (outfile
, "-r ");
3381 if (mcore_elf_linker_flags
!= NULL
)
3382 strcat (outfile
, mcore_elf_linker_flags
);
3384 while (ptr
->next
!= NULL
)
3386 /* Check for overrun: what the hell, it's only cpu cycles... */
3387 if (strlen (outfile
) + strlen (ptr
->filename
) + 2 >= sizeof (outfile
))
3389 fatal (_("buffer overflow\n"));
3393 strcat (outfile
, ptr
->filename
);
3394 strcat (outfile
, " ");
3399 strcat (outfile
, "-o ");
3400 strcat (outfile
, MCORE_ELF_TMP_OBJ
);
3402 if (mcore_elf_linker
== NULL
)
3403 mcore_elf_linker
= deduce_name ("ld");
3405 run (mcore_elf_linker
, outfile
);
3407 /* Step two. Create a .exp file and a .lib file from the temporary file.
3408 Do this by recursively invoking dlltool....*/
3409 sprintf (outfile
, "-S %s", as_name
);
3411 strcat (outfile
, " -e ");
3412 strcat (outfile
, MCORE_ELF_TMP_EXP
);
3413 strcat (outfile
, " -l ");
3414 strcat (outfile
, MCORE_ELF_TMP_LIB
);
3415 strcat (outfile
, " " );
3416 strcat (outfile
, MCORE_ELF_TMP_OBJ
);
3419 strcat (outfile
, " -v");
3423 strcat (outfile
, " -n");
3425 if (dontdeltemps
> 1)
3426 strcat (outfile
, " -n");
3429 /* XXX - FIME: ought to check/copy other command line options as well. */
3431 run (program_name
, outfile
);
3433 /* Step four. Feed the .exp and .lib files to ld -shared to create the dll. */
3434 strcpy (outfile
, "-shared ");
3436 if (mcore_elf_linker_flags
)
3437 strcat (outfile
, mcore_elf_linker_flags
);
3439 strcat (outfile
, " ");
3440 strcat (outfile
, MCORE_ELF_TMP_EXP
);
3441 strcat (outfile
, " ");
3442 strcat (outfile
, MCORE_ELF_TMP_LIB
);
3443 strcat (outfile
, " -o ");
3444 strcat (outfile
, mcore_elf_out_file
);
3446 run (mcore_elf_linker
, outfile
);
3448 if (dontdeltemps
== 0)
3450 unlink (MCORE_ELF_TMP_EXP
);
3451 unlink (MCORE_ELF_TMP_LIB
);
3454 if (dontdeltemps
< 2)
3455 unlink (MCORE_ELF_TMP_OBJ
);
3457 #endif /* DLLTOOL_MCORE_ELF */