1 /* dlltool.c -- tool to generate stuff for PE style DLLs
2 Copyright 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
3 2005 Free Software Foundation, Inc.
5 This file is part of GNU Binutils.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
23 /* This program allows you to build the files necessary to create
24 DLLs to run on a system which understands PE format image files.
27 See "Peering Inside the PE: A Tour of the Win32 Portable Executable
28 File Format", MSJ 1994, Volume 9 for more information.
29 Also see "Microsoft Portable Executable and Common Object File Format,
30 Specification 4.1" for more information.
32 A DLL contains an export table which contains the information
33 which the runtime loader needs to tie up references from a
36 The export table is generated by this program by reading
37 in a .DEF file or scanning the .a and .o files which will be in the
38 DLL. A .o file can contain information in special ".drectve" sections
39 with export information.
41 A DEF file contains any number of the following commands:
44 NAME <name> [ , <base> ]
45 The result is going to be <name>.EXE
47 LIBRARY <name> [ , <base> ]
48 The result is going to be <name>.DLL
50 EXPORTS ( ( ( <name1> [ = <name2> ] )
51 | ( <name1> = <module-name> . <external-name>))
52 [ @ <integer> ] [ NONAME ] [CONSTANT] [DATA] [PRIVATE] ) *
53 Declares name1 as an exported symbol from the
54 DLL, with optional ordinal number <integer>.
55 Or declares name1 as an alias (forward) of the function <external-name>
56 in the DLL <module-name>.
58 IMPORTS ( ( <internal-name> = <module-name> . <integer> )
59 | ( [ <internal-name> = ] <module-name> . <external-name> )) *
60 Declares that <external-name> or the exported function whose ordinal number
61 is <integer> is to be imported from the file <module-name>. If
62 <internal-name> is specified then this is the name that the imported
63 function will be refereed to in the body of the DLL.
66 Puts <string> into output .exp file in the .rdata section
68 [STACKSIZE|HEAPSIZE] <number-reserve> [ , <number-commit> ]
69 Generates --stack|--heap <number-reserve>,<number-commit>
70 in the output .drectve section. The linker will
71 see this and act upon it.
74 SECTIONS ( <sectionname> <attr>+ )*
75 <attr> = READ | WRITE | EXECUTE | SHARED
76 Generates --attr <sectionname> <attr> in the output
77 .drectve section. The linker will see this and act
81 A -export:<name> in a .drectve section in an input .o or .a
82 file to this program is equivalent to a EXPORTS <name>
87 The program generates output files with the prefix supplied
88 on the command line, or in the def file, or taken from the first
91 The .exp.s file contains the information necessary to export
92 the routines in the DLL. The .lib.s file contains the information
93 necessary to use the DLL's routines from a referencing program.
100 asm (".section .drectve");
101 asm (".ascii \"-export:adef\"");
105 printf ("hello from the dll %s\n", s);
110 printf ("hello from the dll and the other entry point %s\n", s);
114 asm (".section .drectve");
115 asm (".ascii \"-export:cdef\"");
116 asm (".ascii \"-export:ddef\"");
120 printf ("hello from the dll %s\n", s);
125 printf ("hello from the dll and the other entry point %s\n", s);
143 HEAPSIZE 0x40000, 0x2000
147 SECTIONS donkey READ WRITE
150 # Compile up the parts of the dll and the program
152 gcc -c file1.c file2.c themain.c
154 # Optional: put the dll objects into a library
155 # (you don't have to, you could name all the object
156 # files on the dlltool line)
158 ar qcv thedll.in file1.o file2.o
161 # Run this tool over the DLL's .def file and generate an exports
162 # file (thedll.o) and an imports file (thedll.a).
163 # (You may have to use -S to tell dlltool where to find the assembler).
165 dlltool --def thedll.def --output-exp thedll.o --output-lib thedll.a
167 # Build the dll with the library and the export table
169 ld -o thedll.dll thedll.o thedll.in
171 # Link the executable with the import library
173 gcc -o themain.exe themain.o thedll.a
175 This example can be extended if relocations are needed in the DLL:
177 # Compile up the parts of the dll and the program
179 gcc -c file1.c file2.c themain.c
181 # Run this tool over the DLL's .def file and generate an imports file.
183 dlltool --def thedll.def --output-lib thedll.lib
185 # Link the executable with the import library and generate a base file
188 gcc -o themain.exe themain.o thedll.lib -Wl,--base-file -Wl,themain.base
190 # Run this tool over the DLL's .def file and generate an exports file
191 # which includes the relocations from the base file.
193 dlltool --def thedll.def --base-file themain.base --output-exp thedll.exp
195 # Build the dll with file1.o, file2.o and the export table
197 ld -o thedll.dll thedll.exp file1.o file2.o */
199 /* .idata section description
201 The .idata section is the import table. It is a collection of several
202 subsections used to keep the pieces for each dll together: .idata$[234567].
203 IE: Each dll's .idata$2's are catenated together, each .idata$3's, etc.
205 .idata$2 = Import Directory Table
206 = array of IMAGE_IMPORT_DESCRIPTOR's.
208 DWORD Import Lookup Table; - pointer to .idata$4
209 DWORD TimeDateStamp; - currently always 0
210 DWORD ForwarderChain; - currently always 0
211 DWORD Name; - pointer to dll's name
212 PIMAGE_THUNK_DATA FirstThunk; - pointer to .idata$5
214 .idata$3 = null terminating entry for .idata$2.
216 .idata$4 = Import Lookup Table
217 = array of array of pointers to hint name table.
218 There is one for each dll being imported from, and each dll's set is
219 terminated by a trailing NULL.
221 .idata$5 = Import Address Table
222 = array of array of pointers to hint name table.
223 There is one for each dll being imported from, and each dll's set is
224 terminated by a trailing NULL.
225 Initially, this table is identical to the Import Lookup Table. However,
226 at load time, the loader overwrites the entries with the address of the
229 .idata$6 = Hint Name Table
230 = Array of { short, asciz } entries, one for each imported function.
231 The `short' is the function's ordinal number.
233 .idata$7 = dll name (eg: "kernel32.dll"). (.idata$6 for ppc). */
235 /* AIX requires this to be the first thing in the file. */
242 #define show_allnames 0
244 #define PAGE_SIZE 4096
245 #define PAGE_MASK (-PAGE_SIZE)
247 #include "libiberty.h"
250 #include "demangle.h"
251 #include "dyn-string.h"
253 #include "safe-ctype.h"
256 #include <sys/stat.h>
261 #include "coff/arm.h"
262 #include "coff/internal.h"
265 /* Forward references. */
266 static char *look_for_prog (const char *, const char *, int);
267 static char *deduce_name (const char *);
269 #ifdef DLLTOOL_MCORE_ELF
270 static void mcore_elf_cache_filename (char *);
271 static void mcore_elf_gen_out_file (void);
274 #ifdef HAVE_SYS_WAIT_H
275 #include <sys/wait.h>
276 #else /* ! HAVE_SYS_WAIT_H */
277 #if ! defined (_WIN32) || defined (__CYGWIN32__)
279 #define WIFEXITED(w) (((w) & 0377) == 0)
282 #define WIFSIGNALED(w) (((w) & 0377) != 0177 && ((w) & ~0377) == 0)
285 #define WTERMSIG(w) ((w) & 0177)
288 #define WEXITSTATUS(w) (((w) >> 8) & 0377)
290 #else /* defined (_WIN32) && ! defined (__CYGWIN32__) */
292 #define WIFEXITED(w) (((w) & 0xff) == 0)
295 #define WIFSIGNALED(w) (((w) & 0xff) != 0 && ((w) & 0xff) != 0x7f)
298 #define WTERMSIG(w) ((w) & 0x7f)
301 #define WEXITSTATUS(w) (((w) & 0xff00) >> 8)
303 #endif /* defined (_WIN32) && ! defined (__CYGWIN32__) */
304 #endif /* ! HAVE_SYS_WAIT_H */
306 /* ifunc and ihead data structures: ttk@cygnus.com 1997
308 When IMPORT declarations are encountered in a .def file the
309 function import information is stored in a structure referenced by
310 the global variable IMPORT_LIST. The structure is a linked list
311 containing the names of the dll files each function is imported
312 from and a linked list of functions being imported from that dll
313 file. This roughly parallels the structure of the .idata section
314 in the PE object file.
316 The contents of .def file are interpreted from within the
317 process_def_file function. Every time an IMPORT declaration is
318 encountered, it is broken up into its component parts and passed to
319 def_import. IMPORT_LIST is initialized to NULL in function main. */
321 typedef struct ifunct
323 char * name
; /* Name of function being imported. */
324 int ord
; /* Two-byte ordinal value associated with function. */
328 typedef struct iheadt
330 char *dllname
; /* Name of dll file imported from. */
331 long nfuncs
; /* Number of functions in list. */
332 struct ifunct
*funchead
; /* First function in list. */
333 struct ifunct
*functail
; /* Last function in list. */
334 struct iheadt
*next
; /* Next dll file in list. */
337 /* Structure containing all import information as defined in .def file
338 (qv "ihead structure"). */
340 static iheadtype
*import_list
= NULL
;
342 static char *as_name
= NULL
;
343 static char * as_flags
= "";
345 static char *tmp_prefix
;
347 static int no_idata4
;
348 static int no_idata5
;
349 static char *exp_name
;
350 static char *imp_name
;
351 static char *head_label
;
352 static char *imp_name_lab
;
353 static char *dll_name
;
355 static int add_indirect
= 0;
356 static int add_underscore
= 0;
357 static int dontdeltemps
= 0;
359 /* TRUE if we should export all symbols. Otherwise, we only export
360 symbols listed in .drectve sections or in the def file. */
361 static bfd_boolean export_all_symbols
;
363 /* TRUE if we should exclude the symbols in DEFAULT_EXCLUDES when
364 exporting all symbols. */
365 static bfd_boolean do_default_excludes
= TRUE
;
367 /* Default symbols to exclude when exporting all the symbols. */
368 static const char *default_excludes
= "DllMain@12,DllEntryPoint@0,impure_ptr";
370 /* TRUE if we should add __imp_<SYMBOL> to import libraries for backward
371 compatibility to old Cygwin releases. */
372 static bfd_boolean create_compat_implib
;
374 static char *def_file
;
376 extern char * program_name
;
380 static int add_stdcall_alias
;
381 static const char *ext_prefix_alias
;
383 static FILE *output_def
;
384 static FILE *base_file
;
387 #ifdef DLLTOOL_ARM_EPOC
388 static const char *mname
= "arm-epoc";
390 static const char *mname
= "arm";
395 static const char *mname
= "i386";
399 static const char *mname
= "ppc";
403 static const char *mname
= "sh";
407 static const char *mname
= "mips";
411 static const char * mname
= "mcore-le";
414 #ifdef DLLTOOL_MCORE_ELF
415 static const char * mname
= "mcore-elf";
416 static char * mcore_elf_out_file
= NULL
;
417 static char * mcore_elf_linker
= NULL
;
418 static char * mcore_elf_linker_flags
= NULL
;
420 #define DRECTVE_SECTION_NAME ((machine == MMCORE_ELF || machine == MMCORE_ELF_LE) ? ".exports" : ".drectve")
423 #ifndef DRECTVE_SECTION_NAME
424 #define DRECTVE_SECTION_NAME ".drectve"
427 /* What's the right name for this ? */
430 /* External name alias numbering starts here. */
431 #define PREFIX_ALIAS_BASE 20000
434 char *tmp_head_s_buf
;
435 char *tmp_head_o_buf
;
436 char *tmp_tail_s_buf
;
437 char *tmp_tail_o_buf
;
440 #define TMP_ASM dlltmp (&tmp_asm_buf, "%sc.s")
441 #define TMP_HEAD_S dlltmp (&tmp_head_s_buf, "%sh.s")
442 #define TMP_HEAD_O dlltmp (&tmp_head_o_buf, "%sh.o")
443 #define TMP_TAIL_S dlltmp (&tmp_tail_s_buf, "%st.s")
444 #define TMP_TAIL_O dlltmp (&tmp_tail_o_buf, "%st.o")
445 #define TMP_STUB dlltmp (&tmp_stub_buf, "%ss")
447 /* This bit of assembly does jmp * .... */
448 static const unsigned char i386_jtab
[] =
450 0xff, 0x25, 0x00, 0x00, 0x00, 0x00, 0x90, 0x90
453 static const unsigned char arm_jtab
[] =
455 0x00, 0xc0, 0x9f, 0xe5, /* ldr ip, [pc] */
456 0x00, 0xf0, 0x9c, 0xe5, /* ldr pc, [ip] */
460 static const unsigned char arm_interwork_jtab
[] =
462 0x04, 0xc0, 0x9f, 0xe5, /* ldr ip, [pc] */
463 0x00, 0xc0, 0x9c, 0xe5, /* ldr ip, [ip] */
464 0x1c, 0xff, 0x2f, 0xe1, /* bx ip */
468 static const unsigned char thumb_jtab
[] =
470 0x40, 0xb4, /* push {r6} */
471 0x02, 0x4e, /* ldr r6, [pc, #8] */
472 0x36, 0x68, /* ldr r6, [r6] */
473 0xb4, 0x46, /* mov ip, r6 */
474 0x40, 0xbc, /* pop {r6} */
475 0x60, 0x47, /* bx ip */
479 static const unsigned char mcore_be_jtab
[] =
481 0x71, 0x02, /* lrw r1,2 */
482 0x81, 0x01, /* ld.w r1,(r1,0) */
483 0x00, 0xC1, /* jmp r1 */
484 0x12, 0x00, /* nop */
485 0x00, 0x00, 0x00, 0x00 /* <address> */
488 static const unsigned char mcore_le_jtab
[] =
490 0x02, 0x71, /* lrw r1,2 */
491 0x01, 0x81, /* ld.w r1,(r1,0) */
492 0xC1, 0x00, /* jmp r1 */
493 0x00, 0x12, /* nop */
494 0x00, 0x00, 0x00, 0x00 /* <address> */
497 /* This is the glue sequence for PowerPC PE. There is a
498 tocrel16-tocdefn reloc against the first instruction.
499 We also need a IMGLUE reloc against the glue function
500 to restore the toc saved by the third instruction in
502 static const unsigned char ppc_jtab
[] =
504 0x00, 0x00, 0x62, 0x81, /* lwz r11,0(r2) */
505 /* Reloc TOCREL16 __imp_xxx */
506 0x00, 0x00, 0x8B, 0x81, /* lwz r12,0(r11) */
507 0x04, 0x00, 0x41, 0x90, /* stw r2,4(r1) */
508 0xA6, 0x03, 0x89, 0x7D, /* mtctr r12 */
509 0x04, 0x00, 0x4B, 0x80, /* lwz r2,4(r11) */
510 0x20, 0x04, 0x80, 0x4E /* bctr */
514 /* The glue instruction, picks up the toc from the stw in
515 the above code: "lwz r2,4(r1)". */
516 static bfd_vma ppc_glue_insn
= 0x80410004;
522 const char *how_byte
;
523 const char *how_short
;
524 const char *how_long
;
525 const char *how_asciz
;
526 const char *how_comment
;
527 const char *how_jump
;
528 const char *how_global
;
529 const char *how_space
;
530 const char *how_align_short
;
531 const char *how_align_long
;
532 const char *how_default_as_switches
;
533 const char *how_bfd_target
;
534 enum bfd_architecture how_bfd_arch
;
535 const unsigned char *how_jtab
;
536 int how_jtab_size
; /* Size of the jtab entry. */
537 int how_jtab_roff
; /* Offset into it for the ind 32 reloc into idata 5. */
540 static const struct mac
545 "arm", ".byte", ".short", ".long", ".asciz", "@",
546 "ldr\tip,[pc]\n\tldr\tpc,[ip]\n\t.long",
547 ".global", ".space", ".align\t2",".align\t4", "-mapcs-32",
548 "pe-arm-little", bfd_arch_arm
,
549 arm_jtab
, sizeof (arm_jtab
), 8
554 "i386", ".byte", ".short", ".long", ".asciz", "#",
555 "jmp *", ".global", ".space", ".align\t2",".align\t4", "",
556 "pe-i386",bfd_arch_i386
,
557 i386_jtab
, sizeof (i386_jtab
), 2
562 "ppc", ".byte", ".short", ".long", ".asciz", "#",
563 "jmp *", ".global", ".space", ".align\t2",".align\t4", "",
564 "pe-powerpcle",bfd_arch_powerpc
,
565 ppc_jtab
, sizeof (ppc_jtab
), 0
570 "thumb", ".byte", ".short", ".long", ".asciz", "@",
571 "push\t{r6}\n\tldr\tr6, [pc, #8]\n\tldr\tr6, [r6]\n\tmov\tip, r6\n\tpop\t{r6}\n\tbx\tip",
572 ".global", ".space", ".align\t2",".align\t4", "-mthumb-interwork",
573 "pe-arm-little", bfd_arch_arm
,
574 thumb_jtab
, sizeof (thumb_jtab
), 12
577 #define MARM_INTERWORK 4
579 "arm_interwork", ".byte", ".short", ".long", ".asciz", "@",
580 "ldr\tip,[pc]\n\tldr\tip,[ip]\n\tbx\tip\n\t.long",
581 ".global", ".space", ".align\t2",".align\t4", "-mthumb-interwork",
582 "pe-arm-little", bfd_arch_arm
,
583 arm_interwork_jtab
, sizeof (arm_interwork_jtab
), 12
588 "mcore-be", ".byte", ".short", ".long", ".asciz", "//",
589 "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
590 ".global", ".space", ".align\t2",".align\t4", "",
591 "pe-mcore-big", bfd_arch_mcore
,
592 mcore_be_jtab
, sizeof (mcore_be_jtab
), 8
597 "mcore-le", ".byte", ".short", ".long", ".asciz", "//",
598 "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
599 ".global", ".space", ".align\t2",".align\t4", "-EL",
600 "pe-mcore-little", bfd_arch_mcore
,
601 mcore_le_jtab
, sizeof (mcore_le_jtab
), 8
606 "mcore-elf-be", ".byte", ".short", ".long", ".asciz", "//",
607 "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
608 ".global", ".space", ".align\t2",".align\t4", "",
609 "elf32-mcore-big", bfd_arch_mcore
,
610 mcore_be_jtab
, sizeof (mcore_be_jtab
), 8
614 #define MMCORE_ELF_LE 8
615 "mcore-elf-le", ".byte", ".short", ".long", ".asciz", "//",
616 "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
617 ".global", ".space", ".align\t2",".align\t4", "-EL",
618 "elf32-mcore-little", bfd_arch_mcore
,
619 mcore_le_jtab
, sizeof (mcore_le_jtab
), 8
624 "arm-epoc", ".byte", ".short", ".long", ".asciz", "@",
625 "ldr\tip,[pc]\n\tldr\tpc,[ip]\n\t.long",
626 ".global", ".space", ".align\t2",".align\t4", "",
627 "epoc-pe-arm-little", bfd_arch_arm
,
628 arm_jtab
, sizeof (arm_jtab
), 8
631 { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }
641 typedef struct export
644 const char *internal_name
;
645 const char *import_name
;
648 int noname
; /* Don't put name in image file. */
649 int private; /* Don't put reference in import lib. */
652 int forward
; /* Number of forward label, 0 means no forward. */
657 /* A list of symbols which we should not export. */
661 struct string_list
*next
;
665 static struct string_list
*excludes
;
667 static const char *rvaafter (int);
668 static const char *rvabefore (int);
669 static const char *asm_prefix (int, const char *);
670 static void process_def_file (const char *);
671 static void new_directive (char *);
672 static void append_import (const char *, const char *, int);
673 static void run (const char *, char *);
674 static void scan_drectve_symbols (bfd
*);
675 static void scan_filtered_symbols (bfd
*, void *, long, unsigned int);
676 static void add_excludes (const char *);
677 static bfd_boolean
match_exclude (const char *);
678 static void set_default_excludes (void);
679 static long filter_symbols (bfd
*, void *, long, unsigned int);
680 static void scan_all_symbols (bfd
*);
681 static void scan_open_obj_file (bfd
*);
682 static void scan_obj_file (const char *);
683 static void dump_def_info (FILE *);
684 static int sfunc (const void *, const void *);
685 static void flush_page (FILE *, long *, int, int);
686 static void gen_def_file (void);
687 static void generate_idata_ofile (FILE *);
688 static void assemble_file (const char *, const char *);
689 static void gen_exp_file (void);
690 static const char *xlate (const char *);
691 static char *make_label (const char *, const char *);
692 static char *make_imp_label (const char *, const char *);
693 static bfd
*make_one_lib_file (export_type
*, int);
694 static bfd
*make_head (void);
695 static bfd
*make_tail (void);
696 static void gen_lib_file (void);
697 static int pfunc (const void *, const void *);
698 static int nfunc (const void *, const void *);
699 static void remove_null_names (export_type
**);
700 static void process_duplicates (export_type
**);
701 static void fill_ordinals (export_type
**);
702 static int alphafunc (const void *, const void *);
703 static void mangle_defs (void);
704 static void usage (FILE *, int);
705 static void inform (const char *, ...) ATTRIBUTE_PRINTF_1
;
706 static void set_dll_name_from_def (const char *);
709 prefix_encode (char *start
, unsigned code
)
711 static char alpha
[26] = "abcdefghijklmnopqrstuvwxyz";
715 p
= strchr (buf
, '\0');
717 *p
++ = alpha
[code
% sizeof (alpha
)];
718 while ((code
/= sizeof (alpha
)) != 0);
724 dlltmp (char **buf
, const char *fmt
)
728 *buf
= malloc (strlen (tmp_prefix
) + 64);
729 sprintf (*buf
, fmt
, tmp_prefix
);
735 inform
VPARAMS ((const char * message
, ...))
737 VA_OPEN (args
, message
);
738 VA_FIXEDARG (args
, const char *, message
);
743 report (message
, args
);
749 rvaafter (int machine
)
765 /* xgettext:c-format */
766 fatal (_("Internal error: Unknown machine type: %d"), machine
);
773 rvabefore (int machine
)
789 /* xgettext:c-format */
790 fatal (_("Internal error: Unknown machine type: %d"), machine
);
797 asm_prefix (int machine
, const char *name
)
812 /* Symbol names starting with ? do not have a leading underscore. */
813 if (name
&& *name
== '?')
818 /* xgettext:c-format */
819 fatal (_("Internal error: Unknown machine type: %d"), machine
);
825 #define ASM_BYTE mtable[machine].how_byte
826 #define ASM_SHORT mtable[machine].how_short
827 #define ASM_LONG mtable[machine].how_long
828 #define ASM_TEXT mtable[machine].how_asciz
829 #define ASM_C mtable[machine].how_comment
830 #define ASM_JUMP mtable[machine].how_jump
831 #define ASM_GLOBAL mtable[machine].how_global
832 #define ASM_SPACE mtable[machine].how_space
833 #define ASM_ALIGN_SHORT mtable[machine].how_align_short
834 #define ASM_RVA_BEFORE rvabefore (machine)
835 #define ASM_RVA_AFTER rvaafter (machine)
836 #define ASM_PREFIX(NAME) asm_prefix (machine, (NAME))
837 #define ASM_ALIGN_LONG mtable[machine].how_align_long
838 #define HOW_BFD_READ_TARGET 0 /* Always default. */
839 #define HOW_BFD_WRITE_TARGET mtable[machine].how_bfd_target
840 #define HOW_BFD_ARCH mtable[machine].how_bfd_arch
841 #define HOW_JTAB mtable[machine].how_jtab
842 #define HOW_JTAB_SIZE mtable[machine].how_jtab_size
843 #define HOW_JTAB_ROFF mtable[machine].how_jtab_roff
844 #define ASM_SWITCHES mtable[machine].how_default_as_switches
849 process_def_file (const char *name
)
851 FILE *f
= fopen (name
, FOPEN_RT
);
854 /* xgettext:c-format */
855 fatal (_("Can't open def file: %s"), name
);
859 /* xgettext:c-format */
860 inform (_("Processing def file: %s"), name
);
864 inform (_("Processed def file"));
867 /**********************************************************************/
869 /* Communications with the parser. */
871 static int d_nfuncs
; /* Number of functions exported. */
872 static int d_named_nfuncs
; /* Number of named functions exported. */
873 static int d_low_ord
; /* Lowest ordinal index. */
874 static int d_high_ord
; /* Highest ordinal index. */
875 static export_type
*d_exports
; /* List of exported functions. */
876 static export_type
**d_exports_lexically
; /* Vector of exported functions in alpha order. */
877 static dlist_type
*d_list
; /* Descriptions. */
878 static dlist_type
*a_list
; /* Stuff to go in directives. */
879 static int d_nforwards
= 0; /* Number of forwarded exports. */
885 yyerror (const char * err ATTRIBUTE_UNUSED
)
887 /* xgettext:c-format */
888 non_fatal (_("Syntax error in def file %s:%d"), def_file
, linenumber
);
894 def_exports (const char *name
, const char *internal_name
, int ordinal
,
895 int noname
, int constant
, int data
, int private)
897 struct export
*p
= (struct export
*) xmalloc (sizeof (*p
));
900 p
->internal_name
= internal_name
? internal_name
: name
;
901 p
->import_name
= name
;
902 p
->ordinal
= ordinal
;
903 p
->constant
= constant
;
905 p
->private = private;
911 if ((internal_name
!= NULL
)
912 && (strchr (internal_name
, '.') != NULL
))
913 p
->forward
= ++d_nforwards
;
915 p
->forward
= 0; /* no forward */
919 set_dll_name_from_def (const char * name
)
921 const char* image_basename
= lbasename (name
);
922 if (image_basename
!= name
)
923 non_fatal (_("%s: Path components stripped from image name, '%s'."),
925 dll_name
= xstrdup (image_basename
);
929 def_name (const char *name
, int base
)
931 /* xgettext:c-format */
932 inform (_("NAME: %s base: %x"), name
, base
);
935 non_fatal (_("Can't have LIBRARY and NAME"));
937 /* If --dllname not provided, use the one in the DEF file.
938 FIXME: Is this appropriate for executables? */
940 set_dll_name_from_def (name
);
945 def_library (const char *name
, int base
)
947 /* xgettext:c-format */
948 inform (_("LIBRARY: %s base: %x"), name
, base
);
951 non_fatal (_("Can't have LIBRARY and NAME"));
953 /* If --dllname not provided, use the one in the DEF file. */
955 set_dll_name_from_def (name
);
960 def_description (const char *desc
)
962 dlist_type
*d
= (dlist_type
*) xmalloc (sizeof (dlist_type
));
963 d
->text
= xstrdup (desc
);
969 new_directive (char *dir
)
971 dlist_type
*d
= (dlist_type
*) xmalloc (sizeof (dlist_type
));
972 d
->text
= xstrdup (dir
);
978 def_heapsize (int reserve
, int commit
)
982 sprintf (b
, "-heap 0x%x,0x%x ", reserve
, commit
);
984 sprintf (b
, "-heap 0x%x ", reserve
);
985 new_directive (xstrdup (b
));
989 def_stacksize (int reserve
, int commit
)
993 sprintf (b
, "-stack 0x%x,0x%x ", reserve
, commit
);
995 sprintf (b
, "-stack 0x%x ", reserve
);
996 new_directive (xstrdup (b
));
999 /* append_import simply adds the given import definition to the global
1000 import_list. It is used by def_import. */
1003 append_import (const char *symbol_name
, const char *dll_name
, int func_ordinal
)
1008 for (pq
= &import_list
; *pq
!= NULL
; pq
= &(*pq
)->next
)
1010 if (strcmp ((*pq
)->dllname
, dll_name
) == 0)
1013 q
->functail
->next
= xmalloc (sizeof (ifunctype
));
1014 q
->functail
= q
->functail
->next
;
1015 q
->functail
->ord
= func_ordinal
;
1016 q
->functail
->name
= xstrdup (symbol_name
);
1017 q
->functail
->next
= NULL
;
1023 q
= xmalloc (sizeof (iheadtype
));
1024 q
->dllname
= xstrdup (dll_name
);
1026 q
->funchead
= xmalloc (sizeof (ifunctype
));
1027 q
->functail
= q
->funchead
;
1029 q
->functail
->name
= xstrdup (symbol_name
);
1030 q
->functail
->ord
= func_ordinal
;
1031 q
->functail
->next
= NULL
;
1036 /* def_import is called from within defparse.y when an IMPORT
1037 declaration is encountered. Depending on the form of the
1038 declaration, the module name may or may not need ".dll" to be
1039 appended to it, the name of the function may be stored in internal
1040 or entry, and there may or may not be an ordinal value associated
1043 /* A note regarding the parse modes:
1044 In defparse.y we have to accept import declarations which follow
1045 any one of the following forms:
1046 <func_name_in_app> = <dll_name>.<func_name_in_dll>
1047 <func_name_in_app> = <dll_name>.<number>
1048 <dll_name>.<func_name_in_dll>
1050 Furthermore, the dll's name may or may not end with ".dll", which
1051 complicates the parsing a little. Normally the dll's name is
1052 passed to def_import() in the "module" parameter, but when it ends
1053 with ".dll" it gets passed in "module" sans ".dll" and that needs
1056 def_import gets five parameters:
1057 APP_NAME - the name of the function in the application, if
1058 present, or NULL if not present.
1059 MODULE - the name of the dll, possibly sans extension (ie, '.dll').
1060 DLLEXT - the extension of the dll, if present, NULL if not present.
1061 ENTRY - the name of the function in the dll, if present, or NULL.
1062 ORD_VAL - the numerical tag of the function in the dll, if present,
1063 or NULL. Exactly one of <entry> or <ord_val> must be
1064 present (i.e., not NULL). */
1067 def_import (const char *app_name
, const char *module
, const char *dllext
,
1068 const char *entry
, int ord_val
)
1070 const char *application_name
;
1074 application_name
= entry
;
1077 if (app_name
!= NULL
)
1078 application_name
= app_name
;
1080 application_name
= "";
1085 buf
= (char *) alloca (strlen (module
) + strlen (dllext
) + 2);
1086 sprintf (buf
, "%s.%s", module
, dllext
);
1090 append_import (application_name
, module
, ord_val
);
1094 def_version (int major
, int minor
)
1096 printf ("VERSION %d.%d\n", major
, minor
);
1100 def_section (const char *name
, int attr
)
1115 sprintf (buf
, "-attr %s %s", name
, atts
);
1116 new_directive (xstrdup (buf
));
1123 def_section ("CODE", attr
);
1129 def_section ("DATA", attr
);
1132 /**********************************************************************/
1135 run (const char *what
, char *args
)
1138 int pid
, wait_status
;
1141 char *errmsg_fmt
, *errmsg_arg
;
1142 char *temp_base
= choose_temp_base ();
1144 inform ("run: %s %s", what
, args
);
1146 /* Count the args */
1148 for (s
= args
; *s
; s
++)
1152 argv
= alloca (sizeof (char *) * (i
+ 3));
1161 while (*s
!= ' ' && *s
!= 0)
1169 pid
= pexecute (argv
[0], (char * const *) argv
, program_name
, temp_base
,
1170 &errmsg_fmt
, &errmsg_arg
, PEXECUTE_ONE
| PEXECUTE_SEARCH
);
1174 inform (strerror (errno
));
1176 fatal (errmsg_fmt
, errmsg_arg
);
1179 pid
= pwait (pid
, & wait_status
, 0);
1183 /* xgettext:c-format */
1184 fatal (_("wait: %s"), strerror (errno
));
1186 else if (WIFSIGNALED (wait_status
))
1188 /* xgettext:c-format */
1189 fatal (_("subprocess got fatal signal %d"), WTERMSIG (wait_status
));
1191 else if (WIFEXITED (wait_status
))
1193 if (WEXITSTATUS (wait_status
) != 0)
1194 /* xgettext:c-format */
1195 non_fatal (_("%s exited with status %d"),
1196 what
, WEXITSTATUS (wait_status
));
1202 /* Look for a list of symbols to export in the .drectve section of
1203 ABFD. Pass each one to def_exports. */
1206 scan_drectve_symbols (bfd
*abfd
)
1214 /* Look for .drectve's */
1215 s
= bfd_get_section_by_name (abfd
, DRECTVE_SECTION_NAME
);
1220 size
= bfd_get_section_size (s
);
1221 buf
= xmalloc (size
);
1223 bfd_get_section_contents (abfd
, s
, buf
, 0, size
);
1225 /* xgettext:c-format */
1226 inform (_("Sucking in info from %s section in %s"),
1227 DRECTVE_SECTION_NAME
, bfd_get_filename (abfd
));
1229 /* Search for -export: strings. The exported symbols can optionally
1230 have type tags (eg., -export:foo,data), so handle those as well.
1231 Currently only data tag is supported. */
1237 && strncmp (p
, "-export:", 8) == 0)
1241 flagword flags
= BSF_FUNCTION
;
1245 while (p
< e
&& *p
!= ',' && *p
!= ' ' && *p
!= '-')
1247 c
= xmalloc (p
- name
+ 1);
1248 memcpy (c
, name
, p
- name
);
1250 if (p
< e
&& *p
== ',') /* found type tag. */
1252 char *tag_start
= ++p
;
1253 while (p
< e
&& *p
!= ' ' && *p
!= '-')
1255 if (strncmp (tag_start
, "data", 4) == 0)
1256 flags
&= ~BSF_FUNCTION
;
1259 /* FIXME: The 5th arg is for the `constant' field.
1260 What should it be? Not that it matters since it's not
1261 currently useful. */
1262 def_exports (c
, 0, -1, 0, 0, ! (flags
& BSF_FUNCTION
), 0);
1264 if (add_stdcall_alias
&& strchr (c
, '@'))
1266 int lead_at
= (*c
== '@') ;
1267 char *exported_name
= xstrdup (c
+ lead_at
);
1268 char *atsym
= strchr (exported_name
, '@');
1270 /* Note: stdcall alias symbols can never be data. */
1271 def_exports (exported_name
, xstrdup (c
), -1, 0, 0, 0, 0);
1280 /* Look through the symbols in MINISYMS, and add each one to list of
1281 symbols to export. */
1284 scan_filtered_symbols (bfd
*abfd
, void *minisyms
, long symcount
,
1288 bfd_byte
*from
, *fromend
;
1290 store
= bfd_make_empty_symbol (abfd
);
1292 bfd_fatal (bfd_get_filename (abfd
));
1294 from
= (bfd_byte
*) minisyms
;
1295 fromend
= from
+ symcount
* size
;
1296 for (; from
< fromend
; from
+= size
)
1299 const char *symbol_name
;
1301 sym
= bfd_minisymbol_to_symbol (abfd
, FALSE
, from
, store
);
1303 bfd_fatal (bfd_get_filename (abfd
));
1305 symbol_name
= bfd_asymbol_name (sym
);
1306 if (bfd_get_symbol_leading_char (abfd
) == symbol_name
[0])
1309 def_exports (xstrdup (symbol_name
) , 0, -1, 0, 0,
1310 ! (sym
->flags
& BSF_FUNCTION
), 0);
1312 if (add_stdcall_alias
&& strchr (symbol_name
, '@'))
1314 int lead_at
= (*symbol_name
== '@');
1315 char *exported_name
= xstrdup (symbol_name
+ lead_at
);
1316 char *atsym
= strchr (exported_name
, '@');
1318 /* Note: stdcall alias symbols can never be data. */
1319 def_exports (exported_name
, xstrdup (symbol_name
), -1, 0, 0, 0, 0);
1324 /* Add a list of symbols to exclude. */
1327 add_excludes (const char *new_excludes
)
1330 char *exclude_string
;
1332 local_copy
= xstrdup (new_excludes
);
1334 exclude_string
= strtok (local_copy
, ",:");
1335 for (; exclude_string
; exclude_string
= strtok (NULL
, ",:"))
1337 struct string_list
*new_exclude
;
1339 new_exclude
= ((struct string_list
*)
1340 xmalloc (sizeof (struct string_list
)));
1341 new_exclude
->string
= (char *) xmalloc (strlen (exclude_string
) + 2);
1342 /* Don't add a leading underscore for fastcall symbols. */
1343 if (*exclude_string
== '@')
1344 sprintf (new_exclude
->string
, "%s", exclude_string
);
1346 sprintf (new_exclude
->string
, "_%s", exclude_string
);
1347 new_exclude
->next
= excludes
;
1348 excludes
= new_exclude
;
1350 /* xgettext:c-format */
1351 inform (_("Excluding symbol: %s"), exclude_string
);
1357 /* See if STRING is on the list of symbols to exclude. */
1360 match_exclude (const char *string
)
1362 struct string_list
*excl_item
;
1364 for (excl_item
= excludes
; excl_item
; excl_item
= excl_item
->next
)
1365 if (strcmp (string
, excl_item
->string
) == 0)
1370 /* Add the default list of symbols to exclude. */
1373 set_default_excludes (void)
1375 add_excludes (default_excludes
);
1378 /* Choose which symbols to export. */
1381 filter_symbols (bfd
*abfd
, void *minisyms
, long symcount
, unsigned int size
)
1383 bfd_byte
*from
, *fromend
, *to
;
1386 store
= bfd_make_empty_symbol (abfd
);
1388 bfd_fatal (bfd_get_filename (abfd
));
1390 from
= (bfd_byte
*) minisyms
;
1391 fromend
= from
+ symcount
* size
;
1392 to
= (bfd_byte
*) minisyms
;
1394 for (; from
< fromend
; from
+= size
)
1399 sym
= bfd_minisymbol_to_symbol (abfd
, FALSE
, (const void *) from
, store
);
1401 bfd_fatal (bfd_get_filename (abfd
));
1403 /* Check for external and defined only symbols. */
1404 keep
= (((sym
->flags
& BSF_GLOBAL
) != 0
1405 || (sym
->flags
& BSF_WEAK
) != 0
1406 || bfd_is_com_section (sym
->section
))
1407 && ! bfd_is_und_section (sym
->section
));
1409 keep
= keep
&& ! match_exclude (sym
->name
);
1413 memcpy (to
, from
, size
);
1418 return (to
- (bfd_byte
*) minisyms
) / size
;
1421 /* Export all symbols in ABFD, except for ones we were told not to
1425 scan_all_symbols (bfd
*abfd
)
1431 /* Ignore bfds with an import descriptor table. We assume that any
1432 such BFD contains symbols which are exported from another DLL,
1433 and we don't want to reexport them from here. */
1434 if (bfd_get_section_by_name (abfd
, ".idata$4"))
1437 if (! (bfd_get_file_flags (abfd
) & HAS_SYMS
))
1439 /* xgettext:c-format */
1440 non_fatal (_("%s: no symbols"), bfd_get_filename (abfd
));
1444 symcount
= bfd_read_minisymbols (abfd
, FALSE
, &minisyms
, &size
);
1446 bfd_fatal (bfd_get_filename (abfd
));
1450 /* xgettext:c-format */
1451 non_fatal (_("%s: no symbols"), bfd_get_filename (abfd
));
1455 /* Discard the symbols we don't want to export. It's OK to do this
1456 in place; we'll free the storage anyway. */
1458 symcount
= filter_symbols (abfd
, minisyms
, symcount
, size
);
1459 scan_filtered_symbols (abfd
, minisyms
, symcount
, size
);
1464 /* Look at the object file to decide which symbols to export. */
1467 scan_open_obj_file (bfd
*abfd
)
1469 if (export_all_symbols
)
1470 scan_all_symbols (abfd
);
1472 scan_drectve_symbols (abfd
);
1474 /* FIXME: we ought to read in and block out the base relocations. */
1476 /* xgettext:c-format */
1477 inform (_("Done reading %s"), bfd_get_filename (abfd
));
1481 scan_obj_file (const char *filename
)
1483 bfd
* f
= bfd_openr (filename
, 0);
1486 /* xgettext:c-format */
1487 fatal (_("Unable to open object file: %s"), filename
);
1489 /* xgettext:c-format */
1490 inform (_("Scanning object file %s"), filename
);
1492 if (bfd_check_format (f
, bfd_archive
))
1494 bfd
*arfile
= bfd_openr_next_archived_file (f
, 0);
1497 if (bfd_check_format (arfile
, bfd_object
))
1498 scan_open_obj_file (arfile
);
1500 arfile
= bfd_openr_next_archived_file (f
, arfile
);
1503 #ifdef DLLTOOL_MCORE_ELF
1504 if (mcore_elf_out_file
)
1505 inform (_("Cannot produce mcore-elf dll from archive file: %s"), filename
);
1508 else if (bfd_check_format (f
, bfd_object
))
1510 scan_open_obj_file (f
);
1512 #ifdef DLLTOOL_MCORE_ELF
1513 if (mcore_elf_out_file
)
1514 mcore_elf_cache_filename ((char *) filename
);
1521 /**********************************************************************/
1524 dump_def_info (FILE *f
)
1528 fprintf (f
, "%s ", ASM_C
);
1529 for (i
= 0; oav
[i
]; i
++)
1530 fprintf (f
, "%s ", oav
[i
]);
1532 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
1534 fprintf (f
, "%s %d = %s %s @ %d %s%s%s%s\n",
1540 exp
->noname
? "NONAME " : "",
1541 exp
->private ? "PRIVATE " : "",
1542 exp
->constant
? "CONSTANT" : "",
1543 exp
->data
? "DATA" : "");
1547 /* Generate the .exp file. */
1550 sfunc (const void *a
, const void *b
)
1552 return *(const long *) a
- *(const long *) b
;
1556 flush_page (FILE *f
, long *need
, int page_addr
, int on_page
)
1560 /* Flush this page. */
1561 fprintf (f
, "\t%s\t0x%08x\t%s Starting RVA for chunk\n",
1565 fprintf (f
, "\t%s\t0x%x\t%s Size of block\n",
1567 (on_page
* 2) + (on_page
& 1) * 2 + 8,
1570 for (i
= 0; i
< on_page
; i
++)
1572 long needed
= need
[i
];
1575 needed
= ((needed
- page_addr
) | 0x3000) & 0xffff;
1577 fprintf (f
, "\t%s\t0x%lx\n", ASM_SHORT
, needed
);
1582 fprintf (f
, "\t%s\t0x%x\n", ASM_SHORT
, 0 | 0x0000);
1591 inform (_("Adding exports to output file"));
1593 fprintf (output_def
, ";");
1594 for (i
= 0; oav
[i
]; i
++)
1595 fprintf (output_def
, " %s", oav
[i
]);
1597 fprintf (output_def
, "\nEXPORTS\n");
1599 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
1601 char *quote
= strchr (exp
->name
, '.') ? "\"" : "";
1602 char *res
= cplus_demangle (exp
->internal_name
, DMGL_ANSI
| DMGL_PARAMS
);
1606 fprintf (output_def
,";\t%s\n", res
);
1610 if (strcmp (exp
->name
, exp
->internal_name
) == 0)
1612 fprintf (output_def
, "\t%s%s%s @ %d%s%s%s\n",
1617 exp
->noname
? " NONAME" : "",
1618 exp
->private ? "PRIVATE " : "",
1619 exp
->data
? " DATA" : "");
1623 char * quote1
= strchr (exp
->internal_name
, '.') ? "\"" : "";
1625 fprintf (output_def
, "\t%s%s%s = %s%s%s @ %d%s%s%s\n",
1633 exp
->noname
? " NONAME" : "",
1634 exp
->private ? "PRIVATE " : "",
1635 exp
->data
? " DATA" : "");
1639 inform (_("Added exports to output file"));
1642 /* generate_idata_ofile generates the portable assembly source code
1643 for the idata sections. It appends the source code to the end of
1647 generate_idata_ofile (FILE *filvar
)
1655 if (import_list
== NULL
)
1658 fprintf (filvar
, "%s Import data sections\n", ASM_C
);
1659 fprintf (filvar
, "\n\t.section\t.idata$2\n");
1660 fprintf (filvar
, "\t%s\tdoi_idata\n", ASM_GLOBAL
);
1661 fprintf (filvar
, "doi_idata:\n");
1664 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1666 fprintf (filvar
, "\t%slistone%d%s\t%s %s\n",
1667 ASM_RVA_BEFORE
, nheads
, ASM_RVA_AFTER
,
1668 ASM_C
, headptr
->dllname
);
1669 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1670 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1671 fprintf (filvar
, "\t%sdllname%d%s\n",
1672 ASM_RVA_BEFORE
, nheads
, ASM_RVA_AFTER
);
1673 fprintf (filvar
, "\t%slisttwo%d%s\n\n",
1674 ASM_RVA_BEFORE
, nheads
, ASM_RVA_AFTER
);
1678 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* NULL record at */
1679 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* end of idata$2 */
1680 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* section */
1681 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1682 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1684 fprintf (filvar
, "\n\t.section\t.idata$4\n");
1686 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1688 fprintf (filvar
, "listone%d:\n", headindex
);
1689 for ( funcindex
= 0; funcindex
< headptr
->nfuncs
; funcindex
++ )
1690 fprintf (filvar
, "\t%sfuncptr%d_%d%s\n",
1691 ASM_RVA_BEFORE
, headindex
, funcindex
, ASM_RVA_AFTER
);
1692 fprintf (filvar
,"\t%s\t0\n", ASM_LONG
); /* NULL terminating list */
1696 fprintf (filvar
, "\n\t.section\t.idata$5\n");
1698 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1700 fprintf (filvar
, "listtwo%d:\n", headindex
);
1701 for ( funcindex
= 0; funcindex
< headptr
->nfuncs
; funcindex
++ )
1702 fprintf (filvar
, "\t%sfuncptr%d_%d%s\n",
1703 ASM_RVA_BEFORE
, headindex
, funcindex
, ASM_RVA_AFTER
);
1704 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* NULL terminating list */
1708 fprintf (filvar
, "\n\t.section\t.idata$6\n");
1710 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1713 for (funcptr
= headptr
->funchead
; funcptr
!= NULL
;
1714 funcptr
= funcptr
->next
)
1716 fprintf (filvar
,"funcptr%d_%d:\n", headindex
, funcindex
);
1717 fprintf (filvar
,"\t%s\t%d\n", ASM_SHORT
,
1718 ((funcptr
->ord
) & 0xFFFF));
1719 fprintf (filvar
,"\t%s\t\"%s\"\n", ASM_TEXT
, funcptr
->name
);
1720 fprintf (filvar
,"\t%s\t0\n", ASM_BYTE
);
1726 fprintf (filvar
, "\n\t.section\t.idata$7\n");
1728 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1730 fprintf (filvar
,"dllname%d:\n", headindex
);
1731 fprintf (filvar
,"\t%s\t\"%s\"\n", ASM_TEXT
, headptr
->dllname
);
1732 fprintf (filvar
,"\t%s\t0\n", ASM_BYTE
);
1737 /* Assemble the specified file. */
1739 assemble_file (const char * source
, const char * dest
)
1743 cmd
= (char *) alloca (strlen (ASM_SWITCHES
) + strlen (as_flags
)
1744 + strlen (source
) + strlen (dest
) + 50);
1746 sprintf (cmd
, "%s %s -o %s %s", ASM_SWITCHES
, as_flags
, dest
, source
);
1759 /* xgettext:c-format */
1760 inform (_("Generating export file: %s"), exp_name
);
1762 f
= fopen (TMP_ASM
, FOPEN_WT
);
1764 /* xgettext:c-format */
1765 fatal (_("Unable to open temporary assembler file: %s"), TMP_ASM
);
1767 /* xgettext:c-format */
1768 inform (_("Opened temporary file: %s"), TMP_ASM
);
1774 fprintf (f
, "\t.section .edata\n\n");
1775 fprintf (f
, "\t%s 0 %s Allways 0\n", ASM_LONG
, ASM_C
);
1776 fprintf (f
, "\t%s 0x%lx %s Time and date\n", ASM_LONG
, (long) time(0),
1778 fprintf (f
, "\t%s 0 %s Major and Minor version\n", ASM_LONG
, ASM_C
);
1779 fprintf (f
, "\t%sname%s %s Ptr to name of dll\n", ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
1780 fprintf (f
, "\t%s %d %s Starting ordinal of exports\n", ASM_LONG
, d_low_ord
, ASM_C
);
1783 fprintf (f
, "\t%s %d %s Number of functions\n", ASM_LONG
, d_high_ord
- d_low_ord
+ 1, ASM_C
);
1784 fprintf(f
,"\t%s named funcs %d, low ord %d, high ord %d\n",
1786 d_named_nfuncs
, d_low_ord
, d_high_ord
);
1787 fprintf (f
, "\t%s %d %s Number of names\n", ASM_LONG
,
1788 show_allnames
? d_high_ord
- d_low_ord
+ 1 : d_named_nfuncs
, ASM_C
);
1789 fprintf (f
, "\t%safuncs%s %s Address of functions\n", ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
1791 fprintf (f
, "\t%sanames%s %s Address of Name Pointer Table\n",
1792 ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
1794 fprintf (f
, "\t%sanords%s %s Address of ordinals\n", ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
1796 fprintf (f
, "name: %s \"%s\"\n", ASM_TEXT
, dll_name
);
1799 fprintf(f
,"%s Export address Table\n", ASM_C
);
1800 fprintf(f
,"\t%s\n", ASM_ALIGN_LONG
);
1801 fprintf (f
, "afuncs:\n");
1804 for (exp
= d_exports
; exp
; exp
= exp
->next
)
1806 if (exp
->ordinal
!= i
)
1808 while (i
< exp
->ordinal
)
1810 fprintf(f
,"\t%s\t0\n", ASM_LONG
);
1815 if (exp
->forward
== 0)
1817 if (exp
->internal_name
[0] == '@')
1818 fprintf (f
, "\t%s%s%s\t%s %d\n", ASM_RVA_BEFORE
,
1819 exp
->internal_name
, ASM_RVA_AFTER
, ASM_C
, exp
->ordinal
);
1821 fprintf (f
, "\t%s%s%s%s\t%s %d\n", ASM_RVA_BEFORE
,
1822 ASM_PREFIX (exp
->internal_name
),
1823 exp
->internal_name
, ASM_RVA_AFTER
, ASM_C
, exp
->ordinal
);
1826 fprintf (f
, "\t%sf%d%s\t%s %d\n", ASM_RVA_BEFORE
,
1827 exp
->forward
, ASM_RVA_AFTER
, ASM_C
, exp
->ordinal
);
1831 fprintf (f
,"%s Export Name Pointer Table\n", ASM_C
);
1832 fprintf (f
, "anames:\n");
1834 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
1836 if (!exp
->noname
|| show_allnames
)
1837 fprintf (f
, "\t%sn%d%s\n",
1838 ASM_RVA_BEFORE
, exp
->ordinal
, ASM_RVA_AFTER
);
1841 fprintf (f
,"%s Export Oridinal Table\n", ASM_C
);
1842 fprintf (f
, "anords:\n");
1843 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
1845 if (!exp
->noname
|| show_allnames
)
1846 fprintf (f
, "\t%s %d\n", ASM_SHORT
, exp
->ordinal
- d_low_ord
);
1849 fprintf(f
,"%s Export Name Table\n", ASM_C
);
1850 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
1852 if (!exp
->noname
|| show_allnames
)
1853 fprintf (f
, "n%d: %s \"%s\"\n",
1854 exp
->ordinal
, ASM_TEXT
, xlate (exp
->name
));
1855 if (exp
->forward
!= 0)
1856 fprintf (f
, "f%d: %s \"%s\"\n",
1857 exp
->forward
, ASM_TEXT
, exp
->internal_name
);
1862 fprintf (f
, "\t.section %s\n", DRECTVE_SECTION_NAME
);
1863 for (dl
= a_list
; dl
; dl
= dl
->next
)
1865 fprintf (f
, "\t%s\t\"%s\"\n", ASM_TEXT
, dl
->text
);
1871 fprintf (f
, "\t.section .rdata\n");
1872 for (dl
= d_list
; dl
; dl
= dl
->next
)
1877 /* We don't output as ascii because there can
1878 be quote characters in the string. */
1880 for (p
= dl
->text
; *p
; p
++)
1883 fprintf (f
, "\t%s\t", ASM_BYTE
);
1886 fprintf (f
, "%d", *p
);
1889 fprintf (f
, ",0\n");
1903 /* Add to the output file a way of getting to the exported names
1904 without using the import library. */
1907 fprintf (f
, "\t.section\t.rdata\n");
1908 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
1909 if (!exp
->noname
|| show_allnames
)
1911 /* We use a single underscore for MS compatibility, and a
1912 double underscore for backward compatibility with old
1914 if (create_compat_implib
)
1915 fprintf (f
, "\t%s\t__imp_%s\n", ASM_GLOBAL
, exp
->name
);
1916 fprintf (f
, "\t%s\t_imp__%s\n", ASM_GLOBAL
, exp
->name
);
1917 if (create_compat_implib
)
1918 fprintf (f
, "__imp_%s:\n", exp
->name
);
1919 fprintf (f
, "_imp__%s:\n", exp
->name
);
1920 fprintf (f
, "\t%s\t%s\n", ASM_LONG
, exp
->name
);
1924 /* Dump the reloc section if a base file is provided. */
1928 long need
[PAGE_SIZE
];
1935 fprintf (f
, "\t.section\t.init\n");
1936 fprintf (f
, "lab:\n");
1938 fseek (base_file
, 0, SEEK_END
);
1939 numbytes
= ftell (base_file
);
1940 fseek (base_file
, 0, SEEK_SET
);
1941 copy
= xmalloc (numbytes
);
1942 fread (copy
, 1, numbytes
, base_file
);
1943 num_entries
= numbytes
/ sizeof (long);
1946 fprintf (f
, "\t.section\t.reloc\n");
1952 qsort (copy
, num_entries
, sizeof (long), sfunc
);
1953 /* Delete duplicates */
1954 for (src
= 0; src
< num_entries
; src
++)
1956 if (last
!= copy
[src
])
1957 last
= copy
[dst
++] = copy
[src
];
1961 page_addr
= addr
& PAGE_MASK
; /* work out the page addr */
1963 for (j
= 0; j
< num_entries
; j
++)
1966 if ((addr
& PAGE_MASK
) != page_addr
)
1968 flush_page (f
, need
, page_addr
, on_page
);
1970 page_addr
= addr
& PAGE_MASK
;
1972 need
[on_page
++] = addr
;
1974 flush_page (f
, need
, page_addr
, on_page
);
1976 /* fprintf (f, "\t%s\t0,0\t%s End\n", ASM_LONG, ASM_C);*/
1980 generate_idata_ofile (f
);
1984 /* Assemble the file. */
1985 assemble_file (TMP_ASM
, exp_name
);
1987 if (dontdeltemps
== 0)
1990 inform (_("Generated exports file"));
1994 xlate (const char *name
)
1996 int lead_at
= (*name
== '@');
1998 if (add_underscore
&& !lead_at
)
2000 char *copy
= xmalloc (strlen (name
) + 2);
2003 strcpy (copy
+ 1, name
);
2012 p
= strchr (name
, '@');
2029 unsigned char *data
;
2044 #define TEXT_SEC_FLAGS \
2045 (SEC_ALLOC | SEC_LOAD | SEC_CODE | SEC_READONLY | SEC_HAS_CONTENTS)
2046 #define DATA_SEC_FLAGS (SEC_ALLOC | SEC_LOAD | SEC_DATA)
2047 #define BSS_SEC_FLAGS SEC_ALLOC
2049 #define INIT_SEC_DATA(id, name, flags, align) \
2050 { id, name, flags, align, NULL, NULL, NULL, 0, NULL }
2051 static sinfo secdata
[NSECS
] =
2053 INIT_SEC_DATA (TEXT
, ".text", TEXT_SEC_FLAGS
, 2),
2054 INIT_SEC_DATA (DATA
, ".data", DATA_SEC_FLAGS
, 2),
2055 INIT_SEC_DATA (BSS
, ".bss", BSS_SEC_FLAGS
, 2),
2056 INIT_SEC_DATA (IDATA7
, ".idata$7", SEC_HAS_CONTENTS
, 2),
2057 INIT_SEC_DATA (IDATA5
, ".idata$5", SEC_HAS_CONTENTS
, 2),
2058 INIT_SEC_DATA (IDATA4
, ".idata$4", SEC_HAS_CONTENTS
, 2),
2059 INIT_SEC_DATA (IDATA6
, ".idata$6", SEC_HAS_CONTENTS
, 1)
2064 /* Sections numbered to make the order the same as other PowerPC NT
2065 compilers. This also keeps funny alignment thingies from happening. */
2078 static sinfo secdata
[NSECS
] =
2080 { TEXT
, ".text", SEC_CODE
| SEC_HAS_CONTENTS
, 3},
2081 { PDATA
, ".pdata", SEC_HAS_CONTENTS
, 2},
2082 { RDATA
, ".reldata", SEC_HAS_CONTENTS
, 2},
2083 { IDATA5
, ".idata$5", SEC_HAS_CONTENTS
, 2},
2084 { IDATA4
, ".idata$4", SEC_HAS_CONTENTS
, 2},
2085 { IDATA6
, ".idata$6", SEC_HAS_CONTENTS
, 1},
2086 { IDATA7
, ".idata$7", SEC_HAS_CONTENTS
, 2},
2087 { DATA
, ".data", SEC_DATA
, 2},
2088 { BSS
, ".bss", 0, 2}
2093 /* This is what we're trying to make. We generate the imp symbols with
2094 both single and double underscores, for compatibility.
2097 .global _GetFileVersionInfoSizeW@8
2098 .global __imp_GetFileVersionInfoSizeW@8
2099 _GetFileVersionInfoSizeW@8:
2100 jmp * __imp_GetFileVersionInfoSizeW@8
2101 .section .idata$7 # To force loading of head
2102 .long __version_a_head
2103 # Import Address Table
2105 __imp_GetFileVersionInfoSizeW@8:
2108 # Import Lookup Table
2114 .asciz "GetFileVersionInfoSizeW"
2117 For the PowerPC, here's the variation on the above scheme:
2119 # Rather than a simple "jmp *", the code to get to the dll function
2122 lwz r11,[tocv]__imp_function_name(r2)
2123 # RELOC: 00000000 TOCREL16,TOCDEFN __imp_function_name
2131 make_label (const char *prefix
, const char *name
)
2133 int len
= strlen (ASM_PREFIX (name
)) + strlen (prefix
) + strlen (name
);
2134 char *copy
= xmalloc (len
+ 1);
2136 strcpy (copy
, ASM_PREFIX (name
));
2137 strcat (copy
, prefix
);
2138 strcat (copy
, name
);
2143 make_imp_label (const char *prefix
, const char *name
)
2150 len
= strlen (prefix
) + strlen (name
);
2151 copy
= xmalloc (len
+ 1);
2152 strcpy (copy
, prefix
);
2153 strcat (copy
, name
);
2157 len
= strlen (ASM_PREFIX (name
)) + strlen (prefix
) + strlen (name
);
2158 copy
= xmalloc (len
+ 1);
2159 strcpy (copy
, prefix
);
2160 strcat (copy
, ASM_PREFIX (name
));
2161 strcat (copy
, name
);
2167 make_one_lib_file (export_type
*exp
, int i
)
2170 asymbol
* exp_label
;
2171 asymbol
* iname
= 0;
2173 asymbol
* iname_lab
;
2174 asymbol
** iname_lab_pp
;
2175 asymbol
** iname_pp
;
2184 asymbol
* ptrs
[NSECS
+ 4 + EXTRA
+ 1];
2185 flagword applicable
;
2186 char * outname
= xmalloc (strlen (TMP_STUB
) + 10);
2190 sprintf (outname
, "%s%05d.o", TMP_STUB
, i
);
2192 abfd
= bfd_openw (outname
, HOW_BFD_WRITE_TARGET
);
2195 /* xgettext:c-format */
2196 fatal (_("bfd_open failed open stub file: %s"), outname
);
2198 /* xgettext:c-format */
2199 inform (_("Creating stub file: %s"), outname
);
2201 bfd_set_format (abfd
, bfd_object
);
2202 bfd_set_arch_mach (abfd
, HOW_BFD_ARCH
, 0);
2205 if (machine
== MARM_INTERWORK
|| machine
== MTHUMB
)
2206 bfd_set_private_flags (abfd
, F_INTERWORK
);
2209 applicable
= bfd_applicable_section_flags (abfd
);
2211 /* First make symbols for the sections. */
2212 for (i
= 0; i
< NSECS
; i
++)
2214 sinfo
*si
= secdata
+ i
;
2218 si
->sec
= bfd_make_section_old_way (abfd
, si
->name
);
2219 bfd_set_section_flags (abfd
,
2221 si
->flags
& applicable
);
2223 bfd_set_section_alignment(abfd
, si
->sec
, si
->align
);
2224 si
->sec
->output_section
= si
->sec
;
2225 si
->sym
= bfd_make_empty_symbol(abfd
);
2226 si
->sym
->name
= si
->sec
->name
;
2227 si
->sym
->section
= si
->sec
;
2228 si
->sym
->flags
= BSF_LOCAL
;
2230 ptrs
[oidx
] = si
->sym
;
2231 si
->sympp
= ptrs
+ oidx
;
2240 exp_label
= bfd_make_empty_symbol (abfd
);
2241 exp_label
->name
= make_imp_label ("", exp
->name
);
2243 /* On PowerPC, the function name points to a descriptor in
2244 the rdata section, the first element of which is a
2245 pointer to the code (..function_name), and the second
2246 points to the .toc. */
2248 if (machine
== MPPC
)
2249 exp_label
->section
= secdata
[RDATA
].sec
;
2252 exp_label
->section
= secdata
[TEXT
].sec
;
2254 exp_label
->flags
= BSF_GLOBAL
;
2255 exp_label
->value
= 0;
2258 if (machine
== MTHUMB
)
2259 bfd_coff_set_symbol_class (abfd
, exp_label
, C_THUMBEXTFUNC
);
2261 ptrs
[oidx
++] = exp_label
;
2264 /* Generate imp symbols with one underscore for Microsoft
2265 compatibility, and with two underscores for backward
2266 compatibility with old versions of cygwin. */
2267 if (create_compat_implib
)
2269 iname
= bfd_make_empty_symbol (abfd
);
2270 iname
->name
= make_imp_label ("___imp", exp
->name
);
2271 iname
->section
= secdata
[IDATA5
].sec
;
2272 iname
->flags
= BSF_GLOBAL
;
2276 iname2
= bfd_make_empty_symbol (abfd
);
2277 iname2
->name
= make_imp_label ("__imp_", exp
->name
);
2278 iname2
->section
= secdata
[IDATA5
].sec
;
2279 iname2
->flags
= BSF_GLOBAL
;
2282 iname_lab
= bfd_make_empty_symbol (abfd
);
2284 iname_lab
->name
= head_label
;
2285 iname_lab
->section
= (asection
*) &bfd_und_section
;
2286 iname_lab
->flags
= 0;
2287 iname_lab
->value
= 0;
2289 iname_pp
= ptrs
+ oidx
;
2290 if (create_compat_implib
)
2291 ptrs
[oidx
++] = iname
;
2292 ptrs
[oidx
++] = iname2
;
2294 iname_lab_pp
= ptrs
+ oidx
;
2295 ptrs
[oidx
++] = iname_lab
;
2298 /* The symbol referring to the code (.text). */
2300 asymbol
*function_name
;
2302 function_name
= bfd_make_empty_symbol(abfd
);
2303 function_name
->name
= make_label ("..", exp
->name
);
2304 function_name
->section
= secdata
[TEXT
].sec
;
2305 function_name
->flags
= BSF_GLOBAL
;
2306 function_name
->value
= 0;
2308 fn_pp
= ptrs
+ oidx
;
2309 ptrs
[oidx
++] = function_name
;
2312 /* The .toc symbol. */
2314 asymbol
*toc_symbol
;
2316 toc_symbol
= bfd_make_empty_symbol (abfd
);
2317 toc_symbol
->name
= make_label (".", "toc");
2318 toc_symbol
->section
= (asection
*)&bfd_und_section
;
2319 toc_symbol
->flags
= BSF_GLOBAL
;
2320 toc_symbol
->value
= 0;
2322 toc_pp
= ptrs
+ oidx
;
2323 ptrs
[oidx
++] = toc_symbol
;
2329 for (i
= 0; i
< NSECS
; i
++)
2331 sinfo
*si
= secdata
+ i
;
2332 asection
*sec
= si
->sec
;
2341 si
->size
= HOW_JTAB_SIZE
;
2342 si
->data
= xmalloc (HOW_JTAB_SIZE
);
2343 memcpy (si
->data
, HOW_JTAB
, HOW_JTAB_SIZE
);
2345 /* add the reloc into idata$5 */
2346 rel
= xmalloc (sizeof (arelent
));
2348 rpp
= xmalloc (sizeof (arelent
*) * 2);
2352 rel
->address
= HOW_JTAB_ROFF
;
2355 if (machine
== MPPC
)
2357 rel
->howto
= bfd_reloc_type_lookup (abfd
,
2358 BFD_RELOC_16_GOTOFF
);
2359 rel
->sym_ptr_ptr
= iname_pp
;
2363 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2364 rel
->sym_ptr_ptr
= secdata
[IDATA5
].sympp
;
2366 sec
->orelocation
= rpp
;
2367 sec
->reloc_count
= 1;
2372 /* An idata$4 or idata$5 is one word long, and has an
2375 si
->data
= xmalloc (4);
2380 si
->data
[0] = exp
->ordinal
;
2381 si
->data
[1] = exp
->ordinal
>> 8;
2382 si
->data
[2] = exp
->ordinal
>> 16;
2387 sec
->reloc_count
= 1;
2388 memset (si
->data
, 0, si
->size
);
2389 rel
= xmalloc (sizeof (arelent
));
2390 rpp
= xmalloc (sizeof (arelent
*) * 2);
2395 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_RVA
);
2396 rel
->sym_ptr_ptr
= secdata
[IDATA6
].sympp
;
2397 sec
->orelocation
= rpp
;
2405 /* This used to add 1 to exp->hint. I don't know
2406 why it did that, and it does not match what I see
2407 in programs compiled with the MS tools. */
2408 int idx
= exp
->hint
;
2409 si
->size
= strlen (xlate (exp
->import_name
)) + 3;
2410 si
->data
= xmalloc (si
->size
);
2411 si
->data
[0] = idx
& 0xff;
2412 si
->data
[1] = idx
>> 8;
2413 strcpy ((char *) si
->data
+ 2, xlate (exp
->import_name
));
2418 si
->data
= xmalloc (4);
2419 memset (si
->data
, 0, si
->size
);
2420 rel
= xmalloc (sizeof (arelent
));
2421 rpp
= xmalloc (sizeof (arelent
*) * 2);
2425 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_RVA
);
2426 rel
->sym_ptr_ptr
= iname_lab_pp
;
2427 sec
->orelocation
= rpp
;
2428 sec
->reloc_count
= 1;
2434 /* The .pdata section is 5 words long.
2438 bfd_vma BeginAddress, [0x00]
2440 ExceptionHandler, [0x08]
2442 PrologEndAddress; [0x10]
2445 /* So this pdata section setups up this as a glue linkage to
2446 a dll routine. There are a number of house keeping things
2449 1. In the name of glue trickery, the ADDR32 relocs for 0,
2450 4, and 0x10 are set to point to the same place:
2452 2. There is one more reloc needed in the pdata section.
2453 The actual glue instruction to restore the toc on
2454 return is saved as the offset in an IMGLUE reloc.
2455 So we need a total of four relocs for this section.
2457 3. Lastly, the HandlerData field is set to 0x03, to indicate
2458 that this is a glue routine. */
2459 arelent
*imglue
, *ba_rel
, *ea_rel
, *pea_rel
;
2461 /* Alignment must be set to 2**2 or you get extra stuff. */
2462 bfd_set_section_alignment(abfd
, sec
, 2);
2465 si
->data
= xmalloc (si
->size
);
2466 memset (si
->data
, 0, si
->size
);
2467 rpp
= xmalloc (sizeof (arelent
*) * 5);
2468 rpp
[0] = imglue
= xmalloc (sizeof (arelent
));
2469 rpp
[1] = ba_rel
= xmalloc (sizeof (arelent
));
2470 rpp
[2] = ea_rel
= xmalloc (sizeof (arelent
));
2471 rpp
[3] = pea_rel
= xmalloc (sizeof (arelent
));
2474 /* Stick the toc reload instruction in the glue reloc. */
2475 bfd_put_32(abfd
, ppc_glue_insn
, (char *) &imglue
->address
);
2478 imglue
->howto
= bfd_reloc_type_lookup (abfd
,
2479 BFD_RELOC_32_GOTOFF
);
2480 imglue
->sym_ptr_ptr
= fn_pp
;
2482 ba_rel
->address
= 0;
2484 ba_rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2485 ba_rel
->sym_ptr_ptr
= fn_pp
;
2487 bfd_put_32 (abfd
, 0x18, si
->data
+ 0x04);
2488 ea_rel
->address
= 4;
2490 ea_rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2491 ea_rel
->sym_ptr_ptr
= fn_pp
;
2493 /* Mark it as glue. */
2494 bfd_put_32 (abfd
, 0x03, si
->data
+ 0x0c);
2496 /* Mark the prolog end address. */
2497 bfd_put_32 (abfd
, 0x0D, si
->data
+ 0x10);
2498 pea_rel
->address
= 0x10;
2499 pea_rel
->addend
= 0;
2500 pea_rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2501 pea_rel
->sym_ptr_ptr
= fn_pp
;
2503 sec
->orelocation
= rpp
;
2504 sec
->reloc_count
= 4;
2508 /* Each external function in a PowerPC PE file has a two word
2509 descriptor consisting of:
2510 1. The address of the code.
2511 2. The address of the appropriate .toc
2512 We use relocs to build this. */
2514 si
->data
= xmalloc (8);
2515 memset (si
->data
, 0, si
->size
);
2517 rpp
= xmalloc (sizeof (arelent
*) * 3);
2518 rpp
[0] = rel
= xmalloc (sizeof (arelent
));
2519 rpp
[1] = xmalloc (sizeof (arelent
));
2524 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2525 rel
->sym_ptr_ptr
= fn_pp
;
2531 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2532 rel
->sym_ptr_ptr
= toc_pp
;
2534 sec
->orelocation
= rpp
;
2535 sec
->reloc_count
= 2;
2537 #endif /* DLLTOOL_PPC */
2543 /* Size up all the sections. */
2544 for (i
= 0; i
< NSECS
; i
++)
2546 sinfo
*si
= secdata
+ i
;
2548 bfd_set_section_size (abfd
, si
->sec
, si
->size
);
2549 bfd_set_section_vma (abfd
, si
->sec
, vma
);
2552 /* Write them out. */
2553 for (i
= 0; i
< NSECS
; i
++)
2555 sinfo
*si
= secdata
+ i
;
2557 if (i
== IDATA5
&& no_idata5
)
2560 if (i
== IDATA4
&& no_idata4
)
2563 bfd_set_section_contents (abfd
, si
->sec
,
2568 bfd_set_symtab (abfd
, ptrs
, oidx
);
2570 abfd
= bfd_openr (outname
, HOW_BFD_READ_TARGET
);
2577 FILE *f
= fopen (TMP_HEAD_S
, FOPEN_WT
);
2581 fatal (_("failed to open temporary head file: %s"), TMP_HEAD_S
);
2585 fprintf (f
, "%s IMAGE_IMPORT_DESCRIPTOR\n", ASM_C
);
2586 fprintf (f
, "\t.section .idata$2\n");
2588 fprintf(f
,"\t%s\t%s\n", ASM_GLOBAL
,head_label
);
2590 fprintf (f
, "%s:\n", head_label
);
2592 fprintf (f
, "\t%shname%s\t%sPtr to image import by name list\n",
2593 ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
2595 fprintf (f
, "\t%sthis should be the timestamp, but NT sometimes\n", ASM_C
);
2596 fprintf (f
, "\t%sdoesn't load DLLs when this is set.\n", ASM_C
);
2597 fprintf (f
, "\t%s\t0\t%s loaded time\n", ASM_LONG
, ASM_C
);
2598 fprintf (f
, "\t%s\t0\t%s Forwarder chain\n", ASM_LONG
, ASM_C
);
2599 fprintf (f
, "\t%s__%s_iname%s\t%s imported dll's name\n",
2604 fprintf (f
, "\t%sfthunk%s\t%s pointer to firstthunk\n",
2606 ASM_RVA_AFTER
, ASM_C
);
2608 fprintf (f
, "%sStuff for compatibility\n", ASM_C
);
2612 fprintf (f
, "\t.section\t.idata$5\n");
2613 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2614 fprintf (f
, "fthunk:\n");
2619 fprintf (f
, "\t.section\t.idata$4\n");
2621 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2622 fprintf (f
, "\t.section .idata$4\n");
2623 fprintf (f
, "hname:\n");
2628 assemble_file (TMP_HEAD_S
, TMP_HEAD_O
);
2630 return bfd_openr (TMP_HEAD_O
, HOW_BFD_READ_TARGET
);
2636 FILE *f
= fopen (TMP_TAIL_S
, FOPEN_WT
);
2640 fatal (_("failed to open temporary tail file: %s"), TMP_TAIL_S
);
2646 fprintf (f
, "\t.section .idata$4\n");
2647 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2652 fprintf (f
, "\t.section .idata$5\n");
2653 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2657 /* Normally, we need to see a null descriptor built in idata$3 to
2658 act as the terminator for the list. The ideal way, I suppose,
2659 would be to mark this section as a comdat type 2 section, so
2660 only one would appear in the final .exe (if our linker supported
2661 comdat, that is) or cause it to be inserted by something else (say
2664 fprintf (f
, "\t.section .idata$3\n");
2665 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2666 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2667 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2668 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2669 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2673 /* Other PowerPC NT compilers use idata$6 for the dllname, so I
2674 do too. Original, huh? */
2675 fprintf (f
, "\t.section .idata$6\n");
2677 fprintf (f
, "\t.section .idata$7\n");
2680 fprintf (f
, "\t%s\t__%s_iname\n", ASM_GLOBAL
, imp_name_lab
);
2681 fprintf (f
, "__%s_iname:\t%s\t\"%s\"\n",
2682 imp_name_lab
, ASM_TEXT
, dll_name
);
2686 assemble_file (TMP_TAIL_S
, TMP_TAIL_O
);
2688 return bfd_openr (TMP_TAIL_O
, HOW_BFD_READ_TARGET
);
2703 outarch
= bfd_openw (imp_name
, HOW_BFD_WRITE_TARGET
);
2706 /* xgettext:c-format */
2707 fatal (_("Can't open .lib file: %s"), imp_name
);
2709 /* xgettext:c-format */
2710 inform (_("Creating library file: %s"), imp_name
);
2712 bfd_set_format (outarch
, bfd_archive
);
2713 outarch
->has_armap
= 1;
2715 /* Work out a reasonable size of things to put onto one line. */
2716 ar_head
= make_head ();
2717 ar_tail
= make_tail();
2719 if (ar_head
== NULL
|| ar_tail
== NULL
)
2722 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
2725 /* Don't add PRIVATE entries to import lib. */
2728 n
= make_one_lib_file (exp
, i
);
2731 if (ext_prefix_alias
)
2733 export_type alias_exp
;
2735 assert (i
< PREFIX_ALIAS_BASE
);
2736 alias_exp
.name
= make_imp_label (ext_prefix_alias
, exp
->name
);
2737 alias_exp
.internal_name
= exp
->internal_name
;
2738 alias_exp
.import_name
= exp
->name
;
2739 alias_exp
.ordinal
= exp
->ordinal
;
2740 alias_exp
.constant
= exp
->constant
;
2741 alias_exp
.noname
= exp
->noname
;
2742 alias_exp
.private = exp
->private;
2743 alias_exp
.data
= exp
->data
;
2744 alias_exp
.hint
= exp
->hint
;
2745 alias_exp
.forward
= exp
->forward
;
2746 alias_exp
.next
= exp
->next
;
2747 n
= make_one_lib_file (&alias_exp
, i
+ PREFIX_ALIAS_BASE
);
2753 /* Now stick them all into the archive. */
2754 ar_head
->next
= head
;
2755 ar_tail
->next
= ar_head
;
2758 if (! bfd_set_archive_head (outarch
, head
))
2759 bfd_fatal ("bfd_set_archive_head");
2761 if (! bfd_close (outarch
))
2762 bfd_fatal (imp_name
);
2764 while (head
!= NULL
)
2766 bfd
*n
= head
->next
;
2771 /* Delete all the temp files. */
2772 if (dontdeltemps
== 0)
2774 unlink (TMP_HEAD_O
);
2775 unlink (TMP_HEAD_S
);
2776 unlink (TMP_TAIL_O
);
2777 unlink (TMP_TAIL_S
);
2780 if (dontdeltemps
< 2)
2784 name
= (char *) alloca (strlen (TMP_STUB
) + 10);
2785 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
2787 /* Don't delete non-existent stubs for PRIVATE entries. */
2790 sprintf (name
, "%s%05d.o", TMP_STUB
, i
);
2791 if (unlink (name
) < 0)
2792 /* xgettext:c-format */
2793 non_fatal (_("cannot delete %s: %s"), name
, strerror (errno
));
2794 if (ext_prefix_alias
)
2796 sprintf (name
, "%s%05d.o", TMP_STUB
, i
+ PREFIX_ALIAS_BASE
);
2797 if (unlink (name
) < 0)
2798 /* xgettext:c-format */
2799 non_fatal (_("cannot delete %s: %s"), name
, strerror (errno
));
2804 inform (_("Created lib file"));
2807 /* Run through the information gathered from the .o files and the
2808 .def file and work out the best stuff. */
2811 pfunc (const void *a
, const void *b
)
2813 export_type
*ap
= *(export_type
**) a
;
2814 export_type
*bp
= *(export_type
**) b
;
2815 if (ap
->ordinal
== bp
->ordinal
)
2818 /* Unset ordinals go to the bottom. */
2819 if (ap
->ordinal
== -1)
2821 if (bp
->ordinal
== -1)
2823 return (ap
->ordinal
- bp
->ordinal
);
2827 nfunc (const void *a
, const void *b
)
2829 export_type
*ap
= *(export_type
**) a
;
2830 export_type
*bp
= *(export_type
**) b
;
2832 return (strcmp (ap
->name
, bp
->name
));
2836 remove_null_names (export_type
**ptr
)
2841 for (dst
= src
= 0; src
< d_nfuncs
; src
++)
2845 ptr
[dst
] = ptr
[src
];
2853 process_duplicates (export_type
**d_export_vec
)
2861 /* Remove duplicates. */
2862 qsort (d_export_vec
, d_nfuncs
, sizeof (export_type
*), nfunc
);
2864 for (i
= 0; i
< d_nfuncs
- 1; i
++)
2866 if (strcmp (d_export_vec
[i
]->name
,
2867 d_export_vec
[i
+ 1]->name
) == 0)
2869 export_type
*a
= d_export_vec
[i
];
2870 export_type
*b
= d_export_vec
[i
+ 1];
2874 /* xgettext:c-format */
2875 inform (_("Warning, ignoring duplicate EXPORT %s %d,%d"),
2876 a
->name
, a
->ordinal
, b
->ordinal
);
2878 if (a
->ordinal
!= -1
2879 && b
->ordinal
!= -1)
2880 /* xgettext:c-format */
2881 fatal (_("Error, duplicate EXPORT with oridinals: %s"),
2884 /* Merge attributes. */
2885 b
->ordinal
= a
->ordinal
> 0 ? a
->ordinal
: b
->ordinal
;
2886 b
->constant
|= a
->constant
;
2887 b
->noname
|= a
->noname
;
2889 d_export_vec
[i
] = 0;
2892 remove_null_names (d_export_vec
);
2896 /* Count the names. */
2897 for (i
= 0; i
< d_nfuncs
; i
++)
2898 if (!d_export_vec
[i
]->noname
)
2903 fill_ordinals (export_type
**d_export_vec
)
2910 qsort (d_export_vec
, d_nfuncs
, sizeof (export_type
*), pfunc
);
2912 /* Fill in the unset ordinals with ones from our range. */
2913 ptr
= (char *) xmalloc (size
);
2915 memset (ptr
, 0, size
);
2917 /* Mark in our large vector all the numbers that are taken. */
2918 for (i
= 0; i
< d_nfuncs
; i
++)
2920 if (d_export_vec
[i
]->ordinal
!= -1)
2922 ptr
[d_export_vec
[i
]->ordinal
] = 1;
2924 if (lowest
== -1 || d_export_vec
[i
]->ordinal
< lowest
)
2925 lowest
= d_export_vec
[i
]->ordinal
;
2929 /* Start at 1 for compatibility with MS toolchain. */
2933 /* Now fill in ordinals where the user wants us to choose. */
2934 for (i
= 0; i
< d_nfuncs
; i
++)
2936 if (d_export_vec
[i
]->ordinal
== -1)
2940 /* First try within or after any user supplied range. */
2941 for (j
= lowest
; j
< size
; j
++)
2945 d_export_vec
[i
]->ordinal
= j
;
2949 /* Then try before the range. */
2950 for (j
= lowest
; j
>0; j
--)
2954 d_export_vec
[i
]->ordinal
= j
;
2964 qsort (d_export_vec
, d_nfuncs
, sizeof (export_type
*), pfunc
);
2966 /* Work out the lowest and highest ordinal numbers. */
2969 if (d_export_vec
[0])
2970 d_low_ord
= d_export_vec
[0]->ordinal
;
2971 if (d_export_vec
[d_nfuncs
-1])
2972 d_high_ord
= d_export_vec
[d_nfuncs
-1]->ordinal
;
2977 alphafunc (const void *av
, const void *bv
)
2979 const export_type
**a
= (const export_type
**) av
;
2980 const export_type
**b
= (const export_type
**) bv
;
2982 return strcmp ((*a
)->name
, (*b
)->name
);
2988 /* First work out the minimum ordinal chosen. */
2993 export_type
**d_export_vec
= xmalloc (sizeof (export_type
*) * d_nfuncs
);
2995 inform (_("Processing definitions"));
2997 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
2998 d_export_vec
[i
] = exp
;
3000 process_duplicates (d_export_vec
);
3001 fill_ordinals (d_export_vec
);
3003 /* Put back the list in the new order. */
3005 for (i
= d_nfuncs
- 1; i
>= 0; i
--)
3007 d_export_vec
[i
]->next
= d_exports
;
3008 d_exports
= d_export_vec
[i
];
3011 /* Build list in alpha order. */
3012 d_exports_lexically
= (export_type
**)
3013 xmalloc (sizeof (export_type
*) * (d_nfuncs
+ 1));
3015 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
3016 d_exports_lexically
[i
] = exp
;
3018 d_exports_lexically
[i
] = 0;
3020 qsort (d_exports_lexically
, i
, sizeof (export_type
*), alphafunc
);
3022 /* Fill exp entries with their hint values. */
3023 for (i
= 0; i
< d_nfuncs
; i
++)
3024 if (!d_exports_lexically
[i
]->noname
|| show_allnames
)
3025 d_exports_lexically
[i
]->hint
= hint
++;
3027 inform (_("Processed definitions"));
3031 usage (FILE *file
, int status
)
3033 /* xgetext:c-format */
3034 fprintf (file
, _("Usage %s <option(s)> <object-file(s)>\n"), program_name
);
3035 /* xgetext:c-format */
3036 fprintf (file
, _(" -m --machine <machine> Create as DLL for <machine>. [default: %s]\n"), mname
);
3037 fprintf (file
, _(" possible <machine>: arm[_interwork], i386, mcore[-elf]{-le|-be}, ppc, thumb\n"));
3038 fprintf (file
, _(" -e --output-exp <outname> Generate an export file.\n"));
3039 fprintf (file
, _(" -l --output-lib <outname> Generate an interface library.\n"));
3040 fprintf (file
, _(" -a --add-indirect Add dll indirects to export file.\n"));
3041 fprintf (file
, _(" -D --dllname <name> Name of input dll to put into interface lib.\n"));
3042 fprintf (file
, _(" -d --input-def <deffile> Name of .def file to be read in.\n"));
3043 fprintf (file
, _(" -z --output-def <deffile> Name of .def file to be created.\n"));
3044 fprintf (file
, _(" --export-all-symbols Export all symbols to .def\n"));
3045 fprintf (file
, _(" --no-export-all-symbols Only export listed symbols\n"));
3046 fprintf (file
, _(" --exclude-symbols <list> Don't export <list>\n"));
3047 fprintf (file
, _(" --no-default-excludes Clear default exclude symbols\n"));
3048 fprintf (file
, _(" -b --base-file <basefile> Read linker generated base file.\n"));
3049 fprintf (file
, _(" -x --no-idata4 Don't generate idata$4 section.\n"));
3050 fprintf (file
, _(" -c --no-idata5 Don't generate idata$5 section.\n"));
3051 fprintf (file
, _(" -U --add-underscore Add underscores to symbols in interface library.\n"));
3052 fprintf (file
, _(" -k --kill-at Kill @<n> from exported names.\n"));
3053 fprintf (file
, _(" -A --add-stdcall-alias Add aliases without @<n>.\n"));
3054 fprintf (file
, _(" -p --ext-prefix-alias <prefix> Add aliases with <prefix>.\n"));
3055 fprintf (file
, _(" -S --as <name> Use <name> for assembler.\n"));
3056 fprintf (file
, _(" -f --as-flags <flags> Pass <flags> to the assembler.\n"));
3057 fprintf (file
, _(" -C --compat-implib Create backward compatible import library.\n"));
3058 fprintf (file
, _(" -n --no-delete Keep temp files (repeat for extra preservation).\n"));
3059 fprintf (file
, _(" -t --temp-prefix <prefix> Use <prefix> to construct temp file names.\n"));
3060 fprintf (file
, _(" -v --verbose Be verbose.\n"));
3061 fprintf (file
, _(" -V --version Display the program version.\n"));
3062 fprintf (file
, _(" -h --help Display this information.\n"));
3063 #ifdef DLLTOOL_MCORE_ELF
3064 fprintf (file
, _(" -M --mcore-elf <outname> Process mcore-elf object files into <outname>.\n"));
3065 fprintf (file
, _(" -L --linker <name> Use <name> as the linker.\n"));
3066 fprintf (file
, _(" -F --linker-flags <flags> Pass <flags> to the linker.\n"));
3071 #define OPTION_EXPORT_ALL_SYMS 150
3072 #define OPTION_NO_EXPORT_ALL_SYMS (OPTION_EXPORT_ALL_SYMS + 1)
3073 #define OPTION_EXCLUDE_SYMS (OPTION_NO_EXPORT_ALL_SYMS + 1)
3074 #define OPTION_NO_DEFAULT_EXCLUDES (OPTION_EXCLUDE_SYMS + 1)
3076 static const struct option long_options
[] =
3078 {"no-delete", no_argument
, NULL
, 'n'},
3079 {"dllname", required_argument
, NULL
, 'D'},
3080 {"no-idata4", no_argument
, NULL
, 'x'},
3081 {"no-idata5", no_argument
, NULL
, 'c'},
3082 {"output-exp", required_argument
, NULL
, 'e'},
3083 {"output-def", required_argument
, NULL
, 'z'},
3084 {"export-all-symbols", no_argument
, NULL
, OPTION_EXPORT_ALL_SYMS
},
3085 {"no-export-all-symbols", no_argument
, NULL
, OPTION_NO_EXPORT_ALL_SYMS
},
3086 {"exclude-symbols", required_argument
, NULL
, OPTION_EXCLUDE_SYMS
},
3087 {"no-default-excludes", no_argument
, NULL
, OPTION_NO_DEFAULT_EXCLUDES
},
3088 {"output-lib", required_argument
, NULL
, 'l'},
3089 {"def", required_argument
, NULL
, 'd'}, /* for compatibility with older versions */
3090 {"input-def", required_argument
, NULL
, 'd'},
3091 {"add-underscore", no_argument
, NULL
, 'U'},
3092 {"kill-at", no_argument
, NULL
, 'k'},
3093 {"add-stdcall-alias", no_argument
, NULL
, 'A'},
3094 {"ext-prefix-alias", required_argument
, NULL
, 'p'},
3095 {"verbose", no_argument
, NULL
, 'v'},
3096 {"version", no_argument
, NULL
, 'V'},
3097 {"help", no_argument
, NULL
, 'h'},
3098 {"machine", required_argument
, NULL
, 'm'},
3099 {"add-indirect", no_argument
, NULL
, 'a'},
3100 {"base-file", required_argument
, NULL
, 'b'},
3101 {"as", required_argument
, NULL
, 'S'},
3102 {"as-flags", required_argument
, NULL
, 'f'},
3103 {"mcore-elf", required_argument
, NULL
, 'M'},
3104 {"compat-implib", no_argument
, NULL
, 'C'},
3105 {"temp-prefix", required_argument
, NULL
, 't'},
3109 int main (int, char **);
3112 main (int ac
, char **av
)
3117 program_name
= av
[0];
3120 #if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
3121 setlocale (LC_MESSAGES
, "");
3123 #if defined (HAVE_SETLOCALE)
3124 setlocale (LC_CTYPE
, "");
3126 bindtextdomain (PACKAGE
, LOCALEDIR
);
3127 textdomain (PACKAGE
);
3129 while ((c
= getopt_long (ac
, av
,
3130 #ifdef DLLTOOL_MCORE_ELF
3131 "m:e:l:aD:d:z:b:xp:cCuUkAS:f:nvVHhM:L:F:",
3133 "m:e:l:aD:d:z:b:xp:cCuUkAS:f:nvVHh",
3140 case OPTION_EXPORT_ALL_SYMS
:
3141 export_all_symbols
= TRUE
;
3143 case OPTION_NO_EXPORT_ALL_SYMS
:
3144 export_all_symbols
= FALSE
;
3146 case OPTION_EXCLUDE_SYMS
:
3147 add_excludes (optarg
);
3149 case OPTION_NO_DEFAULT_EXCLUDES
:
3150 do_default_excludes
= FALSE
;
3162 tmp_prefix
= optarg
;
3168 /* Ignored for compatibility. */
3175 output_def
= fopen (optarg
, FOPEN_WT
);
3178 dll_name
= (char*) lbasename (optarg
);
3179 if (dll_name
!= optarg
)
3180 non_fatal (_("Path components stripped from dllname, '%s'."),
3200 print_version (program_name
);
3209 add_stdcall_alias
= 1;
3212 ext_prefix_alias
= optarg
;
3221 base_file
= fopen (optarg
, FOPEN_RB
);
3224 /* xgettext:c-format */
3225 fatal (_("Unable to open base-file: %s"), optarg
);
3228 #ifdef DLLTOOL_MCORE_ELF
3230 mcore_elf_out_file
= optarg
;
3233 mcore_elf_linker
= optarg
;
3236 mcore_elf_linker_flags
= optarg
;
3240 create_compat_implib
= 1;
3249 tmp_prefix
= prefix_encode ("d", getpid ());
3251 for (i
= 0; mtable
[i
].type
; i
++)
3252 if (strcmp (mtable
[i
].type
, mname
) == 0)
3255 if (!mtable
[i
].type
)
3256 /* xgettext:c-format */
3257 fatal (_("Machine '%s' not supported"), mname
);
3261 if (!dll_name
&& exp_name
)
3263 /* If we are inferring dll_name from exp_name,
3264 strip off any path components, without emitting
3266 const char* exp_basename
= lbasename (exp_name
);
3267 const int len
= strlen (exp_basename
) + 5;
3268 dll_name
= xmalloc (len
);
3269 strcpy (dll_name
, exp_basename
);
3270 strcat (dll_name
, ".dll");
3273 if (as_name
== NULL
)
3274 as_name
= deduce_name ("as");
3276 /* Don't use the default exclude list if we're reading only the
3277 symbols in the .drectve section. The default excludes are meant
3278 to avoid exporting DLL entry point and Cygwin32 impure_ptr. */
3279 if (! export_all_symbols
)
3280 do_default_excludes
= FALSE
;
3282 if (do_default_excludes
)
3283 set_default_excludes ();
3286 process_def_file (def_file
);
3291 firstarg
= av
[optind
];
3292 scan_obj_file (av
[optind
]);
3303 /* Make imp_name safe for use as a label. */
3306 imp_name_lab
= xstrdup (imp_name
);
3307 for (p
= imp_name_lab
; *p
; p
++)
3312 head_label
= make_label("_head_", imp_name_lab
);
3319 #ifdef DLLTOOL_MCORE_ELF
3320 if (mcore_elf_out_file
)
3321 mcore_elf_gen_out_file ();
3327 /* Look for the program formed by concatenating PROG_NAME and the
3328 string running from PREFIX to END_PREFIX. If the concatenated
3329 string contains a '/', try appending EXECUTABLE_SUFFIX if it is
3333 look_for_prog (const char *prog_name
, const char *prefix
, int end_prefix
)
3338 cmd
= xmalloc (strlen (prefix
)
3339 + strlen (prog_name
)
3340 #ifdef HAVE_EXECUTABLE_SUFFIX
3341 + strlen (EXECUTABLE_SUFFIX
)
3344 strcpy (cmd
, prefix
);
3346 sprintf (cmd
+ end_prefix
, "%s", prog_name
);
3348 if (strchr (cmd
, '/') != NULL
)
3352 found
= (stat (cmd
, &s
) == 0
3353 #ifdef HAVE_EXECUTABLE_SUFFIX
3354 || stat (strcat (cmd
, EXECUTABLE_SUFFIX
), &s
) == 0
3360 /* xgettext:c-format */
3361 inform (_("Tried file: %s"), cmd
);
3367 /* xgettext:c-format */
3368 inform (_("Using file: %s"), cmd
);
3373 /* Deduce the name of the program we are want to invoke.
3374 PROG_NAME is the basic name of the program we want to run,
3375 eg "as" or "ld". The catch is that we might want actually
3376 run "i386-pe-as" or "ppc-pe-ld".
3378 If argv[0] contains the full path, then try to find the program
3379 in the same place, with and then without a target-like prefix.
3381 Given, argv[0] = /usr/local/bin/i586-cygwin32-dlltool,
3382 deduce_name("as") uses the following search order:
3384 /usr/local/bin/i586-cygwin32-as
3388 If there's an EXECUTABLE_SUFFIX, it'll use that as well; for each
3389 name, it'll try without and then with EXECUTABLE_SUFFIX.
3391 Given, argv[0] = i586-cygwin32-dlltool, it will not even try "as"
3392 as the fallback, but rather return i586-cygwin32-as.
3394 Oh, and given, argv[0] = dlltool, it'll return "as".
3396 Returns a dynamically allocated string. */
3399 deduce_name (const char *prog_name
)
3402 char *dash
, *slash
, *cp
;
3406 for (cp
= program_name
; *cp
!= '\0'; ++cp
)
3411 #if defined(__DJGPP__) || defined (__CYGWIN__) || defined(__WIN32__)
3412 *cp
== ':' || *cp
== '\\' ||
3425 /* First, try looking for a prefixed PROG_NAME in the
3426 PROGRAM_NAME directory, with the same prefix as PROGRAM_NAME. */
3427 cmd
= look_for_prog (prog_name
, program_name
, dash
- program_name
+ 1);
3430 if (slash
!= NULL
&& cmd
== NULL
)
3432 /* Next, try looking for a PROG_NAME in the same directory as
3433 that of this program. */
3434 cmd
= look_for_prog (prog_name
, program_name
, slash
- program_name
+ 1);
3439 /* Just return PROG_NAME as is. */
3440 cmd
= xstrdup (prog_name
);
3446 #ifdef DLLTOOL_MCORE_ELF
3447 typedef struct fname_cache
3450 struct fname_cache
* next
;
3454 static fname_cache fnames
;
3457 mcore_elf_cache_filename (char * filename
)
3463 while (ptr
->next
!= NULL
)
3466 ptr
->filename
= filename
;
3467 ptr
->next
= (fname_cache
*) malloc (sizeof (fname_cache
));
3468 if (ptr
->next
!= NULL
)
3469 ptr
->next
->next
= NULL
;
3472 #define MCORE_ELF_TMP_OBJ "mcoreelf.o"
3473 #define MCORE_ELF_TMP_EXP "mcoreelf.exp"
3474 #define MCORE_ELF_TMP_LIB "mcoreelf.lib"
3477 mcore_elf_gen_out_file (void)
3482 /* Step one. Run 'ld -r' on the input object files in order to resolve
3483 any internal references and to generate a single .exports section. */
3486 ds
= dyn_string_new (100);
3487 dyn_string_append_cstr (ds
, "-r ");
3489 if (mcore_elf_linker_flags
!= NULL
)
3490 dyn_string_append_cstr (ds
, mcore_elf_linker_flags
);
3492 while (ptr
->next
!= NULL
)
3494 dyn_string_append_cstr (ds
, ptr
->filename
);
3495 dyn_string_append_cstr (ds
, " ");
3500 dyn_string_append_cstr (ds
, "-o ");
3501 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_OBJ
);
3503 if (mcore_elf_linker
== NULL
)
3504 mcore_elf_linker
= deduce_name ("ld");
3506 run (mcore_elf_linker
, ds
->s
);
3508 dyn_string_delete (ds
);
3510 /* Step two. Create a .exp file and a .lib file from the temporary file.
3511 Do this by recursively invoking dlltool... */
3512 ds
= dyn_string_new (100);
3514 dyn_string_append_cstr (ds
, "-S ");
3515 dyn_string_append_cstr (ds
, as_name
);
3517 dyn_string_append_cstr (ds
, " -e ");
3518 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_EXP
);
3519 dyn_string_append_cstr (ds
, " -l ");
3520 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_LIB
);
3521 dyn_string_append_cstr (ds
, " " );
3522 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_OBJ
);
3525 dyn_string_append_cstr (ds
, " -v");
3529 dyn_string_append_cstr (ds
, " -n");
3531 if (dontdeltemps
> 1)
3532 dyn_string_append_cstr (ds
, " -n");
3535 /* XXX - FIME: ought to check/copy other command line options as well. */
3536 run (program_name
, ds
->s
);
3538 dyn_string_delete (ds
);
3540 /* Step four. Feed the .exp and object files to ld -shared to create the dll. */
3541 ds
= dyn_string_new (100);
3543 dyn_string_append_cstr (ds
, "-shared ");
3545 if (mcore_elf_linker_flags
)
3546 dyn_string_append_cstr (ds
, mcore_elf_linker_flags
);
3548 dyn_string_append_cstr (ds
, " ");
3549 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_EXP
);
3550 dyn_string_append_cstr (ds
, " ");
3551 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_OBJ
);
3552 dyn_string_append_cstr (ds
, " -o ");
3553 dyn_string_append_cstr (ds
, mcore_elf_out_file
);
3555 run (mcore_elf_linker
, ds
->s
);
3557 dyn_string_delete (ds
);
3559 if (dontdeltemps
== 0)
3560 unlink (MCORE_ELF_TMP_EXP
);
3562 if (dontdeltemps
< 2)
3563 unlink (MCORE_ELF_TMP_OBJ
);
3565 #endif /* DLLTOOL_MCORE_ELF */