1 /* dlltool.c -- tool to generate stuff for PE style DLLs
2 Copyright 1995, 1996, 1997, 1998, 1999, 2000
3 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., 59 Temple Place - Suite 330, Boston, MA
24 This program allows you to build the files necessary to create
25 DLLs to run on a system which understands PE format image files.
28 See "Peering Inside the PE: A Tour of the Win32 Portable Executable
29 File Format", MSJ 1994, Volume 9 for more information.
30 Also see "Microsoft Portable Executable and Common Object File Format,
31 Specification 4.1" for more information.
33 A DLL contains an export table which contains the information
34 which the runtime loader needs to tie up references from a
37 The export table is generated by this program by reading
38 in a .DEF file or scanning the .a and .o files which will be in the
39 DLL. A .o file can contain information in special ".drectve" sections
40 with export information.
42 A DEF file contains any number of the following commands:
45 NAME <name> [ , <base> ]
46 The result is going to be <name>.EXE
48 LIBRARY <name> [ , <base> ]
49 The result is going to be <name>.DLL
51 EXPORTS ( <name1> [ = <name2> ] [ @ <integer> ] [ NONAME ] [CONSTANT] [DATA] ) *
52 Declares name1 as an exported symbol from the
53 DLL, with optional ordinal number <integer>
55 IMPORTS ( ( <internal-name> = <module-name> . <integer> )
56 | ( [ <internal-name> = ] <module-name> . <external-name> )) *
57 Declares that <external-name> or the exported function whoes ordinal number
58 is <integer> is to be imported from the file <module-name>. If
59 <internal-name> is specified then this is the name that the imported
60 function will be refered to in the body of the DLL.
63 Puts <string> into output .exp file in the .rdata section
65 [STACKSIZE|HEAPSIZE] <number-reserve> [ , <number-commit> ]
66 Generates --stack|--heap <number-reserve>,<number-commit>
67 in the output .drectve section. The linker will
68 see this and act upon it.
71 SECTIONS ( <sectionname> <attr>+ )*
72 <attr> = READ | WRITE | EXECUTE | SHARED
73 Generates --attr <sectionname> <attr> in the output
74 .drectve section. The linker will see this and act
78 A -export:<name> in a .drectve section in an input .o or .a
79 file to this program is equivalent to a EXPORTS <name>
84 The program generates output files with the prefix supplied
85 on the command line, or in the def file, or taken from the first
88 The .exp.s file contains the information necessary to export
89 the routines in the DLL. The .lib.s file contains the information
90 necessary to use the DLL's routines from a referencing program.
97 asm (".section .drectve");
98 asm (".ascii \"-export:adef\"");
102 printf ("hello from the dll %s\n", s);
107 printf ("hello from the dll and the other entry point %s\n", s);
111 asm (".section .drectve");
112 asm (".ascii \"-export:cdef\"");
113 asm (".ascii \"-export:ddef\"");
117 printf ("hello from the dll %s\n", s);
122 printf ("hello from the dll and the other entry point %s\n", s);
140 HEAPSIZE 0x40000, 0x2000
144 SECTIONS donkey READ WRITE
147 # Compile up the parts of the dll and the program
149 gcc -c file1.c file2.c themain.c
151 # Optional: put the dll objects into a library
152 # (you don't have to, you could name all the object
153 # files on the dlltool line)
155 ar qcv thedll.in file1.o file2.o
158 # Run this tool over the DLL's .def file and generate an exports
159 # file (thedll.o) and an imports file (thedll.a).
160 # (You may have to use -S to tell dlltool where to find the assembler).
162 dlltool --def thedll.def --output-exp thedll.o --output-lib thedll.a
164 # Build the dll with the library and the export table
166 ld -o thedll.dll thedll.o thedll.in
168 # Link the executable with the import library
170 gcc -o themain.exe themain.o thedll.a
172 This example can be extended if relocations are needed in the DLL:
174 # Compile up the parts of the dll and the program
176 gcc -c file1.c file2.c themain.c
178 # Run this tool over the DLL's .def file and generate an imports file.
180 dlltool --def thedll.def --output-lib thedll.lib
182 # Link the executable with the import library and generate a base file
185 gcc -o themain.exe themain.o thedll.lib -Wl,--base-file -Wl,themain.base
187 # Run this tool over the DLL's .def file and generate an exports file
188 # which includes the relocations from the base file.
190 dlltool --def thedll.def --base-file themain.base --output-exp thedll.exp
192 # Build the dll with file1.o, file2.o and the export table
194 ld -o thedll.dll thedll.exp file1.o file2.o
197 /* .idata section description
199 The .idata section is the import table. It is a collection of several
200 subsections used to keep the pieces for each dll together: .idata$[234567].
201 IE: Each dll's .idata$2's are catenated together, each .idata$3's, etc.
203 .idata$2 = Import Directory Table
204 = array of IMAGE_IMPORT_DESCRIPTOR's.
206 DWORD Import Lookup Table; - pointer to .idata$4
207 DWORD TimeDateStamp; - currently always 0
208 DWORD ForwarderChain; - currently always 0
209 DWORD Name; - pointer to dll's name
210 PIMAGE_THUNK_DATA FirstThunk; - pointer to .idata$5
212 .idata$3 = null terminating entry for .idata$2.
214 .idata$4 = Import Lookup Table
215 = array of array of pointers to hint name table.
216 There is one for each dll being imported from, and each dll's set is
217 terminated by a trailing NULL.
219 .idata$5 = Import Address Table
220 = array of array of pointers to hint name table.
221 There is one for each dll being imported from, and each dll's set is
222 terminated by a trailing NULL.
223 Initially, this table is identical to the Import Lookup Table. However,
224 at load time, the loader overwrites the entries with the address of the
227 .idata$6 = Hint Name Table
228 = Array of { short, asciz } entries, one for each imported function.
229 The `short' is the function's ordinal number.
231 .idata$7 = dll name (eg: "kernel32.dll"). (.idata$6 for ppc)
234 /* AIX requires this to be the first thing in the file. */
241 #define show_allnames 0
243 #define PAGE_SIZE 4096
244 #define PAGE_MASK (-PAGE_SIZE)
246 #include "libiberty.h"
249 #include "demangle.h"
250 #include "dyn-string.h"
255 #include <sys/stat.h>
257 #ifdef ANSI_PROTOTYPES
264 #include "coff/arm.h"
265 #include "coff/internal.h"
268 /* Forward references. */
269 static char *look_for_prog
PARAMS ((const char *, const char *, int));
270 static char *deduce_name
PARAMS ((const char *));
272 #ifdef DLLTOOL_MCORE_ELF
273 static void mcore_elf_cache_filename (char *);
274 static void mcore_elf_gen_out_file (void);
277 #ifdef HAVE_SYS_WAIT_H
278 #include <sys/wait.h>
279 #else /* ! HAVE_SYS_WAIT_H */
280 #if ! defined (_WIN32) || defined (__CYGWIN32__)
282 #define WIFEXITED(w) (((w)&0377) == 0)
285 #define WIFSIGNALED(w) (((w)&0377) != 0177 && ((w)&~0377) == 0)
288 #define WTERMSIG(w) ((w) & 0177)
291 #define WEXITSTATUS(w) (((w) >> 8) & 0377)
293 #else /* defined (_WIN32) && ! defined (__CYGWIN32__) */
295 #define WIFEXITED(w) (((w) & 0xff) == 0)
298 #define WIFSIGNALED(w) (((w) & 0xff) != 0 && ((w) & 0xff) != 0x7f)
301 #define WTERMSIG(w) ((w) & 0x7f)
304 #define WEXITSTATUS(w) (((w) & 0xff00) >> 8)
306 #endif /* defined (_WIN32) && ! defined (__CYGWIN32__) */
307 #endif /* ! HAVE_SYS_WAIT_H */
309 /* ifunc and ihead data structures: ttk@cygnus.com 1997
311 When IMPORT declarations are encountered in a .def file the
312 function import information is stored in a structure referenced by
313 the global variable IMPORT_LIST. The structure is a linked list
314 containing the names of the dll files each function is imported
315 from and a linked list of functions being imported from that dll
316 file. This roughly parallels the structure of the .idata section
317 in the PE object file.
319 The contents of .def file are interpreted from within the
320 process_def_file function. Every time an IMPORT declaration is
321 encountered, it is broken up into its component parts and passed to
322 def_import. IMPORT_LIST is initialized to NULL in function main. */
324 typedef struct ifunct
326 char *name
; /* name of function being imported */
327 int ord
; /* two-byte ordinal value associated with function */
331 typedef struct iheadt
333 char *dllname
; /* name of dll file imported from */
334 long nfuncs
; /* number of functions in list */
335 struct ifunct
*funchead
; /* first function in list */
336 struct ifunct
*functail
; /* last function in list */
337 struct iheadt
*next
; /* next dll file in list */
340 /* Structure containing all import information as defined in .def file
341 (qv "ihead structure"). */
343 static iheadtype
*import_list
= NULL
;
345 static char *as_name
= NULL
;
346 static char * as_flags
= "";
348 static int no_idata4
;
349 static int no_idata5
;
350 static char *exp_name
;
351 static char *imp_name
;
352 static char *head_label
;
353 static char *imp_name_lab
;
354 static char *dll_name
;
356 static int add_indirect
= 0;
357 static int add_underscore
= 0;
358 static int dontdeltemps
= 0;
360 /* True if we should export all symbols. Otherwise, we only export
361 symbols listed in .drectve sections or in the def file. */
362 static boolean export_all_symbols
;
364 /* True if we should exclude the symbols in DEFAULT_EXCLUDES when
365 exporting all symbols. */
366 static boolean do_default_excludes
;
368 /* Default symbols to exclude when exporting all the symbols. */
369 static const char *default_excludes
= "DllMain@12,DllEntryPoint@0,impure_ptr";
371 /* True if we should add __imp_<SYMBOL> to import libraries for backward
372 compatibility to old Cygwin releases. */
373 static boolean create_compat_implib
;
375 static char *def_file
;
377 extern char * program_name
;
381 static int add_stdcall_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 #define PATHMAX 250 /* What's the right name for this ? */
429 #define TMP_ASM "dc.s"
430 #define TMP_HEAD_S "dh.s"
431 #define TMP_HEAD_O "dh.o"
432 #define TMP_TAIL_S "dt.s"
433 #define TMP_TAIL_O "dt.o"
434 #define TMP_STUB "ds"
436 /* This bit of assemly does jmp * .... */
437 static const unsigned char i386_jtab
[] =
439 0xff, 0x25, 0x00, 0x00, 0x00, 0x00, 0x90, 0x90
442 static const unsigned char arm_jtab
[] =
444 0x00, 0xc0, 0x9f, 0xe5, /* ldr ip, [pc] */
445 0x00, 0xf0, 0x9c, 0xe5, /* ldr pc, [ip] */
449 static const unsigned char arm_interwork_jtab
[] =
451 0x04, 0xc0, 0x9f, 0xe5, /* ldr ip, [pc] */
452 0x00, 0xc0, 0x9c, 0xe5, /* ldr ip, [ip] */
453 0x1c, 0xff, 0x2f, 0xe1, /* bx ip */
457 static const unsigned char thumb_jtab
[] =
459 0x40, 0xb4, /* push {r6} */
460 0x02, 0x4e, /* ldr r6, [pc, #8] */
461 0x36, 0x68, /* ldr r6, [r6] */
462 0xb4, 0x46, /* mov ip, r6 */
463 0x40, 0xbc, /* pop {r6} */
464 0x60, 0x47, /* bx ip */
468 static const unsigned char mcore_be_jtab
[] =
470 0x71, 0x02, /* lrw r1,2 */
471 0x81, 0x01, /* ld.w r1,(r1,0) */
472 0x00, 0xC1, /* jmp r1 */
473 0x12, 0x00, /* nop */
474 0x00, 0x00, 0x00, 0x00 /* <address> */
477 static const unsigned char mcore_le_jtab
[] =
479 0x02, 0x71, /* lrw r1,2 */
480 0x01, 0x81, /* ld.w r1,(r1,0) */
481 0xC1, 0x00, /* jmp r1 */
482 0x00, 0x12, /* nop */
483 0x00, 0x00, 0x00, 0x00 /* <address> */
486 /* This is the glue sequence for PowerPC PE. There is a */
487 /* tocrel16-tocdefn reloc against the first instruction. */
488 /* We also need a IMGLUE reloc against the glue function */
489 /* to restore the toc saved by the third instruction in */
491 static const unsigned char ppc_jtab
[] =
493 0x00, 0x00, 0x62, 0x81, /* lwz r11,0(r2) */
494 /* Reloc TOCREL16 __imp_xxx */
495 0x00, 0x00, 0x8B, 0x81, /* lwz r12,0(r11) */
496 0x04, 0x00, 0x41, 0x90, /* stw r2,4(r1) */
497 0xA6, 0x03, 0x89, 0x7D, /* mtctr r12 */
498 0x04, 0x00, 0x4B, 0x80, /* lwz r2,4(r11) */
499 0x20, 0x04, 0x80, 0x4E /* bctr */
503 /* the glue instruction, picks up the toc from the stw in */
504 /* the above code: "lwz r2,4(r1)" */
505 static bfd_vma ppc_glue_insn
= 0x80410004;
511 const char *how_byte
;
512 const char *how_short
;
513 const char *how_long
;
514 const char *how_asciz
;
515 const char *how_comment
;
516 const char *how_jump
;
517 const char *how_global
;
518 const char *how_space
;
519 const char *how_align_short
;
520 const char *how_align_long
;
521 const char *how_default_as_switches
;
522 const char *how_bfd_target
;
523 enum bfd_architecture how_bfd_arch
;
524 const unsigned char *how_jtab
;
525 int how_jtab_size
; /* size of the jtab entry */
526 int how_jtab_roff
; /* offset into it for the ind 32 reloc into idata 5 */
529 static const struct mac
534 "arm", ".byte", ".short", ".long", ".asciz", "@",
535 "ldr\tip,[pc]\n\tldr\tpc,[ip]\n\t.long",
536 ".global", ".space", ".align\t2",".align\t4", "-mapcs-32",
537 "pe-arm-little", bfd_arch_arm
,
538 arm_jtab
, sizeof (arm_jtab
), 8
543 "i386", ".byte", ".short", ".long", ".asciz", "#",
544 "jmp *", ".global", ".space", ".align\t2",".align\t4", "",
545 "pe-i386",bfd_arch_i386
,
546 i386_jtab
, sizeof (i386_jtab
), 2
551 "ppc", ".byte", ".short", ".long", ".asciz", "#",
552 "jmp *", ".global", ".space", ".align\t2",".align\t4", "",
553 "pe-powerpcle",bfd_arch_powerpc
,
554 ppc_jtab
, sizeof (ppc_jtab
), 0
559 "thumb", ".byte", ".short", ".long", ".asciz", "@",
560 "push\t{r6}\n\tldr\tr6, [pc, #8]\n\tldr\tr6, [r6]\n\tmov\tip, r6\n\tpop\t{r6}\n\tbx\tip",
561 ".global", ".space", ".align\t2",".align\t4", "-mthumb-interwork",
562 "pe-arm-little", bfd_arch_arm
,
563 thumb_jtab
, sizeof (thumb_jtab
), 12
566 #define MARM_INTERWORK 4
568 "arm_interwork", ".byte", ".short", ".long", ".asciz", "@",
569 "ldr\tip,[pc]\n\tldr\tip,[ip]\n\tbx\tip\n\t.long",
570 ".global", ".space", ".align\t2",".align\t4", "-mthumb-interwork",
571 "pe-arm-little", bfd_arch_arm
,
572 arm_interwork_jtab
, sizeof (arm_interwork_jtab
), 12
577 "mcore-be", ".byte", ".short", ".long", ".asciz", "//",
578 "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
579 ".global", ".space", ".align\t2",".align\t4", "",
580 "pe-mcore-big", bfd_arch_mcore
,
581 mcore_be_jtab
, sizeof (mcore_be_jtab
), 8
586 "mcore-le", ".byte", ".short", ".long", ".asciz", "//",
587 "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
588 ".global", ".space", ".align\t2",".align\t4", "-EL",
589 "pe-mcore-little", bfd_arch_mcore
,
590 mcore_le_jtab
, sizeof (mcore_le_jtab
), 8
595 "mcore-elf-be", ".byte", ".short", ".long", ".asciz", "//",
596 "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
597 ".global", ".space", ".align\t2",".align\t4", "",
598 "elf32-mcore-big", bfd_arch_mcore
,
599 mcore_be_jtab
, sizeof (mcore_be_jtab
), 8
603 #define MMCORE_ELF_LE 8
604 "mcore-elf-le", ".byte", ".short", ".long", ".asciz", "//",
605 "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
606 ".global", ".space", ".align\t2",".align\t4", "-EL",
607 "elf32-mcore-little", bfd_arch_mcore
,
608 mcore_le_jtab
, sizeof (mcore_le_jtab
), 8
613 "arm-epoc", ".byte", ".short", ".long", ".asciz", "@",
614 "ldr\tip,[pc]\n\tldr\tpc,[ip]\n\t.long",
615 ".global", ".space", ".align\t2",".align\t4", "",
616 "epoc-pe-arm-little", bfd_arch_arm
,
617 arm_jtab
, sizeof (arm_jtab
), 8
620 { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }
630 typedef struct export
633 const char *internal_name
;
643 /* A list of symbols which we should not export. */
647 struct string_list
*next
;
651 static struct string_list
*excludes
;
653 static const char *rvaafter
PARAMS ((int));
654 static const char *rvabefore
PARAMS ((int));
655 static const char *asm_prefix
PARAMS ((int));
656 static void append_import
PARAMS ((const char *, const char *, int));
657 static void run
PARAMS ((const char *, char *));
658 static void scan_drectve_symbols
PARAMS ((bfd
*));
659 static void scan_filtered_symbols
PARAMS ((bfd
*, PTR
, long, unsigned int));
660 static void add_excludes
PARAMS ((const char *));
661 static boolean match_exclude
PARAMS ((const char *));
662 static void set_default_excludes
PARAMS ((void));
663 static long filter_symbols
PARAMS ((bfd
*, PTR
, long, unsigned int));
664 static void scan_all_symbols
PARAMS ((bfd
*));
665 static void scan_open_obj_file
PARAMS ((bfd
*));
666 static void scan_obj_file
PARAMS ((const char *));
667 static void dump_def_info
PARAMS ((FILE *));
668 static int sfunc
PARAMS ((const void *, const void *));
669 static void flush_page
PARAMS ((FILE *, long *, int, int));
670 static void gen_def_file
PARAMS ((void));
671 static void generate_idata_ofile
PARAMS ((FILE *));
672 static void gen_exp_file
PARAMS ((void));
673 static const char *xlate
PARAMS ((const char *));
675 static void dump_iat
PARAMS ((FILE *, export_type
*));
677 static char *make_label
PARAMS ((const char *, const char *));
678 static bfd
*make_one_lib_file
PARAMS ((export_type
*, int));
679 static bfd
*make_head
PARAMS ((void));
680 static bfd
*make_tail
PARAMS ((void));
681 static void gen_lib_file
PARAMS ((void));
682 static int pfunc
PARAMS ((const void *, const void *));
683 static int nfunc
PARAMS ((const void *, const void *));
684 static void remove_null_names
PARAMS ((export_type
**));
685 static void dtab
PARAMS ((export_type
**));
686 static void process_duplicates
PARAMS ((export_type
**));
687 static void fill_ordinals
PARAMS ((export_type
**));
688 static int alphafunc
PARAMS ((const void *, const void *));
689 static void mangle_defs
PARAMS ((void));
690 static void usage
PARAMS ((FILE *, int));
691 static void inform
PARAMS ((const char *, ...));
696 inform (const char * message
, ...)
698 inform (message
, va_alist
)
699 const char * message
;
709 va_start (args
, message
);
714 report (message
, args
);
737 /* xgettext:c-format */
738 fatal (_("Internal error: Unknown machine type: %d"), machine
);
762 /* xgettext:c-format */
763 fatal (_("Internal error: Unknown machine type: %d"), machine
);
788 /* xgettext:c-format */
789 fatal (_("Internal error: Unknown machine type: %d"), machine
);
795 #define ASM_BYTE mtable[machine].how_byte
796 #define ASM_SHORT mtable[machine].how_short
797 #define ASM_LONG mtable[machine].how_long
798 #define ASM_TEXT mtable[machine].how_asciz
799 #define ASM_C mtable[machine].how_comment
800 #define ASM_JUMP mtable[machine].how_jump
801 #define ASM_GLOBAL mtable[machine].how_global
802 #define ASM_SPACE mtable[machine].how_space
803 #define ASM_ALIGN_SHORT mtable[machine].how_align_short
804 #define ASM_RVA_BEFORE rvabefore(machine)
805 #define ASM_RVA_AFTER rvaafter(machine)
806 #define ASM_PREFIX asm_prefix(machine)
807 #define ASM_ALIGN_LONG mtable[machine].how_align_long
808 #define HOW_BFD_READ_TARGET 0 /* always default*/
809 #define HOW_BFD_WRITE_TARGET mtable[machine].how_bfd_target
810 #define HOW_BFD_ARCH mtable[machine].how_bfd_arch
811 #define HOW_JTAB mtable[machine].how_jtab
812 #define HOW_JTAB_SIZE mtable[machine].how_jtab_size
813 #define HOW_JTAB_ROFF mtable[machine].how_jtab_roff
814 #define ASM_SWITCHES mtable[machine].how_default_as_switches
819 process_def_file (name
)
822 FILE *f
= fopen (name
, FOPEN_RT
);
825 /* xgettext:c-format */
826 fatal (_("Can't open def file: %s"), name
);
830 /* xgettext:c-format */
831 inform (_("Processing def file: %s"), name
);
835 inform (_("Processed def file"));
838 /**********************************************************************/
840 /* Communications with the parser */
842 static const char *d_name
; /* Arg to NAME or LIBRARY */
843 static int d_nfuncs
; /* Number of functions exported */
844 static int d_named_nfuncs
; /* Number of named functions exported */
845 static int d_low_ord
; /* Lowest ordinal index */
846 static int d_high_ord
; /* Highest ordinal index */
847 static export_type
*d_exports
; /*list of exported functions */
848 static export_type
**d_exports_lexically
; /* vector of exported functions in alpha order */
849 static dlist_type
*d_list
; /* Descriptions */
850 static dlist_type
*a_list
; /* Stuff to go in directives */
857 const char * err ATTRIBUTE_UNUSED
;
859 /* xgettext:c-format */
860 non_fatal (_("Syntax error in def file %s:%d"), def_file
, linenumber
);
866 def_exports (name
, internal_name
, ordinal
, noname
, constant
, data
)
868 const char *internal_name
;
874 struct export
*p
= (struct export
*) xmalloc (sizeof (*p
));
877 p
->internal_name
= internal_name
? internal_name
: name
;
878 p
->ordinal
= ordinal
;
879 p
->constant
= constant
;
888 def_name (name
, base
)
892 /* xgettext:c-format */
893 inform (_("NAME: %s base: %x"), name
, base
);
896 non_fatal (_("Can't have LIBRARY and NAME"));
899 /* if --dllname not provided, use the one in the DEF file.
900 FIXME: Is this appropriate for executables? */
902 dll_name
= xstrdup (name
);
907 def_library (name
, base
)
911 /* xgettext:c-format */
912 inform (_("LIBRARY: %s base: %x"), name
, base
);
915 non_fatal (_("Can't have LIBRARY and NAME"));
918 /* if --dllname not provided, use the one in the DEF file. */
920 dll_name
= xstrdup (name
);
925 def_description (desc
)
928 dlist_type
*d
= (dlist_type
*) xmalloc (sizeof (dlist_type
));
929 d
->text
= xstrdup (desc
);
938 dlist_type
*d
= (dlist_type
*) xmalloc (sizeof (dlist_type
));
939 d
->text
= xstrdup (dir
);
945 def_heapsize (reserve
, commit
)
951 sprintf (b
, "-heap 0x%x,0x%x ", reserve
, commit
);
953 sprintf (b
, "-heap 0x%x ", reserve
);
954 new_directive (xstrdup (b
));
958 def_stacksize (reserve
, commit
)
964 sprintf (b
, "-stack 0x%x,0x%x ", reserve
, commit
);
966 sprintf (b
, "-stack 0x%x ", reserve
);
967 new_directive (xstrdup (b
));
970 /* append_import simply adds the given import definition to the global
971 import_list. It is used by def_import. */
974 append_import (symbol_name
, dll_name
, func_ordinal
)
975 const char *symbol_name
;
976 const char *dll_name
;
982 for (pq
= &import_list
; *pq
!= NULL
; pq
= &(*pq
)->next
)
984 if (strcmp ((*pq
)->dllname
, dll_name
) == 0)
987 q
->functail
->next
= xmalloc (sizeof (ifunctype
));
988 q
->functail
= q
->functail
->next
;
989 q
->functail
->ord
= func_ordinal
;
990 q
->functail
->name
= xstrdup (symbol_name
);
991 q
->functail
->next
= NULL
;
997 q
= xmalloc (sizeof (iheadtype
));
998 q
->dllname
= xstrdup (dll_name
);
1000 q
->funchead
= xmalloc (sizeof (ifunctype
));
1001 q
->functail
= q
->funchead
;
1003 q
->functail
->name
= xstrdup (symbol_name
);
1004 q
->functail
->ord
= func_ordinal
;
1005 q
->functail
->next
= NULL
;
1010 /* def_import is called from within defparse.y when an IMPORT
1011 declaration is encountered. Depending on the form of the
1012 declaration, the module name may or may not need ".dll" to be
1013 appended to it, the name of the function may be stored in internal
1014 or entry, and there may or may not be an ordinal value associated
1017 /* A note regarding the parse modes:
1018 In defparse.y we have to accept import declarations which follow
1019 any one of the following forms:
1020 <func_name_in_app> = <dll_name>.<func_name_in_dll>
1021 <func_name_in_app> = <dll_name>.<number>
1022 <dll_name>.<func_name_in_dll>
1024 Furthermore, the dll's name may or may not end with ".dll", which
1025 complicates the parsing a little. Normally the dll's name is
1026 passed to def_import() in the "module" parameter, but when it ends
1027 with ".dll" it gets passed in "module" sans ".dll" and that needs
1030 def_import gets five parameters:
1031 APP_NAME - the name of the function in the application, if
1032 present, or NULL if not present.
1033 MODULE - the name of the dll, possibly sans extension (ie, '.dll').
1034 DLLEXT - the extension of the dll, if present, NULL if not present.
1035 ENTRY - the name of the function in the dll, if present, or NULL.
1036 ORD_VAL - the numerical tag of the function in the dll, if present,
1037 or NULL. Exactly one of <entry> or <ord_val> must be
1038 present (i.e., not NULL). */
1041 def_import (app_name
, module
, dllext
, entry
, ord_val
)
1042 const char *app_name
;
1048 const char *application_name
;
1052 application_name
= entry
;
1055 if (app_name
!= NULL
)
1056 application_name
= app_name
;
1058 application_name
= "";
1063 buf
= (char *) alloca (strlen (module
) + strlen (dllext
) + 2);
1064 sprintf (buf
, "%s.%s", module
, dllext
);
1068 append_import (application_name
, module
, ord_val
);
1072 def_version (major
, minor
)
1076 printf ("VERSION %d.%d\n", major
, minor
);
1080 def_section (name
, attr
)
1097 sprintf (buf
, "-attr %s %s", name
, atts
);
1098 new_directive (xstrdup (buf
));
1106 def_section ("CODE", attr
);
1113 def_section ("DATA", attr
);
1116 /**********************************************************************/
1124 int pid
, wait_status
;
1127 char *errmsg_fmt
, *errmsg_arg
;
1128 char *temp_base
= choose_temp_base ();
1130 inform ("run: %s %s", what
, args
);
1132 /* Count the args */
1134 for (s
= args
; *s
; s
++)
1138 argv
= alloca (sizeof (char *) * (i
+ 3));
1147 while (*s
!= ' ' && *s
!= 0)
1155 pid
= pexecute (argv
[0], (char * const *) argv
, program_name
, temp_base
,
1156 &errmsg_fmt
, &errmsg_arg
, PEXECUTE_ONE
| PEXECUTE_SEARCH
);
1160 inform (strerror (errno
));
1162 fatal (errmsg_fmt
, errmsg_arg
);
1165 pid
= pwait (pid
, & wait_status
, 0);
1169 /* xgettext:c-format */
1170 fatal (_("wait: %s"), strerror (errno
));
1172 else if (WIFSIGNALED (wait_status
))
1174 /* xgettext:c-format */
1175 fatal (_("subprocess got fatal signal %d"), WTERMSIG (wait_status
));
1177 else if (WIFEXITED (wait_status
))
1179 if (WEXITSTATUS (wait_status
) != 0)
1180 /* xgettext:c-format */
1181 non_fatal (_("%s exited with status %d"),
1182 what
, WEXITSTATUS (wait_status
));
1188 /* Look for a list of symbols to export in the .drectve section of
1189 ABFD. Pass each one to def_exports. */
1192 scan_drectve_symbols (abfd
)
1201 /* Look for .drectve's */
1202 s
= bfd_get_section_by_name (abfd
, DRECTVE_SECTION_NAME
);
1207 size
= bfd_get_section_size_before_reloc (s
);
1208 buf
= xmalloc (size
);
1210 bfd_get_section_contents (abfd
, s
, buf
, 0, size
);
1212 /* xgettext:c-format */
1213 inform (_("Sucking in info from %s section in %s"),
1214 DRECTVE_SECTION_NAME
, bfd_get_filename (abfd
));
1216 /* Search for -export: strings. The exported symbols can optionally
1217 have type tags (eg., -export:foo,data), so handle those as well.
1218 Currently only data tag is supported. */
1224 && strncmp (p
, "-export:", 8) == 0)
1228 flagword flags
= BSF_FUNCTION
;
1232 while (p
< e
&& *p
!= ',' && *p
!= ' ' && *p
!= '-')
1234 c
= xmalloc (p
- name
+ 1);
1235 memcpy (c
, name
, p
- name
);
1237 if (p
< e
&& *p
== ',') /* found type tag. */
1239 char *tag_start
= ++p
;
1240 while (p
< e
&& *p
!= ' ' && *p
!= '-')
1242 if (strncmp (tag_start
, "data", 4) == 0)
1243 flags
&= ~BSF_FUNCTION
;
1246 /* FIXME: The 5th arg is for the `constant' field.
1247 What should it be? Not that it matters since it's not
1248 currently useful. */
1249 def_exports (c
, 0, -1, 0, 0, ! (flags
& BSF_FUNCTION
));
1251 if (add_stdcall_alias
&& strchr (c
, '@'))
1253 char *exported_name
= xstrdup (c
);
1254 char *atsym
= strchr (exported_name
, '@');
1256 /* Note: stdcall alias symbols can never be data. */
1257 def_exports (exported_name
, xstrdup (c
), -1, 0, 0, 0);
1266 /* Look through the symbols in MINISYMS, and add each one to list of
1267 symbols to export. */
1270 scan_filtered_symbols (abfd
, minisyms
, symcount
, size
)
1277 bfd_byte
*from
, *fromend
;
1279 store
= bfd_make_empty_symbol (abfd
);
1281 bfd_fatal (bfd_get_filename (abfd
));
1283 from
= (bfd_byte
*) minisyms
;
1284 fromend
= from
+ symcount
* size
;
1285 for (; from
< fromend
; from
+= size
)
1288 const char *symbol_name
;
1290 sym
= bfd_minisymbol_to_symbol (abfd
, false, from
, store
);
1292 bfd_fatal (bfd_get_filename (abfd
));
1294 symbol_name
= bfd_asymbol_name (sym
);
1295 if (bfd_get_symbol_leading_char (abfd
) == symbol_name
[0])
1298 def_exports (xstrdup (symbol_name
) , 0, -1, 0, 0,
1299 ! (sym
->flags
& BSF_FUNCTION
));
1301 if (add_stdcall_alias
&& strchr (symbol_name
, '@'))
1303 char *exported_name
= xstrdup (symbol_name
);
1304 char *atsym
= strchr (exported_name
, '@');
1306 /* Note: stdcall alias symbols can never be data. */
1307 def_exports (exported_name
, xstrdup (symbol_name
), -1, 0, 0, 0);
1312 /* Add a list of symbols to exclude. */
1315 add_excludes (new_excludes
)
1316 const char *new_excludes
;
1319 char *exclude_string
;
1321 local_copy
= xstrdup (new_excludes
);
1323 exclude_string
= strtok (local_copy
, ",:");
1324 for (; exclude_string
; exclude_string
= strtok (NULL
, ",:"))
1326 struct string_list
*new_exclude
;
1328 new_exclude
= ((struct string_list
*)
1329 xmalloc (sizeof (struct string_list
)));
1330 new_exclude
->string
= (char *) xmalloc (strlen (exclude_string
) + 2);
1331 /* FIXME: Is it always right to add a leading underscore? */
1332 sprintf (new_exclude
->string
, "_%s", exclude_string
);
1333 new_exclude
->next
= excludes
;
1334 excludes
= new_exclude
;
1336 /* xgettext:c-format */
1337 inform (_("Excluding symbol: %s"), exclude_string
);
1343 /* See if STRING is on the list of symbols to exclude. */
1346 match_exclude (string
)
1349 struct string_list
*excl_item
;
1351 for (excl_item
= excludes
; excl_item
; excl_item
= excl_item
->next
)
1352 if (strcmp (string
, excl_item
->string
) == 0)
1357 /* Add the default list of symbols to exclude. */
1360 set_default_excludes (void)
1362 add_excludes (default_excludes
);
1365 /* Choose which symbols to export. */
1368 filter_symbols (abfd
, minisyms
, symcount
, size
)
1374 bfd_byte
*from
, *fromend
, *to
;
1377 store
= bfd_make_empty_symbol (abfd
);
1379 bfd_fatal (bfd_get_filename (abfd
));
1381 from
= (bfd_byte
*) minisyms
;
1382 fromend
= from
+ symcount
* size
;
1383 to
= (bfd_byte
*) minisyms
;
1385 for (; from
< fromend
; from
+= size
)
1390 sym
= bfd_minisymbol_to_symbol (abfd
, false, (const PTR
) from
, store
);
1392 bfd_fatal (bfd_get_filename (abfd
));
1394 /* Check for external and defined only symbols. */
1395 keep
= (((sym
->flags
& BSF_GLOBAL
) != 0
1396 || (sym
->flags
& BSF_WEAK
) != 0
1397 || bfd_is_com_section (sym
->section
))
1398 && ! bfd_is_und_section (sym
->section
));
1400 keep
= keep
&& ! match_exclude (sym
->name
);
1404 memcpy (to
, from
, size
);
1409 return (to
- (bfd_byte
*) minisyms
) / size
;
1412 /* Export all symbols in ABFD, except for ones we were told not to
1416 scan_all_symbols (abfd
)
1423 /* Ignore bfds with an import descriptor table. We assume that any
1424 such BFD contains symbols which are exported from another DLL,
1425 and we don't want to reexport them from here. */
1426 if (bfd_get_section_by_name (abfd
, ".idata$4"))
1429 if (! (bfd_get_file_flags (abfd
) & HAS_SYMS
))
1431 /* xgettext:c-format */
1432 non_fatal (_("%s: no symbols"), bfd_get_filename (abfd
));
1436 symcount
= bfd_read_minisymbols (abfd
, false, &minisyms
, &size
);
1438 bfd_fatal (bfd_get_filename (abfd
));
1442 /* xgettext:c-format */
1443 non_fatal (_("%s: no symbols"), bfd_get_filename (abfd
));
1447 /* Discard the symbols we don't want to export. It's OK to do this
1448 in place; we'll free the storage anyway. */
1450 symcount
= filter_symbols (abfd
, minisyms
, symcount
, size
);
1451 scan_filtered_symbols (abfd
, minisyms
, symcount
, size
);
1456 /* Look at the object file to decide which symbols to export. */
1459 scan_open_obj_file (abfd
)
1462 if (export_all_symbols
)
1463 scan_all_symbols (abfd
);
1465 scan_drectve_symbols (abfd
);
1467 /* FIXME: we ought to read in and block out the base relocations */
1469 /* xgettext:c-format */
1470 inform (_("Done reading %s"), bfd_get_filename (abfd
));
1474 scan_obj_file (filename
)
1475 const char *filename
;
1477 bfd
* f
= bfd_openr (filename
, 0);
1480 /* xgettext:c-format */
1481 fatal (_("Unable to open object file: %s"), filename
);
1483 /* xgettext:c-format */
1484 inform (_("Scanning object file %s"), filename
);
1486 if (bfd_check_format (f
, bfd_archive
))
1488 bfd
*arfile
= bfd_openr_next_archived_file (f
, 0);
1491 if (bfd_check_format (arfile
, bfd_object
))
1492 scan_open_obj_file (arfile
);
1494 arfile
= bfd_openr_next_archived_file (f
, arfile
);
1497 #ifdef DLLTOOL_MCORE_ELF
1498 if (mcore_elf_out_file
)
1499 inform (_("Cannot produce mcore-elf dll from archive file: %s"), filename
);
1502 else if (bfd_check_format (f
, bfd_object
))
1504 scan_open_obj_file (f
);
1506 #ifdef DLLTOOL_MCORE_ELF
1507 if (mcore_elf_out_file
)
1508 mcore_elf_cache_filename ((char *) filename
);
1515 /**********************************************************************/
1523 fprintf (f
, "%s ", ASM_C
);
1524 for (i
= 0; oav
[i
]; i
++)
1525 fprintf (f
, "%s ", oav
[i
]);
1527 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
1529 fprintf (f
, "%s %d = %s %s @ %d %s%s%s\n",
1535 exp
->noname
? "NONAME " : "",
1536 exp
->constant
? "CONSTANT" : "",
1537 exp
->data
? "DATA" : "");
1541 /* Generate the .exp file */
1548 return *(const long *) a
- *(const long *) b
;
1552 flush_page (f
, need
, page_addr
, 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
);
1604 if (strcmp (exp
->name
, exp
->internal_name
) == 0)
1607 fprintf (output_def
, "\t%s%s%s @ %d%s%s ; %s\n",
1612 exp
->noname
? " NONAME" : "",
1613 exp
->data
? " DATA" : "",
1618 char *quote1
= strchr (exp
->internal_name
, '.') ? "\"" : "";
1620 fprintf (output_def
, "\t%s%s%s = %s%s%s @ %d%s%s ; %s\n",
1628 exp
->noname
? " NONAME" : "",
1629 exp
->data
? " DATA" : "",
1636 inform (_("Added exports to output file"));
1639 /* generate_idata_ofile generates the portable assembly source code
1640 for the idata sections. It appends the source code to the end of
1644 generate_idata_ofile (filvar
)
1653 if (import_list
== NULL
)
1656 fprintf (filvar
, "%s Import data sections\n", ASM_C
);
1657 fprintf (filvar
, "\n\t.section\t.idata$2\n");
1658 fprintf (filvar
, "\t%s\tdoi_idata\n", ASM_GLOBAL
);
1659 fprintf (filvar
, "doi_idata:\n");
1662 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1664 fprintf (filvar
, "\t%slistone%d%s\t%s %s\n",
1665 ASM_RVA_BEFORE
, nheads
, ASM_RVA_AFTER
,
1666 ASM_C
, headptr
->dllname
);
1667 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1668 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1669 fprintf (filvar
, "\t%sdllname%d%s\n",
1670 ASM_RVA_BEFORE
, nheads
, ASM_RVA_AFTER
);
1671 fprintf (filvar
, "\t%slisttwo%d%s\n\n",
1672 ASM_RVA_BEFORE
, nheads
, ASM_RVA_AFTER
);
1676 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* NULL record at */
1677 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* end of idata$2 */
1678 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* section */
1679 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1680 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1682 fprintf (filvar
, "\n\t.section\t.idata$4\n");
1684 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1686 fprintf (filvar
, "listone%d:\n", headindex
);
1687 for ( funcindex
= 0; funcindex
< headptr
->nfuncs
; funcindex
++ )
1688 fprintf (filvar
, "\t%sfuncptr%d_%d%s\n",
1689 ASM_RVA_BEFORE
, headindex
, funcindex
, ASM_RVA_AFTER
);
1690 fprintf (filvar
,"\t%s\t0\n", ASM_LONG
); /* NULL terminating list */
1694 fprintf (filvar
, "\n\t.section\t.idata$5\n");
1696 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1698 fprintf (filvar
, "listtwo%d:\n", headindex
);
1699 for ( funcindex
= 0; funcindex
< headptr
->nfuncs
; funcindex
++ )
1700 fprintf (filvar
, "\t%sfuncptr%d_%d%s\n",
1701 ASM_RVA_BEFORE
, headindex
, funcindex
, ASM_RVA_AFTER
);
1702 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* NULL terminating list */
1706 fprintf (filvar
, "\n\t.section\t.idata$6\n");
1708 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1711 for (funcptr
= headptr
->funchead
; funcptr
!= NULL
;
1712 funcptr
= funcptr
->next
)
1714 fprintf (filvar
,"funcptr%d_%d:\n", headindex
, funcindex
);
1715 fprintf (filvar
,"\t%s\t%d\n", ASM_SHORT
,
1716 ((funcptr
->ord
) & 0xFFFF));
1717 fprintf (filvar
,"\t%s\t\"%s\"\n", ASM_TEXT
, funcptr
->name
);
1718 fprintf (filvar
,"\t%s\t0\n", ASM_BYTE
);
1724 fprintf (filvar
, "\n\t.section\t.idata$7\n");
1726 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1728 fprintf (filvar
,"dllname%d:\n", headindex
);
1729 fprintf (filvar
,"\t%s\t\"%s\"\n", ASM_TEXT
, headptr
->dllname
);
1730 fprintf (filvar
,"\t%s\t0\n", ASM_BYTE
);
1735 /* Assemble the specified file. */
1737 assemble_file (source
, dest
)
1738 const char * source
;
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
)
1809 fprintf (f
, "\t%s\t%d\t%s %d..%d missing\n",
1811 (exp
->ordinal
- i
) * 4,
1813 i
, exp
->ordinal
- 1);
1816 while (i
< exp
->ordinal
)
1818 fprintf(f
,"\t%s\t0\n", ASM_LONG
);
1822 fprintf (f
, "\t%s%s%s%s\t%s %d\n", ASM_RVA_BEFORE
,
1824 exp
->internal_name
, ASM_RVA_AFTER
, ASM_C
, exp
->ordinal
);
1828 fprintf (f
,"%s Export Name Pointer Table\n", ASM_C
);
1829 fprintf (f
, "anames:\n");
1831 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
1833 if (!exp
->noname
|| show_allnames
)
1834 fprintf (f
, "\t%sn%d%s\n",
1835 ASM_RVA_BEFORE
, exp
->ordinal
, ASM_RVA_AFTER
);
1838 fprintf (f
,"%s Export Oridinal Table\n", ASM_C
);
1839 fprintf (f
, "anords:\n");
1840 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
1842 if (!exp
->noname
|| show_allnames
)
1843 fprintf (f
, "\t%s %d\n", ASM_SHORT
, exp
->ordinal
- d_low_ord
);
1846 fprintf(f
,"%s Export Name Table\n", ASM_C
);
1847 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
1848 if (!exp
->noname
|| show_allnames
)
1849 fprintf (f
, "n%d: %s \"%s\"\n",
1850 exp
->ordinal
, ASM_TEXT
, exp
->name
);
1854 fprintf (f
, "\t.section %s\n", DRECTVE_SECTION_NAME
);
1855 for (dl
= a_list
; dl
; dl
= dl
->next
)
1857 fprintf (f
, "\t%s\t\"%s\"\n", ASM_TEXT
, dl
->text
);
1863 fprintf (f
, "\t.section .rdata\n");
1864 for (dl
= d_list
; dl
; dl
= dl
->next
)
1869 /* We don't output as ascii because there can
1870 be quote characters in the string. */
1872 for (p
= dl
->text
; *p
; p
++)
1875 fprintf (f
, "\t%s\t", ASM_BYTE
);
1878 fprintf (f
, "%d", *p
);
1881 fprintf (f
, ",0\n");
1895 /* Add to the output file a way of getting to the exported names
1896 without using the import library. */
1899 fprintf (f
, "\t.section\t.rdata\n");
1900 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
1901 if (!exp
->noname
|| show_allnames
)
1903 /* We use a single underscore for MS compatibility, and a
1904 double underscore for backward compatibility with old
1906 if (create_compat_implib
)
1907 fprintf (f
, "\t%s\t__imp_%s\n", ASM_GLOBAL
, exp
->name
);
1908 fprintf (f
, "\t%s\t_imp__%s\n", ASM_GLOBAL
, exp
->name
);
1909 if (create_compat_implib
)
1910 fprintf (f
, "__imp_%s:\n", exp
->name
);
1911 fprintf (f
, "_imp__%s:\n", exp
->name
);
1912 fprintf (f
, "\t%s\t%s\n", ASM_LONG
, exp
->name
);
1916 /* Dump the reloc section if a base file is provided */
1920 long need
[PAGE_SIZE
];
1927 fprintf (f
, "\t.section\t.init\n");
1928 fprintf (f
, "lab:\n");
1930 fseek (base_file
, 0, SEEK_END
);
1931 numbytes
= ftell (base_file
);
1932 fseek (base_file
, 0, SEEK_SET
);
1933 copy
= xmalloc (numbytes
);
1934 fread (copy
, 1, numbytes
, base_file
);
1935 num_entries
= numbytes
/ sizeof (long);
1938 fprintf (f
, "\t.section\t.reloc\n");
1944 qsort (copy
, num_entries
, sizeof (long), sfunc
);
1945 /* Delete duplcates */
1946 for (src
= 0; src
< num_entries
; src
++)
1948 if (last
!= copy
[src
])
1949 last
= copy
[dst
++] = copy
[src
];
1953 page_addr
= addr
& PAGE_MASK
; /* work out the page addr */
1955 for (j
= 0; j
< num_entries
; j
++)
1958 if ((addr
& PAGE_MASK
) != page_addr
)
1960 flush_page (f
, need
, page_addr
, on_page
);
1962 page_addr
= addr
& PAGE_MASK
;
1964 need
[on_page
++] = addr
;
1966 flush_page (f
, need
, page_addr
, on_page
);
1968 /* fprintf (f, "\t%s\t0,0\t%s End\n", ASM_LONG, ASM_C);*/
1972 generate_idata_ofile (f
);
1976 /* assemble the file */
1977 assemble_file (TMP_ASM
, exp_name
);
1979 if (dontdeltemps
== 0)
1982 inform (_("Generated exports file"));
1991 char *copy
= xmalloc (strlen (name
) + 2);
1993 strcpy (copy
+ 1, name
);
2000 p
= strchr (name
, '@');
2007 /**********************************************************************/
2016 if (exp
->noname
&& !show_allnames
)
2018 fprintf (f
, "\t%s\t0x%08x\n",
2020 exp
->ordinal
| 0x80000000); /* hint or orindal ?? */
2024 fprintf (f
, "\t%sID%d%s\n", ASM_RVA_BEFORE
,
2042 unsigned char *data
;
2057 #define INIT_SEC_DATA(id, name, flags, align) { id, name, flags, align, NULL, NULL, NULL, 0, NULL }
2058 static sinfo secdata
[NSECS
] =
2060 INIT_SEC_DATA (TEXT
, ".text", SEC_CODE
| SEC_HAS_CONTENTS
, 2),
2061 INIT_SEC_DATA (DATA
, ".data", SEC_DATA
, 2),
2062 INIT_SEC_DATA (BSS
, ".bss", 0, 2),
2063 INIT_SEC_DATA (IDATA7
, ".idata$7", SEC_HAS_CONTENTS
, 2),
2064 INIT_SEC_DATA (IDATA5
, ".idata$5", SEC_HAS_CONTENTS
, 2),
2065 INIT_SEC_DATA (IDATA4
, ".idata$4", SEC_HAS_CONTENTS
, 2),
2066 INIT_SEC_DATA (IDATA6
, ".idata$6", SEC_HAS_CONTENTS
, 1)
2071 /* Sections numbered to make the order the same as other PowerPC NT */
2072 /* compilers. This also keeps funny alignment thingies from happening. */
2085 static sinfo secdata
[NSECS
] =
2087 { TEXT
, ".text", SEC_CODE
| SEC_HAS_CONTENTS
, 3},
2088 { PDATA
, ".pdata", SEC_HAS_CONTENTS
, 2},
2089 { RDATA
, ".reldata", SEC_HAS_CONTENTS
, 2},
2090 { IDATA5
, ".idata$5", SEC_HAS_CONTENTS
, 2},
2091 { IDATA4
, ".idata$4", SEC_HAS_CONTENTS
, 2},
2092 { IDATA6
, ".idata$6", SEC_HAS_CONTENTS
, 1},
2093 { IDATA7
, ".idata$7", SEC_HAS_CONTENTS
, 2},
2094 { DATA
, ".data", SEC_DATA
, 2},
2095 { BSS
, ".bss", 0, 2}
2101 This is what we're trying to make. We generate the imp symbols with
2102 both single and double underscores, for compatibility.
2105 .global _GetFileVersionInfoSizeW@8
2106 .global __imp_GetFileVersionInfoSizeW@8
2107 _GetFileVersionInfoSizeW@8:
2108 jmp * __imp_GetFileVersionInfoSizeW@8
2109 .section .idata$7 # To force loading of head
2110 .long __version_a_head
2111 # Import Address Table
2113 __imp_GetFileVersionInfoSizeW@8:
2116 # Import Lookup Table
2122 .asciz "GetFileVersionInfoSizeW"
2125 For the PowerPC, here's the variation on the above scheme:
2127 # Rather than a simple "jmp *", the code to get to the dll function
2130 lwz r11,[tocv]__imp_function_name(r2)
2131 # RELOC: 00000000 TOCREL16,TOCDEFN __imp_function_name
2140 make_label (prefix
, name
)
2144 int len
= strlen (ASM_PREFIX
) + strlen (prefix
) + strlen (name
);
2145 char *copy
= xmalloc (len
+1 );
2146 strcpy (copy
, ASM_PREFIX
);
2147 strcat (copy
, prefix
);
2148 strcat (copy
, name
);
2153 make_one_lib_file (exp
, i
)
2161 const char *prefix
= "d";
2164 name
= (char *) alloca (strlen (prefix
) + 10);
2165 sprintf (name
, "%ss%05d.s", prefix
, i
);
2166 f
= fopen (name
, FOPEN_WT
);
2167 fprintf (f
, "\t.text\n");
2168 fprintf (f
, "\t%s\t%s%s\n", ASM_GLOBAL
, ASM_PREFIX
, exp
->name
);
2169 if (create_compat_implib
)
2170 fprintf (f
, "\t%s\t__imp_%s\n", ASM_GLOBAL
, exp
->name
);
2171 fprintf (f
, "\t%s\t_imp__%s\n", ASM_GLOBAL
, exp
->name
);
2172 if (create_compat_implib
)
2173 fprintf (f
, "%s%s:\n\t%s\t__imp_%s\n", ASM_PREFIX
,
2174 exp
->name
, ASM_JUMP
, exp
->name
);
2176 fprintf (f
, "\t.section\t.idata$7\t%s To force loading of head\n", ASM_C
);
2177 fprintf (f
, "\t%s\t%s\n", ASM_LONG
, head_label
);
2180 fprintf (f
,"%s Import Address Table\n", ASM_C
);
2182 fprintf (f
, "\t.section .idata$5\n");
2183 if (create_compat_implib
)
2184 fprintf (f
, "__imp_%s:\n", exp
->name
);
2185 fprintf (f
, "_imp__%s:\n", exp
->name
);
2189 fprintf (f
, "\n%s Import Lookup Table\n", ASM_C
);
2190 fprintf (f
, "\t.section .idata$4\n");
2194 if(!exp
->noname
|| show_allnames
)
2196 fprintf (f
, "%s Hint/Name table\n", ASM_C
);
2197 fprintf (f
, "\t.section .idata$6\n");
2198 fprintf (f
, "ID%d:\t%s\t%d\n", exp
->ordinal
, ASM_SHORT
, exp
->hint
);
2199 fprintf (f
, "\t%s\t\"%s\"\n", ASM_TEXT
, xlate (exp
->name
));
2204 dest
= (char *) alloca (strlen (prefix
) + 10);
2205 sprintf (dest
, "%ss%05d.o", prefix
, i
);
2206 assemble_file (name
, dest
);
2211 asymbol
* exp_label
;
2214 asymbol
* iname_lab
;
2215 asymbol
** iname_lab_pp
;
2216 asymbol
** iname_pp
;
2225 asymbol
* ptrs
[NSECS
+ 4 + EXTRA
+ 1];
2227 char * outname
= xmalloc (10);
2231 sprintf (outname
, "%s%05d.o", TMP_STUB
, i
);
2233 abfd
= bfd_openw (outname
, HOW_BFD_WRITE_TARGET
);
2236 /* xgettext:c-format */
2237 fatal (_("bfd_open failed open stub file: %s"), outname
);
2239 /* xgettext:c-format */
2240 inform (_("Creating stub file: %s"), outname
);
2242 bfd_set_format (abfd
, bfd_object
);
2243 bfd_set_arch_mach (abfd
, HOW_BFD_ARCH
, 0);
2246 if (machine
== MARM_INTERWORK
|| machine
== MTHUMB
)
2247 bfd_set_private_flags (abfd
, F_INTERWORK
);
2250 /* First make symbols for the sections */
2251 for (i
= 0; i
< NSECS
; i
++)
2253 sinfo
*si
= secdata
+ i
;
2256 si
->sec
= bfd_make_section_old_way (abfd
, si
->name
);
2257 bfd_set_section_flags (abfd
,
2261 bfd_set_section_alignment(abfd
, si
->sec
, si
->align
);
2262 si
->sec
->output_section
= si
->sec
;
2263 si
->sym
= bfd_make_empty_symbol(abfd
);
2264 si
->sym
->name
= si
->sec
->name
;
2265 si
->sym
->section
= si
->sec
;
2266 si
->sym
->flags
= BSF_LOCAL
;
2268 ptrs
[oidx
] = si
->sym
;
2269 si
->sympp
= ptrs
+ oidx
;
2278 exp_label
= bfd_make_empty_symbol (abfd
);
2279 exp_label
->name
= make_label ("", exp
->name
);
2281 /* On PowerPC, the function name points to a descriptor in
2282 the rdata section, the first element of which is a
2283 pointer to the code (..function_name), and the second
2284 points to the .toc */
2286 if (machine
== MPPC
)
2287 exp_label
->section
= secdata
[RDATA
].sec
;
2290 exp_label
->section
= secdata
[TEXT
].sec
;
2292 exp_label
->flags
= BSF_GLOBAL
;
2293 exp_label
->value
= 0;
2296 if (machine
== MTHUMB
)
2297 bfd_coff_set_symbol_class (abfd
, exp_label
, C_THUMBEXTFUNC
);
2299 ptrs
[oidx
++] = exp_label
;
2302 /* Generate imp symbols with one underscore for Microsoft
2303 compatibility, and with two underscores for backward
2304 compatibility with old versions of cygwin. */
2305 if (create_compat_implib
)
2307 iname
= bfd_make_empty_symbol (abfd
);
2308 iname
->name
= make_label ("__imp_", exp
->name
);
2309 iname
->section
= secdata
[IDATA5
].sec
;
2310 iname
->flags
= BSF_GLOBAL
;
2314 iname2
= bfd_make_empty_symbol (abfd
);
2315 iname2
->name
= make_label ("_imp__", exp
->name
);
2316 iname2
->section
= secdata
[IDATA5
].sec
;
2317 iname2
->flags
= BSF_GLOBAL
;
2320 iname_lab
= bfd_make_empty_symbol(abfd
);
2322 iname_lab
->name
= head_label
;
2323 iname_lab
->section
= (asection
*)&bfd_und_section
;
2324 iname_lab
->flags
= 0;
2325 iname_lab
->value
= 0;
2328 iname_pp
= ptrs
+ oidx
;
2329 if (create_compat_implib
)
2330 ptrs
[oidx
++] = iname
;
2331 ptrs
[oidx
++] = iname2
;
2333 iname_lab_pp
= ptrs
+ oidx
;
2334 ptrs
[oidx
++] = iname_lab
;
2337 /* The symbol refering to the code (.text) */
2339 asymbol
*function_name
;
2341 function_name
= bfd_make_empty_symbol(abfd
);
2342 function_name
->name
= make_label ("..", exp
->name
);
2343 function_name
->section
= secdata
[TEXT
].sec
;
2344 function_name
->flags
= BSF_GLOBAL
;
2345 function_name
->value
= 0;
2347 fn_pp
= ptrs
+ oidx
;
2348 ptrs
[oidx
++] = function_name
;
2351 /* The .toc symbol */
2353 asymbol
*toc_symbol
; /* The .toc symbol */
2355 toc_symbol
= bfd_make_empty_symbol (abfd
);
2356 toc_symbol
->name
= make_label (".", "toc");
2357 toc_symbol
->section
= (asection
*)&bfd_und_section
;
2358 toc_symbol
->flags
= BSF_GLOBAL
;
2359 toc_symbol
->value
= 0;
2361 toc_pp
= ptrs
+ oidx
;
2362 ptrs
[oidx
++] = toc_symbol
;
2368 for (i
= 0; i
< NSECS
; i
++)
2370 sinfo
*si
= secdata
+ i
;
2371 asection
*sec
= si
->sec
;
2380 si
->size
= HOW_JTAB_SIZE
;
2381 si
->data
= xmalloc (HOW_JTAB_SIZE
);
2382 memcpy (si
->data
, HOW_JTAB
, HOW_JTAB_SIZE
);
2384 /* add the reloc into idata$5 */
2385 rel
= xmalloc (sizeof (arelent
));
2387 rpp
= xmalloc (sizeof (arelent
*) * 2);
2391 rel
->address
= HOW_JTAB_ROFF
;
2394 if (machine
== MPPC
)
2396 rel
->howto
= bfd_reloc_type_lookup (abfd
,
2397 BFD_RELOC_16_GOTOFF
);
2398 rel
->sym_ptr_ptr
= iname_pp
;
2402 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2403 rel
->sym_ptr_ptr
= secdata
[IDATA5
].sympp
;
2405 sec
->orelocation
= rpp
;
2406 sec
->reloc_count
= 1;
2411 /* An idata$4 or idata$5 is one word long, and has an
2414 si
->data
= xmalloc (4);
2419 si
->data
[0] = exp
->ordinal
;
2420 si
->data
[1] = exp
->ordinal
>> 8;
2421 si
->data
[2] = exp
->ordinal
>> 16;
2426 sec
->reloc_count
= 1;
2427 memset (si
->data
, 0, si
->size
);
2428 rel
= xmalloc (sizeof (arelent
));
2429 rpp
= xmalloc (sizeof (arelent
*) * 2);
2434 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_RVA
);
2435 rel
->sym_ptr_ptr
= secdata
[IDATA6
].sympp
;
2436 sec
->orelocation
= rpp
;
2444 /* This used to add 1 to exp->hint. I don't know
2445 why it did that, and it does not match what I see
2446 in programs compiled with the MS tools. */
2447 int idx
= exp
->hint
;
2448 si
->size
= strlen (xlate (exp
->name
)) + 3;
2449 si
->data
= xmalloc (si
->size
);
2450 si
->data
[0] = idx
& 0xff;
2451 si
->data
[1] = idx
>> 8;
2452 strcpy (si
->data
+ 2, xlate (exp
->name
));
2457 si
->data
=xmalloc(4);
2458 memset (si
->data
, 0, si
->size
);
2459 rel
= xmalloc (sizeof (arelent
));
2460 rpp
= xmalloc (sizeof (arelent
*) * 2);
2464 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_RVA
);
2465 rel
->sym_ptr_ptr
= iname_lab_pp
;
2466 sec
->orelocation
= rpp
;
2467 sec
->reloc_count
= 1;
2473 /* The .pdata section is 5 words long. */
2474 /* Think of it as: */
2477 /* bfd_vma BeginAddress, [0x00] */
2478 /* EndAddress, [0x04] */
2479 /* ExceptionHandler, [0x08] */
2480 /* HandlerData, [0x0c] */
2481 /* PrologEndAddress; [0x10] */
2484 /* So this pdata section setups up this as a glue linkage to
2485 a dll routine. There are a number of house keeping things
2488 1. In the name of glue trickery, the ADDR32 relocs for 0,
2489 4, and 0x10 are set to point to the same place:
2491 2. There is one more reloc needed in the pdata section.
2492 The actual glue instruction to restore the toc on
2493 return is saved as the offset in an IMGLUE reloc.
2494 So we need a total of four relocs for this section.
2496 3. Lastly, the HandlerData field is set to 0x03, to indicate
2497 that this is a glue routine.
2499 arelent
*imglue
, *ba_rel
, *ea_rel
, *pea_rel
;
2501 /* alignment must be set to 2**2 or you get extra stuff */
2502 bfd_set_section_alignment(abfd
, sec
, 2);
2505 si
->data
=xmalloc(4 * 5);
2506 memset (si
->data
, 0, si
->size
);
2507 rpp
= xmalloc (sizeof (arelent
*) * 5);
2508 rpp
[0] = imglue
= xmalloc (sizeof (arelent
));
2509 rpp
[1] = ba_rel
= xmalloc (sizeof (arelent
));
2510 rpp
[2] = ea_rel
= xmalloc (sizeof (arelent
));
2511 rpp
[3] = pea_rel
= xmalloc (sizeof (arelent
));
2514 /* stick the toc reload instruction in the glue reloc */
2515 bfd_put_32(abfd
, ppc_glue_insn
, (char *) &imglue
->address
);
2518 imglue
->howto
= bfd_reloc_type_lookup (abfd
,
2519 BFD_RELOC_32_GOTOFF
);
2520 imglue
->sym_ptr_ptr
= fn_pp
;
2522 ba_rel
->address
= 0;
2524 ba_rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2525 ba_rel
->sym_ptr_ptr
= fn_pp
;
2527 bfd_put_32(abfd
, 0x18, si
->data
+ 0x04);
2528 ea_rel
->address
= 4;
2530 ea_rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2531 ea_rel
->sym_ptr_ptr
= fn_pp
;
2533 /* mark it as glue */
2534 bfd_put_32(abfd
, 0x03, si
->data
+ 0x0c);
2536 /* mark the prolog end address */
2537 bfd_put_32(abfd
, 0x0D, si
->data
+ 0x10);
2538 pea_rel
->address
= 0x10;
2539 pea_rel
->addend
= 0;
2540 pea_rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2541 pea_rel
->sym_ptr_ptr
= fn_pp
;
2543 sec
->orelocation
= rpp
;
2544 sec
->reloc_count
= 4;
2548 /* Each external function in a PowerPC PE file has a two word
2549 descriptor consisting of:
2550 1. The address of the code.
2551 2. The address of the appropriate .toc
2552 We use relocs to build this.
2556 si
->data
= xmalloc (8);
2557 memset (si
->data
, 0, si
->size
);
2559 rpp
= xmalloc (sizeof (arelent
*) * 3);
2560 rpp
[0] = rel
= xmalloc (sizeof (arelent
));
2561 rpp
[1] = xmalloc (sizeof (arelent
));
2566 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2567 rel
->sym_ptr_ptr
= fn_pp
;
2573 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2574 rel
->sym_ptr_ptr
= toc_pp
;
2576 sec
->orelocation
= rpp
;
2577 sec
->reloc_count
= 2;
2579 #endif /* DLLTOOL_PPC */
2585 /* Size up all the sections */
2586 for (i
= 0; i
< NSECS
; i
++)
2588 sinfo
*si
= secdata
+ i
;
2590 bfd_set_section_size (abfd
, si
->sec
, si
->size
);
2591 bfd_set_section_vma (abfd
, si
->sec
, vma
);
2593 /* vma += si->size;*/
2596 /* Write them out */
2597 for (i
= 0; i
< NSECS
; i
++)
2599 sinfo
*si
= secdata
+ i
;
2601 if (i
== IDATA5
&& no_idata5
)
2604 if (i
== IDATA4
&& no_idata4
)
2607 bfd_set_section_contents (abfd
, si
->sec
,
2612 bfd_set_symtab (abfd
, ptrs
, oidx
);
2614 abfd
= bfd_openr (outname
, HOW_BFD_READ_TARGET
);
2623 FILE *f
= fopen (TMP_HEAD_S
, FOPEN_WT
);
2627 fatal (_("failed to open temporary head file: %s"), TMP_HEAD_S
);
2631 fprintf (f
, "%s IMAGE_IMPORT_DESCRIPTOR\n", ASM_C
);
2632 fprintf (f
, "\t.section .idata$2\n");
2634 fprintf(f
,"\t%s\t%s\n", ASM_GLOBAL
,head_label
);
2636 fprintf (f
, "%s:\n", head_label
);
2638 fprintf (f
, "\t%shname%s\t%sPtr to image import by name list\n",
2639 ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
2641 fprintf (f
, "\t%sthis should be the timestamp, but NT sometimes\n", ASM_C
);
2642 fprintf (f
, "\t%sdoesn't load DLLs when this is set.\n", ASM_C
);
2643 fprintf (f
, "\t%s\t0\t%s loaded time\n", ASM_LONG
, ASM_C
);
2644 fprintf (f
, "\t%s\t0\t%s Forwarder chain\n", ASM_LONG
, ASM_C
);
2645 fprintf (f
, "\t%s__%s_iname%s\t%s imported dll's name\n",
2650 fprintf (f
, "\t%sfthunk%s\t%s pointer to firstthunk\n",
2652 ASM_RVA_AFTER
, ASM_C
);
2654 fprintf (f
, "%sStuff for compatibility\n", ASM_C
);
2658 fprintf (f
, "\t.section\t.idata$5\n");
2659 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2660 fprintf (f
, "fthunk:\n");
2665 fprintf (f
, "\t.section\t.idata$4\n");
2667 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2668 fprintf (f
, "\t.section .idata$4\n");
2669 fprintf (f
, "hname:\n");
2674 assemble_file (TMP_HEAD_S
, TMP_HEAD_O
);
2676 return bfd_openr (TMP_HEAD_O
, HOW_BFD_READ_TARGET
);
2682 FILE *f
= fopen (TMP_TAIL_S
, FOPEN_WT
);
2686 fatal (_("failed to open temporary tail file: %s"), TMP_TAIL_S
);
2692 fprintf (f
, "\t.section .idata$4\n");
2693 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2698 fprintf (f
, "\t.section .idata$5\n");
2699 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2703 /* Normally, we need to see a null descriptor built in idata$3 to
2704 act as the terminator for the list. The ideal way, I suppose,
2705 would be to mark this section as a comdat type 2 section, so
2706 only one would appear in the final .exe (if our linker supported
2707 comdat, that is) or cause it to be inserted by something else (say
2711 fprintf (f
, "\t.section .idata$3\n");
2712 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2713 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2714 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2715 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2716 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2720 /* Other PowerPC NT compilers use idata$6 for the dllname, so I
2721 do too. Original, huh? */
2722 fprintf (f
, "\t.section .idata$6\n");
2724 fprintf (f
, "\t.section .idata$7\n");
2727 fprintf (f
, "\t%s\t__%s_iname\n", ASM_GLOBAL
, imp_name_lab
);
2728 fprintf (f
, "__%s_iname:\t%s\t\"%s\"\n",
2729 imp_name_lab
, ASM_TEXT
, dll_name
);
2733 assemble_file (TMP_TAIL_S
, TMP_TAIL_O
);
2735 return bfd_openr (TMP_TAIL_O
, HOW_BFD_READ_TARGET
);
2750 outarch
= bfd_openw (imp_name
, HOW_BFD_WRITE_TARGET
);
2753 /* xgettext:c-format */
2754 fatal (_("Can't open .lib file: %s"), imp_name
);
2756 /* xgettext:c-format */
2757 inform (_("Creating library file: %s"), imp_name
);
2759 bfd_set_format (outarch
, bfd_archive
);
2760 outarch
->has_armap
= 1;
2762 /* Work out a reasonable size of things to put onto one line. */
2764 ar_head
= make_head ();
2765 ar_tail
= make_tail();
2767 if (ar_head
== NULL
|| ar_tail
== NULL
)
2770 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
2772 bfd
*n
= make_one_lib_file (exp
, i
);
2777 /* Now stick them all into the archive */
2779 ar_head
->next
= head
;
2780 ar_tail
->next
= ar_head
;
2783 if (! bfd_set_archive_head (outarch
, head
))
2784 bfd_fatal ("bfd_set_archive_head");
2786 if (! bfd_close (outarch
))
2787 bfd_fatal (imp_name
);
2789 while (head
!= NULL
)
2791 bfd
*n
= head
->next
;
2796 /* Delete all the temp files */
2798 if (dontdeltemps
== 0)
2800 unlink (TMP_HEAD_O
);
2801 unlink (TMP_HEAD_S
);
2802 unlink (TMP_TAIL_O
);
2803 unlink (TMP_TAIL_S
);
2806 if (dontdeltemps
< 2)
2810 name
= (char *) alloca (sizeof TMP_STUB
+ 10);
2811 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
2813 sprintf (name
, "%s%05d.o", TMP_STUB
, i
);
2814 if (unlink (name
) < 0)
2815 /* xgettext:c-format */
2816 non_fatal (_("cannot delete %s: %s"), name
, strerror (errno
));
2820 inform (_("Created lib file"));
2823 /**********************************************************************/
2825 /* Run through the information gathered from the .o files and the
2826 .def file and work out the best stuff */
2832 export_type
*ap
= *(export_type
**) a
;
2833 export_type
*bp
= *(export_type
**) b
;
2834 if (ap
->ordinal
== bp
->ordinal
)
2837 /* unset ordinals go to the bottom */
2838 if (ap
->ordinal
== -1)
2840 if (bp
->ordinal
== -1)
2842 return (ap
->ordinal
- bp
->ordinal
);
2850 export_type
*ap
= *(export_type
**) a
;
2851 export_type
*bp
= *(export_type
**) b
;
2853 return (strcmp (ap
->name
, bp
->name
));
2857 remove_null_names (ptr
)
2862 for (dst
= src
= 0; src
< d_nfuncs
; src
++)
2866 ptr
[dst
] = ptr
[src
];
2883 for (i
= 0; i
< d_nfuncs
; i
++)
2887 printf ("%d %s @ %d %s%s%s\n",
2888 i
, ptr
[i
]->name
, ptr
[i
]->ordinal
,
2889 ptr
[i
]->noname
? "NONAME " : "",
2890 ptr
[i
]->constant
? "CONSTANT" : "",
2891 ptr
[i
]->data
? "DATA" : "");
2900 process_duplicates (d_export_vec
)
2901 export_type
**d_export_vec
;
2909 /* Remove duplicates */
2910 qsort (d_export_vec
, d_nfuncs
, sizeof (export_type
*), nfunc
);
2912 dtab (d_export_vec
);
2913 for (i
= 0; i
< d_nfuncs
- 1; i
++)
2915 if (strcmp (d_export_vec
[i
]->name
,
2916 d_export_vec
[i
+ 1]->name
) == 0)
2919 export_type
*a
= d_export_vec
[i
];
2920 export_type
*b
= d_export_vec
[i
+ 1];
2924 /* xgettext:c-format */
2925 inform (_("Warning, ignoring duplicate EXPORT %s %d,%d"),
2926 a
->name
, a
->ordinal
, b
->ordinal
);
2928 if (a
->ordinal
!= -1
2929 && b
->ordinal
!= -1)
2930 /* xgettext:c-format */
2931 fatal (_("Error, duplicate EXPORT with oridinals: %s"),
2934 /* Merge attributes */
2935 b
->ordinal
= a
->ordinal
> 0 ? a
->ordinal
: b
->ordinal
;
2936 b
->constant
|= a
->constant
;
2937 b
->noname
|= a
->noname
;
2939 d_export_vec
[i
] = 0;
2942 dtab (d_export_vec
);
2943 remove_null_names (d_export_vec
);
2944 dtab (d_export_vec
);
2949 /* Count the names */
2950 for (i
= 0; i
< d_nfuncs
; i
++)
2952 if (!d_export_vec
[i
]->noname
)
2958 fill_ordinals (d_export_vec
)
2959 export_type
**d_export_vec
;
2966 qsort (d_export_vec
, d_nfuncs
, sizeof (export_type
*), pfunc
);
2968 /* fill in the unset ordinals with ones from our range */
2970 ptr
= (char *) xmalloc (size
);
2972 memset (ptr
, 0, size
);
2974 /* Mark in our large vector all the numbers that are taken */
2975 for (i
= 0; i
< d_nfuncs
; i
++)
2977 if (d_export_vec
[i
]->ordinal
!= -1)
2979 ptr
[d_export_vec
[i
]->ordinal
] = 1;
2980 if (lowest
== -1 || d_export_vec
[i
]->ordinal
< lowest
)
2982 lowest
= d_export_vec
[i
]->ordinal
;
2987 /* Start at 1 for compatibility with MS toolchain. */
2991 /* Now fill in ordinals where the user wants us to choose. */
2992 for (i
= 0; i
< d_nfuncs
; i
++)
2994 if (d_export_vec
[i
]->ordinal
== -1)
2998 /* First try within or after any user supplied range. */
2999 for (j
= lowest
; j
< size
; j
++)
3003 d_export_vec
[i
]->ordinal
= j
;
3007 /* Then try before the range. */
3008 for (j
= lowest
; j
>0; j
--)
3012 d_export_vec
[i
]->ordinal
= j
;
3023 qsort (d_export_vec
, d_nfuncs
, sizeof (export_type
*), pfunc
);
3025 /* Work out the lowest and highest ordinal numbers. */
3028 if (d_export_vec
[0])
3029 d_low_ord
= d_export_vec
[0]->ordinal
;
3030 if (d_export_vec
[d_nfuncs
-1])
3031 d_high_ord
= d_export_vec
[d_nfuncs
-1]->ordinal
;
3040 const export_type
**a
= (const export_type
**) av
;
3041 const export_type
**b
= (const export_type
**) bv
;
3043 return strcmp ((*a
)->name
, (*b
)->name
);
3049 /* First work out the minimum ordinal chosen */
3055 export_type
**d_export_vec
3056 = (export_type
**) xmalloc (sizeof (export_type
*) * d_nfuncs
);
3058 inform (_("Processing definitions"));
3060 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
3062 d_export_vec
[i
] = exp
;
3065 process_duplicates (d_export_vec
);
3066 fill_ordinals (d_export_vec
);
3068 /* Put back the list in the new order */
3070 for (i
= d_nfuncs
- 1; i
>= 0; i
--)
3072 d_export_vec
[i
]->next
= d_exports
;
3073 d_exports
= d_export_vec
[i
];
3076 /* Build list in alpha order */
3077 d_exports_lexically
= (export_type
**)
3078 xmalloc (sizeof (export_type
*) * (d_nfuncs
+ 1));
3080 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
3082 d_exports_lexically
[i
] = exp
;
3084 d_exports_lexically
[i
] = 0;
3086 qsort (d_exports_lexically
, i
, sizeof (export_type
*), alphafunc
);
3088 /* Fill exp entries with their hint values */
3090 for (i
= 0; i
< d_nfuncs
; i
++)
3092 if (!d_exports_lexically
[i
]->noname
|| show_allnames
)
3093 d_exports_lexically
[i
]->hint
= hint
++;
3096 inform (_("Processed definitions"));
3099 /**********************************************************************/
3102 usage (file
, status
)
3106 /* xgetext:c-format */
3107 fprintf (file
, _("Usage %s <options> <object-files>\n"), program_name
);
3108 /* xgetext:c-format */
3109 fprintf (file
, _(" -m --machine <machine> Create as DLL for <machine>. [default: %s]\n"), mname
);
3110 fprintf (file
, _(" possible <machine>: arm[_interwork], i386, mcore[-elf]{-le|-be}, ppc, thumb\n"));
3111 fprintf (file
, _(" -e --output-exp <outname> Generate an export file.\n"));
3112 fprintf (file
, _(" -l --output-lib <outname> Generate an interface library.\n"));
3113 fprintf (file
, _(" -a --add-indirect Add dll indirects to export file.\n"));
3114 fprintf (file
, _(" -D --dllname <name> Name of input dll to put into interface lib.\n"));
3115 fprintf (file
, _(" -d --input-def <deffile> Name of .def file to be read in.\n"));
3116 fprintf (file
, _(" -z --output-def <deffile> Name of .def file to be created.\n"));
3117 fprintf (file
, _(" --export-all-symbols Export all symbols to .def\n"));
3118 fprintf (file
, _(" --no-export-all-symbols Only export listed symbols\n"));
3119 fprintf (file
, _(" --exclude-symbols <list> Don't export <list>\n"));
3120 fprintf (file
, _(" --no-default-excludes Clear default exclude symbols\n"));
3121 fprintf (file
, _(" -b --base-file <basefile> Read linker generated base file.\n"));
3122 fprintf (file
, _(" -x --no-idata4 Don't generate idata$4 section.\n"));
3123 fprintf (file
, _(" -c --no-idata5 Don't generate idata$5 section.\n"));
3124 fprintf (file
, _(" -U --add-underscore Add underscores to symbols in interface library.\n"));
3125 fprintf (file
, _(" -k --kill-at Kill @<n> from exported names.\n"));
3126 fprintf (file
, _(" -A --add-stdcall-alias Add aliases without @<n>.\n"));
3127 fprintf (file
, _(" -S --as <name> Use <name> for assembler.\n"));
3128 fprintf (file
, _(" -f --as-flags <flags> Pass <flags> to the assembler.\n"));
3129 fprintf (file
, _(" -C --compat-implib Create backward compatible import library.\n"));
3130 fprintf (file
, _(" -n --no-delete Keep temp files (repeat for extra preservation).\n"));
3131 fprintf (file
, _(" -v --verbose Be verbose.\n"));
3132 fprintf (file
, _(" -V --version Display the program version.\n"));
3133 fprintf (file
, _(" -h --help Display this information.\n"));
3134 #ifdef DLLTOOL_MCORE_ELF
3135 fprintf (file
, _(" -M --mcore-elf <outname> Process mcore-elf object files into <outname>.\n"));
3136 fprintf (file
, _(" -L --linker <name> Use <name> as the linker.\n"));
3137 fprintf (file
, _(" -F --linker-flags <flags> Pass <flags> to the linker.\n"));
3142 #define OPTION_EXPORT_ALL_SYMS 150
3143 #define OPTION_NO_EXPORT_ALL_SYMS (OPTION_EXPORT_ALL_SYMS + 1)
3144 #define OPTION_EXCLUDE_SYMS (OPTION_NO_EXPORT_ALL_SYMS + 1)
3145 #define OPTION_NO_DEFAULT_EXCLUDES (OPTION_EXCLUDE_SYMS + 1)
3147 static const struct option long_options
[] =
3149 {"no-delete", no_argument
, NULL
, 'n'},
3150 {"dllname", required_argument
, NULL
, 'D'},
3151 {"no-idata4", no_argument
, NULL
, 'x'},
3152 {"no-idata5", no_argument
, NULL
, 'c'},
3153 {"output-exp", required_argument
, NULL
, 'e'},
3154 {"output-def", required_argument
, NULL
, 'z'},
3155 {"export-all-symbols", no_argument
, NULL
, OPTION_EXPORT_ALL_SYMS
},
3156 {"no-export-all-symbols", no_argument
, NULL
, OPTION_NO_EXPORT_ALL_SYMS
},
3157 {"exclude-symbols", required_argument
, NULL
, OPTION_EXCLUDE_SYMS
},
3158 {"no-default-excludes", no_argument
, NULL
, OPTION_NO_DEFAULT_EXCLUDES
},
3159 {"output-lib", required_argument
, NULL
, 'l'},
3160 {"def", required_argument
, NULL
, 'd'}, /* for compatiblity with older versions */
3161 {"input-def", required_argument
, NULL
, 'd'},
3162 {"add-underscore", no_argument
, NULL
, 'U'},
3163 {"kill-at", no_argument
, NULL
, 'k'},
3164 {"add-stdcall-alias", no_argument
, NULL
, 'A'},
3165 {"verbose", no_argument
, NULL
, 'v'},
3166 {"version", no_argument
, NULL
, 'V'},
3167 {"help", no_argument
, NULL
, 'h'},
3168 {"machine", required_argument
, NULL
, 'm'},
3169 {"add-indirect", no_argument
, NULL
, 'a'},
3170 {"base-file", required_argument
, NULL
, 'b'},
3171 {"as", required_argument
, NULL
, 'S'},
3172 {"as-flags", required_argument
, NULL
, 'f'},
3173 {"mcore-elf", required_argument
, NULL
, 'M'},
3174 {"compat-implib", no_argument
, NULL
, 'C'},
3186 program_name
= av
[0];
3189 #if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
3190 setlocale (LC_MESSAGES
, "");
3192 bindtextdomain (PACKAGE
, LOCALEDIR
);
3193 textdomain (PACKAGE
);
3195 while ((c
= getopt_long (ac
, av
,
3196 #ifdef DLLTOOL_MCORE_ELF
3197 "m:e:l:aD:d:z:b:xcCuUkAS:f:nvVhM:L:F:",
3199 "m:e:l:aD:d:z:b:xcCuUkAS:f:nvVh",
3206 case OPTION_EXPORT_ALL_SYMS
:
3207 export_all_symbols
= true;
3209 case OPTION_NO_EXPORT_ALL_SYMS
:
3210 export_all_symbols
= false;
3212 case OPTION_EXCLUDE_SYMS
:
3213 add_excludes (optarg
);
3215 case OPTION_NO_DEFAULT_EXCLUDES
:
3216 do_default_excludes
= false;
3231 /* ignored for compatibility */
3238 output_def
= fopen (optarg
, FOPEN_WT
);
3259 print_version (program_name
);
3268 add_stdcall_alias
= 1;
3277 base_file
= fopen (optarg
, FOPEN_RB
);
3280 /* xgettext:c-format */
3281 fatal (_("Unable to open base-file: %s"), optarg
);
3284 #ifdef DLLTOOL_MCORE_ELF
3286 mcore_elf_out_file
= optarg
;
3289 mcore_elf_linker
= optarg
;
3292 mcore_elf_linker_flags
= optarg
;
3296 create_compat_implib
= 1;
3304 for (i
= 0; mtable
[i
].type
; i
++)
3305 if (strcmp (mtable
[i
].type
, mname
) == 0)
3308 if (!mtable
[i
].type
)
3309 /* xgettext:c-format */
3310 fatal (_("Machine '%s' not supported"), mname
);
3314 if (!dll_name
&& exp_name
)
3316 int len
= strlen (exp_name
) + 5;
3317 dll_name
= xmalloc (len
);
3318 strcpy (dll_name
, exp_name
);
3319 strcat (dll_name
, ".dll");
3322 if (as_name
== NULL
)
3323 as_name
= deduce_name ("as");
3325 /* Don't use the default exclude list if we're reading only the
3326 symbols in the .drectve section. The default excludes are meant
3327 to avoid exporting DLL entry point and Cygwin32 impure_ptr. */
3328 if (! export_all_symbols
)
3329 do_default_excludes
= false;
3331 if (do_default_excludes
)
3332 set_default_excludes ();
3335 process_def_file (def_file
);
3340 firstarg
= av
[optind
];
3341 scan_obj_file (av
[optind
]);
3352 /* Make imp_name safe for use as a label. */
3355 imp_name_lab
= xstrdup (imp_name
);
3356 for (p
= imp_name_lab
; *p
; p
++)
3358 if (!isalpha ((unsigned char) *p
) && !isdigit ((unsigned char) *p
))
3361 head_label
= make_label("_head_", imp_name_lab
);
3368 #ifdef DLLTOOL_MCORE_ELF
3369 if (mcore_elf_out_file
)
3370 mcore_elf_gen_out_file ();
3376 /* Look for the program formed by concatenating PROG_NAME and the
3377 string running from PREFIX to END_PREFIX. If the concatenated
3378 string contains a '/', try appending EXECUTABLE_SUFFIX if it is
3382 look_for_prog (prog_name
, prefix
, end_prefix
)
3383 const char *prog_name
;
3390 cmd
= xmalloc (strlen (prefix
)
3391 + strlen (prog_name
)
3392 #ifdef HAVE_EXECUTABLE_SUFFIX
3393 + strlen (EXECUTABLE_SUFFIX
)
3396 strcpy (cmd
, prefix
);
3398 sprintf (cmd
+ end_prefix
, "%s", prog_name
);
3400 if (strchr (cmd
, '/') != NULL
)
3404 found
= (stat (cmd
, &s
) == 0
3405 #ifdef HAVE_EXECUTABLE_SUFFIX
3406 || stat (strcat (cmd
, EXECUTABLE_SUFFIX
), &s
) == 0
3412 /* xgettext:c-format */
3413 inform (_("Tried file: %s"), cmd
);
3419 /* xgettext:c-format */
3420 inform (_("Using file: %s"), cmd
);
3425 /* Deduce the name of the program we are want to invoke.
3426 PROG_NAME is the basic name of the program we want to run,
3427 eg "as" or "ld". The catch is that we might want actually
3428 run "i386-pe-as" or "ppc-pe-ld".
3430 If argv[0] contains the full path, then try to find the program
3431 in the same place, with and then without a target-like prefix.
3433 Given, argv[0] = /usr/local/bin/i586-cygwin32-dlltool,
3434 deduce_name("as") uses the following search order:
3436 /usr/local/bin/i586-cygwin32-as
3440 If there's an EXECUTABLE_SUFFIX, it'll use that as well; for each
3441 name, it'll try without and then with EXECUTABLE_SUFFIX.
3443 Given, argv[0] = i586-cygwin32-dlltool, it will not even try "as"
3444 as the fallback, but rather return i586-cygwin32-as.
3446 Oh, and given, argv[0] = dlltool, it'll return "as".
3448 Returns a dynamically allocated string. */
3451 deduce_name (prog_name
)
3452 const char *prog_name
;
3455 char *dash
, *slash
, *cp
;
3459 for (cp
= program_name
; *cp
!= '\0'; ++cp
)
3464 #if defined(__DJGPP__) || defined (__CYGWIN__) || defined(__WIN32__)
3465 *cp
== ':' || *cp
== '\\' ||
3478 /* First, try looking for a prefixed PROG_NAME in the
3479 PROGRAM_NAME directory, with the same prefix as PROGRAM_NAME. */
3480 cmd
= look_for_prog (prog_name
, program_name
, dash
- program_name
+ 1);
3483 if (slash
!= NULL
&& cmd
== NULL
)
3485 /* Next, try looking for a PROG_NAME in the same directory as
3486 that of this program. */
3487 cmd
= look_for_prog (prog_name
, program_name
, slash
- program_name
+ 1);
3492 /* Just return PROG_NAME as is. */
3493 cmd
= xstrdup (prog_name
);
3499 #ifdef DLLTOOL_MCORE_ELF
3500 typedef struct fname_cache
3503 struct fname_cache
* next
;
3507 static fname_cache fnames
;
3510 mcore_elf_cache_filename (char * filename
)
3516 while (ptr
->next
!= NULL
)
3519 ptr
->filename
= filename
;
3520 ptr
->next
= (fname_cache
*) malloc (sizeof (fname_cache
));
3521 if (ptr
->next
!= NULL
)
3522 ptr
->next
->next
= NULL
;
3525 #define MCORE_ELF_TMP_OBJ "mcoreelf.o"
3526 #define MCORE_ELF_TMP_EXP "mcoreelf.exp"
3527 #define MCORE_ELF_TMP_LIB "mcoreelf.lib"
3530 mcore_elf_gen_out_file (void)
3535 /* Step one. Run 'ld -r' on the input object files in order to resolve
3536 any internal references and to generate a single .exports section. */
3539 ds
= dyn_string_new (100);
3540 dyn_string_append (ds
, "-r ");
3542 if (mcore_elf_linker_flags
!= NULL
)
3543 dyn_string_append (ds
, mcore_elf_linker_flags
);
3545 while (ptr
->next
!= NULL
)
3547 dyn_string_append (ds
, ptr
->filename
);
3548 dyn_string_append (ds
, " ");
3553 dyn_string_append (ds
, "-o ");
3554 dyn_string_append (ds
, MCORE_ELF_TMP_OBJ
);
3556 if (mcore_elf_linker
== NULL
)
3557 mcore_elf_linker
= deduce_name ("ld");
3559 run (mcore_elf_linker
, ds
->s
);
3561 dyn_string_delete (ds
);
3563 /* Step two. Create a .exp file and a .lib file from the temporary file.
3564 Do this by recursively invoking dlltool....*/
3565 ds
= dyn_string_new (100);
3567 dyn_string_append (ds
, "-S ");
3568 dyn_string_append (ds
, as_name
);
3570 dyn_string_append (ds
, " -e ");
3571 dyn_string_append (ds
, MCORE_ELF_TMP_EXP
);
3572 dyn_string_append (ds
, " -l ");
3573 dyn_string_append (ds
, MCORE_ELF_TMP_LIB
);
3574 dyn_string_append (ds
, " " );
3575 dyn_string_append (ds
, MCORE_ELF_TMP_OBJ
);
3578 dyn_string_append (ds
, " -v");
3582 dyn_string_append (ds
, " -n");
3584 if (dontdeltemps
> 1)
3585 dyn_string_append (ds
, " -n");
3588 /* XXX - FIME: ought to check/copy other command line options as well. */
3590 run (program_name
, ds
->s
);
3592 dyn_string_delete (ds
);
3594 /* Step four. Feed the .exp and object files to ld -shared to create the dll. */
3595 ds
= dyn_string_new (100);
3597 dyn_string_append (ds
, "-shared ");
3599 if (mcore_elf_linker_flags
)
3600 dyn_string_append (ds
, mcore_elf_linker_flags
);
3602 dyn_string_append (ds
, " ");
3603 dyn_string_append (ds
, MCORE_ELF_TMP_EXP
);
3604 dyn_string_append (ds
, " ");
3605 dyn_string_append (ds
, MCORE_ELF_TMP_OBJ
);
3606 dyn_string_append (ds
, " -o ");
3607 dyn_string_append (ds
, mcore_elf_out_file
);
3609 run (mcore_elf_linker
, ds
->s
);
3611 dyn_string_delete (ds
);
3613 if (dontdeltemps
== 0)
3614 unlink (MCORE_ELF_TMP_EXP
);
3616 if (dontdeltemps
< 2)
3617 unlink (MCORE_ELF_TMP_OBJ
);
3619 #endif /* DLLTOOL_MCORE_ELF */