1 /* dlltool.c -- tool to generate stuff for PE style DLLs
2 Copyright 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002
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
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] ) *
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 whoes 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 refered 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>
258 #ifdef ANSI_PROTOTYPES
265 #include "coff/arm.h"
266 #include "coff/internal.h"
269 /* Forward references. */
270 static char *look_for_prog
271 PARAMS ((const char *, const char *, int));
272 static char *deduce_name
273 PARAMS ((const char *));
275 #ifdef DLLTOOL_MCORE_ELF
276 static void mcore_elf_cache_filename
278 static void mcore_elf_gen_out_file
282 #ifdef HAVE_SYS_WAIT_H
283 #include <sys/wait.h>
284 #else /* ! HAVE_SYS_WAIT_H */
285 #if ! defined (_WIN32) || defined (__CYGWIN32__)
287 #define WIFEXITED(w) (((w) & 0377) == 0)
290 #define WIFSIGNALED(w) (((w) & 0377) != 0177 && ((w) & ~0377) == 0)
293 #define WTERMSIG(w) ((w) & 0177)
296 #define WEXITSTATUS(w) (((w) >> 8) & 0377)
298 #else /* defined (_WIN32) && ! defined (__CYGWIN32__) */
300 #define WIFEXITED(w) (((w) & 0xff) == 0)
303 #define WIFSIGNALED(w) (((w) & 0xff) != 0 && ((w) & 0xff) != 0x7f)
306 #define WTERMSIG(w) ((w) & 0x7f)
309 #define WEXITSTATUS(w) (((w) & 0xff00) >> 8)
311 #endif /* defined (_WIN32) && ! defined (__CYGWIN32__) */
312 #endif /* ! HAVE_SYS_WAIT_H */
314 /* ifunc and ihead data structures: ttk@cygnus.com 1997
316 When IMPORT declarations are encountered in a .def file the
317 function import information is stored in a structure referenced by
318 the global variable IMPORT_LIST. The structure is a linked list
319 containing the names of the dll files each function is imported
320 from and a linked list of functions being imported from that dll
321 file. This roughly parallels the structure of the .idata section
322 in the PE object file.
324 The contents of .def file are interpreted from within the
325 process_def_file function. Every time an IMPORT declaration is
326 encountered, it is broken up into its component parts and passed to
327 def_import. IMPORT_LIST is initialized to NULL in function main. */
329 typedef struct ifunct
331 char * name
; /* Name of function being imported. */
332 int ord
; /* Two-byte ordinal value associated with function. */
336 typedef struct iheadt
338 char *dllname
; /* Name of dll file imported from. */
339 long nfuncs
; /* Number of functions in list. */
340 struct ifunct
*funchead
; /* First function in list. */
341 struct ifunct
*functail
; /* Last function in list. */
342 struct iheadt
*next
; /* Next dll file in list. */
345 /* Structure containing all import information as defined in .def file
346 (qv "ihead structure"). */
348 static iheadtype
*import_list
= NULL
;
350 static char *as_name
= NULL
;
351 static char * as_flags
= "";
353 static char *tmp_prefix
= "d";
355 static int no_idata4
;
356 static int no_idata5
;
357 static char *exp_name
;
358 static char *imp_name
;
359 static char *head_label
;
360 static char *imp_name_lab
;
361 static char *dll_name
;
363 static int add_indirect
= 0;
364 static int add_underscore
= 0;
365 static int dontdeltemps
= 0;
367 /* TRUE if we should export all symbols. Otherwise, we only export
368 symbols listed in .drectve sections or in the def file. */
369 static bfd_boolean export_all_symbols
;
371 /* TRUE if we should exclude the symbols in DEFAULT_EXCLUDES when
372 exporting all symbols. */
373 static bfd_boolean do_default_excludes
= TRUE
;
375 /* Default symbols to exclude when exporting all the symbols. */
376 static const char *default_excludes
= "DllMain@12,DllEntryPoint@0,impure_ptr";
378 /* TRUE if we should add __imp_<SYMBOL> to import libraries for backward
379 compatibility to old Cygwin releases. */
380 static bfd_boolean create_compat_implib
;
382 static char *def_file
;
384 extern char * program_name
;
388 static int add_stdcall_alias
;
390 static FILE *output_def
;
391 static FILE *base_file
;
394 #ifdef DLLTOOL_ARM_EPOC
395 static const char *mname
= "arm-epoc";
397 static const char *mname
= "arm";
402 static const char *mname
= "i386";
406 static const char *mname
= "ppc";
410 static const char *mname
= "sh";
414 static const char *mname
= "mips";
418 static const char * mname
= "mcore-le";
421 #ifdef DLLTOOL_MCORE_ELF
422 static const char * mname
= "mcore-elf";
423 static char * mcore_elf_out_file
= NULL
;
424 static char * mcore_elf_linker
= NULL
;
425 static char * mcore_elf_linker_flags
= NULL
;
427 #define DRECTVE_SECTION_NAME ((machine == MMCORE_ELF || machine == MMCORE_ELF_LE) ? ".exports" : ".drectve")
430 #ifndef DRECTVE_SECTION_NAME
431 #define DRECTVE_SECTION_NAME ".drectve"
434 #define PATHMAX 250 /* What's the right name for this ? */
437 char *tmp_head_s_buf
;
438 char *tmp_head_o_buf
;
439 char *tmp_tail_s_buf
;
440 char *tmp_tail_o_buf
;
443 #define TMP_ASM dlltmp (tmp_asm_buf, "%sc.s")
444 #define TMP_HEAD_S dlltmp (tmp_head_s_buf, "%sh.s")
445 #define TMP_HEAD_O dlltmp (tmp_head_o_buf, "%sh.o")
446 #define TMP_TAIL_S dlltmp (tmp_tail_s_buf, "%st.s")
447 #define TMP_TAIL_O dlltmp (tmp_tail_o_buf, "%st.o")
448 #define TMP_STUB dlltmp (tmp_stub_buf, "%ss")
450 /* This bit of assemly does jmp * .... */
451 static const unsigned char i386_jtab
[] =
453 0xff, 0x25, 0x00, 0x00, 0x00, 0x00, 0x90, 0x90
456 static const unsigned char arm_jtab
[] =
458 0x00, 0xc0, 0x9f, 0xe5, /* ldr ip, [pc] */
459 0x00, 0xf0, 0x9c, 0xe5, /* ldr pc, [ip] */
463 static const unsigned char arm_interwork_jtab
[] =
465 0x04, 0xc0, 0x9f, 0xe5, /* ldr ip, [pc] */
466 0x00, 0xc0, 0x9c, 0xe5, /* ldr ip, [ip] */
467 0x1c, 0xff, 0x2f, 0xe1, /* bx ip */
471 static const unsigned char thumb_jtab
[] =
473 0x40, 0xb4, /* push {r6} */
474 0x02, 0x4e, /* ldr r6, [pc, #8] */
475 0x36, 0x68, /* ldr r6, [r6] */
476 0xb4, 0x46, /* mov ip, r6 */
477 0x40, 0xbc, /* pop {r6} */
478 0x60, 0x47, /* bx ip */
482 static const unsigned char mcore_be_jtab
[] =
484 0x71, 0x02, /* lrw r1,2 */
485 0x81, 0x01, /* ld.w r1,(r1,0) */
486 0x00, 0xC1, /* jmp r1 */
487 0x12, 0x00, /* nop */
488 0x00, 0x00, 0x00, 0x00 /* <address> */
491 static const unsigned char mcore_le_jtab
[] =
493 0x02, 0x71, /* lrw r1,2 */
494 0x01, 0x81, /* ld.w r1,(r1,0) */
495 0xC1, 0x00, /* jmp r1 */
496 0x00, 0x12, /* nop */
497 0x00, 0x00, 0x00, 0x00 /* <address> */
500 /* This is the glue sequence for PowerPC PE. There is a
501 tocrel16-tocdefn reloc against the first instruction.
502 We also need a IMGLUE reloc against the glue function
503 to restore the toc saved by the third instruction in
505 static const unsigned char ppc_jtab
[] =
507 0x00, 0x00, 0x62, 0x81, /* lwz r11,0(r2) */
508 /* Reloc TOCREL16 __imp_xxx */
509 0x00, 0x00, 0x8B, 0x81, /* lwz r12,0(r11) */
510 0x04, 0x00, 0x41, 0x90, /* stw r2,4(r1) */
511 0xA6, 0x03, 0x89, 0x7D, /* mtctr r12 */
512 0x04, 0x00, 0x4B, 0x80, /* lwz r2,4(r11) */
513 0x20, 0x04, 0x80, 0x4E /* bctr */
517 /* The glue instruction, picks up the toc from the stw in
518 the above code: "lwz r2,4(r1)". */
519 static bfd_vma ppc_glue_insn
= 0x80410004;
525 const char *how_byte
;
526 const char *how_short
;
527 const char *how_long
;
528 const char *how_asciz
;
529 const char *how_comment
;
530 const char *how_jump
;
531 const char *how_global
;
532 const char *how_space
;
533 const char *how_align_short
;
534 const char *how_align_long
;
535 const char *how_default_as_switches
;
536 const char *how_bfd_target
;
537 enum bfd_architecture how_bfd_arch
;
538 const unsigned char *how_jtab
;
539 int how_jtab_size
; /* Size of the jtab entry. */
540 int how_jtab_roff
; /* Offset into it for the ind 32 reloc into idata 5. */
543 static const struct mac
548 "arm", ".byte", ".short", ".long", ".asciz", "@",
549 "ldr\tip,[pc]\n\tldr\tpc,[ip]\n\t.long",
550 ".global", ".space", ".align\t2",".align\t4", "-mapcs-32",
551 "pe-arm-little", bfd_arch_arm
,
552 arm_jtab
, sizeof (arm_jtab
), 8
557 "i386", ".byte", ".short", ".long", ".asciz", "#",
558 "jmp *", ".global", ".space", ".align\t2",".align\t4", "",
559 "pe-i386",bfd_arch_i386
,
560 i386_jtab
, sizeof (i386_jtab
), 2
565 "ppc", ".byte", ".short", ".long", ".asciz", "#",
566 "jmp *", ".global", ".space", ".align\t2",".align\t4", "",
567 "pe-powerpcle",bfd_arch_powerpc
,
568 ppc_jtab
, sizeof (ppc_jtab
), 0
573 "thumb", ".byte", ".short", ".long", ".asciz", "@",
574 "push\t{r6}\n\tldr\tr6, [pc, #8]\n\tldr\tr6, [r6]\n\tmov\tip, r6\n\tpop\t{r6}\n\tbx\tip",
575 ".global", ".space", ".align\t2",".align\t4", "-mthumb-interwork",
576 "pe-arm-little", bfd_arch_arm
,
577 thumb_jtab
, sizeof (thumb_jtab
), 12
580 #define MARM_INTERWORK 4
582 "arm_interwork", ".byte", ".short", ".long", ".asciz", "@",
583 "ldr\tip,[pc]\n\tldr\tip,[ip]\n\tbx\tip\n\t.long",
584 ".global", ".space", ".align\t2",".align\t4", "-mthumb-interwork",
585 "pe-arm-little", bfd_arch_arm
,
586 arm_interwork_jtab
, sizeof (arm_interwork_jtab
), 12
591 "mcore-be", ".byte", ".short", ".long", ".asciz", "//",
592 "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
593 ".global", ".space", ".align\t2",".align\t4", "",
594 "pe-mcore-big", bfd_arch_mcore
,
595 mcore_be_jtab
, sizeof (mcore_be_jtab
), 8
600 "mcore-le", ".byte", ".short", ".long", ".asciz", "//",
601 "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
602 ".global", ".space", ".align\t2",".align\t4", "-EL",
603 "pe-mcore-little", bfd_arch_mcore
,
604 mcore_le_jtab
, sizeof (mcore_le_jtab
), 8
609 "mcore-elf-be", ".byte", ".short", ".long", ".asciz", "//",
610 "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
611 ".global", ".space", ".align\t2",".align\t4", "",
612 "elf32-mcore-big", bfd_arch_mcore
,
613 mcore_be_jtab
, sizeof (mcore_be_jtab
), 8
617 #define MMCORE_ELF_LE 8
618 "mcore-elf-le", ".byte", ".short", ".long", ".asciz", "//",
619 "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
620 ".global", ".space", ".align\t2",".align\t4", "-EL",
621 "elf32-mcore-little", bfd_arch_mcore
,
622 mcore_le_jtab
, sizeof (mcore_le_jtab
), 8
627 "arm-epoc", ".byte", ".short", ".long", ".asciz", "@",
628 "ldr\tip,[pc]\n\tldr\tpc,[ip]\n\t.long",
629 ".global", ".space", ".align\t2",".align\t4", "",
630 "epoc-pe-arm-little", bfd_arch_arm
,
631 arm_jtab
, sizeof (arm_jtab
), 8
634 { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }
644 typedef struct export
647 const char *internal_name
;
653 int forward
; /* Number of forward label, 0 means no forward. */
658 /* A list of symbols which we should not export. */
662 struct string_list
*next
;
666 static struct string_list
*excludes
;
668 static const char *rvaafter
670 static const char *rvabefore
672 static const char *asm_prefix
674 static void process_def_file
675 PARAMS ((const char *));
676 static void new_directive
678 static void append_import
679 PARAMS ((const char *, const char *, int));
681 PARAMS ((const char *, char *));
682 static void scan_drectve_symbols
684 static void scan_filtered_symbols
685 PARAMS ((bfd
*, PTR
, long, unsigned int));
686 static void add_excludes
687 PARAMS ((const char *));
688 static bfd_boolean match_exclude
689 PARAMS ((const char *));
690 static void set_default_excludes
692 static long filter_symbols
693 PARAMS ((bfd
*, PTR
, long, unsigned int));
694 static void scan_all_symbols
696 static void scan_open_obj_file
698 static void scan_obj_file
699 PARAMS ((const char *));
700 static void dump_def_info
703 PARAMS ((const void *, const void *));
704 static void flush_page
705 PARAMS ((FILE *, long *, int, int));
706 static void gen_def_file
708 static void generate_idata_ofile
710 static void assemble_file
711 PARAMS ((const char *, const char *));
712 static void gen_exp_file
714 static const char *xlate
715 PARAMS ((const char *));
718 PARAMS ((FILE *, export_type
*));
720 static char *make_label
721 PARAMS ((const char *, const char *));
722 static char *make_imp_label
723 PARAMS ((const char *, const char *));
724 static bfd
*make_one_lib_file
725 PARAMS ((export_type
*, int));
726 static bfd
*make_head
728 static bfd
*make_tail
730 static void gen_lib_file
733 PARAMS ((const void *, const void *));
735 PARAMS ((const void *, const void *));
736 static void remove_null_names
737 PARAMS ((export_type
**));
739 PARAMS ((export_type
**));
740 static void process_duplicates
741 PARAMS ((export_type
**));
742 static void fill_ordinals
743 PARAMS ((export_type
**));
745 PARAMS ((const void *, const void *));
746 static void mangle_defs
749 PARAMS ((FILE *, int));
751 PARAMS ((const char *, ...));
754 dlltmp
PARAMS ((char *buf
, const char *fmt
))
757 buf
= malloc (strlen (tmp_prefix
) + 17);
758 sprintf (buf
, fmt
, tmp_prefix
);
763 inform
VPARAMS ((const char * message
, ...))
765 VA_OPEN (args
, message
);
766 VA_FIXEDARG (args
, const char *, message
);
771 report (message
, args
);
794 /* xgettext:c-format */
795 fatal (_("Internal error: Unknown machine type: %d"), machine
);
819 /* xgettext:c-format */
820 fatal (_("Internal error: Unknown machine type: %d"), machine
);
845 /* xgettext:c-format */
846 fatal (_("Internal error: Unknown machine type: %d"), machine
);
852 #define ASM_BYTE mtable[machine].how_byte
853 #define ASM_SHORT mtable[machine].how_short
854 #define ASM_LONG mtable[machine].how_long
855 #define ASM_TEXT mtable[machine].how_asciz
856 #define ASM_C mtable[machine].how_comment
857 #define ASM_JUMP mtable[machine].how_jump
858 #define ASM_GLOBAL mtable[machine].how_global
859 #define ASM_SPACE mtable[machine].how_space
860 #define ASM_ALIGN_SHORT mtable[machine].how_align_short
861 #define ASM_RVA_BEFORE rvabefore(machine)
862 #define ASM_RVA_AFTER rvaafter(machine)
863 #define ASM_PREFIX asm_prefix(machine)
864 #define ASM_ALIGN_LONG mtable[machine].how_align_long
865 #define HOW_BFD_READ_TARGET 0 /* always default*/
866 #define HOW_BFD_WRITE_TARGET mtable[machine].how_bfd_target
867 #define HOW_BFD_ARCH mtable[machine].how_bfd_arch
868 #define HOW_JTAB mtable[machine].how_jtab
869 #define HOW_JTAB_SIZE mtable[machine].how_jtab_size
870 #define HOW_JTAB_ROFF mtable[machine].how_jtab_roff
871 #define ASM_SWITCHES mtable[machine].how_default_as_switches
876 process_def_file (name
)
879 FILE *f
= fopen (name
, FOPEN_RT
);
882 /* xgettext:c-format */
883 fatal (_("Can't open def file: %s"), name
);
887 /* xgettext:c-format */
888 inform (_("Processing def file: %s"), name
);
892 inform (_("Processed def file"));
895 /**********************************************************************/
897 /* Communications with the parser. */
899 static const char *d_name
; /* Arg to NAME or LIBRARY. */
900 static int d_nfuncs
; /* Number of functions exported. */
901 static int d_named_nfuncs
; /* Number of named functions exported. */
902 static int d_low_ord
; /* Lowest ordinal index. */
903 static int d_high_ord
; /* Highest ordinal index. */
904 static export_type
*d_exports
; /* List of exported functions. */
905 static export_type
**d_exports_lexically
; /* Vector of exported functions in alpha order. */
906 static dlist_type
*d_list
; /* Descriptions. */
907 static dlist_type
*a_list
; /* Stuff to go in directives. */
908 static int d_nforwards
= 0; /* Number of forwarded exports. */
915 const char * err ATTRIBUTE_UNUSED
;
917 /* xgettext:c-format */
918 non_fatal (_("Syntax error in def file %s:%d"), def_file
, linenumber
);
924 def_exports (name
, internal_name
, ordinal
, noname
, constant
, data
)
926 const char *internal_name
;
932 struct export
*p
= (struct export
*) xmalloc (sizeof (*p
));
935 p
->internal_name
= internal_name
? internal_name
: name
;
936 p
->ordinal
= ordinal
;
937 p
->constant
= constant
;
944 if ((internal_name
!= NULL
)
945 && (strchr (internal_name
, '.') != NULL
))
946 p
->forward
= ++d_nforwards
;
948 p
->forward
= 0; /* no forward */
952 def_name (name
, base
)
956 /* xgettext:c-format */
957 inform (_("NAME: %s base: %x"), name
, base
);
960 non_fatal (_("Can't have LIBRARY and NAME"));
963 /* If --dllname not provided, use the one in the DEF file.
964 FIXME: Is this appropriate for executables? */
966 dll_name
= xstrdup (name
);
971 def_library (name
, base
)
975 /* xgettext:c-format */
976 inform (_("LIBRARY: %s base: %x"), name
, base
);
979 non_fatal (_("Can't have LIBRARY and NAME"));
982 /* If --dllname not provided, use the one in the DEF file. */
984 dll_name
= xstrdup (name
);
989 def_description (desc
)
992 dlist_type
*d
= (dlist_type
*) xmalloc (sizeof (dlist_type
));
993 d
->text
= xstrdup (desc
);
1002 dlist_type
*d
= (dlist_type
*) xmalloc (sizeof (dlist_type
));
1003 d
->text
= xstrdup (dir
);
1009 def_heapsize (reserve
, commit
)
1015 sprintf (b
, "-heap 0x%x,0x%x ", reserve
, commit
);
1017 sprintf (b
, "-heap 0x%x ", reserve
);
1018 new_directive (xstrdup (b
));
1022 def_stacksize (reserve
, commit
)
1028 sprintf (b
, "-stack 0x%x,0x%x ", reserve
, commit
);
1030 sprintf (b
, "-stack 0x%x ", reserve
);
1031 new_directive (xstrdup (b
));
1034 /* append_import simply adds the given import definition to the global
1035 import_list. It is used by def_import. */
1038 append_import (symbol_name
, dll_name
, func_ordinal
)
1039 const char *symbol_name
;
1040 const char *dll_name
;
1046 for (pq
= &import_list
; *pq
!= NULL
; pq
= &(*pq
)->next
)
1048 if (strcmp ((*pq
)->dllname
, dll_name
) == 0)
1051 q
->functail
->next
= xmalloc (sizeof (ifunctype
));
1052 q
->functail
= q
->functail
->next
;
1053 q
->functail
->ord
= func_ordinal
;
1054 q
->functail
->name
= xstrdup (symbol_name
);
1055 q
->functail
->next
= NULL
;
1061 q
= xmalloc (sizeof (iheadtype
));
1062 q
->dllname
= xstrdup (dll_name
);
1064 q
->funchead
= xmalloc (sizeof (ifunctype
));
1065 q
->functail
= q
->funchead
;
1067 q
->functail
->name
= xstrdup (symbol_name
);
1068 q
->functail
->ord
= func_ordinal
;
1069 q
->functail
->next
= NULL
;
1074 /* def_import is called from within defparse.y when an IMPORT
1075 declaration is encountered. Depending on the form of the
1076 declaration, the module name may or may not need ".dll" to be
1077 appended to it, the name of the function may be stored in internal
1078 or entry, and there may or may not be an ordinal value associated
1081 /* A note regarding the parse modes:
1082 In defparse.y we have to accept import declarations which follow
1083 any one of the following forms:
1084 <func_name_in_app> = <dll_name>.<func_name_in_dll>
1085 <func_name_in_app> = <dll_name>.<number>
1086 <dll_name>.<func_name_in_dll>
1088 Furthermore, the dll's name may or may not end with ".dll", which
1089 complicates the parsing a little. Normally the dll's name is
1090 passed to def_import() in the "module" parameter, but when it ends
1091 with ".dll" it gets passed in "module" sans ".dll" and that needs
1094 def_import gets five parameters:
1095 APP_NAME - the name of the function in the application, if
1096 present, or NULL if not present.
1097 MODULE - the name of the dll, possibly sans extension (ie, '.dll').
1098 DLLEXT - the extension of the dll, if present, NULL if not present.
1099 ENTRY - the name of the function in the dll, if present, or NULL.
1100 ORD_VAL - the numerical tag of the function in the dll, if present,
1101 or NULL. Exactly one of <entry> or <ord_val> must be
1102 present (i.e., not NULL). */
1105 def_import (app_name
, module
, dllext
, entry
, ord_val
)
1106 const char *app_name
;
1112 const char *application_name
;
1116 application_name
= entry
;
1119 if (app_name
!= NULL
)
1120 application_name
= app_name
;
1122 application_name
= "";
1127 buf
= (char *) alloca (strlen (module
) + strlen (dllext
) + 2);
1128 sprintf (buf
, "%s.%s", module
, dllext
);
1132 append_import (application_name
, module
, ord_val
);
1136 def_version (major
, minor
)
1140 printf ("VERSION %d.%d\n", major
, minor
);
1144 def_section (name
, attr
)
1161 sprintf (buf
, "-attr %s %s", name
, atts
);
1162 new_directive (xstrdup (buf
));
1170 def_section ("CODE", attr
);
1177 def_section ("DATA", attr
);
1180 /**********************************************************************/
1188 int pid
, wait_status
;
1191 char *errmsg_fmt
, *errmsg_arg
;
1192 char *temp_base
= choose_temp_base ();
1194 inform ("run: %s %s", what
, args
);
1196 /* Count the args */
1198 for (s
= args
; *s
; s
++)
1202 argv
= alloca (sizeof (char *) * (i
+ 3));
1211 while (*s
!= ' ' && *s
!= 0)
1219 pid
= pexecute (argv
[0], (char * const *) argv
, program_name
, temp_base
,
1220 &errmsg_fmt
, &errmsg_arg
, PEXECUTE_ONE
| PEXECUTE_SEARCH
);
1224 inform (strerror (errno
));
1226 fatal (errmsg_fmt
, errmsg_arg
);
1229 pid
= pwait (pid
, & wait_status
, 0);
1233 /* xgettext:c-format */
1234 fatal (_("wait: %s"), strerror (errno
));
1236 else if (WIFSIGNALED (wait_status
))
1238 /* xgettext:c-format */
1239 fatal (_("subprocess got fatal signal %d"), WTERMSIG (wait_status
));
1241 else if (WIFEXITED (wait_status
))
1243 if (WEXITSTATUS (wait_status
) != 0)
1244 /* xgettext:c-format */
1245 non_fatal (_("%s exited with status %d"),
1246 what
, WEXITSTATUS (wait_status
));
1252 /* Look for a list of symbols to export in the .drectve section of
1253 ABFD. Pass each one to def_exports. */
1256 scan_drectve_symbols (abfd
)
1265 /* Look for .drectve's */
1266 s
= bfd_get_section_by_name (abfd
, DRECTVE_SECTION_NAME
);
1271 size
= bfd_get_section_size_before_reloc (s
);
1272 buf
= xmalloc (size
);
1274 bfd_get_section_contents (abfd
, s
, buf
, 0, size
);
1276 /* xgettext:c-format */
1277 inform (_("Sucking in info from %s section in %s"),
1278 DRECTVE_SECTION_NAME
, bfd_get_filename (abfd
));
1280 /* Search for -export: strings. The exported symbols can optionally
1281 have type tags (eg., -export:foo,data), so handle those as well.
1282 Currently only data tag is supported. */
1288 && strncmp (p
, "-export:", 8) == 0)
1292 flagword flags
= BSF_FUNCTION
;
1296 while (p
< e
&& *p
!= ',' && *p
!= ' ' && *p
!= '-')
1298 c
= xmalloc (p
- name
+ 1);
1299 memcpy (c
, name
, p
- name
);
1301 if (p
< e
&& *p
== ',') /* found type tag. */
1303 char *tag_start
= ++p
;
1304 while (p
< e
&& *p
!= ' ' && *p
!= '-')
1306 if (strncmp (tag_start
, "data", 4) == 0)
1307 flags
&= ~BSF_FUNCTION
;
1310 /* FIXME: The 5th arg is for the `constant' field.
1311 What should it be? Not that it matters since it's not
1312 currently useful. */
1313 def_exports (c
, 0, -1, 0, 0, ! (flags
& BSF_FUNCTION
));
1315 if (add_stdcall_alias
&& strchr (c
, '@'))
1317 int lead_at
= (*c
== '@') ;
1318 char *exported_name
= xstrdup (c
+ lead_at
);
1319 char *atsym
= strchr (exported_name
, '@');
1321 /* Note: stdcall alias symbols can never be data. */
1322 def_exports (exported_name
, xstrdup (c
), -1, 0, 0, 0);
1331 /* Look through the symbols in MINISYMS, and add each one to list of
1332 symbols to export. */
1335 scan_filtered_symbols (abfd
, minisyms
, symcount
, size
)
1342 bfd_byte
*from
, *fromend
;
1344 store
= bfd_make_empty_symbol (abfd
);
1346 bfd_fatal (bfd_get_filename (abfd
));
1348 from
= (bfd_byte
*) minisyms
;
1349 fromend
= from
+ symcount
* size
;
1350 for (; from
< fromend
; from
+= size
)
1353 const char *symbol_name
;
1355 sym
= bfd_minisymbol_to_symbol (abfd
, FALSE
, from
, store
);
1357 bfd_fatal (bfd_get_filename (abfd
));
1359 symbol_name
= bfd_asymbol_name (sym
);
1360 if (bfd_get_symbol_leading_char (abfd
) == symbol_name
[0])
1363 def_exports (xstrdup (symbol_name
) , 0, -1, 0, 0,
1364 ! (sym
->flags
& BSF_FUNCTION
));
1366 if (add_stdcall_alias
&& strchr (symbol_name
, '@'))
1368 int lead_at
= (*symbol_name
== '@');
1369 char *exported_name
= xstrdup (symbol_name
+ lead_at
);
1370 char *atsym
= strchr (exported_name
, '@');
1372 /* Note: stdcall alias symbols can never be data. */
1373 def_exports (exported_name
, xstrdup (symbol_name
), -1, 0, 0, 0);
1378 /* Add a list of symbols to exclude. */
1381 add_excludes (new_excludes
)
1382 const char *new_excludes
;
1385 char *exclude_string
;
1387 local_copy
= xstrdup (new_excludes
);
1389 exclude_string
= strtok (local_copy
, ",:");
1390 for (; exclude_string
; exclude_string
= strtok (NULL
, ",:"))
1392 struct string_list
*new_exclude
;
1394 new_exclude
= ((struct string_list
*)
1395 xmalloc (sizeof (struct string_list
)));
1396 new_exclude
->string
= (char *) xmalloc (strlen (exclude_string
) + 2);
1397 /* Don't add a leading underscore for fastcall symbols. */
1398 if (*exclude_string
== '@')
1399 sprintf (new_exclude
->string
, "%s", exclude_string
);
1401 sprintf (new_exclude
->string
, "_%s", exclude_string
);
1402 new_exclude
->next
= excludes
;
1403 excludes
= new_exclude
;
1405 /* xgettext:c-format */
1406 inform (_("Excluding symbol: %s"), exclude_string
);
1412 /* See if STRING is on the list of symbols to exclude. */
1415 match_exclude (string
)
1418 struct string_list
*excl_item
;
1420 for (excl_item
= excludes
; excl_item
; excl_item
= excl_item
->next
)
1421 if (strcmp (string
, excl_item
->string
) == 0)
1426 /* Add the default list of symbols to exclude. */
1429 set_default_excludes (void)
1431 add_excludes (default_excludes
);
1434 /* Choose which symbols to export. */
1437 filter_symbols (abfd
, minisyms
, symcount
, size
)
1443 bfd_byte
*from
, *fromend
, *to
;
1446 store
= bfd_make_empty_symbol (abfd
);
1448 bfd_fatal (bfd_get_filename (abfd
));
1450 from
= (bfd_byte
*) minisyms
;
1451 fromend
= from
+ symcount
* size
;
1452 to
= (bfd_byte
*) minisyms
;
1454 for (; from
< fromend
; from
+= size
)
1459 sym
= bfd_minisymbol_to_symbol (abfd
, FALSE
, (const PTR
) from
, store
);
1461 bfd_fatal (bfd_get_filename (abfd
));
1463 /* Check for external and defined only symbols. */
1464 keep
= (((sym
->flags
& BSF_GLOBAL
) != 0
1465 || (sym
->flags
& BSF_WEAK
) != 0
1466 || bfd_is_com_section (sym
->section
))
1467 && ! bfd_is_und_section (sym
->section
));
1469 keep
= keep
&& ! match_exclude (sym
->name
);
1473 memcpy (to
, from
, size
);
1478 return (to
- (bfd_byte
*) minisyms
) / size
;
1481 /* Export all symbols in ABFD, except for ones we were told not to
1485 scan_all_symbols (abfd
)
1492 /* Ignore bfds with an import descriptor table. We assume that any
1493 such BFD contains symbols which are exported from another DLL,
1494 and we don't want to reexport them from here. */
1495 if (bfd_get_section_by_name (abfd
, ".idata$4"))
1498 if (! (bfd_get_file_flags (abfd
) & HAS_SYMS
))
1500 /* xgettext:c-format */
1501 non_fatal (_("%s: no symbols"), bfd_get_filename (abfd
));
1505 symcount
= bfd_read_minisymbols (abfd
, FALSE
, &minisyms
, &size
);
1507 bfd_fatal (bfd_get_filename (abfd
));
1511 /* xgettext:c-format */
1512 non_fatal (_("%s: no symbols"), bfd_get_filename (abfd
));
1516 /* Discard the symbols we don't want to export. It's OK to do this
1517 in place; we'll free the storage anyway. */
1519 symcount
= filter_symbols (abfd
, minisyms
, symcount
, size
);
1520 scan_filtered_symbols (abfd
, minisyms
, symcount
, size
);
1525 /* Look at the object file to decide which symbols to export. */
1528 scan_open_obj_file (abfd
)
1531 if (export_all_symbols
)
1532 scan_all_symbols (abfd
);
1534 scan_drectve_symbols (abfd
);
1536 /* FIXME: we ought to read in and block out the base relocations. */
1538 /* xgettext:c-format */
1539 inform (_("Done reading %s"), bfd_get_filename (abfd
));
1543 scan_obj_file (filename
)
1544 const char *filename
;
1546 bfd
* f
= bfd_openr (filename
, 0);
1549 /* xgettext:c-format */
1550 fatal (_("Unable to open object file: %s"), filename
);
1552 /* xgettext:c-format */
1553 inform (_("Scanning object file %s"), filename
);
1555 if (bfd_check_format (f
, bfd_archive
))
1557 bfd
*arfile
= bfd_openr_next_archived_file (f
, 0);
1560 if (bfd_check_format (arfile
, bfd_object
))
1561 scan_open_obj_file (arfile
);
1563 arfile
= bfd_openr_next_archived_file (f
, arfile
);
1566 #ifdef DLLTOOL_MCORE_ELF
1567 if (mcore_elf_out_file
)
1568 inform (_("Cannot produce mcore-elf dll from archive file: %s"), filename
);
1571 else if (bfd_check_format (f
, bfd_object
))
1573 scan_open_obj_file (f
);
1575 #ifdef DLLTOOL_MCORE_ELF
1576 if (mcore_elf_out_file
)
1577 mcore_elf_cache_filename ((char *) filename
);
1584 /**********************************************************************/
1592 fprintf (f
, "%s ", ASM_C
);
1593 for (i
= 0; oav
[i
]; i
++)
1594 fprintf (f
, "%s ", oav
[i
]);
1596 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
1598 fprintf (f
, "%s %d = %s %s @ %d %s%s%s\n",
1604 exp
->noname
? "NONAME " : "",
1605 exp
->constant
? "CONSTANT" : "",
1606 exp
->data
? "DATA" : "");
1610 /* Generate the .exp file. */
1617 return *(const long *) a
- *(const long *) b
;
1621 flush_page (f
, need
, page_addr
, on_page
)
1629 /* Flush this page. */
1630 fprintf (f
, "\t%s\t0x%08x\t%s Starting RVA for chunk\n",
1634 fprintf (f
, "\t%s\t0x%x\t%s Size of block\n",
1636 (on_page
* 2) + (on_page
& 1) * 2 + 8,
1639 for (i
= 0; i
< on_page
; i
++)
1641 long needed
= need
[i
];
1644 needed
= ((needed
- page_addr
) | 0x3000) & 0xffff;
1646 fprintf (f
, "\t%s\t0x%lx\n", ASM_SHORT
, needed
);
1651 fprintf (f
, "\t%s\t0x%x\n", ASM_SHORT
, 0 | 0x0000);
1660 inform (_("Adding exports to output file"));
1662 fprintf (output_def
, ";");
1663 for (i
= 0; oav
[i
]; i
++)
1664 fprintf (output_def
, " %s", oav
[i
]);
1666 fprintf (output_def
, "\nEXPORTS\n");
1668 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
1670 char *quote
= strchr (exp
->name
, '.') ? "\"" : "";
1671 char *res
= cplus_demangle (exp
->internal_name
, DMGL_ANSI
| DMGL_PARAMS
);
1673 if (strcmp (exp
->name
, exp
->internal_name
) == 0)
1676 fprintf (output_def
, "\t%s%s%s @ %d%s%s ; %s\n",
1681 exp
->noname
? " NONAME" : "",
1682 exp
->data
? " DATA" : "",
1687 char *quote1
= strchr (exp
->internal_name
, '.') ? "\"" : "";
1689 fprintf (output_def
, "\t%s%s%s = %s%s%s @ %d%s%s ; %s\n",
1697 exp
->noname
? " NONAME" : "",
1698 exp
->data
? " DATA" : "",
1705 inform (_("Added exports to output file"));
1708 /* generate_idata_ofile generates the portable assembly source code
1709 for the idata sections. It appends the source code to the end of
1713 generate_idata_ofile (filvar
)
1722 if (import_list
== NULL
)
1725 fprintf (filvar
, "%s Import data sections\n", ASM_C
);
1726 fprintf (filvar
, "\n\t.section\t.idata$2\n");
1727 fprintf (filvar
, "\t%s\tdoi_idata\n", ASM_GLOBAL
);
1728 fprintf (filvar
, "doi_idata:\n");
1731 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1733 fprintf (filvar
, "\t%slistone%d%s\t%s %s\n",
1734 ASM_RVA_BEFORE
, nheads
, ASM_RVA_AFTER
,
1735 ASM_C
, headptr
->dllname
);
1736 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1737 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1738 fprintf (filvar
, "\t%sdllname%d%s\n",
1739 ASM_RVA_BEFORE
, nheads
, ASM_RVA_AFTER
);
1740 fprintf (filvar
, "\t%slisttwo%d%s\n\n",
1741 ASM_RVA_BEFORE
, nheads
, ASM_RVA_AFTER
);
1745 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* NULL record at */
1746 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* end of idata$2 */
1747 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* section */
1748 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1749 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
);
1751 fprintf (filvar
, "\n\t.section\t.idata$4\n");
1753 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1755 fprintf (filvar
, "listone%d:\n", headindex
);
1756 for ( funcindex
= 0; funcindex
< headptr
->nfuncs
; funcindex
++ )
1757 fprintf (filvar
, "\t%sfuncptr%d_%d%s\n",
1758 ASM_RVA_BEFORE
, headindex
, funcindex
, ASM_RVA_AFTER
);
1759 fprintf (filvar
,"\t%s\t0\n", ASM_LONG
); /* NULL terminating list */
1763 fprintf (filvar
, "\n\t.section\t.idata$5\n");
1765 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1767 fprintf (filvar
, "listtwo%d:\n", headindex
);
1768 for ( funcindex
= 0; funcindex
< headptr
->nfuncs
; funcindex
++ )
1769 fprintf (filvar
, "\t%sfuncptr%d_%d%s\n",
1770 ASM_RVA_BEFORE
, headindex
, funcindex
, ASM_RVA_AFTER
);
1771 fprintf (filvar
, "\t%s\t0\n", ASM_LONG
); /* NULL terminating list */
1775 fprintf (filvar
, "\n\t.section\t.idata$6\n");
1777 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1780 for (funcptr
= headptr
->funchead
; funcptr
!= NULL
;
1781 funcptr
= funcptr
->next
)
1783 fprintf (filvar
,"funcptr%d_%d:\n", headindex
, funcindex
);
1784 fprintf (filvar
,"\t%s\t%d\n", ASM_SHORT
,
1785 ((funcptr
->ord
) & 0xFFFF));
1786 fprintf (filvar
,"\t%s\t\"%s\"\n", ASM_TEXT
, funcptr
->name
);
1787 fprintf (filvar
,"\t%s\t0\n", ASM_BYTE
);
1793 fprintf (filvar
, "\n\t.section\t.idata$7\n");
1795 for (headptr
= import_list
; headptr
!= NULL
; headptr
= headptr
->next
)
1797 fprintf (filvar
,"dllname%d:\n", headindex
);
1798 fprintf (filvar
,"\t%s\t\"%s\"\n", ASM_TEXT
, headptr
->dllname
);
1799 fprintf (filvar
,"\t%s\t0\n", ASM_BYTE
);
1804 /* Assemble the specified file. */
1806 assemble_file (source
, dest
)
1807 const char * source
;
1812 cmd
= (char *) alloca (strlen (ASM_SWITCHES
) + strlen (as_flags
)
1813 + strlen (source
) + strlen (dest
) + 50);
1815 sprintf (cmd
, "%s %s -o %s %s", ASM_SWITCHES
, as_flags
, dest
, source
);
1828 /* xgettext:c-format */
1829 inform (_("Generating export file: %s"), exp_name
);
1831 f
= fopen (TMP_ASM
, FOPEN_WT
);
1833 /* xgettext:c-format */
1834 fatal (_("Unable to open temporary assembler file: %s"), TMP_ASM
);
1836 /* xgettext:c-format */
1837 inform (_("Opened temporary file: %s"), TMP_ASM
);
1843 fprintf (f
, "\t.section .edata\n\n");
1844 fprintf (f
, "\t%s 0 %s Allways 0\n", ASM_LONG
, ASM_C
);
1845 fprintf (f
, "\t%s 0x%lx %s Time and date\n", ASM_LONG
, (long) time(0),
1847 fprintf (f
, "\t%s 0 %s Major and Minor version\n", ASM_LONG
, ASM_C
);
1848 fprintf (f
, "\t%sname%s %s Ptr to name of dll\n", ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
1849 fprintf (f
, "\t%s %d %s Starting ordinal of exports\n", ASM_LONG
, d_low_ord
, ASM_C
);
1852 fprintf (f
, "\t%s %d %s Number of functions\n", ASM_LONG
, d_high_ord
- d_low_ord
+ 1, ASM_C
);
1853 fprintf(f
,"\t%s named funcs %d, low ord %d, high ord %d\n",
1855 d_named_nfuncs
, d_low_ord
, d_high_ord
);
1856 fprintf (f
, "\t%s %d %s Number of names\n", ASM_LONG
,
1857 show_allnames
? d_high_ord
- d_low_ord
+ 1 : d_named_nfuncs
, ASM_C
);
1858 fprintf (f
, "\t%safuncs%s %s Address of functions\n", ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
1860 fprintf (f
, "\t%sanames%s %s Address of Name Pointer Table\n",
1861 ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
1863 fprintf (f
, "\t%sanords%s %s Address of ordinals\n", ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
1865 fprintf (f
, "name: %s \"%s\"\n", ASM_TEXT
, dll_name
);
1868 fprintf(f
,"%s Export address Table\n", ASM_C
);
1869 fprintf(f
,"\t%s\n", ASM_ALIGN_LONG
);
1870 fprintf (f
, "afuncs:\n");
1873 for (exp
= d_exports
; exp
; exp
= exp
->next
)
1875 if (exp
->ordinal
!= i
)
1878 fprintf (f
, "\t%s\t%d\t%s %d..%d missing\n",
1880 (exp
->ordinal
- i
) * 4,
1882 i
, exp
->ordinal
- 1);
1885 while (i
< exp
->ordinal
)
1887 fprintf(f
,"\t%s\t0\n", ASM_LONG
);
1892 if (exp
->forward
== 0)
1894 if (exp
->internal_name
[0] == '@')
1895 fprintf (f
, "\t%s%s%s\t%s %d\n", ASM_RVA_BEFORE
,
1896 exp
->internal_name
, ASM_RVA_AFTER
, ASM_C
, exp
->ordinal
);
1898 fprintf (f
, "\t%s%s%s%s\t%s %d\n", ASM_RVA_BEFORE
,
1900 exp
->internal_name
, ASM_RVA_AFTER
, ASM_C
, exp
->ordinal
);
1903 fprintf (f
, "\t%sf%d%s\t%s %d\n", ASM_RVA_BEFORE
,
1904 exp
->forward
, ASM_RVA_AFTER
, ASM_C
, exp
->ordinal
);
1908 fprintf (f
,"%s Export Name Pointer Table\n", ASM_C
);
1909 fprintf (f
, "anames:\n");
1911 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
1913 if (!exp
->noname
|| show_allnames
)
1914 fprintf (f
, "\t%sn%d%s\n",
1915 ASM_RVA_BEFORE
, exp
->ordinal
, ASM_RVA_AFTER
);
1918 fprintf (f
,"%s Export Oridinal Table\n", ASM_C
);
1919 fprintf (f
, "anords:\n");
1920 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
1922 if (!exp
->noname
|| show_allnames
)
1923 fprintf (f
, "\t%s %d\n", ASM_SHORT
, exp
->ordinal
- d_low_ord
);
1926 fprintf(f
,"%s Export Name Table\n", ASM_C
);
1927 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
1928 if (!exp
->noname
|| show_allnames
)
1930 fprintf (f
, "n%d: %s \"%s\"\n",
1931 exp
->ordinal
, ASM_TEXT
, xlate (exp
->name
));
1932 if (exp
->forward
!= 0)
1933 fprintf (f
, "f%d: %s \"%s\"\n",
1934 exp
->forward
, ASM_TEXT
, exp
->internal_name
);
1939 fprintf (f
, "\t.section %s\n", DRECTVE_SECTION_NAME
);
1940 for (dl
= a_list
; dl
; dl
= dl
->next
)
1942 fprintf (f
, "\t%s\t\"%s\"\n", ASM_TEXT
, dl
->text
);
1948 fprintf (f
, "\t.section .rdata\n");
1949 for (dl
= d_list
; dl
; dl
= dl
->next
)
1954 /* We don't output as ascii because there can
1955 be quote characters in the string. */
1957 for (p
= dl
->text
; *p
; p
++)
1960 fprintf (f
, "\t%s\t", ASM_BYTE
);
1963 fprintf (f
, "%d", *p
);
1966 fprintf (f
, ",0\n");
1980 /* Add to the output file a way of getting to the exported names
1981 without using the import library. */
1984 fprintf (f
, "\t.section\t.rdata\n");
1985 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
1986 if (!exp
->noname
|| show_allnames
)
1988 /* We use a single underscore for MS compatibility, and a
1989 double underscore for backward compatibility with old
1991 if (create_compat_implib
)
1992 fprintf (f
, "\t%s\t__imp_%s\n", ASM_GLOBAL
, exp
->name
);
1993 fprintf (f
, "\t%s\t_imp__%s\n", ASM_GLOBAL
, exp
->name
);
1994 if (create_compat_implib
)
1995 fprintf (f
, "__imp_%s:\n", exp
->name
);
1996 fprintf (f
, "_imp__%s:\n", exp
->name
);
1997 fprintf (f
, "\t%s\t%s\n", ASM_LONG
, exp
->name
);
2001 /* Dump the reloc section if a base file is provided. */
2005 long need
[PAGE_SIZE
];
2012 fprintf (f
, "\t.section\t.init\n");
2013 fprintf (f
, "lab:\n");
2015 fseek (base_file
, 0, SEEK_END
);
2016 numbytes
= ftell (base_file
);
2017 fseek (base_file
, 0, SEEK_SET
);
2018 copy
= xmalloc (numbytes
);
2019 fread (copy
, 1, numbytes
, base_file
);
2020 num_entries
= numbytes
/ sizeof (long);
2023 fprintf (f
, "\t.section\t.reloc\n");
2029 qsort (copy
, num_entries
, sizeof (long), sfunc
);
2030 /* Delete duplcates */
2031 for (src
= 0; src
< num_entries
; src
++)
2033 if (last
!= copy
[src
])
2034 last
= copy
[dst
++] = copy
[src
];
2038 page_addr
= addr
& PAGE_MASK
; /* work out the page addr */
2040 for (j
= 0; j
< num_entries
; j
++)
2043 if ((addr
& PAGE_MASK
) != page_addr
)
2045 flush_page (f
, need
, page_addr
, on_page
);
2047 page_addr
= addr
& PAGE_MASK
;
2049 need
[on_page
++] = addr
;
2051 flush_page (f
, need
, page_addr
, on_page
);
2053 /* fprintf (f, "\t%s\t0,0\t%s End\n", ASM_LONG, ASM_C);*/
2057 generate_idata_ofile (f
);
2061 /* Assemble the file. */
2062 assemble_file (TMP_ASM
, exp_name
);
2064 if (dontdeltemps
== 0)
2067 inform (_("Generated exports file"));
2074 int lead_at
= (*name
== '@');
2076 if (add_underscore
&& !lead_at
)
2078 char *copy
= xmalloc (strlen (name
) + 2);
2081 strcpy (copy
+ 1, name
);
2090 p
= strchr (name
, '@');
2097 /**********************************************************************/
2106 if (exp
->noname
&& !show_allnames
)
2108 fprintf (f
, "\t%s\t0x%08x\n",
2110 exp
->ordinal
| 0x80000000); /* hint or orindal ?? */
2114 fprintf (f
, "\t%sID%d%s\n", ASM_RVA_BEFORE
,
2132 unsigned char *data
;
2147 #define TEXT_SEC_FLAGS \
2148 (SEC_ALLOC | SEC_LOAD | SEC_CODE | SEC_READONLY | SEC_HAS_CONTENTS)
2149 #define DATA_SEC_FLAGS (SEC_ALLOC | SEC_LOAD | SEC_DATA)
2150 #define BSS_SEC_FLAGS SEC_ALLOC
2152 #define INIT_SEC_DATA(id, name, flags, align) \
2153 { id, name, flags, align, NULL, NULL, NULL, 0, NULL }
2154 static sinfo secdata
[NSECS
] =
2156 INIT_SEC_DATA (TEXT
, ".text", TEXT_SEC_FLAGS
, 2),
2157 INIT_SEC_DATA (DATA
, ".data", DATA_SEC_FLAGS
, 2),
2158 INIT_SEC_DATA (BSS
, ".bss", BSS_SEC_FLAGS
, 2),
2159 INIT_SEC_DATA (IDATA7
, ".idata$7", SEC_HAS_CONTENTS
, 2),
2160 INIT_SEC_DATA (IDATA5
, ".idata$5", SEC_HAS_CONTENTS
, 2),
2161 INIT_SEC_DATA (IDATA4
, ".idata$4", SEC_HAS_CONTENTS
, 2),
2162 INIT_SEC_DATA (IDATA6
, ".idata$6", SEC_HAS_CONTENTS
, 1)
2167 /* Sections numbered to make the order the same as other PowerPC NT
2168 compilers. This also keeps funny alignment thingies from happening. */
2181 static sinfo secdata
[NSECS
] =
2183 { TEXT
, ".text", SEC_CODE
| SEC_HAS_CONTENTS
, 3},
2184 { PDATA
, ".pdata", SEC_HAS_CONTENTS
, 2},
2185 { RDATA
, ".reldata", SEC_HAS_CONTENTS
, 2},
2186 { IDATA5
, ".idata$5", SEC_HAS_CONTENTS
, 2},
2187 { IDATA4
, ".idata$4", SEC_HAS_CONTENTS
, 2},
2188 { IDATA6
, ".idata$6", SEC_HAS_CONTENTS
, 1},
2189 { IDATA7
, ".idata$7", SEC_HAS_CONTENTS
, 2},
2190 { DATA
, ".data", SEC_DATA
, 2},
2191 { BSS
, ".bss", 0, 2}
2196 /* This is what we're trying to make. We generate the imp symbols with
2197 both single and double underscores, for compatibility.
2200 .global _GetFileVersionInfoSizeW@8
2201 .global __imp_GetFileVersionInfoSizeW@8
2202 _GetFileVersionInfoSizeW@8:
2203 jmp * __imp_GetFileVersionInfoSizeW@8
2204 .section .idata$7 # To force loading of head
2205 .long __version_a_head
2206 # Import Address Table
2208 __imp_GetFileVersionInfoSizeW@8:
2211 # Import Lookup Table
2217 .asciz "GetFileVersionInfoSizeW"
2220 For the PowerPC, here's the variation on the above scheme:
2222 # Rather than a simple "jmp *", the code to get to the dll function
2225 lwz r11,[tocv]__imp_function_name(r2)
2226 # RELOC: 00000000 TOCREL16,TOCDEFN __imp_function_name
2234 make_label (prefix
, name
)
2238 int len
= strlen (ASM_PREFIX
) + strlen (prefix
) + strlen (name
);
2239 char *copy
= xmalloc (len
+1 );
2241 strcpy (copy
, ASM_PREFIX
);
2242 strcat (copy
, prefix
);
2243 strcat (copy
, name
);
2248 make_imp_label (prefix
, name
)
2257 len
= strlen (prefix
) + strlen (name
);
2258 copy
= xmalloc (len
+ 1);
2259 strcpy (copy
, prefix
);
2260 strcat (copy
, name
);
2264 len
= strlen (ASM_PREFIX
) + strlen (prefix
) + strlen (name
);
2265 copy
= xmalloc (len
+ 1);
2266 strcpy (copy
, prefix
);
2267 strcat (copy
, ASM_PREFIX
);
2268 strcat (copy
, name
);
2274 make_one_lib_file (exp
, i
)
2282 const char *prefix
= "d";
2285 name
= (char *) alloca (strlen (prefix
) + 10);
2286 sprintf (name
, "%ss%05d.s", prefix
, i
);
2287 f
= fopen (name
, FOPEN_WT
);
2288 fprintf (f
, "\t.text\n");
2289 fprintf (f
, "\t%s\t%s%s\n", ASM_GLOBAL
, ASM_PREFIX
, exp
->name
);
2290 if (create_compat_implib
)
2291 fprintf (f
, "\t%s\t__imp_%s\n", ASM_GLOBAL
, exp
->name
);
2292 fprintf (f
, "\t%s\t_imp__%s\n", ASM_GLOBAL
, exp
->name
);
2293 if (create_compat_implib
)
2294 fprintf (f
, "%s%s:\n\t%s\t__imp_%s\n", ASM_PREFIX
,
2295 exp
->name
, ASM_JUMP
, exp
->name
);
2297 fprintf (f
, "\t.section\t.idata$7\t%s To force loading of head\n", ASM_C
);
2298 fprintf (f
, "\t%s\t%s\n", ASM_LONG
, head_label
);
2301 fprintf (f
,"%s Import Address Table\n", ASM_C
);
2303 fprintf (f
, "\t.section .idata$5\n");
2304 if (create_compat_implib
)
2305 fprintf (f
, "__imp_%s:\n", exp
->name
);
2306 fprintf (f
, "_imp__%s:\n", exp
->name
);
2310 fprintf (f
, "\n%s Import Lookup Table\n", ASM_C
);
2311 fprintf (f
, "\t.section .idata$4\n");
2315 if(!exp
->noname
|| show_allnames
)
2317 fprintf (f
, "%s Hint/Name table\n", ASM_C
);
2318 fprintf (f
, "\t.section .idata$6\n");
2319 fprintf (f
, "ID%d:\t%s\t%d\n", exp
->ordinal
, ASM_SHORT
, exp
->hint
);
2320 fprintf (f
, "\t%s\t\"%s\"\n", ASM_TEXT
, xlate (exp
->name
));
2325 dest
= (char *) alloca (strlen (prefix
) + 10);
2326 sprintf (dest
, "%ss%05d.o", prefix
, i
);
2327 assemble_file (name
, dest
);
2332 asymbol
* exp_label
;
2333 asymbol
* iname
= 0;
2335 asymbol
* iname_lab
;
2336 asymbol
** iname_lab_pp
;
2337 asymbol
** iname_pp
;
2346 asymbol
* ptrs
[NSECS
+ 4 + EXTRA
+ 1];
2347 flagword applicable
;
2349 char * outname
= xmalloc (10);
2353 sprintf (outname
, "%s%05d.o", TMP_STUB
, i
);
2355 abfd
= bfd_openw (outname
, HOW_BFD_WRITE_TARGET
);
2358 /* xgettext:c-format */
2359 fatal (_("bfd_open failed open stub file: %s"), outname
);
2361 /* xgettext:c-format */
2362 inform (_("Creating stub file: %s"), outname
);
2364 bfd_set_format (abfd
, bfd_object
);
2365 bfd_set_arch_mach (abfd
, HOW_BFD_ARCH
, 0);
2368 if (machine
== MARM_INTERWORK
|| machine
== MTHUMB
)
2369 bfd_set_private_flags (abfd
, F_INTERWORK
);
2372 applicable
= bfd_applicable_section_flags (abfd
);
2374 /* First make symbols for the sections. */
2375 for (i
= 0; i
< NSECS
; i
++)
2377 sinfo
*si
= secdata
+ i
;
2380 si
->sec
= bfd_make_section_old_way (abfd
, si
->name
);
2381 bfd_set_section_flags (abfd
,
2383 si
->flags
& applicable
);
2385 bfd_set_section_alignment(abfd
, si
->sec
, si
->align
);
2386 si
->sec
->output_section
= si
->sec
;
2387 si
->sym
= bfd_make_empty_symbol(abfd
);
2388 si
->sym
->name
= si
->sec
->name
;
2389 si
->sym
->section
= si
->sec
;
2390 si
->sym
->flags
= BSF_LOCAL
;
2392 ptrs
[oidx
] = si
->sym
;
2393 si
->sympp
= ptrs
+ oidx
;
2402 exp_label
= bfd_make_empty_symbol (abfd
);
2403 exp_label
->name
= make_imp_label ("", exp
->name
);
2405 /* On PowerPC, the function name points to a descriptor in
2406 the rdata section, the first element of which is a
2407 pointer to the code (..function_name), and the second
2408 points to the .toc. */
2410 if (machine
== MPPC
)
2411 exp_label
->section
= secdata
[RDATA
].sec
;
2414 exp_label
->section
= secdata
[TEXT
].sec
;
2416 exp_label
->flags
= BSF_GLOBAL
;
2417 exp_label
->value
= 0;
2420 if (machine
== MTHUMB
)
2421 bfd_coff_set_symbol_class (abfd
, exp_label
, C_THUMBEXTFUNC
);
2423 ptrs
[oidx
++] = exp_label
;
2426 /* Generate imp symbols with one underscore for Microsoft
2427 compatibility, and with two underscores for backward
2428 compatibility with old versions of cygwin. */
2429 if (create_compat_implib
)
2431 iname
= bfd_make_empty_symbol (abfd
);
2432 iname
->name
= make_imp_label ("___imp", exp
->name
);
2433 iname
->section
= secdata
[IDATA5
].sec
;
2434 iname
->flags
= BSF_GLOBAL
;
2438 iname2
= bfd_make_empty_symbol (abfd
);
2439 iname2
->name
= make_imp_label ("__imp_", exp
->name
);
2440 iname2
->section
= secdata
[IDATA5
].sec
;
2441 iname2
->flags
= BSF_GLOBAL
;
2444 iname_lab
= bfd_make_empty_symbol(abfd
);
2446 iname_lab
->name
= head_label
;
2447 iname_lab
->section
= (asection
*)&bfd_und_section
;
2448 iname_lab
->flags
= 0;
2449 iname_lab
->value
= 0;
2451 iname_pp
= ptrs
+ oidx
;
2452 if (create_compat_implib
)
2453 ptrs
[oidx
++] = iname
;
2454 ptrs
[oidx
++] = iname2
;
2456 iname_lab_pp
= ptrs
+ oidx
;
2457 ptrs
[oidx
++] = iname_lab
;
2460 /* The symbol refering to the code (.text). */
2462 asymbol
*function_name
;
2464 function_name
= bfd_make_empty_symbol(abfd
);
2465 function_name
->name
= make_label ("..", exp
->name
);
2466 function_name
->section
= secdata
[TEXT
].sec
;
2467 function_name
->flags
= BSF_GLOBAL
;
2468 function_name
->value
= 0;
2470 fn_pp
= ptrs
+ oidx
;
2471 ptrs
[oidx
++] = function_name
;
2474 /* The .toc symbol. */
2476 asymbol
*toc_symbol
;
2478 toc_symbol
= bfd_make_empty_symbol (abfd
);
2479 toc_symbol
->name
= make_label (".", "toc");
2480 toc_symbol
->section
= (asection
*)&bfd_und_section
;
2481 toc_symbol
->flags
= BSF_GLOBAL
;
2482 toc_symbol
->value
= 0;
2484 toc_pp
= ptrs
+ oidx
;
2485 ptrs
[oidx
++] = toc_symbol
;
2491 for (i
= 0; i
< NSECS
; i
++)
2493 sinfo
*si
= secdata
+ i
;
2494 asection
*sec
= si
->sec
;
2503 si
->size
= HOW_JTAB_SIZE
;
2504 si
->data
= xmalloc (HOW_JTAB_SIZE
);
2505 memcpy (si
->data
, HOW_JTAB
, HOW_JTAB_SIZE
);
2507 /* add the reloc into idata$5 */
2508 rel
= xmalloc (sizeof (arelent
));
2510 rpp
= xmalloc (sizeof (arelent
*) * 2);
2514 rel
->address
= HOW_JTAB_ROFF
;
2517 if (machine
== MPPC
)
2519 rel
->howto
= bfd_reloc_type_lookup (abfd
,
2520 BFD_RELOC_16_GOTOFF
);
2521 rel
->sym_ptr_ptr
= iname_pp
;
2525 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2526 rel
->sym_ptr_ptr
= secdata
[IDATA5
].sympp
;
2528 sec
->orelocation
= rpp
;
2529 sec
->reloc_count
= 1;
2534 /* An idata$4 or idata$5 is one word long, and has an
2537 si
->data
= xmalloc (4);
2542 si
->data
[0] = exp
->ordinal
;
2543 si
->data
[1] = exp
->ordinal
>> 8;
2544 si
->data
[2] = exp
->ordinal
>> 16;
2549 sec
->reloc_count
= 1;
2550 memset (si
->data
, 0, si
->size
);
2551 rel
= xmalloc (sizeof (arelent
));
2552 rpp
= xmalloc (sizeof (arelent
*) * 2);
2557 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_RVA
);
2558 rel
->sym_ptr_ptr
= secdata
[IDATA6
].sympp
;
2559 sec
->orelocation
= rpp
;
2567 /* This used to add 1 to exp->hint. I don't know
2568 why it did that, and it does not match what I see
2569 in programs compiled with the MS tools. */
2570 int idx
= exp
->hint
;
2571 si
->size
= strlen (xlate (exp
->name
)) + 3;
2572 si
->data
= xmalloc (si
->size
);
2573 si
->data
[0] = idx
& 0xff;
2574 si
->data
[1] = idx
>> 8;
2575 strcpy (si
->data
+ 2, xlate (exp
->name
));
2580 si
->data
=xmalloc (4);
2581 memset (si
->data
, 0, si
->size
);
2582 rel
= xmalloc (sizeof (arelent
));
2583 rpp
= xmalloc (sizeof (arelent
*) * 2);
2587 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_RVA
);
2588 rel
->sym_ptr_ptr
= iname_lab_pp
;
2589 sec
->orelocation
= rpp
;
2590 sec
->reloc_count
= 1;
2596 /* The .pdata section is 5 words long.
2600 bfd_vma BeginAddress, [0x00]
2602 ExceptionHandler, [0x08]
2604 PrologEndAddress; [0x10]
2607 /* So this pdata section setups up this as a glue linkage to
2608 a dll routine. There are a number of house keeping things
2611 1. In the name of glue trickery, the ADDR32 relocs for 0,
2612 4, and 0x10 are set to point to the same place:
2614 2. There is one more reloc needed in the pdata section.
2615 The actual glue instruction to restore the toc on
2616 return is saved as the offset in an IMGLUE reloc.
2617 So we need a total of four relocs for this section.
2619 3. Lastly, the HandlerData field is set to 0x03, to indicate
2620 that this is a glue routine. */
2621 arelent
*imglue
, *ba_rel
, *ea_rel
, *pea_rel
;
2623 /* Alignment must be set to 2**2 or you get extra stuff. */
2624 bfd_set_section_alignment(abfd
, sec
, 2);
2627 si
->data
= xmalloc (si
->size
);
2628 memset (si
->data
, 0, si
->size
);
2629 rpp
= xmalloc (sizeof (arelent
*) * 5);
2630 rpp
[0] = imglue
= xmalloc (sizeof (arelent
));
2631 rpp
[1] = ba_rel
= xmalloc (sizeof (arelent
));
2632 rpp
[2] = ea_rel
= xmalloc (sizeof (arelent
));
2633 rpp
[3] = pea_rel
= xmalloc (sizeof (arelent
));
2636 /* Stick the toc reload instruction in the glue reloc. */
2637 bfd_put_32(abfd
, ppc_glue_insn
, (char *) &imglue
->address
);
2640 imglue
->howto
= bfd_reloc_type_lookup (abfd
,
2641 BFD_RELOC_32_GOTOFF
);
2642 imglue
->sym_ptr_ptr
= fn_pp
;
2644 ba_rel
->address
= 0;
2646 ba_rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2647 ba_rel
->sym_ptr_ptr
= fn_pp
;
2649 bfd_put_32 (abfd
, 0x18, si
->data
+ 0x04);
2650 ea_rel
->address
= 4;
2652 ea_rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2653 ea_rel
->sym_ptr_ptr
= fn_pp
;
2655 /* Mark it as glue. */
2656 bfd_put_32 (abfd
, 0x03, si
->data
+ 0x0c);
2658 /* Mark the prolog end address. */
2659 bfd_put_32 (abfd
, 0x0D, si
->data
+ 0x10);
2660 pea_rel
->address
= 0x10;
2661 pea_rel
->addend
= 0;
2662 pea_rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2663 pea_rel
->sym_ptr_ptr
= fn_pp
;
2665 sec
->orelocation
= rpp
;
2666 sec
->reloc_count
= 4;
2670 /* Each external function in a PowerPC PE file has a two word
2671 descriptor consisting of:
2672 1. The address of the code.
2673 2. The address of the appropriate .toc
2674 We use relocs to build this. */
2676 si
->data
= xmalloc (8);
2677 memset (si
->data
, 0, si
->size
);
2679 rpp
= xmalloc (sizeof (arelent
*) * 3);
2680 rpp
[0] = rel
= xmalloc (sizeof (arelent
));
2681 rpp
[1] = xmalloc (sizeof (arelent
));
2686 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2687 rel
->sym_ptr_ptr
= fn_pp
;
2693 rel
->howto
= bfd_reloc_type_lookup (abfd
, BFD_RELOC_32
);
2694 rel
->sym_ptr_ptr
= toc_pp
;
2696 sec
->orelocation
= rpp
;
2697 sec
->reloc_count
= 2;
2699 #endif /* DLLTOOL_PPC */
2705 /* Size up all the sections. */
2706 for (i
= 0; i
< NSECS
; i
++)
2708 sinfo
*si
= secdata
+ i
;
2710 bfd_set_section_size (abfd
, si
->sec
, si
->size
);
2711 bfd_set_section_vma (abfd
, si
->sec
, vma
);
2713 /* vma += si->size;*/
2716 /* Write them out. */
2717 for (i
= 0; i
< NSECS
; i
++)
2719 sinfo
*si
= secdata
+ i
;
2721 if (i
== IDATA5
&& no_idata5
)
2724 if (i
== IDATA4
&& no_idata4
)
2727 bfd_set_section_contents (abfd
, si
->sec
,
2732 bfd_set_symtab (abfd
, ptrs
, oidx
);
2734 abfd
= bfd_openr (outname
, HOW_BFD_READ_TARGET
);
2743 FILE *f
= fopen (TMP_HEAD_S
, FOPEN_WT
);
2747 fatal (_("failed to open temporary head file: %s"), TMP_HEAD_S
);
2751 fprintf (f
, "%s IMAGE_IMPORT_DESCRIPTOR\n", ASM_C
);
2752 fprintf (f
, "\t.section .idata$2\n");
2754 fprintf(f
,"\t%s\t%s\n", ASM_GLOBAL
,head_label
);
2756 fprintf (f
, "%s:\n", head_label
);
2758 fprintf (f
, "\t%shname%s\t%sPtr to image import by name list\n",
2759 ASM_RVA_BEFORE
, ASM_RVA_AFTER
, ASM_C
);
2761 fprintf (f
, "\t%sthis should be the timestamp, but NT sometimes\n", ASM_C
);
2762 fprintf (f
, "\t%sdoesn't load DLLs when this is set.\n", ASM_C
);
2763 fprintf (f
, "\t%s\t0\t%s loaded time\n", ASM_LONG
, ASM_C
);
2764 fprintf (f
, "\t%s\t0\t%s Forwarder chain\n", ASM_LONG
, ASM_C
);
2765 fprintf (f
, "\t%s__%s_iname%s\t%s imported dll's name\n",
2770 fprintf (f
, "\t%sfthunk%s\t%s pointer to firstthunk\n",
2772 ASM_RVA_AFTER
, ASM_C
);
2774 fprintf (f
, "%sStuff for compatibility\n", ASM_C
);
2778 fprintf (f
, "\t.section\t.idata$5\n");
2779 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2780 fprintf (f
, "fthunk:\n");
2785 fprintf (f
, "\t.section\t.idata$4\n");
2787 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2788 fprintf (f
, "\t.section .idata$4\n");
2789 fprintf (f
, "hname:\n");
2794 assemble_file (TMP_HEAD_S
, TMP_HEAD_O
);
2796 return bfd_openr (TMP_HEAD_O
, HOW_BFD_READ_TARGET
);
2802 FILE *f
= fopen (TMP_TAIL_S
, FOPEN_WT
);
2806 fatal (_("failed to open temporary tail file: %s"), TMP_TAIL_S
);
2812 fprintf (f
, "\t.section .idata$4\n");
2813 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2818 fprintf (f
, "\t.section .idata$5\n");
2819 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2823 /* Normally, we need to see a null descriptor built in idata$3 to
2824 act as the terminator for the list. The ideal way, I suppose,
2825 would be to mark this section as a comdat type 2 section, so
2826 only one would appear in the final .exe (if our linker supported
2827 comdat, that is) or cause it to be inserted by something else (say
2830 fprintf (f
, "\t.section .idata$3\n");
2831 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2832 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2833 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2834 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2835 fprintf (f
, "\t%s\t0\n", ASM_LONG
);
2839 /* Other PowerPC NT compilers use idata$6 for the dllname, so I
2840 do too. Original, huh? */
2841 fprintf (f
, "\t.section .idata$6\n");
2843 fprintf (f
, "\t.section .idata$7\n");
2846 fprintf (f
, "\t%s\t__%s_iname\n", ASM_GLOBAL
, imp_name_lab
);
2847 fprintf (f
, "__%s_iname:\t%s\t\"%s\"\n",
2848 imp_name_lab
, ASM_TEXT
, dll_name
);
2852 assemble_file (TMP_TAIL_S
, TMP_TAIL_O
);
2854 return bfd_openr (TMP_TAIL_O
, HOW_BFD_READ_TARGET
);
2869 outarch
= bfd_openw (imp_name
, HOW_BFD_WRITE_TARGET
);
2872 /* xgettext:c-format */
2873 fatal (_("Can't open .lib file: %s"), imp_name
);
2875 /* xgettext:c-format */
2876 inform (_("Creating library file: %s"), imp_name
);
2878 bfd_set_format (outarch
, bfd_archive
);
2879 outarch
->has_armap
= 1;
2881 /* Work out a reasonable size of things to put onto one line. */
2882 ar_head
= make_head ();
2883 ar_tail
= make_tail();
2885 if (ar_head
== NULL
|| ar_tail
== NULL
)
2888 for (i
= 0; (exp
= d_exports_lexically
[i
]); i
++)
2890 bfd
*n
= make_one_lib_file (exp
, i
);
2895 /* Now stick them all into the archive. */
2896 ar_head
->next
= head
;
2897 ar_tail
->next
= ar_head
;
2900 if (! bfd_set_archive_head (outarch
, head
))
2901 bfd_fatal ("bfd_set_archive_head");
2903 if (! bfd_close (outarch
))
2904 bfd_fatal (imp_name
);
2906 while (head
!= NULL
)
2908 bfd
*n
= head
->next
;
2913 /* Delete all the temp files. */
2914 if (dontdeltemps
== 0)
2916 unlink (TMP_HEAD_O
);
2917 unlink (TMP_HEAD_S
);
2918 unlink (TMP_TAIL_O
);
2919 unlink (TMP_TAIL_S
);
2922 if (dontdeltemps
< 2)
2926 name
= (char *) alloca (sizeof TMP_STUB
+ 10);
2927 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
2929 sprintf (name
, "%s%05d.o", TMP_STUB
, i
);
2930 if (unlink (name
) < 0)
2931 /* xgettext:c-format */
2932 non_fatal (_("cannot delete %s: %s"), name
, strerror (errno
));
2936 inform (_("Created lib file"));
2939 /**********************************************************************/
2941 /* Run through the information gathered from the .o files and the
2942 .def file and work out the best stuff. */
2948 export_type
*ap
= *(export_type
**) a
;
2949 export_type
*bp
= *(export_type
**) b
;
2950 if (ap
->ordinal
== bp
->ordinal
)
2953 /* Unset ordinals go to the bottom. */
2954 if (ap
->ordinal
== -1)
2956 if (bp
->ordinal
== -1)
2958 return (ap
->ordinal
- bp
->ordinal
);
2966 export_type
*ap
= *(export_type
**) a
;
2967 export_type
*bp
= *(export_type
**) b
;
2969 return (strcmp (ap
->name
, bp
->name
));
2973 remove_null_names (ptr
)
2979 for (dst
= src
= 0; src
< d_nfuncs
; src
++)
2983 ptr
[dst
] = ptr
[src
];
3000 for (i
= 0; i
< d_nfuncs
; i
++)
3004 printf ("%d %s @ %d %s%s%s\n",
3005 i
, ptr
[i
]->name
, ptr
[i
]->ordinal
,
3006 ptr
[i
]->noname
? "NONAME " : "",
3007 ptr
[i
]->constant
? "CONSTANT" : "",
3008 ptr
[i
]->data
? "DATA" : "");
3017 process_duplicates (d_export_vec
)
3018 export_type
**d_export_vec
;
3027 /* Remove duplicates. */
3028 qsort (d_export_vec
, d_nfuncs
, sizeof (export_type
*), nfunc
);
3030 dtab (d_export_vec
);
3031 for (i
= 0; i
< d_nfuncs
- 1; i
++)
3033 if (strcmp (d_export_vec
[i
]->name
,
3034 d_export_vec
[i
+ 1]->name
) == 0)
3037 export_type
*a
= d_export_vec
[i
];
3038 export_type
*b
= d_export_vec
[i
+ 1];
3042 /* xgettext:c-format */
3043 inform (_("Warning, ignoring duplicate EXPORT %s %d,%d"),
3044 a
->name
, a
->ordinal
, b
->ordinal
);
3046 if (a
->ordinal
!= -1
3047 && b
->ordinal
!= -1)
3048 /* xgettext:c-format */
3049 fatal (_("Error, duplicate EXPORT with oridinals: %s"),
3052 /* Merge attributes. */
3053 b
->ordinal
= a
->ordinal
> 0 ? a
->ordinal
: b
->ordinal
;
3054 b
->constant
|= a
->constant
;
3055 b
->noname
|= a
->noname
;
3057 d_export_vec
[i
] = 0;
3060 dtab (d_export_vec
);
3061 remove_null_names (d_export_vec
);
3062 dtab (d_export_vec
);
3067 /* Count the names. */
3068 for (i
= 0; i
< d_nfuncs
; i
++)
3070 if (!d_export_vec
[i
]->noname
)
3076 fill_ordinals (d_export_vec
)
3077 export_type
**d_export_vec
;
3084 qsort (d_export_vec
, d_nfuncs
, sizeof (export_type
*), pfunc
);
3086 /* Fill in the unset ordinals with ones from our range. */
3087 ptr
= (char *) xmalloc (size
);
3089 memset (ptr
, 0, size
);
3091 /* Mark in our large vector all the numbers that are taken. */
3092 for (i
= 0; i
< d_nfuncs
; i
++)
3094 if (d_export_vec
[i
]->ordinal
!= -1)
3096 ptr
[d_export_vec
[i
]->ordinal
] = 1;
3098 if (lowest
== -1 || d_export_vec
[i
]->ordinal
< lowest
)
3099 lowest
= d_export_vec
[i
]->ordinal
;
3103 /* Start at 1 for compatibility with MS toolchain. */
3107 /* Now fill in ordinals where the user wants us to choose. */
3108 for (i
= 0; i
< d_nfuncs
; i
++)
3110 if (d_export_vec
[i
]->ordinal
== -1)
3114 /* First try within or after any user supplied range. */
3115 for (j
= lowest
; j
< size
; j
++)
3119 d_export_vec
[i
]->ordinal
= j
;
3123 /* Then try before the range. */
3124 for (j
= lowest
; j
>0; j
--)
3128 d_export_vec
[i
]->ordinal
= j
;
3138 qsort (d_export_vec
, d_nfuncs
, sizeof (export_type
*), pfunc
);
3140 /* Work out the lowest and highest ordinal numbers. */
3143 if (d_export_vec
[0])
3144 d_low_ord
= d_export_vec
[0]->ordinal
;
3145 if (d_export_vec
[d_nfuncs
-1])
3146 d_high_ord
= d_export_vec
[d_nfuncs
-1]->ordinal
;
3155 const export_type
**a
= (const export_type
**) av
;
3156 const export_type
**b
= (const export_type
**) bv
;
3158 return strcmp ((*a
)->name
, (*b
)->name
);
3164 /* First work out the minimum ordinal chosen. */
3169 export_type
**d_export_vec
3170 = (export_type
**) xmalloc (sizeof (export_type
*) * d_nfuncs
);
3172 inform (_("Processing definitions"));
3174 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
3175 d_export_vec
[i
] = exp
;
3177 process_duplicates (d_export_vec
);
3178 fill_ordinals (d_export_vec
);
3180 /* Put back the list in the new order. */
3182 for (i
= d_nfuncs
- 1; i
>= 0; i
--)
3184 d_export_vec
[i
]->next
= d_exports
;
3185 d_exports
= d_export_vec
[i
];
3188 /* Build list in alpha order. */
3189 d_exports_lexically
= (export_type
**)
3190 xmalloc (sizeof (export_type
*) * (d_nfuncs
+ 1));
3192 for (i
= 0, exp
= d_exports
; exp
; i
++, exp
= exp
->next
)
3193 d_exports_lexically
[i
] = exp
;
3195 d_exports_lexically
[i
] = 0;
3197 qsort (d_exports_lexically
, i
, sizeof (export_type
*), alphafunc
);
3199 /* Fill exp entries with their hint values. */
3200 for (i
= 0; i
< d_nfuncs
; i
++)
3201 if (!d_exports_lexically
[i
]->noname
|| show_allnames
)
3202 d_exports_lexically
[i
]->hint
= hint
++;
3204 inform (_("Processed definitions"));
3207 /**********************************************************************/
3210 usage (file
, status
)
3214 /* xgetext:c-format */
3215 fprintf (file
, _("Usage %s <option(s)> <object-file(s)>\n"), program_name
);
3216 /* xgetext:c-format */
3217 fprintf (file
, _(" -m --machine <machine> Create as DLL for <machine>. [default: %s]\n"), mname
);
3218 fprintf (file
, _(" possible <machine>: arm[_interwork], i386, mcore[-elf]{-le|-be}, ppc, thumb\n"));
3219 fprintf (file
, _(" -e --output-exp <outname> Generate an export file.\n"));
3220 fprintf (file
, _(" -l --output-lib <outname> Generate an interface library.\n"));
3221 fprintf (file
, _(" -a --add-indirect Add dll indirects to export file.\n"));
3222 fprintf (file
, _(" -D --dllname <name> Name of input dll to put into interface lib.\n"));
3223 fprintf (file
, _(" -d --input-def <deffile> Name of .def file to be read in.\n"));
3224 fprintf (file
, _(" -z --output-def <deffile> Name of .def file to be created.\n"));
3225 fprintf (file
, _(" --export-all-symbols Export all symbols to .def\n"));
3226 fprintf (file
, _(" --no-export-all-symbols Only export listed symbols\n"));
3227 fprintf (file
, _(" --exclude-symbols <list> Don't export <list>\n"));
3228 fprintf (file
, _(" --no-default-excludes Clear default exclude symbols\n"));
3229 fprintf (file
, _(" -b --base-file <basefile> Read linker generated base file.\n"));
3230 fprintf (file
, _(" -x --no-idata4 Don't generate idata$4 section.\n"));
3231 fprintf (file
, _(" -c --no-idata5 Don't generate idata$5 section.\n"));
3232 fprintf (file
, _(" -U --add-underscore Add underscores to symbols in interface library.\n"));
3233 fprintf (file
, _(" -k --kill-at Kill @<n> from exported names.\n"));
3234 fprintf (file
, _(" -A --add-stdcall-alias Add aliases without @<n>.\n"));
3235 fprintf (file
, _(" -S --as <name> Use <name> for assembler.\n"));
3236 fprintf (file
, _(" -f --as-flags <flags> Pass <flags> to the assembler.\n"));
3237 fprintf (file
, _(" -C --compat-implib Create backward compatible import library.\n"));
3238 fprintf (file
, _(" -n --no-delete Keep temp files (repeat for extra preservation).\n"));
3239 fprintf (file
, _(" -v --verbose Be verbose.\n"));
3240 fprintf (file
, _(" -V --version Display the program version.\n"));
3241 fprintf (file
, _(" -h --help Display this information.\n"));
3242 #ifdef DLLTOOL_MCORE_ELF
3243 fprintf (file
, _(" -M --mcore-elf <outname> Process mcore-elf object files into <outname>.\n"));
3244 fprintf (file
, _(" -L --linker <name> Use <name> as the linker.\n"));
3245 fprintf (file
, _(" -F --linker-flags <flags> Pass <flags> to the linker.\n"));
3250 #define OPTION_EXPORT_ALL_SYMS 150
3251 #define OPTION_NO_EXPORT_ALL_SYMS (OPTION_EXPORT_ALL_SYMS + 1)
3252 #define OPTION_EXCLUDE_SYMS (OPTION_NO_EXPORT_ALL_SYMS + 1)
3253 #define OPTION_NO_DEFAULT_EXCLUDES (OPTION_EXCLUDE_SYMS + 1)
3255 static const struct option long_options
[] =
3257 {"no-delete", no_argument
, NULL
, 'n'},
3258 {"dllname", required_argument
, NULL
, 'D'},
3259 {"no-idata4", no_argument
, NULL
, 'x'},
3260 {"no-idata5", no_argument
, NULL
, 'c'},
3261 {"output-exp", required_argument
, NULL
, 'e'},
3262 {"output-def", required_argument
, NULL
, 'z'},
3263 {"export-all-symbols", no_argument
, NULL
, OPTION_EXPORT_ALL_SYMS
},
3264 {"no-export-all-symbols", no_argument
, NULL
, OPTION_NO_EXPORT_ALL_SYMS
},
3265 {"exclude-symbols", required_argument
, NULL
, OPTION_EXCLUDE_SYMS
},
3266 {"no-default-excludes", no_argument
, NULL
, OPTION_NO_DEFAULT_EXCLUDES
},
3267 {"output-lib", required_argument
, NULL
, 'l'},
3268 {"def", required_argument
, NULL
, 'd'}, /* for compatiblity with older versions */
3269 {"input-def", required_argument
, NULL
, 'd'},
3270 {"add-underscore", no_argument
, NULL
, 'U'},
3271 {"kill-at", no_argument
, NULL
, 'k'},
3272 {"add-stdcall-alias", no_argument
, NULL
, 'A'},
3273 {"verbose", no_argument
, NULL
, 'v'},
3274 {"version", no_argument
, NULL
, 'V'},
3275 {"help", no_argument
, NULL
, 'h'},
3276 {"machine", required_argument
, NULL
, 'm'},
3277 {"add-indirect", no_argument
, NULL
, 'a'},
3278 {"base-file", required_argument
, NULL
, 'b'},
3279 {"as", required_argument
, NULL
, 'S'},
3280 {"as-flags", required_argument
, NULL
, 'f'},
3281 {"mcore-elf", required_argument
, NULL
, 'M'},
3282 {"compat-implib", no_argument
, NULL
, 'C'},
3283 {"temp-prefix", required_argument
, NULL
, 't'},
3287 int main
PARAMS ((int, char **));
3297 program_name
= av
[0];
3300 #if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
3301 setlocale (LC_MESSAGES
, "");
3303 #if defined (HAVE_SETLOCALE)
3304 setlocale (LC_CTYPE
, "");
3306 bindtextdomain (PACKAGE
, LOCALEDIR
);
3307 textdomain (PACKAGE
);
3309 while ((c
= getopt_long (ac
, av
,
3310 #ifdef DLLTOOL_MCORE_ELF
3311 "m:e:l:aD:d:z:b:xcCuUkAS:f:nvVHhM:L:F:",
3313 "m:e:l:aD:d:z:b:xcCuUkAS:f:nvVHh",
3320 case OPTION_EXPORT_ALL_SYMS
:
3321 export_all_symbols
= TRUE
;
3323 case OPTION_NO_EXPORT_ALL_SYMS
:
3324 export_all_symbols
= FALSE
;
3326 case OPTION_EXCLUDE_SYMS
:
3327 add_excludes (optarg
);
3329 case OPTION_NO_DEFAULT_EXCLUDES
:
3330 do_default_excludes
= FALSE
;
3342 tmp_prefix
= optarg
;
3348 /* ignored for compatibility */
3355 output_def
= fopen (optarg
, FOPEN_WT
);
3377 print_version (program_name
);
3386 add_stdcall_alias
= 1;
3395 base_file
= fopen (optarg
, FOPEN_RB
);
3398 /* xgettext:c-format */
3399 fatal (_("Unable to open base-file: %s"), optarg
);
3402 #ifdef DLLTOOL_MCORE_ELF
3404 mcore_elf_out_file
= optarg
;
3407 mcore_elf_linker
= optarg
;
3410 mcore_elf_linker_flags
= optarg
;
3414 create_compat_implib
= 1;
3422 for (i
= 0; mtable
[i
].type
; i
++)
3423 if (strcmp (mtable
[i
].type
, mname
) == 0)
3426 if (!mtable
[i
].type
)
3427 /* xgettext:c-format */
3428 fatal (_("Machine '%s' not supported"), mname
);
3432 if (!dll_name
&& exp_name
)
3434 int len
= strlen (exp_name
) + 5;
3435 dll_name
= xmalloc (len
);
3436 strcpy (dll_name
, exp_name
);
3437 strcat (dll_name
, ".dll");
3440 if (as_name
== NULL
)
3441 as_name
= deduce_name ("as");
3443 /* Don't use the default exclude list if we're reading only the
3444 symbols in the .drectve section. The default excludes are meant
3445 to avoid exporting DLL entry point and Cygwin32 impure_ptr. */
3446 if (! export_all_symbols
)
3447 do_default_excludes
= FALSE
;
3449 if (do_default_excludes
)
3450 set_default_excludes ();
3453 process_def_file (def_file
);
3458 firstarg
= av
[optind
];
3459 scan_obj_file (av
[optind
]);
3470 /* Make imp_name safe for use as a label. */
3473 imp_name_lab
= xstrdup (imp_name
);
3474 for (p
= imp_name_lab
; *p
; p
++)
3479 head_label
= make_label("_head_", imp_name_lab
);
3486 #ifdef DLLTOOL_MCORE_ELF
3487 if (mcore_elf_out_file
)
3488 mcore_elf_gen_out_file ();
3494 /* Look for the program formed by concatenating PROG_NAME and the
3495 string running from PREFIX to END_PREFIX. If the concatenated
3496 string contains a '/', try appending EXECUTABLE_SUFFIX if it is
3500 look_for_prog (prog_name
, prefix
, end_prefix
)
3501 const char *prog_name
;
3508 cmd
= xmalloc (strlen (prefix
)
3509 + strlen (prog_name
)
3510 #ifdef HAVE_EXECUTABLE_SUFFIX
3511 + strlen (EXECUTABLE_SUFFIX
)
3514 strcpy (cmd
, prefix
);
3516 sprintf (cmd
+ end_prefix
, "%s", prog_name
);
3518 if (strchr (cmd
, '/') != NULL
)
3522 found
= (stat (cmd
, &s
) == 0
3523 #ifdef HAVE_EXECUTABLE_SUFFIX
3524 || stat (strcat (cmd
, EXECUTABLE_SUFFIX
), &s
) == 0
3530 /* xgettext:c-format */
3531 inform (_("Tried file: %s"), cmd
);
3537 /* xgettext:c-format */
3538 inform (_("Using file: %s"), cmd
);
3543 /* Deduce the name of the program we are want to invoke.
3544 PROG_NAME is the basic name of the program we want to run,
3545 eg "as" or "ld". The catch is that we might want actually
3546 run "i386-pe-as" or "ppc-pe-ld".
3548 If argv[0] contains the full path, then try to find the program
3549 in the same place, with and then without a target-like prefix.
3551 Given, argv[0] = /usr/local/bin/i586-cygwin32-dlltool,
3552 deduce_name("as") uses the following search order:
3554 /usr/local/bin/i586-cygwin32-as
3558 If there's an EXECUTABLE_SUFFIX, it'll use that as well; for each
3559 name, it'll try without and then with EXECUTABLE_SUFFIX.
3561 Given, argv[0] = i586-cygwin32-dlltool, it will not even try "as"
3562 as the fallback, but rather return i586-cygwin32-as.
3564 Oh, and given, argv[0] = dlltool, it'll return "as".
3566 Returns a dynamically allocated string. */
3569 deduce_name (prog_name
)
3570 const char *prog_name
;
3573 char *dash
, *slash
, *cp
;
3577 for (cp
= program_name
; *cp
!= '\0'; ++cp
)
3582 #if defined(__DJGPP__) || defined (__CYGWIN__) || defined(__WIN32__)
3583 *cp
== ':' || *cp
== '\\' ||
3596 /* First, try looking for a prefixed PROG_NAME in the
3597 PROGRAM_NAME directory, with the same prefix as PROGRAM_NAME. */
3598 cmd
= look_for_prog (prog_name
, program_name
, dash
- program_name
+ 1);
3601 if (slash
!= NULL
&& cmd
== NULL
)
3603 /* Next, try looking for a PROG_NAME in the same directory as
3604 that of this program. */
3605 cmd
= look_for_prog (prog_name
, program_name
, slash
- program_name
+ 1);
3610 /* Just return PROG_NAME as is. */
3611 cmd
= xstrdup (prog_name
);
3617 #ifdef DLLTOOL_MCORE_ELF
3618 typedef struct fname_cache
3621 struct fname_cache
* next
;
3625 static fname_cache fnames
;
3628 mcore_elf_cache_filename (char * filename
)
3634 while (ptr
->next
!= NULL
)
3637 ptr
->filename
= filename
;
3638 ptr
->next
= (fname_cache
*) malloc (sizeof (fname_cache
));
3639 if (ptr
->next
!= NULL
)
3640 ptr
->next
->next
= NULL
;
3643 #define MCORE_ELF_TMP_OBJ "mcoreelf.o"
3644 #define MCORE_ELF_TMP_EXP "mcoreelf.exp"
3645 #define MCORE_ELF_TMP_LIB "mcoreelf.lib"
3648 mcore_elf_gen_out_file (void)
3653 /* Step one. Run 'ld -r' on the input object files in order to resolve
3654 any internal references and to generate a single .exports section. */
3657 ds
= dyn_string_new (100);
3658 dyn_string_append_cstr (ds
, "-r ");
3660 if (mcore_elf_linker_flags
!= NULL
)
3661 dyn_string_append_cstr (ds
, mcore_elf_linker_flags
);
3663 while (ptr
->next
!= NULL
)
3665 dyn_string_append_cstr (ds
, ptr
->filename
);
3666 dyn_string_append_cstr (ds
, " ");
3671 dyn_string_append_cstr (ds
, "-o ");
3672 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_OBJ
);
3674 if (mcore_elf_linker
== NULL
)
3675 mcore_elf_linker
= deduce_name ("ld");
3677 run (mcore_elf_linker
, ds
->s
);
3679 dyn_string_delete (ds
);
3681 /* Step two. Create a .exp file and a .lib file from the temporary file.
3682 Do this by recursively invoking dlltool... */
3683 ds
= dyn_string_new (100);
3685 dyn_string_append_cstr (ds
, "-S ");
3686 dyn_string_append_cstr (ds
, as_name
);
3688 dyn_string_append_cstr (ds
, " -e ");
3689 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_EXP
);
3690 dyn_string_append_cstr (ds
, " -l ");
3691 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_LIB
);
3692 dyn_string_append_cstr (ds
, " " );
3693 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_OBJ
);
3696 dyn_string_append_cstr (ds
, " -v");
3700 dyn_string_append_cstr (ds
, " -n");
3702 if (dontdeltemps
> 1)
3703 dyn_string_append_cstr (ds
, " -n");
3706 /* XXX - FIME: ought to check/copy other command line options as well. */
3707 run (program_name
, ds
->s
);
3709 dyn_string_delete (ds
);
3711 /* Step four. Feed the .exp and object files to ld -shared to create the dll. */
3712 ds
= dyn_string_new (100);
3714 dyn_string_append_cstr (ds
, "-shared ");
3716 if (mcore_elf_linker_flags
)
3717 dyn_string_append_cstr (ds
, mcore_elf_linker_flags
);
3719 dyn_string_append_cstr (ds
, " ");
3720 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_EXP
);
3721 dyn_string_append_cstr (ds
, " ");
3722 dyn_string_append_cstr (ds
, MCORE_ELF_TMP_OBJ
);
3723 dyn_string_append_cstr (ds
, " -o ");
3724 dyn_string_append_cstr (ds
, mcore_elf_out_file
);
3726 run (mcore_elf_linker
, ds
->s
);
3728 dyn_string_delete (ds
);
3730 if (dontdeltemps
== 0)
3731 unlink (MCORE_ELF_TMP_EXP
);
3733 if (dontdeltemps
< 2)
3734 unlink (MCORE_ELF_TMP_OBJ
);
3736 #endif /* DLLTOOL_MCORE_ELF */