projects / deliverable / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Comment typo fixes.
[deliverable/binutils-gdb.git] / binutils / dlltool.c
CommitLineData
252b5132 1/* dlltool.c -- tool to generate stuff for PE style DLLs
f3f7fbb2 2 Copyright 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002
8c2bc687 3 Free Software Foundation, Inc.
252b5132
RH		 4
5 This file is part of GNU Binutils.
6
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.
11
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.
16
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
20 02111-1307, USA. */
21
22
c9e38879 23/* This program allows you to build the files necessary to create
252b5132
RH		 24 DLLs to run on a system which understands PE format image files.
25 (eg, Windows NT)
26
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.
31
32 A DLL contains an export table which contains the information
33 which the runtime loader needs to tie up references from a
34 referencing program.
35
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.
40
41 A DEF file contains any number of the following commands:
42
43
44 NAME <name> [ , <base> ]
45 The result is going to be <name>.EXE
46
47 LIBRARY <name> [ , <base> ]
48 The result is going to be <name>.DLL
49
04847a4d
CF		 50 EXPORTS ( ( ( <name1> [ = <name2> ] )
51 | ( <name1> = <module-name> . <external-name>))
52 [ @ <integer> ] [ NONAME ] [CONSTANT] [DATA] ) *
252b5132 53 Declares name1 as an exported symbol from the
04847a4d
CF		 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>.
252b5132
RH		 57
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.
64
65 DESCRIPTION <string>
66 Puts <string> into output .exp file in the .rdata section
67
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.
72
73 [CODE|DATA] <attr>+
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
78 upon it.
79
80
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>
83 in a .DEF file.
84
85
86
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
89 supplied argument.
90
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.
94
95
96
97 Example:
98
99 file1.c:
100 asm (".section .drectve");
101 asm (".ascii \"-export:adef\"");
102
103 void adef (char * s)
104 {
105 printf ("hello from the dll %s\n", s);
106 }
107
108 void bdef (char * s)
109 {
110 printf ("hello from the dll and the other entry point %s\n", s);
111 }
112
113 file2.c:
114 asm (".section .drectve");
115 asm (".ascii \"-export:cdef\"");
116 asm (".ascii \"-export:ddef\"");
26044998 117
252b5132
RH		 118 void cdef (char * s)
119 {
120 printf ("hello from the dll %s\n", s);
121 }
122
123 void ddef (char * s)
124 {
125 printf ("hello from the dll and the other entry point %s\n", s);
126 }
127
661016bb 128 int printf (void)
252b5132
RH		 129 {
130 return 9;
131 }
132
661016bb
NC		 133 themain.c:
134 int main (void)
252b5132 135 {
661016bb
NC		 136 cdef ();
137 return 0;
252b5132
RH		 138 }
139
140 thedll.def
141
142 LIBRARY thedll
143 HEAPSIZE 0x40000, 0x2000
144 EXPORTS bdef @ 20
145 cdef @ 30 NONAME
146
147 SECTIONS donkey READ WRITE
148 aardvark EXECUTE
149
6e7d8205 150 # Compile up the parts of the dll and the program
252b5132 151
6e7d8205 152 gcc -c file1.c file2.c themain.c
252b5132 153
6e7d8205
NC		 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)
252b5132
RH		 157
158 ar qcv thedll.in file1.o file2.o
159 ranlib thedll.in
160
6e7d8205
NC		 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).
26044998 164
aff05906 165 dlltool --def thedll.def --output-exp thedll.o --output-lib thedll.a
252b5132 166
aff05906 167 # Build the dll with the library and the export table
26044998 168
252b5132
RH		 169 ld -o thedll.dll thedll.o thedll.in
170
6e7d8205 171 # Link the executable with the import library
26044998 172
661016bb 173 gcc -o themain.exe themain.o thedll.a
252b5132 174
aff05906
NC		 175 This example can be extended if relocations are needed in the DLL:
176
177 # Compile up the parts of the dll and the program
178
179 gcc -c file1.c file2.c themain.c
180
181 # Run this tool over the DLL's .def file and generate an imports file.
26044998 182
aff05906
NC		 183 dlltool --def thedll.def --output-lib thedll.lib
184
185 # Link the executable with the import library and generate a base file
186 # at the same time
26044998 187
aff05906
NC		 188 gcc -o themain.exe themain.o thedll.lib -Wl,--base-file -Wl,themain.base
189
190 # Run this tool over the DLL's .def file and generate an exports file
191 # which includes the relocations from the base file.
26044998 192
aff05906
NC		 193 dlltool --def thedll.def --base-file themain.base --output-exp thedll.exp
194
195 # Build the dll with file1.o, file2.o and the export table
26044998 196
c9e38879 197 ld -o thedll.dll thedll.exp file1.o file2.o */
252b5132
RH		 198
199/* .idata section description
200
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.
204
205 .idata$2 = Import Directory Table
206 = array of IMAGE_IMPORT_DESCRIPTOR's.
207
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
213
214 .idata$3 = null terminating entry for .idata$2.
215
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.
220
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
227 function.
228
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.
232
c9e38879 233 .idata$7 = dll name (eg: "kernel32.dll"). (.idata$6 for ppc). */
252b5132
RH		 234
235/* AIX requires this to be the first thing in the file. */
236#ifndef __GNUC__
237# ifdef _AIX
238 #pragma alloca
239#endif
240#endif
241
242#define show_allnames 0
243
244#define PAGE_SIZE 4096
245#define PAGE_MASK (-PAGE_SIZE)
246#include "bfd.h"
247#include "libiberty.h"
248#include "bucomm.h"
249#include "getopt.h"
250#include "demangle.h"
bb0cb4db 251#include "dyn-string.h"
252b5132 252#include "dlltool.h"
3882b010 253#include "safe-ctype.h"
252b5132 254
252b5132 255#include <time.h>
bb0cb4db
ILT		 256#include <sys/stat.h>
257
258#ifdef ANSI_PROTOTYPES
252b5132
RH		 259#include <stdarg.h>
260#else
261#include <varargs.h>
262#endif
263
264#ifdef DLLTOOL_ARM
265#include "coff/arm.h"
266#include "coff/internal.h"
267#endif
268
49e315b1 269/* Forward references. */
b34976b6
AM		 270static char *look_for_prog
271 PARAMS ((const char *, const char *, int));
272static char *deduce_name
273 PARAMS ((const char *));
49e315b1
NC		 274
275#ifdef DLLTOOL_MCORE_ELF
b34976b6
AM		 276static void mcore_elf_cache_filename
277 PARAMS ((char *));
278static void mcore_elf_gen_out_file
279 PARAMS ((void));
49e315b1 280#endif
26044998 281
252b5132
RH		 282#ifdef HAVE_SYS_WAIT_H
283#include <sys/wait.h>
284#else /* ! HAVE_SYS_WAIT_H */
285#if ! defined (_WIN32) || defined (__CYGWIN32__)
286#ifndef WIFEXITED
c9e38879 287#define WIFEXITED(w) (((w) & 0377) == 0)
252b5132
RH		 288#endif
289#ifndef WIFSIGNALED
c9e38879 290#define WIFSIGNALED(w) (((w) & 0377) != 0177 && ((w) & ~0377) == 0)
252b5132
RH		 291#endif
292#ifndef WTERMSIG
293#define WTERMSIG(w) ((w) & 0177)
294#endif
295#ifndef WEXITSTATUS
296#define WEXITSTATUS(w) (((w) >> 8) & 0377)
297#endif
298#else /* defined (_WIN32) && ! defined (__CYGWIN32__) */
299#ifndef WIFEXITED
300#define WIFEXITED(w) (((w) & 0xff) == 0)
301#endif
302#ifndef WIFSIGNALED
303#define WIFSIGNALED(w) (((w) & 0xff) != 0 && ((w) & 0xff) != 0x7f)
304#endif
305#ifndef WTERMSIG
306#define WTERMSIG(w) ((w) & 0x7f)
307#endif
308#ifndef WEXITSTATUS
309#define WEXITSTATUS(w) (((w) & 0xff00) >> 8)
310#endif
311#endif /* defined (_WIN32) && ! defined (__CYGWIN32__) */
312#endif /* ! HAVE_SYS_WAIT_H */
313
314/* ifunc and ihead data structures: ttk@cygnus.com 1997
315
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.
323
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. */
328
329typedef struct ifunct
330{
c9e38879
NC		 331 char * name; /* Name of function being imported. */
332 int ord; /* Two-byte ordinal value associated with function. */
252b5132
RH		 333 struct ifunct *next;
334} ifunctype;
335
336typedef struct iheadt
337{
c9e38879
NC		 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. */
252b5132
RH		 343} iheadtype;
344
345/* Structure containing all import information as defined in .def file
346 (qv "ihead structure"). */
347
348static iheadtype *import_list = NULL;
349
49e315b1 350static char *as_name = NULL;
252b5132
RH		 351static char * as_flags = "";
352
353static int no_idata4;
354static int no_idata5;
355static char *exp_name;
356static char *imp_name;
357static char *head_label;
358static char *imp_name_lab;
359static char *dll_name;
360
361static int add_indirect = 0;
362static int add_underscore = 0;
363static int dontdeltemps = 0;
364
b34976b6 365/* TRUE if we should export all symbols. Otherwise, we only export
252b5132 366 symbols listed in .drectve sections or in the def file. */
b34976b6 367static bfd_boolean export_all_symbols;
252b5132 368
b34976b6 369/* TRUE if we should exclude the symbols in DEFAULT_EXCLUDES when
252b5132 370 exporting all symbols. */
b34976b6 371static bfd_boolean do_default_excludes = TRUE;
252b5132
RH		 372
373/* Default symbols to exclude when exporting all the symbols. */
374static const char *default_excludes = "DllMain@12,DllEntryPoint@0,impure_ptr";
375
b34976b6 376/* TRUE if we should add __imp_<SYMBOL> to import libraries for backward
5f0f29c3 377 compatibility to old Cygwin releases. */
b34976b6 378static bfd_boolean create_compat_implib;
5f0f29c3 379
252b5132
RH		 380static char *def_file;
381
382extern char * program_name;
383
384static int machine;
385static int killat;
386static int add_stdcall_alias;
387static int verbose;
388static FILE *output_def;
389static FILE *base_file;
390
252b5132 391#ifdef DLLTOOL_ARM
a8c548cb
NC		 392#ifdef DLLTOOL_ARM_EPOC
393static const char *mname = "arm-epoc";
394#else
252b5132
RH		 395static const char *mname = "arm";
396#endif
a8c548cb 397#endif
252b5132
RH		 398
399#ifdef DLLTOOL_I386
400static const char *mname = "i386";
401#endif
402
403#ifdef DLLTOOL_PPC
404static const char *mname = "ppc";
405#endif
406
8a0e0f38
NC		 407#ifdef DLLTOOL_SH
408static const char *mname = "sh";
409#endif
410
411#ifdef DLLTOOL_MIPS
412static const char *mname = "mips";
413#endif
414
661016bb 415#ifdef DLLTOOL_MCORE
7e301c9c 416static const char * mname = "mcore-le";
661016bb
NC		 417#endif
418
419#ifdef DLLTOOL_MCORE_ELF
420static const char * mname = "mcore-elf";
49e315b1
NC		 421static char * mcore_elf_out_file = NULL;
422static char * mcore_elf_linker = NULL;
423static char * mcore_elf_linker_flags = NULL;
424
661016bb
NC		 425#define DRECTVE_SECTION_NAME ((machine == MMCORE_ELF || machine == MMCORE_ELF_LE) ? ".exports" : ".drectve")
426#endif
427
428#ifndef DRECTVE_SECTION_NAME
429#define DRECTVE_SECTION_NAME ".drectve"
430#endif
431
c9e38879 432#define PATHMAX 250 /* What's the right name for this ? */
252b5132
RH		 433
434#define TMP_ASM "dc.s"
435#define TMP_HEAD_S "dh.s"
436#define TMP_HEAD_O "dh.o"
437#define TMP_TAIL_S "dt.s"
438#define TMP_TAIL_O "dt.o"
439#define TMP_STUB "ds"
440
26044998 441/* This bit of assemly does jmp * .... */
252b5132
RH		 442static const unsigned char i386_jtab[] =
443{
444 0xff, 0x25, 0x00, 0x00, 0x00, 0x00, 0x90, 0x90
445};
446
447static const unsigned char arm_jtab[] =
448{
b890a735
CM		 449 0x00, 0xc0, 0x9f, 0xe5, /* ldr ip, [pc] */
450 0x00, 0xf0, 0x9c, 0xe5, /* ldr pc, [ip] */
451 0, 0, 0, 0
452};
453
454static const unsigned char arm_interwork_jtab[] =
455{
456 0x04, 0xc0, 0x9f, 0xe5, /* ldr ip, [pc] */
457 0x00, 0xc0, 0x9c, 0xe5, /* ldr ip, [ip] */
458 0x1c, 0xff, 0x2f, 0xe1, /* bx ip */
252b5132
RH		 459 0, 0, 0, 0
460};
461
462static const unsigned char thumb_jtab[] =
463{
b890a735
CM		 464 0x40, 0xb4, /* push {r6} */
465 0x02, 0x4e, /* ldr r6, [pc, #8] */
466 0x36, 0x68, /* ldr r6, [r6] */
467 0xb4, 0x46, /* mov ip, r6 */
468 0x40, 0xbc, /* pop {r6} */
469 0x60, 0x47, /* bx ip */
252b5132
RH		 470 0, 0, 0, 0
471};
472
661016bb
NC		 473static const unsigned char mcore_be_jtab[] =
474{
ba8c44fc 475 0x71, 0x02, /* lrw r1,2 */
26044998 476 0x81, 0x01, /* ld.w r1,(r1,0) */
ba8c44fc
NC		 477 0x00, 0xC1, /* jmp r1 */
478 0x12, 0x00, /* nop */
26044998 479 0x00, 0x00, 0x00, 0x00 /* <address> */
661016bb
NC		 480};
481
482static const unsigned char mcore_le_jtab[] =
483{
ba8c44fc 484 0x02, 0x71, /* lrw r1,2 */
26044998 485 0x01, 0x81, /* ld.w r1,(r1,0) */
ba8c44fc
NC		 486 0xC1, 0x00, /* jmp r1 */
487 0x00, 0x12, /* nop */
26044998 488 0x00, 0x00, 0x00, 0x00 /* <address> */
661016bb
NC		 489};
490
c9e38879
NC		 491/* This is the glue sequence for PowerPC PE. There is a
492 tocrel16-tocdefn reloc against the first instruction.
493 We also need a IMGLUE reloc against the glue function
494 to restore the toc saved by the third instruction in
495 the glue. */
252b5132
RH		 496static const unsigned char ppc_jtab[] =
497{
498 0x00, 0x00, 0x62, 0x81, /* lwz r11,0(r2) */
499 /* Reloc TOCREL16 __imp_xxx */
500 0x00, 0x00, 0x8B, 0x81, /* lwz r12,0(r11) */
501 0x04, 0x00, 0x41, 0x90, /* stw r2,4(r1) */
502 0xA6, 0x03, 0x89, 0x7D, /* mtctr r12 */
503 0x04, 0x00, 0x4B, 0x80, /* lwz r2,4(r11) */
504 0x20, 0x04, 0x80, 0x4E /* bctr */
505};
506
507#ifdef DLLTOOL_PPC
c9e38879
NC		 508/* The glue instruction, picks up the toc from the stw in
509 the above code: "lwz r2,4(r1)". */
252b5132
RH		 510static bfd_vma ppc_glue_insn = 0x80410004;
511#endif
512
252b5132
RH		 513struct mac
514 {
515 const char *type;
516 const char *how_byte;
517 const char *how_short;
518 const char *how_long;
519 const char *how_asciz;
520 const char *how_comment;
521 const char *how_jump;
522 const char *how_global;
523 const char *how_space;
524 const char *how_align_short;
525 const char *how_align_long;
49c24507 526 const char *how_default_as_switches;
252b5132
RH		 527 const char *how_bfd_target;
528 enum bfd_architecture how_bfd_arch;
529 const unsigned char *how_jtab;
c9e38879
NC		 530 int how_jtab_size; /* Size of the jtab entry. */
531 int how_jtab_roff; /* Offset into it for the ind 32 reloc into idata 5. */
252b5132
RH		 532 };
533
534static const struct mac
535mtable[] =
536{
537 {
538#define MARM 0
539 "arm", ".byte", ".short", ".long", ".asciz", "@",
540 "ldr\tip,[pc]\n\tldr\tpc,[ip]\n\t.long",
eaeaa15c 541 ".global", ".space", ".align\t2",".align\t4", "-mapcs-32",
49c24507 542 "pe-arm-little", bfd_arch_arm,
252b5132
RH		 543 arm_jtab, sizeof (arm_jtab), 8
544 }
545 ,
546 {
547#define M386 1
49c24507
NC		 548 "i386", ".byte", ".short", ".long", ".asciz", "#",
549 "jmp *", ".global", ".space", ".align\t2",".align\t4", "",
550 "pe-i386",bfd_arch_i386,
551 i386_jtab, sizeof (i386_jtab), 2
252b5132
RH		 552 }
553 ,
554 {
555#define MPPC 2
49c24507
NC		 556 "ppc", ".byte", ".short", ".long", ".asciz", "#",
557 "jmp *", ".global", ".space", ".align\t2",".align\t4", "",
558 "pe-powerpcle",bfd_arch_powerpc,
559 ppc_jtab, sizeof (ppc_jtab), 0
252b5132
RH		 560 }
561 ,
562 {
563#define MTHUMB 3
564 "thumb", ".byte", ".short", ".long", ".asciz", "@",
b890a735 565 "push\t{r6}\n\tldr\tr6, [pc, #8]\n\tldr\tr6, [r6]\n\tmov\tip, r6\n\tpop\t{r6}\n\tbx\tip",
a2186dfe 566 ".global", ".space", ".align\t2",".align\t4", "-mthumb-interwork",
49c24507 567 "pe-arm-little", bfd_arch_arm,
252b5132
RH		 568 thumb_jtab, sizeof (thumb_jtab), 12
569 }
570 ,
b890a735
CM		 571#define MARM_INTERWORK 4
572 {
573 "arm_interwork", ".byte", ".short", ".long", ".asciz", "@",
574 "ldr\tip,[pc]\n\tldr\tip,[ip]\n\tbx\tip\n\t.long",
49c24507
NC		 575 ".global", ".space", ".align\t2",".align\t4", "-mthumb-interwork",
576 "pe-arm-little", bfd_arch_arm,
b890a735
CM		 577 arm_interwork_jtab, sizeof (arm_interwork_jtab), 12
578 }
579 ,
661016bb
NC		 580 {
581#define MMCORE_BE 5
7e301c9c 582 "mcore-be", ".byte", ".short", ".long", ".asciz", "//",
ba8c44fc 583 "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
49c24507
NC		 584 ".global", ".space", ".align\t2",".align\t4", "",
585 "pe-mcore-big", bfd_arch_mcore,
ba8c44fc 586 mcore_be_jtab, sizeof (mcore_be_jtab), 8
661016bb
NC		 587 }
588 ,
589 {
590#define MMCORE_LE 6
591 "mcore-le", ".byte", ".short", ".long", ".asciz", "//",
ba8c44fc 592 "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
49c24507
NC		 593 ".global", ".space", ".align\t2",".align\t4", "-EL",
594 "pe-mcore-little", bfd_arch_mcore,
ba8c44fc 595 mcore_le_jtab, sizeof (mcore_le_jtab), 8
661016bb
NC		 596 }
597 ,
598 {
599#define MMCORE_ELF 7
7e301c9c 600 "mcore-elf-be", ".byte", ".short", ".long", ".asciz", "//",
ba8c44fc 601 "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
49c24507
NC		 602 ".global", ".space", ".align\t2",".align\t4", "",
603 "elf32-mcore-big", bfd_arch_mcore,
ba8c44fc 604 mcore_be_jtab, sizeof (mcore_be_jtab), 8
661016bb
NC		 605 }
606 ,
607 {
608#define MMCORE_ELF_LE 8
609 "mcore-elf-le", ".byte", ".short", ".long", ".asciz", "//",
ba8c44fc 610 "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
49c24507
NC		 611 ".global", ".space", ".align\t2",".align\t4", "-EL",
612 "elf32-mcore-little", bfd_arch_mcore,
ba8c44fc 613 mcore_le_jtab, sizeof (mcore_le_jtab), 8
661016bb
NC		 614 }
615 ,
a2186dfe
NC		 616 {
617#define MARM_EPOC 9
a8c548cb 618 "arm-epoc", ".byte", ".short", ".long", ".asciz", "@",
a2186dfe
NC		 619 "ldr\tip,[pc]\n\tldr\tpc,[ip]\n\t.long",
620 ".global", ".space", ".align\t2",".align\t4", "",
621 "epoc-pe-arm-little", bfd_arch_arm,
622 arm_jtab, sizeof (arm_jtab), 8
623 }
624 ,
5ea695ed 625 { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }
252b5132
RH		 626};
627
628typedef struct dlist
629{
630 char *text;
631 struct dlist *next;
632}
633dlist_type;
634
635typedef struct export
636 {
637 const char *name;
638 const char *internal_name;
639 int ordinal;
640 int constant;
641 int noname;
642 int data;
643 int hint;
c9e38879 644 int forward; /* Number of forward label, 0 means no forward. */
252b5132
RH		 645 struct export *next;
646 }
647export_type;
648
649/* A list of symbols which we should not export. */
26044998 650
252b5132
RH		 651struct string_list
652{
653 struct string_list *next;
654 char *string;
655};
656
657static struct string_list *excludes;
658
b34976b6
AM		 659static const char *rvaafter
660 PARAMS ((int));
661static const char *rvabefore
662 PARAMS ((int));
663static const char *asm_prefix
664 PARAMS ((int));
665static void process_def_file
666 PARAMS ((const char *));
667static void new_directive
668 PARAMS ((char *));
669static void append_import
670 PARAMS ((const char *, const char *, int));
671static void run
672 PARAMS ((const char *, char *));
673static void scan_drectve_symbols
674 PARAMS ((bfd *));
675static void scan_filtered_symbols
676 PARAMS ((bfd *, PTR, long, unsigned int));
677static void add_excludes
678 PARAMS ((const char *));
679static bfd_boolean match_exclude
680 PARAMS ((const char *));
681static void set_default_excludes
682 PARAMS ((void));
683static long filter_symbols
684 PARAMS ((bfd *, PTR, long, unsigned int));
685static void scan_all_symbols
686 PARAMS ((bfd *));
687static void scan_open_obj_file
688 PARAMS ((bfd *));
689static void scan_obj_file
690 PARAMS ((const char *));
691static void dump_def_info
692 PARAMS ((FILE *));
693static int sfunc
694 PARAMS ((const void *, const void *));
695static void flush_page
696 PARAMS ((FILE *, long *, int, int));
697static void gen_def_file
698 PARAMS ((void));
699static void generate_idata_ofile
700 PARAMS ((FILE *));
701static void assemble_file
702 PARAMS ((const char *, const char *));
703static void gen_exp_file
704 PARAMS ((void));
705static const char *xlate
706 PARAMS ((const char *));
252b5132 707#if 0
b34976b6
AM		 708static void dump_iat
709 PARAMS ((FILE *, export_type *));
252b5132 710#endif
b34976b6
AM		 711static char *make_label
712 PARAMS ((const char *, const char *));
713static char *make_imp_label
714 PARAMS ((const char *, const char *));
715static bfd *make_one_lib_file
716 PARAMS ((export_type *, int));
717static bfd *make_head
718 PARAMS ((void));
719static bfd *make_tail
720 PARAMS ((void));
721static void gen_lib_file
722 PARAMS ((void));
723static int pfunc
724 PARAMS ((const void *, const void *));
725static int nfunc
726 PARAMS ((const void *, const void *));
727static void remove_null_names
728 PARAMS ((export_type **));
729static void dtab
730 PARAMS ((export_type **));
731static void process_duplicates
732 PARAMS ((export_type **));
733static void fill_ordinals
734 PARAMS ((export_type **));
735static int alphafunc
736 PARAMS ((const void *, const void *));
737static void mangle_defs
738 PARAMS ((void));
739static void usage
740 PARAMS ((FILE *, int));
741static void inform
742 PARAMS ((const char *, ...));
252b5132
RH		 743
744
745static void
c9e38879 746inform VPARAMS ((const char * message, ...))
252b5132 747{
e80ff7de
AM		 748 VA_OPEN (args, message);
749 VA_FIXEDARG (args, const char *, message);
750
252b5132
RH		 751 if (!verbose)
752 return;
753
37cc8ec1 754 report (message, args);
e80ff7de
AM		 755
756 VA_CLOSE (args);
252b5132
RH		 757}
758
252b5132
RH		 759static const char *
760rvaafter (machine)
761 int machine;
762{
763 switch (machine)
764 {
765 case MARM:
766 case M386:
767 case MPPC:
768 case MTHUMB:
b890a735 769 case MARM_INTERWORK:
661016bb
NC		 770 case MMCORE_BE:
771 case MMCORE_LE:
772 case MMCORE_ELF:
773 case MMCORE_ELF_LE:
a8c548cb 774 case MARM_EPOC:
252b5132
RH		 775 break;
776 default:
777 /* xgettext:c-format */
37cc8ec1 778 fatal (_("Internal error: Unknown machine type: %d"), machine);
252b5132
RH		 779 break;
780 }
781 return "";
782}
783
784static const char *
785rvabefore (machine)
786 int machine;
787{
788 switch (machine)
789 {
790 case MARM:
791 case M386:
792 case MPPC:
793 case MTHUMB:
b890a735 794 case MARM_INTERWORK:
661016bb
NC		 795 case MMCORE_BE:
796 case MMCORE_LE:
797 case MMCORE_ELF:
798 case MMCORE_ELF_LE:
a8c548cb 799 case MARM_EPOC:
252b5132
RH		 800 return ".rva\t";
801 default:
802 /* xgettext:c-format */
37cc8ec1 803 fatal (_("Internal error: Unknown machine type: %d"), machine);
252b5132
RH		 804 break;
805 }
806 return "";
807}
808
809static const char *
810asm_prefix (machine)
811 int machine;
812{
813 switch (machine)
814 {
815 case MARM:
816 case MPPC:
817 case MTHUMB:
b890a735 818 case MARM_INTERWORK:
661016bb
NC		 819 case MMCORE_BE:
820 case MMCORE_LE:
821 case MMCORE_ELF:
822 case MMCORE_ELF_LE:
a8c548cb 823 case MARM_EPOC:
252b5132
RH		 824 break;
825 case M386:
826 return "_";
827 default:
828 /* xgettext:c-format */
37cc8ec1 829 fatal (_("Internal error: Unknown machine type: %d"), machine);
252b5132
RH		 830 break;
831 }
832 return "";
833}
834
835#define ASM_BYTE mtable[machine].how_byte
836#define ASM_SHORT mtable[machine].how_short
837#define ASM_LONG mtable[machine].how_long
838#define ASM_TEXT mtable[machine].how_asciz
839#define ASM_C mtable[machine].how_comment
840#define ASM_JUMP mtable[machine].how_jump
841#define ASM_GLOBAL mtable[machine].how_global
842#define ASM_SPACE mtable[machine].how_space
843#define ASM_ALIGN_SHORT mtable[machine].how_align_short
844#define ASM_RVA_BEFORE rvabefore(machine)
845#define ASM_RVA_AFTER rvaafter(machine)
846#define ASM_PREFIX asm_prefix(machine)
661016bb 847#define ASM_ALIGN_LONG mtable[machine].how_align_long
49c24507
NC		 848#define HOW_BFD_READ_TARGET 0 /* always default*/
849#define HOW_BFD_WRITE_TARGET mtable[machine].how_bfd_target
661016bb
NC		 850#define HOW_BFD_ARCH mtable[machine].how_bfd_arch
851#define HOW_JTAB mtable[machine].how_jtab
852#define HOW_JTAB_SIZE mtable[machine].how_jtab_size
853#define HOW_JTAB_ROFF mtable[machine].how_jtab_roff
49c24507
NC		 854#define ASM_SWITCHES mtable[machine].how_default_as_switches
855
252b5132
RH		 856static char **oav;
857
e80ff7de 858static void
252b5132
RH		 859process_def_file (name)
860 const char *name;
861{
862 FILE *f = fopen (name, FOPEN_RT);
26044998 863
252b5132
RH		 864 if (!f)
865 /* xgettext:c-format */
866 fatal (_("Can't open def file: %s"), name);
867
868 yyin = f;
869
870 /* xgettext:c-format */
871 inform (_("Processing def file: %s"), name);
26044998 872
252b5132
RH		 873 yyparse ();
874
875 inform (_("Processed def file"));
876}
877
878/**********************************************************************/
879
c9e38879 880/* Communications with the parser. */
252b5132 881
c9e38879
NC		 882static const char *d_name; /* Arg to NAME or LIBRARY. */
883static int d_nfuncs; /* Number of functions exported. */
884static int d_named_nfuncs; /* Number of named functions exported. */
885static int d_low_ord; /* Lowest ordinal index. */
886static int d_high_ord; /* Highest ordinal index. */
887static export_type *d_exports; /* List of exported functions. */
888static export_type **d_exports_lexically; /* Vector of exported functions in alpha order. */
889static dlist_type *d_list; /* Descriptions. */
890static dlist_type *a_list; /* Stuff to go in directives. */
891static int d_nforwards = 0; /* Number of forwarded exports. */
252b5132
RH		 892
893static int d_is_dll;
894static int d_is_exe;
895
896int
897yyerror (err)
5ea695ed 898 const char * err ATTRIBUTE_UNUSED;
252b5132
RH		 899{
900 /* xgettext:c-format */
37cc8ec1 901 non_fatal (_("Syntax error in def file %s:%d"), def_file, linenumber);
26044998 902
252b5132
RH		 903 return 0;
904}
905
906void
907def_exports (name, internal_name, ordinal, noname, constant, data)
908 const char *name;
909 const char *internal_name;
910 int ordinal;
911 int noname;
912 int constant;
913 int data;
914{
915 struct export *p = (struct export *) xmalloc (sizeof (*p));
916
917 p->name = name;
918 p->internal_name = internal_name ? internal_name : name;
919 p->ordinal = ordinal;
920 p->constant = constant;
921 p->noname = noname;
922 p->data = data;
923 p->next = d_exports;
924 d_exports = p;
925 d_nfuncs++;
26044998
KH		 926
927 if ((internal_name != NULL)
04847a4d
CF		 928 && (strchr (internal_name, '.') != NULL))
929 p->forward = ++d_nforwards;
930 else
931 p->forward = 0; /* no forward */
252b5132
RH		 932}
933
934void
935def_name (name, base)
936 const char *name;
937 int base;
938{
939 /* xgettext:c-format */
940 inform (_("NAME: %s base: %x"), name, base);
26044998 941
252b5132 942 if (d_is_dll)
37cc8ec1 943 non_fatal (_("Can't have LIBRARY and NAME"));
26044998 944
252b5132 945 d_name = name;
c9e38879
NC		 946 /* If --dllname not provided, use the one in the DEF file.
947 FIXME: Is this appropriate for executables? */
252b5132
RH		 948 if (! dll_name)
949 dll_name = xstrdup (name);
950 d_is_exe = 1;
951}
952
953void
954def_library (name, base)
955 const char *name;
956 int base;
957{
958 /* xgettext:c-format */
959 inform (_("LIBRARY: %s base: %x"), name, base);
26044998 960
252b5132 961 if (d_is_exe)
37cc8ec1 962 non_fatal (_("Can't have LIBRARY and NAME"));
26044998 963
252b5132 964 d_name = name;
c9e38879 965 /* If --dllname not provided, use the one in the DEF file. */
252b5132
RH		 966 if (! dll_name)
967 dll_name = xstrdup (name);
968 d_is_dll = 1;
969}
970
971void
972def_description (desc)
973 const char *desc;
974{
975 dlist_type *d = (dlist_type *) xmalloc (sizeof (dlist_type));
976 d->text = xstrdup (desc);
977 d->next = d_list;
978 d_list = d;
979}
980
e80ff7de 981static void
252b5132
RH		 982new_directive (dir)
983 char *dir;
984{
985 dlist_type *d = (dlist_type *) xmalloc (sizeof (dlist_type));
986 d->text = xstrdup (dir);
987 d->next = a_list;
988 a_list = d;
989}
990
991void
992def_heapsize (reserve, commit)
993 int reserve;
994 int commit;
995{
996 char b[200];
997 if (commit > 0)
998 sprintf (b, "-heap 0x%x,0x%x ", reserve, commit);
999 else
1000 sprintf (b, "-heap 0x%x ", reserve);
1001 new_directive (xstrdup (b));
1002}
1003
1004void
1005def_stacksize (reserve, commit)
1006 int reserve;
1007 int commit;
1008{
1009 char b[200];
1010 if (commit > 0)
1011 sprintf (b, "-stack 0x%x,0x%x ", reserve, commit);
1012 else
1013 sprintf (b, "-stack 0x%x ", reserve);
1014 new_directive (xstrdup (b));
1015}
1016
1017/* append_import simply adds the given import definition to the global
1018 import_list. It is used by def_import. */
1019
1020static void
1021append_import (symbol_name, dll_name, func_ordinal)
1022 const char *symbol_name;
1023 const char *dll_name;
1024 int func_ordinal;
1025{
1026 iheadtype **pq;
1027 iheadtype *q;
1028
1029 for (pq = &import_list; *pq != NULL; pq = &(*pq)->next)
1030 {
1031 if (strcmp ((*pq)->dllname, dll_name) == 0)
1032 {
1033 q = *pq;
1034 q->functail->next = xmalloc (sizeof (ifunctype));
1035 q->functail = q->functail->next;
1036 q->functail->ord = func_ordinal;
1037 q->functail->name = xstrdup (symbol_name);
1038 q->functail->next = NULL;
1039 q->nfuncs++;
1040 return;
1041 }
1042 }
1043
1044 q = xmalloc (sizeof (iheadtype));
1045 q->dllname = xstrdup (dll_name);
1046 q->nfuncs = 1;
1047 q->funchead = xmalloc (sizeof (ifunctype));
1048 q->functail = q->funchead;
1049 q->next = NULL;
1050 q->functail->name = xstrdup (symbol_name);
1051 q->functail->ord = func_ordinal;
1052 q->functail->next = NULL;
1053
1054 *pq = q;
1055}
1056
1057/* def_import is called from within defparse.y when an IMPORT
1058 declaration is encountered. Depending on the form of the
1059 declaration, the module name may or may not need ".dll" to be
1060 appended to it, the name of the function may be stored in internal
1061 or entry, and there may or may not be an ordinal value associated
1062 with it. */
1063
1064/* A note regarding the parse modes:
1065 In defparse.y we have to accept import declarations which follow
1066 any one of the following forms:
1067 <func_name_in_app> = <dll_name>.<func_name_in_dll>
1068 <func_name_in_app> = <dll_name>.<number>
1069 <dll_name>.<func_name_in_dll>
1070 <dll_name>.<number>
1071 Furthermore, the dll's name may or may not end with ".dll", which
1072 complicates the parsing a little. Normally the dll's name is
1073 passed to def_import() in the "module" parameter, but when it ends
1074 with ".dll" it gets passed in "module" sans ".dll" and that needs
1075 to be reappended.
1076
1077 def_import gets five parameters:
1078 APP_NAME - the name of the function in the application, if
1079 present, or NULL if not present.
1080 MODULE - the name of the dll, possibly sans extension (ie, '.dll').
1081 DLLEXT - the extension of the dll, if present, NULL if not present.
1082 ENTRY - the name of the function in the dll, if present, or NULL.
1083 ORD_VAL - the numerical tag of the function in the dll, if present,
1084 or NULL. Exactly one of <entry> or <ord_val> must be
1085 present (i.e., not NULL). */
1086
1087void
1088def_import (app_name, module, dllext, entry, ord_val)
1089 const char *app_name;
1090 const char *module;
1091 const char *dllext;
1092 const char *entry;
1093 int ord_val;
1094{
1095 const char *application_name;
1096 char *buf;
1097
1098 if (entry != NULL)
1099 application_name = entry;
1100 else
1101 {
1102 if (app_name != NULL)
1103 application_name = app_name;
1104 else
1105 application_name = "";
1106 }
26044998 1107
252b5132
RH		 1108 if (dllext != NULL)
1109 {
1110 buf = (char *) alloca (strlen (module) + strlen (dllext) + 2);
1111 sprintf (buf, "%s.%s", module, dllext);
1112 module = buf;
1113 }
1114
1115 append_import (application_name, module, ord_val);
1116}
1117
1118void
1119def_version (major, minor)
1120 int major;
1121 int minor;
1122{
1123 printf ("VERSION %d.%d\n", major, minor);
1124}
1125
1126void
1127def_section (name, attr)
1128 const char *name;
1129 int attr;
1130{
1131 char buf[200];
1132 char atts[5];
1133 char *d = atts;
1134 if (attr & 1)
1135 *d++ = 'R';
1136
1137 if (attr & 2)
1138 *d++ = 'W';
1139 if (attr & 4)
1140 *d++ = 'X';
1141 if (attr & 8)
1142 *d++ = 'S';
1143 *d++ = 0;
1144 sprintf (buf, "-attr %s %s", name, atts);
1145 new_directive (xstrdup (buf));
1146}
1147
1148void
1149def_code (attr)
1150 int attr;
1151{
1152
1153 def_section ("CODE", attr);
1154}
1155
1156void
1157def_data (attr)
1158 int attr;
1159{
1160 def_section ("DATA", attr);
1161}
1162
1163/**********************************************************************/
1164
1165static void
1166run (what, args)
1167 const char *what;
1168 char *args;
1169{
1170 char *s;
1171 int pid, wait_status;
1172 int i;
1173 const char **argv;
1174 char *errmsg_fmt, *errmsg_arg;
1175 char *temp_base = choose_temp_base ();
1176
37cc8ec1 1177 inform ("run: %s %s", what, args);
252b5132
RH		 1178
1179 /* Count the args */
1180 i = 0;
1181 for (s = args; *s; s++)
1182 if (*s == ' ')
1183 i++;
1184 i++;
1185 argv = alloca (sizeof (char *) * (i + 3));
1186 i = 0;
1187 argv[i++] = what;
1188 s = args;
1189 while (1)
1190 {
1191 while (*s == ' ')
1192 ++s;
1193 argv[i++] = s;
1194 while (*s != ' ' && *s != 0)
1195 s++;
1196 if (*s == 0)
1197 break;
1198 *s++ = 0;
1199 }
1200 argv[i++] = NULL;
1201
1202 pid = pexecute (argv[0], (char * const *) argv, program_name, temp_base,
1203 &errmsg_fmt, &errmsg_arg, PEXECUTE_ONE | PEXECUTE_SEARCH);
1204
1205 if (pid == -1)
1206 {
1207 inform (strerror (errno));
26044998 1208
252b5132
RH		 1209 fatal (errmsg_fmt, errmsg_arg);
1210 }
1211
1212 pid = pwait (pid, & wait_status, 0);
26044998 1213
252b5132
RH		 1214 if (pid == -1)
1215 {
1216 /* xgettext:c-format */
1217 fatal (_("wait: %s"), strerror (errno));
1218 }
1219 else if (WIFSIGNALED (wait_status))
1220 {
1221 /* xgettext:c-format */
1222 fatal (_("subprocess got fatal signal %d"), WTERMSIG (wait_status));
1223 }
1224 else if (WIFEXITED (wait_status))
1225 {
1226 if (WEXITSTATUS (wait_status) != 0)
1227 /* xgettext:c-format */
37cc8ec1
AM		 1228 non_fatal (_("%s exited with status %d"),
1229 what, WEXITSTATUS (wait_status));
252b5132
RH		 1230 }
1231 else
1232 abort ();
1233}
1234
1235/* Look for a list of symbols to export in the .drectve section of
1236 ABFD. Pass each one to def_exports. */
1237
1238static void
1239scan_drectve_symbols (abfd)
1240 bfd *abfd;
1241{
1242 asection * s;
1243 int size;
1244 char * buf;
1245 char * p;
1246 char * e;
661016bb 1247
252b5132 1248 /* Look for .drectve's */
661016bb 1249 s = bfd_get_section_by_name (abfd, DRECTVE_SECTION_NAME);
26044998 1250
252b5132
RH		 1251 if (s == NULL)
1252 return;
26044998 1253
252b5132
RH		 1254 size = bfd_get_section_size_before_reloc (s);
1255 buf = xmalloc (size);
1256
1257 bfd_get_section_contents (abfd, s, buf, 0, size);
26044998 1258
252b5132 1259 /* xgettext:c-format */
37cc8ec1 1260 inform (_("Sucking in info from %s section in %s"),
661016bb 1261 DRECTVE_SECTION_NAME, bfd_get_filename (abfd));
252b5132 1262
ce195b42
DD		 1263 /* Search for -export: strings. The exported symbols can optionally
1264 have type tags (eg., -export:foo,data), so handle those as well.
5f0f29c3 1265 Currently only data tag is supported. */
252b5132
RH		 1266 p = buf;
1267 e = buf + size;
1268 while (p < e)
1269 {
1270 if (p[0] == '-'
1271 && strncmp (p, "-export:", 8) == 0)
1272 {
1273 char * name;
1274 char * c;
ce195b42 1275 flagword flags = BSF_FUNCTION;
26044998 1276
252b5132
RH		 1277 p += 8;
1278 name = p;
ce195b42 1279 while (p < e && *p != ',' && *p != ' ' && *p != '-')
252b5132
RH		 1280 p++;
1281 c = xmalloc (p - name + 1);
1282 memcpy (c, name, p - name);
1283 c[p - name] = 0;
26044998 1284 if (p < e && *p == ',') /* found type tag. */
ce195b42
DD		 1285 {
1286 char *tag_start = ++p;
1287 while (p < e && *p != ' ' && *p != '-')
1288 p++;
1289 if (strncmp (tag_start, "data", 4) == 0)
1290 flags &= ~BSF_FUNCTION;
1291 }
1292
252b5132
RH		 1293 /* FIXME: The 5th arg is for the `constant' field.
1294 What should it be? Not that it matters since it's not
1295 currently useful. */
ce195b42 1296 def_exports (c, 0, -1, 0, 0, ! (flags & BSF_FUNCTION));
252b5132
RH		 1297
1298 if (add_stdcall_alias && strchr (c, '@'))
1299 {
b34976b6 1300 int lead_at = (*c == '@') ;
c9e38879 1301 char *exported_name = xstrdup (c + lead_at);
252b5132
RH		 1302 char *atsym = strchr (exported_name, '@');
1303 *atsym = '\0';
5f0f29c3 1304 /* Note: stdcall alias symbols can never be data. */
252b5132
RH		 1305 def_exports (exported_name, xstrdup (c), -1, 0, 0, 0);
1306 }
1307 }
1308 else
1309 p++;
1310 }
1311 free (buf);
1312}
1313
1314/* Look through the symbols in MINISYMS, and add each one to list of
1315 symbols to export. */
1316
1317static void
1318scan_filtered_symbols (abfd, minisyms, symcount, size)
1319 bfd *abfd;
1320 PTR minisyms;
1321 long symcount;
1322 unsigned int size;
1323{
1324 asymbol *store;
1325 bfd_byte *from, *fromend;
1326
1327 store = bfd_make_empty_symbol (abfd);
1328 if (store == NULL)
1329 bfd_fatal (bfd_get_filename (abfd));
1330
1331 from = (bfd_byte *) minisyms;
1332 fromend = from + symcount * size;
1333 for (; from < fromend; from += size)
1334 {
1335 asymbol *sym;
1336 const char *symbol_name;
1337
b34976b6 1338 sym = bfd_minisymbol_to_symbol (abfd, FALSE, from, store);
252b5132
RH		 1339 if (sym == NULL)
1340 bfd_fatal (bfd_get_filename (abfd));
1341
1342 symbol_name = bfd_asymbol_name (sym);
1343 if (bfd_get_symbol_leading_char (abfd) == symbol_name[0])
1344 ++symbol_name;
1345
ce195b42 1346 def_exports (xstrdup (symbol_name) , 0, -1, 0, 0,
a2186dfe 1347 ! (sym->flags & BSF_FUNCTION));
252b5132
RH		 1348
1349 if (add_stdcall_alias && strchr (symbol_name, '@'))
1350 {
c9e38879
NC		 1351 int lead_at = (*symbol_name == '@');
1352 char *exported_name = xstrdup (symbol_name + lead_at);
252b5132
RH		 1353 char *atsym = strchr (exported_name, '@');
1354 *atsym = '\0';
26044998 1355 /* Note: stdcall alias symbols can never be data. */
252b5132
RH		 1356 def_exports (exported_name, xstrdup (symbol_name), -1, 0, 0, 0);
1357 }
1358 }
1359}
1360
1361/* Add a list of symbols to exclude. */
1362
1363static void
1364add_excludes (new_excludes)
1365 const char *new_excludes;
1366{
1367 char *local_copy;
1368 char *exclude_string;
1369
1370 local_copy = xstrdup (new_excludes);
1371
1372 exclude_string = strtok (local_copy, ",:");
1373 for (; exclude_string; exclude_string = strtok (NULL, ",:"))
1374 {
1375 struct string_list *new_exclude;
26044998 1376
252b5132
RH		 1377 new_exclude = ((struct string_list *)
1378 xmalloc (sizeof (struct string_list)));
1379 new_exclude->string = (char *) xmalloc (strlen (exclude_string) + 2);
c9e38879
NC		 1380 /* Don't add a leading underscore for fastcall symbols. */
1381 if (*exclude_string == '@')
1382 sprintf (new_exclude->string, "%s", exclude_string);
1383 else
1384 sprintf (new_exclude->string, "_%s", exclude_string);
252b5132
RH		 1385 new_exclude->next = excludes;
1386 excludes = new_exclude;
1387
1388 /* xgettext:c-format */
37cc8ec1 1389 inform (_("Excluding symbol: %s"), exclude_string);
252b5132
RH		 1390 }
1391
1392 free (local_copy);
1393}
1394
1395/* See if STRING is on the list of symbols to exclude. */
1396
b34976b6 1397static bfd_boolean
252b5132
RH		 1398match_exclude (string)
1399 const char *string;
1400{
1401 struct string_list *excl_item;
1402
1403 for (excl_item = excludes; excl_item; excl_item = excl_item->next)
1404 if (strcmp (string, excl_item->string) == 0)
b34976b6
AM		 1405 return TRUE;
1406 return FALSE;
252b5132
RH		 1407}
1408
1409/* Add the default list of symbols to exclude. */
1410
1411static void
1412set_default_excludes (void)
1413{
1414 add_excludes (default_excludes);
1415}
1416
1417/* Choose which symbols to export. */
1418
1419static long
1420filter_symbols (abfd, minisyms, symcount, size)
1421 bfd *abfd;
1422 PTR minisyms;
1423 long symcount;
1424 unsigned int size;
1425{
1426 bfd_byte *from, *fromend, *to;
1427 asymbol *store;
1428
1429 store = bfd_make_empty_symbol (abfd);
1430 if (store == NULL)
1431 bfd_fatal (bfd_get_filename (abfd));
1432
1433 from = (bfd_byte *) minisyms;
1434 fromend = from + symcount * size;
1435 to = (bfd_byte *) minisyms;
1436
1437 for (; from < fromend; from += size)
1438 {
1439 int keep = 0;
1440 asymbol *sym;
1441
b34976b6 1442 sym = bfd_minisymbol_to_symbol (abfd, FALSE, (const PTR) from, store);
252b5132
RH		 1443 if (sym == NULL)
1444 bfd_fatal (bfd_get_filename (abfd));
1445
1446 /* Check for external and defined only symbols. */
1447 keep = (((sym->flags & BSF_GLOBAL) != 0
1448 || (sym->flags & BSF_WEAK) != 0
1449 || bfd_is_com_section (sym->section))
1450 && ! bfd_is_und_section (sym->section));
26044998 1451
252b5132
RH		 1452 keep = keep && ! match_exclude (sym->name);
1453
1454 if (keep)
1455 {
1456 memcpy (to, from, size);
1457 to += size;
1458 }
1459 }
1460
1461 return (to - (bfd_byte *) minisyms) / size;
1462}
1463
1464/* Export all symbols in ABFD, except for ones we were told not to
1465 export. */
1466
1467static void
1468scan_all_symbols (abfd)
1469 bfd *abfd;
1470{
1471 long symcount;
1472 PTR minisyms;
1473 unsigned int size;
1474
1475 /* Ignore bfds with an import descriptor table. We assume that any
1476 such BFD contains symbols which are exported from another DLL,
1477 and we don't want to reexport them from here. */
1478 if (bfd_get_section_by_name (abfd, ".idata$4"))
1479 return;
1480
1481 if (! (bfd_get_file_flags (abfd) & HAS_SYMS))
1482 {
1483 /* xgettext:c-format */
37cc8ec1 1484 non_fatal (_("%s: no symbols"), bfd_get_filename (abfd));
252b5132
RH		 1485 return;
1486 }
1487
b34976b6 1488 symcount = bfd_read_minisymbols (abfd, FALSE, &minisyms, &size);
252b5132
RH		 1489 if (symcount < 0)
1490 bfd_fatal (bfd_get_filename (abfd));
1491
1492 if (symcount == 0)
1493 {
1494 /* xgettext:c-format */
37cc8ec1 1495 non_fatal (_("%s: no symbols"), bfd_get_filename (abfd));
252b5132
RH		 1496 return;
1497 }
1498
1499 /* Discard the symbols we don't want to export. It's OK to do this
1500 in place; we'll free the storage anyway. */
1501
1502 symcount = filter_symbols (abfd, minisyms, symcount, size);
1503 scan_filtered_symbols (abfd, minisyms, symcount, size);
1504
1505 free (minisyms);
1506}
1507
1508/* Look at the object file to decide which symbols to export. */
1509
1510static void
1511scan_open_obj_file (abfd)
1512 bfd *abfd;
1513{
1514 if (export_all_symbols)
1515 scan_all_symbols (abfd);
1516 else
1517 scan_drectve_symbols (abfd);
26044998 1518
c9e38879 1519 /* FIXME: we ought to read in and block out the base relocations. */
252b5132
RH		 1520
1521 /* xgettext:c-format */
37cc8ec1 1522 inform (_("Done reading %s"), bfd_get_filename (abfd));
252b5132
RH		 1523}
1524
1525static void
1526scan_obj_file (filename)
1527 const char *filename;
1528{
1529 bfd * f = bfd_openr (filename, 0);
1530
1531 if (!f)
1532 /* xgettext:c-format */
1533 fatal (_("Unable to open object file: %s"), filename);
1534
1535 /* xgettext:c-format */
1536 inform (_("Scanning object file %s"), filename);
26044998 1537
252b5132
RH		 1538 if (bfd_check_format (f, bfd_archive))
1539 {
1540 bfd *arfile = bfd_openr_next_archived_file (f, 0);
1541 while (arfile)
1542 {
1543 if (bfd_check_format (arfile, bfd_object))
1544 scan_open_obj_file (arfile);
1545 bfd_close (arfile);
1546 arfile = bfd_openr_next_archived_file (f, arfile);
1547 }
26044998 1548
49e315b1
NC		 1549#ifdef DLLTOOL_MCORE_ELF
1550 if (mcore_elf_out_file)
1551 inform (_("Cannot produce mcore-elf dll from archive file: %s"), filename);
1552#endif
252b5132
RH		 1553 }
1554 else if (bfd_check_format (f, bfd_object))
1555 {
1556 scan_open_obj_file (f);
49e315b1
NC		 1557
1558#ifdef DLLTOOL_MCORE_ELF
1559 if (mcore_elf_out_file)
1560 mcore_elf_cache_filename ((char *) filename);
1561#endif
252b5132
RH		 1562 }
1563
1564 bfd_close (f);
1565}
1566
1567/**********************************************************************/
1568
1569static void
1570dump_def_info (f)
1571 FILE *f;
1572{
1573 int i;
1574 export_type *exp;
1575 fprintf (f, "%s ", ASM_C);
1576 for (i = 0; oav[i]; i++)
1577 fprintf (f, "%s ", oav[i]);
1578 fprintf (f, "\n");
1579 for (i = 0, exp = d_exports; exp; i++, exp = exp->next)
1580 {
1581 fprintf (f, "%s %d = %s %s @ %d %s%s%s\n",
1582 ASM_C,
1583 i,
1584 exp->name,
1585 exp->internal_name,
1586 exp->ordinal,
1587 exp->noname ? "NONAME " : "",
1588 exp->constant ? "CONSTANT" : "",
1589 exp->data ? "DATA" : "");
1590 }
1591}
1592
c9e38879 1593/* Generate the .exp file. */
252b5132
RH		 1594
1595static int
1596sfunc (a, b)
1597 const void *a;
1598 const void *b;
1599{
1600 return *(const long *) a - *(const long *) b;
1601}
1602
1603static void
1604flush_page (f, need, page_addr, on_page)
1605 FILE *f;
1606 long *need;
1607 int page_addr;
1608 int on_page;
1609{
1610 int i;
1611
c9e38879 1612 /* Flush this page. */
252b5132
RH		 1613 fprintf (f, "\t%s\t0x%08x\t%s Starting RVA for chunk\n",
1614 ASM_LONG,
1615 page_addr,
1616 ASM_C);
1617 fprintf (f, "\t%s\t0x%x\t%s Size of block\n",
1618 ASM_LONG,
1619 (on_page * 2) + (on_page & 1) * 2 + 8,
1620 ASM_C);
26044998 1621
252b5132 1622 for (i = 0; i < on_page; i++)
a2186dfe
NC		 1623 {
1624 long needed = need[i];
26044998 1625
a2186dfe
NC		 1626 if (needed)
1627 needed = ((needed - page_addr) | 0x3000) & 0xffff;
26044998 1628
a2186dfe
NC		 1629 fprintf (f, "\t%s\t0x%lx\n", ASM_SHORT, needed);
1630 }
26044998 1631
252b5132
RH		 1632 /* And padding */
1633 if (on_page & 1)
1634 fprintf (f, "\t%s\t0x%x\n", ASM_SHORT, 0 | 0x0000);
1635}
1636
1637static void
1638gen_def_file ()
1639{
1640 int i;
1641 export_type *exp;
1642
1643 inform (_("Adding exports to output file"));
26044998 1644
252b5132
RH		 1645 fprintf (output_def, ";");
1646 for (i = 0; oav[i]; i++)
1647 fprintf (output_def, " %s", oav[i]);
1648
1649 fprintf (output_def, "\nEXPORTS\n");
1650
1651 for (i = 0, exp = d_exports; exp; i++, exp = exp->next)
1652 {
1653 char *quote = strchr (exp->name, '.') ? "\"" : "";
1654 char *res = cplus_demangle (exp->internal_name, DMGL_ANSI | DMGL_PARAMS);
1655
1656 if (strcmp (exp->name, exp->internal_name) == 0)
26044998 1657 {
252b5132
RH		 1658
1659 fprintf (output_def, "\t%s%s%s @ %d%s%s ; %s\n",
1660 quote,
1661 exp->name,
1662 quote,
1663 exp->ordinal,
1664 exp->noname ? " NONAME" : "",
1665 exp->data ? " DATA" : "",
1666 res ? res : "");
1667 }
26044998
KH		 1668 else
1669 {
1670 char *quote1 = strchr (exp->internal_name, '.') ? "\"" : "";
252b5132
RH		 1671 /* char *alias = */
1672 fprintf (output_def, "\t%s%s%s = %s%s%s @ %d%s%s ; %s\n",
1673 quote,
1674 exp->name,
1675 quote,
1676 quote1,
1677 exp->internal_name,
1678 quote1,
1679 exp->ordinal,
1680 exp->noname ? " NONAME" : "",
1681 exp->data ? " DATA" : "",
1682 res ? res : "");
1683 }
1684 if (res)
26044998 1685 free (res);
252b5132 1686 }
26044998 1687
252b5132
RH		 1688 inform (_("Added exports to output file"));
1689}
1690
1691/* generate_idata_ofile generates the portable assembly source code
1692 for the idata sections. It appends the source code to the end of
1693 the file. */
1694
1695static void
1696generate_idata_ofile (filvar)
1697 FILE *filvar;
1698{
1699 iheadtype *headptr;
1700 ifunctype *funcptr;
1701 int headindex;
1702 int funcindex;
1703 int nheads;
1704
1705 if (import_list == NULL)
1706 return;
1707
1708 fprintf (filvar, "%s Import data sections\n", ASM_C);
1709 fprintf (filvar, "\n\t.section\t.idata$2\n");
1710 fprintf (filvar, "\t%s\tdoi_idata\n", ASM_GLOBAL);
1711 fprintf (filvar, "doi_idata:\n");
1712
1713 nheads = 0;
1714 for (headptr = import_list; headptr != NULL; headptr = headptr->next)
1715 {
1716 fprintf (filvar, "\t%slistone%d%s\t%s %s\n",
1717 ASM_RVA_BEFORE, nheads, ASM_RVA_AFTER,
1718 ASM_C, headptr->dllname);
1719 fprintf (filvar, "\t%s\t0\n", ASM_LONG);
1720 fprintf (filvar, "\t%s\t0\n", ASM_LONG);
1721 fprintf (filvar, "\t%sdllname%d%s\n",
1722 ASM_RVA_BEFORE, nheads, ASM_RVA_AFTER);
1723 fprintf (filvar, "\t%slisttwo%d%s\n\n",
1724 ASM_RVA_BEFORE, nheads, ASM_RVA_AFTER);
1725 nheads++;
1726 }
1727
1728 fprintf (filvar, "\t%s\t0\n", ASM_LONG); /* NULL record at */
1729 fprintf (filvar, "\t%s\t0\n", ASM_LONG); /* end of idata$2 */
1730 fprintf (filvar, "\t%s\t0\n", ASM_LONG); /* section */
1731 fprintf (filvar, "\t%s\t0\n", ASM_LONG);
1732 fprintf (filvar, "\t%s\t0\n", ASM_LONG);
1733
1734 fprintf (filvar, "\n\t.section\t.idata$4\n");
1735 headindex = 0;
1736 for (headptr = import_list; headptr != NULL; headptr = headptr->next)
1737 {
1738 fprintf (filvar, "listone%d:\n", headindex);
1739 for ( funcindex = 0; funcindex < headptr->nfuncs; funcindex++ )
1740 fprintf (filvar, "\t%sfuncptr%d_%d%s\n",
1741 ASM_RVA_BEFORE, headindex, funcindex, ASM_RVA_AFTER);
1742 fprintf (filvar,"\t%s\t0\n", ASM_LONG); /* NULL terminating list */
1743 headindex++;
1744 }
1745
1746 fprintf (filvar, "\n\t.section\t.idata$5\n");
1747 headindex = 0;
1748 for (headptr = import_list; headptr != NULL; headptr = headptr->next)
1749 {
1750 fprintf (filvar, "listtwo%d:\n", headindex);
1751 for ( funcindex = 0; funcindex < headptr->nfuncs; funcindex++ )
1752 fprintf (filvar, "\t%sfuncptr%d_%d%s\n",
1753 ASM_RVA_BEFORE, headindex, funcindex, ASM_RVA_AFTER);
1754 fprintf (filvar, "\t%s\t0\n", ASM_LONG); /* NULL terminating list */
1755 headindex++;
1756 }
1757
1758 fprintf (filvar, "\n\t.section\t.idata$6\n");
1759 headindex = 0;
1760 for (headptr = import_list; headptr != NULL; headptr = headptr->next)
1761 {
1762 funcindex = 0;
1763 for (funcptr = headptr->funchead; funcptr != NULL;
1764 funcptr = funcptr->next)
1765 {
1766 fprintf (filvar,"funcptr%d_%d:\n", headindex, funcindex);
1767 fprintf (filvar,"\t%s\t%d\n", ASM_SHORT,
1768 ((funcptr->ord) & 0xFFFF));
1769 fprintf (filvar,"\t%s\t\"%s\"\n", ASM_TEXT, funcptr->name);
1770 fprintf (filvar,"\t%s\t0\n", ASM_BYTE);
1771 funcindex++;
1772 }
1773 headindex++;
1774 }
1775
1776 fprintf (filvar, "\n\t.section\t.idata$7\n");
1777 headindex = 0;
1778 for (headptr = import_list; headptr != NULL; headptr = headptr->next)
1779 {
1780 fprintf (filvar,"dllname%d:\n", headindex);
1781 fprintf (filvar,"\t%s\t\"%s\"\n", ASM_TEXT, headptr->dllname);
1782 fprintf (filvar,"\t%s\t0\n", ASM_BYTE);
1783 headindex++;
1784 }
1785}
1786
26044998 1787/* Assemble the specified file. */
49c24507
NC		 1788static void
1789assemble_file (source, dest)
1790 const char * source;
1791 const char * dest;
1792{
1793 char * cmd;
26044998 1794
49c24507 1795 cmd = (char *) alloca (strlen (ASM_SWITCHES) + strlen (as_flags)
96925346 1796 + strlen (source) + strlen (dest) + 50);
49c24507
NC		 1797
1798 sprintf (cmd, "%s %s -o %s %s", ASM_SWITCHES, as_flags, dest, source);
1799
1800 run (as_name, cmd);
1801}
1802
252b5132
RH		 1803static void
1804gen_exp_file ()
1805{
1806 FILE *f;
1807 int i;
1808 export_type *exp;
1809 dlist_type *dl;
1810
1811 /* xgettext:c-format */
37cc8ec1 1812 inform (_("Generating export file: %s"), exp_name);
26044998 1813
252b5132
RH		 1814 f = fopen (TMP_ASM, FOPEN_WT);
1815 if (!f)
1816 /* xgettext:c-format */
1817 fatal (_("Unable to open temporary assembler file: %s"), TMP_ASM);
26044998 1818
252b5132
RH		 1819 /* xgettext:c-format */
1820 inform (_("Opened temporary file: %s"), TMP_ASM);
1821
1822 dump_def_info (f);
26044998 1823
252b5132
RH		 1824 if (d_exports)
1825 {
1826 fprintf (f, "\t.section .edata\n\n");
1827 fprintf (f, "\t%s 0 %s Allways 0\n", ASM_LONG, ASM_C);
1828 fprintf (f, "\t%s 0x%lx %s Time and date\n", ASM_LONG, (long) time(0),
1829 ASM_C);
1830 fprintf (f, "\t%s 0 %s Major and Minor version\n", ASM_LONG, ASM_C);
1831 fprintf (f, "\t%sname%s %s Ptr to name of dll\n", ASM_RVA_BEFORE, ASM_RVA_AFTER, ASM_C);
1832 fprintf (f, "\t%s %d %s Starting ordinal of exports\n", ASM_LONG, d_low_ord, ASM_C);
1833
1834
1835 fprintf (f, "\t%s %d %s Number of functions\n", ASM_LONG, d_high_ord - d_low_ord + 1, ASM_C);
1836 fprintf(f,"\t%s named funcs %d, low ord %d, high ord %d\n",
1837 ASM_C,
1838 d_named_nfuncs, d_low_ord, d_high_ord);
1839 fprintf (f, "\t%s %d %s Number of names\n", ASM_LONG,
1840 show_allnames ? d_high_ord - d_low_ord + 1 : d_named_nfuncs, ASM_C);
1841 fprintf (f, "\t%safuncs%s %s Address of functions\n", ASM_RVA_BEFORE, ASM_RVA_AFTER, ASM_C);
1842
1843 fprintf (f, "\t%sanames%s %s Address of Name Pointer Table\n",
1844 ASM_RVA_BEFORE, ASM_RVA_AFTER, ASM_C);
1845
1846 fprintf (f, "\t%sanords%s %s Address of ordinals\n", ASM_RVA_BEFORE, ASM_RVA_AFTER, ASM_C);
1847
1848 fprintf (f, "name: %s \"%s\"\n", ASM_TEXT, dll_name);
1849
1850
1851 fprintf(f,"%s Export address Table\n", ASM_C);
1852 fprintf(f,"\t%s\n", ASM_ALIGN_LONG);
1853 fprintf (f, "afuncs:\n");
1854 i = d_low_ord;
1855
1856 for (exp = d_exports; exp; exp = exp->next)
1857 {
1858 if (exp->ordinal != i)
1859 {
1860#if 0
1861 fprintf (f, "\t%s\t%d\t%s %d..%d missing\n",
1862 ASM_SPACE,
1863 (exp->ordinal - i) * 4,
1864 ASM_C,
1865 i, exp->ordinal - 1);
1866 i = exp->ordinal;
1867#endif
1868 while (i < exp->ordinal)
1869 {
1870 fprintf(f,"\t%s\t0\n", ASM_LONG);
1871 i++;
1872 }
1873 }
04847a4d
CF		 1874
1875 if (exp->forward == 0)
c9e38879
NC		 1876 {
1877 if (exp->internal_name[0] == '@')
1878 fprintf (f, "\t%s%s%s\t%s %d\n", ASM_RVA_BEFORE,
1879 exp->internal_name, ASM_RVA_AFTER, ASM_C, exp->ordinal);
1880 else
1881 fprintf (f, "\t%s%s%s%s\t%s %d\n", ASM_RVA_BEFORE,
1882 ASM_PREFIX,
1883 exp->internal_name, ASM_RVA_AFTER, ASM_C, exp->ordinal);
1884 }
04847a4d
CF		 1885 else
1886 fprintf (f, "\t%sf%d%s\t%s %d\n", ASM_RVA_BEFORE,
1887 exp->forward, ASM_RVA_AFTER, ASM_C, exp->ordinal);
252b5132
RH		 1888 i++;
1889 }
1890
1891 fprintf (f,"%s Export Name Pointer Table\n", ASM_C);
1892 fprintf (f, "anames:\n");
1893
1894 for (i = 0; (exp = d_exports_lexically[i]); i++)
1895 {
1896 if (!exp->noname || show_allnames)
1897 fprintf (f, "\t%sn%d%s\n",
1898 ASM_RVA_BEFORE, exp->ordinal, ASM_RVA_AFTER);
1899 }
1900
1901 fprintf (f,"%s Export Oridinal Table\n", ASM_C);
1902 fprintf (f, "anords:\n");
1903 for (i = 0; (exp = d_exports_lexically[i]); i++)
1904 {
1905 if (!exp->noname || show_allnames)
1906 fprintf (f, "\t%s %d\n", ASM_SHORT, exp->ordinal - d_low_ord);
1907 }
1908
1909 fprintf(f,"%s Export Name Table\n", ASM_C);
1910 for (i = 0; (exp = d_exports_lexically[i]); i++)
1911 if (!exp->noname || show_allnames)
04847a4d
CF		 1912 {
1913 fprintf (f, "n%d: %s \"%s\"\n",
f3f7fbb2 1914 exp->ordinal, ASM_TEXT, xlate (exp->name));
04847a4d
CF		 1915 if (exp->forward != 0)
1916 fprintf (f, "f%d: %s \"%s\"\n",
1917 exp->forward, ASM_TEXT, exp->internal_name);
1918 }
252b5132
RH		 1919
1920 if (a_list)
1921 {
661016bb 1922 fprintf (f, "\t.section %s\n", DRECTVE_SECTION_NAME);
252b5132
RH		 1923 for (dl = a_list; dl; dl = dl->next)
1924 {
1925 fprintf (f, "\t%s\t\"%s\"\n", ASM_TEXT, dl->text);
1926 }
1927 }
26044998 1928
252b5132
RH		 1929 if (d_list)
1930 {
1931 fprintf (f, "\t.section .rdata\n");
1932 for (dl = d_list; dl; dl = dl->next)
1933 {
1934 char *p;
1935 int l;
26044998 1936
5f0f29c3
NC		 1937 /* We don't output as ascii because there can
1938 be quote characters in the string. */
252b5132
RH		 1939 l = 0;
1940 for (p = dl->text; *p; p++)
1941 {
1942 if (l == 0)
1943 fprintf (f, "\t%s\t", ASM_BYTE);
1944 else
1945 fprintf (f, ",");
1946 fprintf (f, "%d", *p);
1947 if (p[1] == 0)
1948 {
1949 fprintf (f, ",0\n");
1950 break;
1951 }
1952 if (++l == 10)
1953 {
1954 fprintf (f, "\n");
1955 l = 0;
1956 }
1957 }
1958 }
1959 }
1960 }
1961
1962
1963 /* Add to the output file a way of getting to the exported names
5f0f29c3 1964 without using the import library. */
252b5132
RH		 1965 if (add_indirect)
1966 {
1967 fprintf (f, "\t.section\t.rdata\n");
1968 for (i = 0, exp = d_exports; exp; i++, exp = exp->next)
1969 if (!exp->noname || show_allnames)
1970 {
1971 /* We use a single underscore for MS compatibility, and a
1972 double underscore for backward compatibility with old
1973 cygwin releases. */
5f0f29c3
NC		 1974 if (create_compat_implib)
1975 fprintf (f, "\t%s\t__imp_%s\n", ASM_GLOBAL, exp->name);
252b5132 1976 fprintf (f, "\t%s\t_imp__%s\n", ASM_GLOBAL, exp->name);
5f0f29c3
NC		 1977 if (create_compat_implib)
1978 fprintf (f, "__imp_%s:\n", exp->name);
252b5132
RH		 1979 fprintf (f, "_imp__%s:\n", exp->name);
1980 fprintf (f, "\t%s\t%s\n", ASM_LONG, exp->name);
1981 }
1982 }
1983
c9e38879 1984 /* Dump the reloc section if a base file is provided. */
252b5132
RH		 1985 if (base_file)
1986 {
1987 int addr;
1988 long need[PAGE_SIZE];
1989 long page_addr;
1990 int numbytes;
1991 int num_entries;
1992 long *copy;
1993 int j;
1994 int on_page;
1995 fprintf (f, "\t.section\t.init\n");
1996 fprintf (f, "lab:\n");
1997
1998 fseek (base_file, 0, SEEK_END);
1999 numbytes = ftell (base_file);
2000 fseek (base_file, 0, SEEK_SET);
2001 copy = xmalloc (numbytes);
2002 fread (copy, 1, numbytes, base_file);
2003 num_entries = numbytes / sizeof (long);
2004
2005
2006 fprintf (f, "\t.section\t.reloc\n");
2007 if (num_entries)
2008 {
2009 int src;
2010 int dst = 0;
2011 int last = -1;
252b5132
RH		 2012 qsort (copy, num_entries, sizeof (long), sfunc);
2013 /* Delete duplcates */
2014 for (src = 0; src < num_entries; src++)
2015 {
2016 if (last != copy[src])
2017 last = copy[dst++] = copy[src];
2018 }
2019 num_entries = dst;
2020 addr = copy[0];
2021 page_addr = addr & PAGE_MASK; /* work out the page addr */
2022 on_page = 0;
2023 for (j = 0; j < num_entries; j++)
2024 {
252b5132
RH		 2025 addr = copy[j];
2026 if ((addr & PAGE_MASK) != page_addr)
2027 {
252b5132
RH		 2028 flush_page (f, need, page_addr, on_page);
2029 on_page = 0;
2030 page_addr = addr & PAGE_MASK;
2031 }
2032 need[on_page++] = addr;
2033 }
252b5132
RH		 2034 flush_page (f, need, page_addr, on_page);
2035
d8bcc1ac 2036/* fprintf (f, "\t%s\t0,0\t%s End\n", ASM_LONG, ASM_C);*/
252b5132
RH		 2037 }
2038 }
2039
2040 generate_idata_ofile (f);
2041
2042 fclose (f);
2043
c9e38879 2044 /* Assemble the file. */
49c24507 2045 assemble_file (TMP_ASM, exp_name);
bb0cb4db 2046
252b5132
RH		 2047 if (dontdeltemps == 0)
2048 unlink (TMP_ASM);
26044998 2049
252b5132
RH		 2050 inform (_("Generated exports file"));
2051}
2052
2053static const char *
2054xlate (name)
2055 const char *name;
2056{
c9e38879
NC		 2057 int lead_at = (*name == '@');
2058
2059 if (add_underscore && !lead_at)
252b5132
RH		 2060 {
2061 char *copy = xmalloc (strlen (name) + 2);
c9e38879 2062
252b5132
RH		 2063 copy[0] = '_';
2064 strcpy (copy + 1, name);
2065 name = copy;
2066 }
2067
2068 if (killat)
2069 {
2070 char *p;
c9e38879
NC		 2071
2072 name += lead_at;
252b5132
RH		 2073 p = strchr (name, '@');
2074 if (p)
2075 *p = 0;
2076 }
2077 return name;
2078}
2079
2080/**********************************************************************/
2081
2082#if 0
2083
2084static void
2085dump_iat (f, exp)
2086 FILE *f;
2087 export_type *exp;
2088{
2089 if (exp->noname && !show_allnames )
2090 {
2091 fprintf (f, "\t%s\t0x%08x\n",
2092 ASM_LONG,
2093 exp->ordinal | 0x80000000); /* hint or orindal ?? */
2094 }
2095 else
2096 {
2097 fprintf (f, "\t%sID%d%s\n", ASM_RVA_BEFORE,
2098 exp->ordinal,
2099 ASM_RVA_AFTER);
2100 }
2101}
2102
2103#endif
2104
2105typedef struct
2106{
2107 int id;
2108 const char *name;
2109 int flags;
2110 int align;
2111 asection *sec;
2112 asymbol *sym;
2113 asymbol **sympp;
2114 int size;
c9e38879 2115 unsigned char *data;
252b5132
RH		 2116} sinfo;
2117
2118#ifndef DLLTOOL_PPC
2119
2120#define TEXT 0
2121#define DATA 1
2122#define BSS 2
2123#define IDATA7 3
2124#define IDATA5 4
2125#define IDATA4 5
2126#define IDATA6 6
2127
2128#define NSECS 7
2129
bee72332
DD		 2130#define TEXT_SEC_FLAGS \
2131 (SEC_ALLOC | SEC_LOAD | SEC_CODE | SEC_READONLY | SEC_HAS_CONTENTS)
2132#define DATA_SEC_FLAGS (SEC_ALLOC | SEC_LOAD | SEC_DATA)
2133#define BSS_SEC_FLAGS SEC_ALLOC
2134
2135#define INIT_SEC_DATA(id, name, flags, align) \
2136 { id, name, flags, align, NULL, NULL, NULL, 0, NULL }
252b5132
RH		 2137static sinfo secdata[NSECS] =
2138{
bee72332
DD		 2139 INIT_SEC_DATA (TEXT, ".text", TEXT_SEC_FLAGS, 2),
2140 INIT_SEC_DATA (DATA, ".data", DATA_SEC_FLAGS, 2),
2141 INIT_SEC_DATA (BSS, ".bss", BSS_SEC_FLAGS, 2),
2142 INIT_SEC_DATA (IDATA7, ".idata$7", SEC_HAS_CONTENTS, 2),
2143 INIT_SEC_DATA (IDATA5, ".idata$5", SEC_HAS_CONTENTS, 2),
2144 INIT_SEC_DATA (IDATA4, ".idata$4", SEC_HAS_CONTENTS, 2),
2145 INIT_SEC_DATA (IDATA6, ".idata$6", SEC_HAS_CONTENTS, 1)
252b5132
RH		 2146};
2147
2148#else
2149
c9e38879
NC		 2150/* Sections numbered to make the order the same as other PowerPC NT
2151 compilers. This also keeps funny alignment thingies from happening. */
252b5132
RH		 2152#define TEXT 0
2153#define PDATA 1
2154#define RDATA 2
2155#define IDATA5 3
2156#define IDATA4 4
2157#define IDATA6 5
2158#define IDATA7 6
2159#define DATA 7
2160#define BSS 8
2161
2162#define NSECS 9
2163
2164static sinfo secdata[NSECS] =
2165{
2166 { TEXT, ".text", SEC_CODE | SEC_HAS_CONTENTS, 3},
2167 { PDATA, ".pdata", SEC_HAS_CONTENTS, 2},
2168 { RDATA, ".reldata", SEC_HAS_CONTENTS, 2},
2169 { IDATA5, ".idata$5", SEC_HAS_CONTENTS, 2},
2170 { IDATA4, ".idata$4", SEC_HAS_CONTENTS, 2},
2171 { IDATA6, ".idata$6", SEC_HAS_CONTENTS, 1},
2172 { IDATA7, ".idata$7", SEC_HAS_CONTENTS, 2},
2173 { DATA, ".data", SEC_DATA, 2},
2174 { BSS, ".bss", 0, 2}
2175};
2176
2177#endif
2178
c9e38879
NC		 2179/* This is what we're trying to make. We generate the imp symbols with
2180 both single and double underscores, for compatibility.
252b5132
RH		 2181
2182 .text
2183 .global _GetFileVersionInfoSizeW@8
2184 .global __imp_GetFileVersionInfoSizeW@8
2185_GetFileVersionInfoSizeW@8:
2186 jmp * __imp_GetFileVersionInfoSizeW@8
2187 .section .idata$7 # To force loading of head
2188 .long __version_a_head
2189# Import Address Table
2190 .section .idata$5
2191__imp_GetFileVersionInfoSizeW@8:
2192 .rva ID2
2193
2194# Import Lookup Table
2195 .section .idata$4
2196 .rva ID2
2197# Hint/Name table
2198 .section .idata$6
2199ID2: .short 2
2200 .asciz "GetFileVersionInfoSizeW"
2201
2202
c9e38879 2203 For the PowerPC, here's the variation on the above scheme:
252b5132
RH		 2204
2205# Rather than a simple "jmp *", the code to get to the dll function
2206# looks like:
2207 .text
2208 lwz r11,[tocv]__imp_function_name(r2)
2209# RELOC: 00000000 TOCREL16,TOCDEFN __imp_function_name
2210 lwz r12,0(r11)
2211 stw r2,4(r1)
2212 mtctr r12
2213 lwz r2,4(r11)
c9e38879 2214 bctr */
252b5132
RH		 2215
2216static char *
2217make_label (prefix, name)
2218 const char *prefix;
2219 const char *name;
2220{
2221 int len = strlen (ASM_PREFIX) + strlen (prefix) + strlen (name);
2222 char *copy = xmalloc (len +1 );
c9e38879 2223
252b5132
RH		 2224 strcpy (copy, ASM_PREFIX);
2225 strcat (copy, prefix);
2226 strcat (copy, name);
2227 return copy;
2228}
2229
c9e38879
NC		 2230static char *
2231make_imp_label (prefix, name)
2232 const char *prefix;
2233 const char *name;
2234{
2235 int len;
2236 char *copy;
2237
2238 if (name[0] == '@')
2239 {
2240 len = strlen (prefix) + strlen (name);
2241 copy = xmalloc (len + 1);
2242 strcpy (copy, prefix);
2243 strcat (copy, name);
2244 }
2245 else
2246 {
2247 len = strlen (ASM_PREFIX) + strlen (prefix) + strlen (name);
2248 copy = xmalloc (len + 1);
2249 strcpy (copy, prefix);
2250 strcat (copy, ASM_PREFIX);
2251 strcat (copy, name);
2252 }
2253 return copy;
2254}
2255
252b5132
RH		 2256static bfd *
2257make_one_lib_file (exp, i)
2258 export_type *exp;
2259 int i;
2260{
2261#if 0
2262 {
bb0cb4db 2263 char *name;
252b5132 2264 FILE *f;
bb0cb4db 2265 const char *prefix = "d";
49c24507 2266 char *dest;
bb0cb4db
ILT		 2267
2268 name = (char *) alloca (strlen (prefix) + 10);
2269 sprintf (name, "%ss%05d.s", prefix, i);
2270 f = fopen (name, FOPEN_WT);
252b5132
RH		 2271 fprintf (f, "\t.text\n");
2272 fprintf (f, "\t%s\t%s%s\n", ASM_GLOBAL, ASM_PREFIX, exp->name);
5f0f29c3
NC		 2273 if (create_compat_implib)
2274 fprintf (f, "\t%s\t__imp_%s\n", ASM_GLOBAL, exp->name);
252b5132 2275 fprintf (f, "\t%s\t_imp__%s\n", ASM_GLOBAL, exp->name);
5f0f29c3
NC		 2276 if (create_compat_implib)
2277 fprintf (f, "%s%s:\n\t%s\t__imp_%s\n", ASM_PREFIX,
2278 exp->name, ASM_JUMP, exp->name);
252b5132
RH		 2279
2280 fprintf (f, "\t.section\t.idata$7\t%s To force loading of head\n", ASM_C);
2281 fprintf (f, "\t%s\t%s\n", ASM_LONG, head_label);
2282
2283
2284 fprintf (f,"%s Import Address Table\n", ASM_C);
2285
2286 fprintf (f, "\t.section .idata$5\n");
5f0f29c3
NC		 2287 if (create_compat_implib)
2288 fprintf (f, "__imp_%s:\n", exp->name);
252b5132
RH		 2289 fprintf (f, "_imp__%s:\n", exp->name);
2290
2291 dump_iat (f, exp);
2292
2293 fprintf (f, "\n%s Import Lookup Table\n", ASM_C);
2294 fprintf (f, "\t.section .idata$4\n");
2295
2296 dump_iat (f, exp);
2297
2298 if(!exp->noname || show_allnames)
2299 {
2300 fprintf (f, "%s Hint/Name table\n", ASM_C);
2301 fprintf (f, "\t.section .idata$6\n");
2302 fprintf (f, "ID%d:\t%s\t%d\n", exp->ordinal, ASM_SHORT, exp->hint);
2303 fprintf (f, "\t%s\t\"%s\"\n", ASM_TEXT, xlate (exp->name));
2304 }
2305
2306 fclose (f);
2307
49c24507
NC		 2308 dest = (char *) alloca (strlen (prefix) + 10);
2309 sprintf (dest, "%ss%05d.o", prefix, i);
2310 assemble_file (name, dest);
252b5132
RH		 2311 }
2312#else /* if 0 */
2313 {
2314 bfd * abfd;
2315 asymbol * exp_label;
bee72332 2316 asymbol * iname = 0;
252b5132
RH		 2317 asymbol * iname2;
2318 asymbol * iname_lab;
2319 asymbol ** iname_lab_pp;
2320 asymbol ** iname_pp;
2321#ifdef DLLTOOL_PPC
2322 asymbol ** fn_pp;
2323 asymbol ** toc_pp;
2324#define EXTRA 2
2325#endif
2326#ifndef EXTRA
2327#define EXTRA 0
2328#endif
2329 asymbol * ptrs[NSECS + 4 + EXTRA + 1];
bee72332 2330 flagword applicable;
252b5132
RH		 2331
2332 char * outname = xmalloc (10);
2333 int oidx = 0;
2334
26044998 2335
252b5132 2336 sprintf (outname, "%s%05d.o", TMP_STUB, i);
26044998 2337
49c24507 2338 abfd = bfd_openw (outname, HOW_BFD_WRITE_TARGET);
26044998 2339
252b5132
RH		 2340 if (!abfd)
2341 /* xgettext:c-format */
2342 fatal (_("bfd_open failed open stub file: %s"), outname);
2343
2344 /* xgettext:c-format */
2345 inform (_("Creating stub file: %s"), outname);
26044998 2346
252b5132
RH		 2347 bfd_set_format (abfd, bfd_object);
2348 bfd_set_arch_mach (abfd, HOW_BFD_ARCH, 0);
2349
2350#ifdef DLLTOOL_ARM
b890a735 2351 if (machine == MARM_INTERWORK || machine == MTHUMB)
252b5132
RH		 2352 bfd_set_private_flags (abfd, F_INTERWORK);
2353#endif
26044998 2354
bee72332 2355 applicable = bfd_applicable_section_flags (abfd);
26044998 2356
c9e38879 2357 /* First make symbols for the sections. */
252b5132
RH		 2358 for (i = 0; i < NSECS; i++)
2359 {
2360 sinfo *si = secdata + i;
2361 if (si->id != i)
2362 abort();
2363 si->sec = bfd_make_section_old_way (abfd, si->name);
2364 bfd_set_section_flags (abfd,
2365 si->sec,
bee72332 2366 si->flags & applicable);
252b5132
RH		 2367
2368 bfd_set_section_alignment(abfd, si->sec, si->align);
2369 si->sec->output_section = si->sec;
2370 si->sym = bfd_make_empty_symbol(abfd);
2371 si->sym->name = si->sec->name;
2372 si->sym->section = si->sec;
2373 si->sym->flags = BSF_LOCAL;
2374 si->sym->value = 0;
2375 ptrs[oidx] = si->sym;
2376 si->sympp = ptrs + oidx;
2377 si->size = 0;
2378 si->data = NULL;
2379
2380 oidx++;
2381 }
2382
2383 if (! exp->data)
2384 {
2385 exp_label = bfd_make_empty_symbol (abfd);
c9e38879 2386 exp_label->name = make_imp_label ("", exp->name);
252b5132
RH		 2387
2388 /* On PowerPC, the function name points to a descriptor in
2389 the rdata section, the first element of which is a
2390 pointer to the code (..function_name), and the second
c9e38879 2391 points to the .toc. */
252b5132
RH		 2392#ifdef DLLTOOL_PPC
2393 if (machine == MPPC)
2394 exp_label->section = secdata[RDATA].sec;
2395 else
2396#endif
2397 exp_label->section = secdata[TEXT].sec;
2398
2399 exp_label->flags = BSF_GLOBAL;
2400 exp_label->value = 0;
2401
2402#ifdef DLLTOOL_ARM
2403 if (machine == MTHUMB)
2404 bfd_coff_set_symbol_class (abfd, exp_label, C_THUMBEXTFUNC);
2405#endif
2406 ptrs[oidx++] = exp_label;
2407 }
2408
2409 /* Generate imp symbols with one underscore for Microsoft
2410 compatibility, and with two underscores for backward
2411 compatibility with old versions of cygwin. */
5f0f29c3
NC		 2412 if (create_compat_implib)
2413 {
2414 iname = bfd_make_empty_symbol (abfd);
c9e38879 2415 iname->name = make_imp_label ("___imp", exp->name);
5f0f29c3
NC		 2416 iname->section = secdata[IDATA5].sec;
2417 iname->flags = BSF_GLOBAL;
2418 iname->value = 0;
2419 }
252b5132 2420
5f0f29c3 2421 iname2 = bfd_make_empty_symbol (abfd);
c9e38879 2422 iname2->name = make_imp_label ("__imp_", exp->name);
252b5132
RH		 2423 iname2->section = secdata[IDATA5].sec;
2424 iname2->flags = BSF_GLOBAL;
2425 iname2->value = 0;
2426
2427 iname_lab = bfd_make_empty_symbol(abfd);
2428
2429 iname_lab->name = head_label;
2430 iname_lab->section = (asection *)&bfd_und_section;
2431 iname_lab->flags = 0;
2432 iname_lab->value = 0;
2433
252b5132 2434 iname_pp = ptrs + oidx;
5f0f29c3
NC		 2435 if (create_compat_implib)
2436 ptrs[oidx++] = iname;
252b5132
RH		 2437 ptrs[oidx++] = iname2;
2438
2439 iname_lab_pp = ptrs + oidx;
2440 ptrs[oidx++] = iname_lab;
2441
2442#ifdef DLLTOOL_PPC
c9e38879 2443 /* The symbol refering to the code (.text). */
252b5132
RH		 2444 {
2445 asymbol *function_name;
2446
2447 function_name = bfd_make_empty_symbol(abfd);
2448 function_name->name = make_label ("..", exp->name);
2449 function_name->section = secdata[TEXT].sec;
2450 function_name->flags = BSF_GLOBAL;
2451 function_name->value = 0;
2452
2453 fn_pp = ptrs + oidx;
2454 ptrs[oidx++] = function_name;
2455 }
2456
c9e38879 2457 /* The .toc symbol. */
252b5132 2458 {
c9e38879 2459 asymbol *toc_symbol;
252b5132
RH		 2460
2461 toc_symbol = bfd_make_empty_symbol (abfd);
2462 toc_symbol->name = make_label (".", "toc");
2463 toc_symbol->section = (asection *)&bfd_und_section;
2464 toc_symbol->flags = BSF_GLOBAL;
2465 toc_symbol->value = 0;
2466
2467 toc_pp = ptrs + oidx;
2468 ptrs[oidx++] = toc_symbol;
2469 }
2470#endif
26044998 2471
252b5132
RH		 2472 ptrs[oidx] = 0;
2473
2474 for (i = 0; i < NSECS; i++)
2475 {
2476 sinfo *si = secdata + i;
2477 asection *sec = si->sec;
2478 arelent *rel;
2479 arelent **rpp;
2480
2481 switch (i)
2482 {
2483 case TEXT:
2484 if (! exp->data)
2485 {
2486 si->size = HOW_JTAB_SIZE;
2487 si->data = xmalloc (HOW_JTAB_SIZE);
2488 memcpy (si->data, HOW_JTAB, HOW_JTAB_SIZE);
2489
2490 /* add the reloc into idata$5 */
2491 rel = xmalloc (sizeof (arelent));
26044998 2492
252b5132
RH		 2493 rpp = xmalloc (sizeof (arelent *) * 2);
2494 rpp[0] = rel;
2495 rpp[1] = 0;
26044998 2496
252b5132
RH		 2497 rel->address = HOW_JTAB_ROFF;
2498 rel->addend = 0;
2499
2500 if (machine == MPPC)
2501 {
2502 rel->howto = bfd_reloc_type_lookup (abfd,
2503 BFD_RELOC_16_GOTOFF);
2504 rel->sym_ptr_ptr = iname_pp;
2505 }
2506 else
2507 {
2508 rel->howto = bfd_reloc_type_lookup (abfd, BFD_RELOC_32);
2509 rel->sym_ptr_ptr = secdata[IDATA5].sympp;
2510 }
2511 sec->orelocation = rpp;
2512 sec->reloc_count = 1;
2513 }
2514 break;
2515 case IDATA4:
2516 case IDATA5:
2517 /* An idata$4 or idata$5 is one word long, and has an
c9e38879 2518 rva to idata$6. */
252b5132
RH		 2519
2520 si->data = xmalloc (4);
2521 si->size = 4;
2522
2523 if (exp->noname)
2524 {
2525 si->data[0] = exp->ordinal ;
2526 si->data[1] = exp->ordinal >> 8;
2527 si->data[2] = exp->ordinal >> 16;
2528 si->data[3] = 0x80;
2529 }
2530 else
2531 {
2532 sec->reloc_count = 1;
2533 memset (si->data, 0, si->size);
2534 rel = xmalloc (sizeof (arelent));
2535 rpp = xmalloc (sizeof (arelent *) * 2);
2536 rpp[0] = rel;
2537 rpp[1] = 0;
2538 rel->address = 0;
2539 rel->addend = 0;
2540 rel->howto = bfd_reloc_type_lookup (abfd, BFD_RELOC_RVA);
2541 rel->sym_ptr_ptr = secdata[IDATA6].sympp;
2542 sec->orelocation = rpp;
2543 }
2544
2545 break;
2546
2547 case IDATA6:
2548 if (!exp->noname)
2549 {
2550 /* This used to add 1 to exp->hint. I don't know
2551 why it did that, and it does not match what I see
2552 in programs compiled with the MS tools. */
2553 int idx = exp->hint;
2554 si->size = strlen (xlate (exp->name)) + 3;
2555 si->data = xmalloc (si->size);
2556 si->data[0] = idx & 0xff;
2557 si->data[1] = idx >> 8;
2558 strcpy (si->data + 2, xlate (exp->name));
2559 }
2560 break;
2561 case IDATA7:
2562 si->size = 4;
c9e38879 2563 si->data =xmalloc (4);
252b5132
RH		 2564 memset (si->data, 0, si->size);
2565 rel = xmalloc (sizeof (arelent));
2566 rpp = xmalloc (sizeof (arelent *) * 2);
2567 rpp[0] = rel;
2568 rel->address = 0;
2569 rel->addend = 0;
2570 rel->howto = bfd_reloc_type_lookup (abfd, BFD_RELOC_RVA);
2571 rel->sym_ptr_ptr = iname_lab_pp;
2572 sec->orelocation = rpp;
2573 sec->reloc_count = 1;
2574 break;
2575
2576#ifdef DLLTOOL_PPC
2577 case PDATA:
2578 {
c9e38879 2579 /* The .pdata section is 5 words long.
b34976b6
AM		 2580 Think of it as:
2581 struct
2582 {
2583 bfd_vma BeginAddress, [0x00]
2584 EndAddress, [0x04]
2585 ExceptionHandler, [0x08]
2586 HandlerData, [0x0c]
2587 PrologEndAddress; [0x10]
c9e38879 2588 }; */
252b5132
RH		 2589
2590 /* So this pdata section setups up this as a glue linkage to
2591 a dll routine. There are a number of house keeping things
2592 we need to do:
2593
2594 1. In the name of glue trickery, the ADDR32 relocs for 0,
2595 4, and 0x10 are set to point to the same place:
2596 "..function_name".
2597 2. There is one more reloc needed in the pdata section.
2598 The actual glue instruction to restore the toc on
2599 return is saved as the offset in an IMGLUE reloc.
2600 So we need a total of four relocs for this section.
2601
2602 3. Lastly, the HandlerData field is set to 0x03, to indicate
c9e38879 2603 that this is a glue routine. */
252b5132
RH		 2604 arelent *imglue, *ba_rel, *ea_rel, *pea_rel;
2605
c9e38879 2606 /* Alignment must be set to 2**2 or you get extra stuff. */
252b5132
RH		 2607 bfd_set_section_alignment(abfd, sec, 2);
2608
2609 si->size = 4 * 5;
c9e38879 2610 si->data = xmalloc (si->size);
252b5132
RH		 2611 memset (si->data, 0, si->size);
2612 rpp = xmalloc (sizeof (arelent *) * 5);
2613 rpp[0] = imglue = xmalloc (sizeof (arelent));
2614 rpp[1] = ba_rel = xmalloc (sizeof (arelent));
2615 rpp[2] = ea_rel = xmalloc (sizeof (arelent));
2616 rpp[3] = pea_rel = xmalloc (sizeof (arelent));
2617 rpp[4] = 0;
2618
c9e38879 2619 /* Stick the toc reload instruction in the glue reloc. */
252b5132
RH		 2620 bfd_put_32(abfd, ppc_glue_insn, (char *) &imglue->address);
2621
2622 imglue->addend = 0;
2623 imglue->howto = bfd_reloc_type_lookup (abfd,
2624 BFD_RELOC_32_GOTOFF);
2625 imglue->sym_ptr_ptr = fn_pp;
2626
2627 ba_rel->address = 0;
2628 ba_rel->addend = 0;
2629 ba_rel->howto = bfd_reloc_type_lookup (abfd, BFD_RELOC_32);
2630 ba_rel->sym_ptr_ptr = fn_pp;
2631
c9e38879 2632 bfd_put_32 (abfd, 0x18, si->data + 0x04);
252b5132
RH		 2633 ea_rel->address = 4;
2634 ea_rel->addend = 0;
2635 ea_rel->howto = bfd_reloc_type_lookup (abfd, BFD_RELOC_32);
2636 ea_rel->sym_ptr_ptr = fn_pp;
2637
c9e38879
NC		 2638 /* Mark it as glue. */
2639 bfd_put_32 (abfd, 0x03, si->data + 0x0c);
252b5132 2640
c9e38879
NC		 2641 /* Mark the prolog end address. */
2642 bfd_put_32 (abfd, 0x0D, si->data + 0x10);
252b5132
RH		 2643 pea_rel->address = 0x10;
2644 pea_rel->addend = 0;
2645 pea_rel->howto = bfd_reloc_type_lookup (abfd, BFD_RELOC_32);
2646 pea_rel->sym_ptr_ptr = fn_pp;
2647
2648 sec->orelocation = rpp;
2649 sec->reloc_count = 4;
2650 break;
2651 }
2652 case RDATA:
2653 /* Each external function in a PowerPC PE file has a two word
2654 descriptor consisting of:
2655 1. The address of the code.
2656 2. The address of the appropriate .toc
c9e38879 2657 We use relocs to build this. */
252b5132
RH		 2658 si->size = 8;
2659 si->data = xmalloc (8);
2660 memset (si->data, 0, si->size);
2661
2662 rpp = xmalloc (sizeof (arelent *) * 3);
2663 rpp[0] = rel = xmalloc (sizeof (arelent));
2664 rpp[1] = xmalloc (sizeof (arelent));
2665 rpp[2] = 0;
2666
2667 rel->address = 0;
2668 rel->addend = 0;
2669 rel->howto = bfd_reloc_type_lookup (abfd, BFD_RELOC_32);
2670 rel->sym_ptr_ptr = fn_pp;
2671
2672 rel = rpp[1];
2673
2674 rel->address = 4;
2675 rel->addend = 0;
2676 rel->howto = bfd_reloc_type_lookup (abfd, BFD_RELOC_32);
2677 rel->sym_ptr_ptr = toc_pp;
2678
2679 sec->orelocation = rpp;
2680 sec->reloc_count = 2;
2681 break;
2682#endif /* DLLTOOL_PPC */
2683 }
2684 }
2685
2686 {
2687 bfd_vma vma = 0;
c9e38879 2688 /* Size up all the sections. */
252b5132
RH		 2689 for (i = 0; i < NSECS; i++)
2690 {
2691 sinfo *si = secdata + i;
2692
2693 bfd_set_section_size (abfd, si->sec, si->size);
2694 bfd_set_section_vma (abfd, si->sec, vma);
2695
2696/* vma += si->size;*/
2697 }
2698 }
c9e38879 2699 /* Write them out. */
252b5132
RH		 2700 for (i = 0; i < NSECS; i++)
2701 {
2702 sinfo *si = secdata + i;
2703
2704 if (i == IDATA5 && no_idata5)
2705 continue;
2706
2707 if (i == IDATA4 && no_idata4)
2708 continue;
2709
2710 bfd_set_section_contents (abfd, si->sec,
2711 si->data, 0,
2712 si->size);
2713 }
2714
2715 bfd_set_symtab (abfd, ptrs, oidx);
2716 bfd_close (abfd);
49c24507 2717 abfd = bfd_openr (outname, HOW_BFD_READ_TARGET);
252b5132
RH		 2718 return abfd;
2719 }
2720#endif
2721}
2722
2723static bfd *
2724make_head ()
2725{
bb0cb4db 2726 FILE *f = fopen (TMP_HEAD_S, FOPEN_WT);
252b5132 2727
661016bb
NC		 2728 if (f == NULL)
2729 {
2730 fatal (_("failed to open temporary head file: %s"), TMP_HEAD_S);
2731 return NULL;
2732 }
26044998 2733
252b5132
RH		 2734 fprintf (f, "%s IMAGE_IMPORT_DESCRIPTOR\n", ASM_C);
2735 fprintf (f, "\t.section .idata$2\n");
2736
2737 fprintf(f,"\t%s\t%s\n", ASM_GLOBAL,head_label);
2738
2739 fprintf (f, "%s:\n", head_label);
2740
2741 fprintf (f, "\t%shname%s\t%sPtr to image import by name list\n",
2742 ASM_RVA_BEFORE, ASM_RVA_AFTER, ASM_C);
2743
2744 fprintf (f, "\t%sthis should be the timestamp, but NT sometimes\n", ASM_C);
2745 fprintf (f, "\t%sdoesn't load DLLs when this is set.\n", ASM_C);
2746 fprintf (f, "\t%s\t0\t%s loaded time\n", ASM_LONG, ASM_C);
2747 fprintf (f, "\t%s\t0\t%s Forwarder chain\n", ASM_LONG, ASM_C);
2748 fprintf (f, "\t%s__%s_iname%s\t%s imported dll's name\n",
2749 ASM_RVA_BEFORE,
2750 imp_name_lab,
2751 ASM_RVA_AFTER,
2752 ASM_C);
2753 fprintf (f, "\t%sfthunk%s\t%s pointer to firstthunk\n",
2754 ASM_RVA_BEFORE,
2755 ASM_RVA_AFTER, ASM_C);
2756
2757 fprintf (f, "%sStuff for compatibility\n", ASM_C);
2758
2759 if (!no_idata5)
2760 {
2761 fprintf (f, "\t.section\t.idata$5\n");
2762 fprintf (f, "\t%s\t0\n", ASM_LONG);
2763 fprintf (f, "fthunk:\n");
2764 }
26044998 2765
252b5132
RH		 2766 if (!no_idata4)
2767 {
2768 fprintf (f, "\t.section\t.idata$4\n");
2769
2770 fprintf (f, "\t%s\t0\n", ASM_LONG);
2771 fprintf (f, "\t.section .idata$4\n");
2772 fprintf (f, "hname:\n");
2773 }
26044998 2774
252b5132
RH		 2775 fclose (f);
2776
49c24507 2777 assemble_file (TMP_HEAD_S, TMP_HEAD_O);
252b5132 2778
49c24507 2779 return bfd_openr (TMP_HEAD_O, HOW_BFD_READ_TARGET);
252b5132
RH		 2780}
2781
2782static bfd *
2783make_tail ()
2784{
bb0cb4db 2785 FILE *f = fopen (TMP_TAIL_S, FOPEN_WT);
252b5132 2786
661016bb
NC		 2787 if (f == NULL)
2788 {
2789 fatal (_("failed to open temporary tail file: %s"), TMP_TAIL_S);
2790 return NULL;
2791 }
26044998 2792
252b5132
RH		 2793 if (!no_idata4)
2794 {
2795 fprintf (f, "\t.section .idata$4\n");
2796 fprintf (f, "\t%s\t0\n", ASM_LONG);
2797 }
26044998 2798
252b5132
RH		 2799 if (!no_idata5)
2800 {
2801 fprintf (f, "\t.section .idata$5\n");
2802 fprintf (f, "\t%s\t0\n", ASM_LONG);
2803 }
2804
2805#ifdef DLLTOOL_PPC
2806 /* Normally, we need to see a null descriptor built in idata$3 to
2807 act as the terminator for the list. The ideal way, I suppose,
2808 would be to mark this section as a comdat type 2 section, so
2809 only one would appear in the final .exe (if our linker supported
2810 comdat, that is) or cause it to be inserted by something else (say
c9e38879 2811 crt0). */
252b5132
RH		 2812
2813 fprintf (f, "\t.section .idata$3\n");
2814 fprintf (f, "\t%s\t0\n", ASM_LONG);
2815 fprintf (f, "\t%s\t0\n", ASM_LONG);
2816 fprintf (f, "\t%s\t0\n", ASM_LONG);
2817 fprintf (f, "\t%s\t0\n", ASM_LONG);
2818 fprintf (f, "\t%s\t0\n", ASM_LONG);
2819#endif
2820
2821#ifdef DLLTOOL_PPC
2822 /* Other PowerPC NT compilers use idata$6 for the dllname, so I
c9e38879 2823 do too. Original, huh? */
252b5132
RH		 2824 fprintf (f, "\t.section .idata$6\n");
2825#else
2826 fprintf (f, "\t.section .idata$7\n");
2827#endif
2828
2829 fprintf (f, "\t%s\t__%s_iname\n", ASM_GLOBAL, imp_name_lab);
2830 fprintf (f, "__%s_iname:\t%s\t\"%s\"\n",
2831 imp_name_lab, ASM_TEXT, dll_name);
2832
2833 fclose (f);
2834
49c24507 2835 assemble_file (TMP_TAIL_S, TMP_TAIL_O);
26044998 2836
c9e38879 2837 return bfd_openr (TMP_TAIL_O, HOW_BFD_READ_TARGET);
252b5132
RH		 2838}
2839
2840static void
2841gen_lib_file ()
2842{
2843 int i;
2844 export_type *exp;
2845 bfd *ar_head;
2846 bfd *ar_tail;
2847 bfd *outarch;
2848 bfd * head = 0;
2849
2850 unlink (imp_name);
2851
49c24507 2852 outarch = bfd_openw (imp_name, HOW_BFD_WRITE_TARGET);
252b5132
RH		 2853
2854 if (!outarch)
2855 /* xgettext:c-format */
2856 fatal (_("Can't open .lib file: %s"), imp_name);
2857
2858 /* xgettext:c-format */
37cc8ec1 2859 inform (_("Creating library file: %s"), imp_name);
26044998 2860
252b5132
RH		 2861 bfd_set_format (outarch, bfd_archive);
2862 outarch->has_armap = 1;
2863
26044998 2864 /* Work out a reasonable size of things to put onto one line. */
252b5132
RH		 2865 ar_head = make_head ();
2866 ar_tail = make_tail();
2867
2868 if (ar_head == NULL || ar_tail == NULL)
2869 return;
26044998 2870
252b5132
RH		 2871 for (i = 0; (exp = d_exports_lexically[i]); i++)
2872 {
2873 bfd *n = make_one_lib_file (exp, i);
2874 n->next = head;
2875 head = n;
2876 }
2877
c9e38879 2878 /* Now stick them all into the archive. */
252b5132
RH		 2879 ar_head->next = head;
2880 ar_tail->next = ar_head;
2881 head = ar_tail;
2882
2883 if (! bfd_set_archive_head (outarch, head))
2884 bfd_fatal ("bfd_set_archive_head");
26044998 2885
252b5132
RH		 2886 if (! bfd_close (outarch))
2887 bfd_fatal (imp_name);
2888
2889 while (head != NULL)
2890 {
2891 bfd *n = head->next;
2892 bfd_close (head);
2893 head = n;
2894 }
2895
c9e38879 2896 /* Delete all the temp files. */
252b5132
RH		 2897 if (dontdeltemps == 0)
2898 {
2899 unlink (TMP_HEAD_O);
2900 unlink (TMP_HEAD_S);
2901 unlink (TMP_TAIL_O);
2902 unlink (TMP_TAIL_S);
2903 }
2904
2905 if (dontdeltemps < 2)
2906 {
bb0cb4db
ILT		 2907 char *name;
2908
2909 name = (char *) alloca (sizeof TMP_STUB + 10);
252b5132
RH		 2910 for (i = 0, exp = d_exports; exp; i++, exp = exp->next)
2911 {
bb0cb4db
ILT		 2912 sprintf (name, "%s%05d.o", TMP_STUB, i);
2913 if (unlink (name) < 0)
252b5132 2914 /* xgettext:c-format */
37cc8ec1 2915 non_fatal (_("cannot delete %s: %s"), name, strerror (errno));
252b5132
RH		 2916 }
2917 }
26044998 2918
252b5132
RH		 2919 inform (_("Created lib file"));
2920}
2921
2922/**********************************************************************/
2923
2924/* Run through the information gathered from the .o files and the
c9e38879 2925 .def file and work out the best stuff. */
252b5132
RH		 2926static int
2927pfunc (a, b)
2928 const void *a;
2929 const void *b;
2930{
2931 export_type *ap = *(export_type **) a;
2932 export_type *bp = *(export_type **) b;
2933 if (ap->ordinal == bp->ordinal)
2934 return 0;
2935
c9e38879 2936 /* Unset ordinals go to the bottom. */
252b5132
RH		 2937 if (ap->ordinal == -1)
2938 return 1;
2939 if (bp->ordinal == -1)
2940 return -1;
2941 return (ap->ordinal - bp->ordinal);
2942}
2943
2944static int
2945nfunc (a, b)
2946 const void *a;
2947 const void *b;
2948{
2949 export_type *ap = *(export_type **) a;
2950 export_type *bp = *(export_type **) b;
2951
2952 return (strcmp (ap->name, bp->name));
2953}
2954
2955static void
2956remove_null_names (ptr)
2957 export_type **ptr;
2958{
2959 int src;
2960 int dst;
c9e38879 2961
252b5132
RH		 2962 for (dst = src = 0; src < d_nfuncs; src++)
2963 {
2964 if (ptr[src])
2965 {
2966 ptr[dst] = ptr[src];
2967 dst++;
2968 }
2969 }
2970 d_nfuncs = dst;
2971}
2972
2973static void
2974dtab (ptr)
5ea695ed
NC		 2975 export_type ** ptr
2976#ifndef SACDEBUG
2977ATTRIBUTE_UNUSED
2978#endif
2979 ;
252b5132
RH		 2980{
2981#ifdef SACDEBUG
2982 int i;
2983 for (i = 0; i < d_nfuncs; i++)
2984 {
2985 if (ptr[i])
2986 {
2987 printf ("%d %s @ %d %s%s%s\n",
2988 i, ptr[i]->name, ptr[i]->ordinal,
2989 ptr[i]->noname ? "NONAME " : "",
2990 ptr[i]->constant ? "CONSTANT" : "",
2991 ptr[i]->data ? "DATA" : "");
2992 }
2993 else
2994 printf ("empty\n");
2995 }
2996#endif
2997}
2998
2999static void
3000process_duplicates (d_export_vec)
3001 export_type **d_export_vec;
3002{
3003 int more = 1;
3004 int i;
c9e38879 3005
252b5132
RH		 3006 while (more)
3007 {
3008
3009 more = 0;
c9e38879 3010 /* Remove duplicates. */
252b5132
RH		 3011 qsort (d_export_vec, d_nfuncs, sizeof (export_type *), nfunc);
3012
3013 dtab (d_export_vec);
3014 for (i = 0; i < d_nfuncs - 1; i++)
3015 {
3016 if (strcmp (d_export_vec[i]->name,
3017 d_export_vec[i + 1]->name) == 0)
3018 {
3019
3020 export_type *a = d_export_vec[i];
3021 export_type *b = d_export_vec[i + 1];
3022
3023 more = 1;
26044998 3024
252b5132 3025 /* xgettext:c-format */
37cc8ec1 3026 inform (_("Warning, ignoring duplicate EXPORT %s %d,%d"),
252b5132 3027 a->name, a->ordinal, b->ordinal);
26044998 3028
252b5132
RH		 3029 if (a->ordinal != -1
3030 && b->ordinal != -1)
3031 /* xgettext:c-format */
3032 fatal (_("Error, duplicate EXPORT with oridinals: %s"),
3033 a->name);
3034
c9e38879 3035 /* Merge attributes. */
252b5132
RH		 3036 b->ordinal = a->ordinal > 0 ? a->ordinal : b->ordinal;
3037 b->constant |= a->constant;
3038 b->noname |= a->noname;
3039 b->data |= a->data;
3040 d_export_vec[i] = 0;
3041 }
3042
3043 dtab (d_export_vec);
3044 remove_null_names (d_export_vec);
3045 dtab (d_export_vec);
3046 }
3047 }
3048
3049
c9e38879 3050 /* Count the names. */
252b5132
RH		 3051 for (i = 0; i < d_nfuncs; i++)
3052 {
3053 if (!d_export_vec[i]->noname)
3054 d_named_nfuncs++;
3055 }
3056}
3057
3058static void
3059fill_ordinals (d_export_vec)
3060 export_type **d_export_vec;
3061{
3062 int lowest = -1;
3063 int i;
3064 char *ptr;
3065 int size = 65536;
3066
3067 qsort (d_export_vec, d_nfuncs, sizeof (export_type *), pfunc);
3068
c9e38879 3069 /* Fill in the unset ordinals with ones from our range. */
252b5132
RH		 3070 ptr = (char *) xmalloc (size);
3071
3072 memset (ptr, 0, size);
3073
c9e38879 3074 /* Mark in our large vector all the numbers that are taken. */
252b5132
RH		 3075 for (i = 0; i < d_nfuncs; i++)
3076 {
3077 if (d_export_vec[i]->ordinal != -1)
3078 {
3079 ptr[d_export_vec[i]->ordinal] = 1;
c9e38879 3080
252b5132 3081 if (lowest == -1 || d_export_vec[i]->ordinal < lowest)
c9e38879 3082 lowest = d_export_vec[i]->ordinal;
252b5132
RH		 3083 }
3084 }
3085
3086 /* Start at 1 for compatibility with MS toolchain. */
3087 if (lowest == -1)
3088 lowest = 1;
3089
26044998 3090 /* Now fill in ordinals where the user wants us to choose. */
252b5132
RH		 3091 for (i = 0; i < d_nfuncs; i++)
3092 {
3093 if (d_export_vec[i]->ordinal == -1)
3094 {
3095 register int j;
3096
26044998 3097 /* First try within or after any user supplied range. */
252b5132
RH		 3098 for (j = lowest; j < size; j++)
3099 if (ptr[j] == 0)
3100 {
3101 ptr[j] = 1;
3102 d_export_vec[i]->ordinal = j;
3103 goto done;
3104 }
3105
26044998 3106 /* Then try before the range. */
252b5132
RH		 3107 for (j = lowest; j >0; j--)
3108 if (ptr[j] == 0)
3109 {
3110 ptr[j] = 1;
3111 d_export_vec[i]->ordinal = j;
3112 goto done;
3113 }
3114 done:;
3115 }
3116 }
3117
3118 free (ptr);
3119
c9e38879 3120 /* And resort. */
252b5132
RH		 3121 qsort (d_export_vec, d_nfuncs, sizeof (export_type *), pfunc);
3122
3123 /* Work out the lowest and highest ordinal numbers. */
3124 if (d_nfuncs)
3125 {
3126 if (d_export_vec[0])
3127 d_low_ord = d_export_vec[0]->ordinal;
3128 if (d_export_vec[d_nfuncs-1])
3129 d_high_ord = d_export_vec[d_nfuncs-1]->ordinal;
3130 }
3131}
3132
3133static int
3134alphafunc (av,bv)
3135 const void *av;
3136 const void *bv;
3137{
3138 const export_type **a = (const export_type **) av;
3139 const export_type **b = (const export_type **) bv;
3140
3141 return strcmp ((*a)->name, (*b)->name);
3142}
3143
3144static void
3145mangle_defs ()
3146{
c9e38879 3147 /* First work out the minimum ordinal chosen. */
252b5132
RH		 3148 export_type *exp;
3149
3150 int i;
3151 int hint = 0;
3152 export_type **d_export_vec
3153 = (export_type **) xmalloc (sizeof (export_type *) * d_nfuncs);
3154
3155 inform (_("Processing definitions"));
26044998 3156
252b5132 3157 for (i = 0, exp = d_exports; exp; i++, exp = exp->next)
c9e38879 3158 d_export_vec[i] = exp;
252b5132
RH		 3159
3160 process_duplicates (d_export_vec);
3161 fill_ordinals (d_export_vec);
3162
c9e38879 3163 /* Put back the list in the new order. */
252b5132
RH		 3164 d_exports = 0;
3165 for (i = d_nfuncs - 1; i >= 0; i--)
3166 {
3167 d_export_vec[i]->next = d_exports;
3168 d_exports = d_export_vec[i];
3169 }
3170
c9e38879 3171 /* Build list in alpha order. */
252b5132
RH		 3172 d_exports_lexically = (export_type **)
3173 xmalloc (sizeof (export_type *) * (d_nfuncs + 1));
3174
3175 for (i = 0, exp = d_exports; exp; i++, exp = exp->next)
c9e38879
NC		 3176 d_exports_lexically[i] = exp;
3177
252b5132
RH		 3178 d_exports_lexically[i] = 0;
3179
3180 qsort (d_exports_lexically, i, sizeof (export_type *), alphafunc);
3181
c9e38879 3182 /* Fill exp entries with their hint values. */
252b5132 3183 for (i = 0; i < d_nfuncs; i++)
c9e38879
NC		 3184 if (!d_exports_lexically[i]->noname || show_allnames)
3185 d_exports_lexically[i]->hint = hint++;
26044998 3186
252b5132
RH		 3187 inform (_("Processed definitions"));
3188}
3189
3190/**********************************************************************/
3191
3192static void
3193usage (file, status)
3194 FILE *file;
3195 int status;
3196{
3197 /* xgetext:c-format */
8b53311e 3198 fprintf (file, _("Usage %s <option(s)> <object-file(s)>\n"), program_name);
252b5132 3199 /* xgetext:c-format */
661016bb 3200 fprintf (file, _(" -m --machine <machine> Create as DLL for <machine>. [default: %s]\n"), mname);
7e301c9c 3201 fprintf (file, _(" possible <machine>: arm[_interwork], i386, mcore[-elf]{-le|-be}, ppc, thumb\n"));
252b5132
RH		 3202 fprintf (file, _(" -e --output-exp <outname> Generate an export file.\n"));
3203 fprintf (file, _(" -l --output-lib <outname> Generate an interface library.\n"));
3204 fprintf (file, _(" -a --add-indirect Add dll indirects to export file.\n"));
3205 fprintf (file, _(" -D --dllname <name> Name of input dll to put into interface lib.\n"));
3206 fprintf (file, _(" -d --input-def <deffile> Name of .def file to be read in.\n"));
3207 fprintf (file, _(" -z --output-def <deffile> Name of .def file to be created.\n"));
661016bb
NC		 3208 fprintf (file, _(" --export-all-symbols Export all symbols to .def\n"));
3209 fprintf (file, _(" --no-export-all-symbols Only export listed symbols\n"));
3210 fprintf (file, _(" --exclude-symbols <list> Don't export <list>\n"));
3211 fprintf (file, _(" --no-default-excludes Clear default exclude symbols\n"));
252b5132
RH		 3212 fprintf (file, _(" -b --base-file <basefile> Read linker generated base file.\n"));
3213 fprintf (file, _(" -x --no-idata4 Don't generate idata$4 section.\n"));
3214 fprintf (file, _(" -c --no-idata5 Don't generate idata$5 section.\n"));
3215 fprintf (file, _(" -U --add-underscore Add underscores to symbols in interface library.\n"));
3216 fprintf (file, _(" -k --kill-at Kill @<n> from exported names.\n"));
3217 fprintf (file, _(" -A --add-stdcall-alias Add aliases without @<n>.\n"));
3218 fprintf (file, _(" -S --as <name> Use <name> for assembler.\n"));
3219 fprintf (file, _(" -f --as-flags <flags> Pass <flags> to the assembler.\n"));
5f0f29c3 3220 fprintf (file, _(" -C --compat-implib Create backward compatible import library.\n"));
252b5132
RH		 3221 fprintf (file, _(" -n --no-delete Keep temp files (repeat for extra preservation).\n"));
3222 fprintf (file, _(" -v --verbose Be verbose.\n"));
3223 fprintf (file, _(" -V --version Display the program version.\n"));
3224 fprintf (file, _(" -h --help Display this information.\n"));
49e315b1
NC		 3225#ifdef DLLTOOL_MCORE_ELF
3226 fprintf (file, _(" -M --mcore-elf <outname> Process mcore-elf object files into <outname>.\n"));
3227 fprintf (file, _(" -L --linker <name> Use <name> as the linker.\n"));
3228 fprintf (file, _(" -F --linker-flags <flags> Pass <flags> to the linker.\n"));
3229#endif
252b5132
RH		 3230 exit (status);
3231}
3232
3233#define OPTION_EXPORT_ALL_SYMS 150
3234#define OPTION_NO_EXPORT_ALL_SYMS (OPTION_EXPORT_ALL_SYMS + 1)
3235#define OPTION_EXCLUDE_SYMS (OPTION_NO_EXPORT_ALL_SYMS + 1)
3236#define OPTION_NO_DEFAULT_EXCLUDES (OPTION_EXCLUDE_SYMS + 1)
252b5132
RH		 3237
3238static const struct option long_options[] =
3239{
3240 {"no-delete", no_argument, NULL, 'n'},
3241 {"dllname", required_argument, NULL, 'D'},
49e315b1
NC		 3242 {"no-idata4", no_argument, NULL, 'x'},
3243 {"no-idata5", no_argument, NULL, 'c'},
252b5132
RH		 3244 {"output-exp", required_argument, NULL, 'e'},
3245 {"output-def", required_argument, NULL, 'z'},
3246 {"export-all-symbols", no_argument, NULL, OPTION_EXPORT_ALL_SYMS},
3247 {"no-export-all-symbols", no_argument, NULL, OPTION_NO_EXPORT_ALL_SYMS},
3248 {"exclude-symbols", required_argument, NULL, OPTION_EXCLUDE_SYMS},
3249 {"no-default-excludes", no_argument, NULL, OPTION_NO_DEFAULT_EXCLUDES},
3250 {"output-lib", required_argument, NULL, 'l'},
3251 {"def", required_argument, NULL, 'd'}, /* for compatiblity with older versions */
3252 {"input-def", required_argument, NULL, 'd'},
3253 {"add-underscore", no_argument, NULL, 'U'},
3254 {"kill-at", no_argument, NULL, 'k'},
3255 {"add-stdcall-alias", no_argument, NULL, 'A'},
3256 {"verbose", no_argument, NULL, 'v'},
3257 {"version", no_argument, NULL, 'V'},
3258 {"help", no_argument, NULL, 'h'},
3259 {"machine", required_argument, NULL, 'm'},
3260 {"add-indirect", no_argument, NULL, 'a'},
3261 {"base-file", required_argument, NULL, 'b'},
3262 {"as", required_argument, NULL, 'S'},
3263 {"as-flags", required_argument, NULL, 'f'},
49e315b1 3264 {"mcore-elf", required_argument, NULL, 'M'},
5f0f29c3 3265 {"compat-implib", no_argument, NULL, 'C'},
5ea695ed 3266 {NULL,0,NULL,0}
252b5132
RH		 3267};
3268
e80ff7de
AM		 3269int main PARAMS ((int, char **));
3270
252b5132
RH		 3271int
3272main (ac, av)
3273 int ac;
3274 char **av;
3275{
3276 int c;
3277 int i;
3278 char *firstarg = 0;
3279 program_name = av[0];
3280 oav = av;
3281
3282#if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
3283 setlocale (LC_MESSAGES, "");
3882b010
L		 3284#endif
3285#if defined (HAVE_SETLOCALE)
3286 setlocale (LC_CTYPE, "");
252b5132
RH		 3287#endif
3288 bindtextdomain (PACKAGE, LOCALEDIR);
3289 textdomain (PACKAGE);
3290
49e315b1 3291 while ((c = getopt_long (ac, av,
26044998 3292#ifdef DLLTOOL_MCORE_ELF
8b53311e 3293 "m:e:l:aD:d:z:b:xcCuUkAS:f:nvVHhM:L:F:",
49e315b1 3294#else
8b53311e 3295 "m:e:l:aD:d:z:b:xcCuUkAS:f:nvVHh",
49e315b1 3296#endif
252b5132
RH		 3297 long_options, 0))
3298 != EOF)
3299 {
3300 switch (c)
3301 {
252b5132 3302 case OPTION_EXPORT_ALL_SYMS:
b34976b6 3303 export_all_symbols = TRUE;
252b5132
RH		 3304 break;
3305 case OPTION_NO_EXPORT_ALL_SYMS:
b34976b6 3306 export_all_symbols = FALSE;
252b5132
RH		 3307 break;
3308 case OPTION_EXCLUDE_SYMS:
3309 add_excludes (optarg);
3310 break;
3311 case OPTION_NO_DEFAULT_EXCLUDES:
b34976b6 3312 do_default_excludes = FALSE;
252b5132 3313 break;
49e315b1
NC		 3314 case 'x':
3315 no_idata4 = 1;
3316 break;
3317 case 'c':
3318 no_idata5 = 1;
3319 break;
252b5132
RH		 3320 case 'S':
3321 as_name = optarg;
3322 break;
3323 case 'f':
3324 as_flags = optarg;
3325 break;
3326
3327 /* ignored for compatibility */
3328 case 'u':
3329 break;
3330 case 'a':
3331 add_indirect = 1;
3332 break;
3333 case 'z':
3334 output_def = fopen (optarg, FOPEN_WT);
3335 break;
3336 case 'D':
3337 dll_name = optarg;
3338 break;
3339 case 'l':
3340 imp_name = optarg;
3341 break;
3342 case 'e':
3343 exp_name = optarg;
3344 break;
8b53311e 3345 case 'H':
252b5132
RH		 3346 case 'h':
3347 usage (stdout, 0);
3348 break;
3349 case 'm':
3350 mname = optarg;
3351 break;
3352 case 'v':
3353 verbose = 1;
3354 break;
3355 case 'V':
3356 print_version (program_name);
3357 break;
252b5132
RH		 3358 case 'U':
3359 add_underscore = 1;
3360 break;
3361 case 'k':
3362 killat = 1;
3363 break;
3364 case 'A':
3365 add_stdcall_alias = 1;
3366 break;
3367 case 'd':
3368 def_file = optarg;
3369 break;
3370 case 'n':
3371 dontdeltemps++;
3372 break;
3373 case 'b':
3374 base_file = fopen (optarg, FOPEN_RB);
26044998 3375
252b5132
RH		 3376 if (!base_file)
3377 /* xgettext:c-format */
3378 fatal (_("Unable to open base-file: %s"), optarg);
3379
3380 break;
49e315b1
NC		 3381#ifdef DLLTOOL_MCORE_ELF
3382 case 'M':
3383 mcore_elf_out_file = optarg;
3384 break;
3385 case 'L':
3386 mcore_elf_linker = optarg;
3387 break;
3388 case 'F':
3389 mcore_elf_linker_flags = optarg;
3390 break;
3391#endif
5f0f29c3
NC		 3392 case 'C':
3393 create_compat_implib = 1;
3394 break;
252b5132
RH		 3395 default:
3396 usage (stderr, 1);
3397 break;
3398 }
3399 }
3400
3401 for (i = 0; mtable[i].type; i++)
762100ed
NC		 3402 if (strcmp (mtable[i].type, mname) == 0)
3403 break;
252b5132
RH		 3404
3405 if (!mtable[i].type)
3406 /* xgettext:c-format */
3407 fatal (_("Machine '%s' not supported"), mname);
3408
3409 machine = i;
3410
252b5132
RH		 3411 if (!dll_name && exp_name)
3412 {
3413 int len = strlen (exp_name) + 5;
3414 dll_name = xmalloc (len);
3415 strcpy (dll_name, exp_name);
3416 strcat (dll_name, ".dll");
3417 }
3418
49e315b1
NC		 3419 if (as_name == NULL)
3420 as_name = deduce_name ("as");
26044998 3421
252b5132
RH		 3422 /* Don't use the default exclude list if we're reading only the
3423 symbols in the .drectve section. The default excludes are meant
3424 to avoid exporting DLL entry point and Cygwin32 impure_ptr. */
3425 if (! export_all_symbols)
b34976b6 3426 do_default_excludes = FALSE;
26044998 3427
252b5132
RH		 3428 if (do_default_excludes)
3429 set_default_excludes ();
3430
3431 if (def_file)
3432 process_def_file (def_file);
3433
3434 while (optind < ac)
3435 {
3436 if (!firstarg)
3437 firstarg = av[optind];
3438 scan_obj_file (av[optind]);
3439 optind++;
3440 }
3441
3442 mangle_defs ();
3443
3444 if (exp_name)
3445 gen_exp_file ();
26044998 3446
252b5132
RH		 3447 if (imp_name)
3448 {
26044998 3449 /* Make imp_name safe for use as a label. */
252b5132
RH		 3450 char *p;
3451
3452 imp_name_lab = xstrdup (imp_name);
3453 for (p = imp_name_lab; *p; p++)
3454 {
3882b010 3455 if (!ISALNUM (*p))
252b5132
RH		 3456 *p = '_';
3457 }
3458 head_label = make_label("_head_", imp_name_lab);
3459 gen_lib_file ();
3460 }
26044998 3461
252b5132
RH		 3462 if (output_def)
3463 gen_def_file ();
26044998 3464
49e315b1
NC		 3465#ifdef DLLTOOL_MCORE_ELF
3466 if (mcore_elf_out_file)
3467 mcore_elf_gen_out_file ();
3468#endif
26044998 3469
252b5132
RH		 3470 return 0;
3471}
49e315b1 3472
bb0cb4db
ILT		 3473/* Look for the program formed by concatenating PROG_NAME and the
3474 string running from PREFIX to END_PREFIX. If the concatenated
3475 string contains a '/', try appending EXECUTABLE_SUFFIX if it is
2481e6a2 3476 appropriate. */
bb0cb4db
ILT		 3477
3478static char *
3479look_for_prog (prog_name, prefix, end_prefix)
3480 const char *prog_name;
3481 const char *prefix;
3482 int end_prefix;
3483{
3484 struct stat s;
3485 char *cmd;
3486
26044998
KH		 3487 cmd = xmalloc (strlen (prefix)
3488 + strlen (prog_name)
2481e6a2 3489#ifdef HAVE_EXECUTABLE_SUFFIX
26044998 3490 + strlen (EXECUTABLE_SUFFIX)
bb0cb4db
ILT		 3491#endif
3492 + 10);
3493 strcpy (cmd, prefix);
3494
3495 sprintf (cmd + end_prefix, "%s", prog_name);
3496
3497 if (strchr (cmd, '/') != NULL)
3498 {
3499 int found;
3500
3501 found = (stat (cmd, &s) == 0
2481e6a2 3502#ifdef HAVE_EXECUTABLE_SUFFIX
26044998 3503 || stat (strcat (cmd, EXECUTABLE_SUFFIX), &s) == 0
bb0cb4db
ILT		 3504#endif
3505 );
3506
3507 if (! found)
26044998 3508 {
bb0cb4db
ILT		 3509 /* xgettext:c-format */
3510 inform (_("Tried file: %s"), cmd);
3511 free (cmd);
3512 return NULL;
3513 }
3514 }
3515
3516 /* xgettext:c-format */
3517 inform (_("Using file: %s"), cmd);
3518
3519 return cmd;
3520}
3521
49e315b1
NC		 3522/* Deduce the name of the program we are want to invoke.
3523 PROG_NAME is the basic name of the program we want to run,
3524 eg "as" or "ld". The catch is that we might want actually
26044998 3525 run "i386-pe-as" or "ppc-pe-ld".
bb0cb4db
ILT		 3526
3527 If argv[0] contains the full path, then try to find the program
3528 in the same place, with and then without a target-like prefix.
3529
3530 Given, argv[0] = /usr/local/bin/i586-cygwin32-dlltool,
26044998 3531 deduce_name("as") uses the following search order:
bb0cb4db
ILT		 3532
3533 /usr/local/bin/i586-cygwin32-as
3534 /usr/local/bin/as
3535 as
26044998 3536
bb0cb4db
ILT		 3537 If there's an EXECUTABLE_SUFFIX, it'll use that as well; for each
3538 name, it'll try without and then with EXECUTABLE_SUFFIX.
3539
3540 Given, argv[0] = i586-cygwin32-dlltool, it will not even try "as"
3541 as the fallback, but rather return i586-cygwin32-as.
26044998 3542
bb0cb4db
ILT		 3543 Oh, and given, argv[0] = dlltool, it'll return "as".
3544
3545 Returns a dynamically allocated string. */
3546
49e315b1 3547static char *
bb0cb4db
ILT		 3548deduce_name (prog_name)
3549 const char *prog_name;
49e315b1 3550{
bb0cb4db
ILT		 3551 char *cmd;
3552 char *dash, *slash, *cp;
49e315b1 3553
bb0cb4db
ILT		 3554 dash = NULL;
3555 slash = NULL;
3556 for (cp = program_name; *cp != '\0'; ++cp)
3557 {
3558 if (*cp == '-')
3559 dash = cp;
3560 if (
3561#if defined(__DJGPP__) || defined (__CYGWIN__) || defined(__WIN32__)
3562 *cp == ':' || *cp == '\\' ||
3563#endif
3564 *cp == '/')
3565 {
3566 slash = cp;
3567 dash = NULL;
3568 }
3569 }
49e315b1 3570
bb0cb4db 3571 cmd = NULL;
49e315b1 3572
bb0cb4db
ILT		 3573 if (dash != NULL)
3574 {
3575 /* First, try looking for a prefixed PROG_NAME in the
3576 PROGRAM_NAME directory, with the same prefix as PROGRAM_NAME. */
3577 cmd = look_for_prog (prog_name, program_name, dash - program_name + 1);
3578 }
49e315b1 3579
bb0cb4db
ILT		 3580 if (slash != NULL && cmd == NULL)
3581 {
3582 /* Next, try looking for a PROG_NAME in the same directory as
3583 that of this program. */
3584 cmd = look_for_prog (prog_name, program_name, slash - program_name + 1);
3585 }
3586
3587 if (cmd == NULL)
3588 {
3589 /* Just return PROG_NAME as is. */
3590 cmd = xstrdup (prog_name);
3591 }
3592
3593 return cmd;
49e315b1
NC		 3594}
3595
3596#ifdef DLLTOOL_MCORE_ELF
3597typedef struct fname_cache
3598{
3599 char * filename;
3600 struct fname_cache * next;
3601}
3602fname_cache;
3603
3604static fname_cache fnames;
3605
3606static void
3607mcore_elf_cache_filename (char * filename)
3608{
3609 fname_cache * ptr;
3610
3611 ptr = & fnames;
3612
3613 while (ptr->next != NULL)
3614 ptr = ptr->next;
3615
3616 ptr->filename = filename;
3617 ptr->next = (fname_cache *) malloc (sizeof (fname_cache));
3618 if (ptr->next != NULL)
3619 ptr->next->next = NULL;
3620}
3621
762100ed
NC		 3622#define MCORE_ELF_TMP_OBJ "mcoreelf.o"
3623#define MCORE_ELF_TMP_EXP "mcoreelf.exp"
3624#define MCORE_ELF_TMP_LIB "mcoreelf.lib"
3625
49e315b1
NC		 3626static void
3627mcore_elf_gen_out_file (void)
3628{
3629 fname_cache * ptr;
bb0cb4db 3630 dyn_string_t ds;
49e315b1
NC		 3631
3632 /* Step one. Run 'ld -r' on the input object files in order to resolve
3633 any internal references and to generate a single .exports section. */
3634 ptr = & fnames;
3635
bb0cb4db
ILT		 3636 ds = dyn_string_new (100);
3637 dyn_string_append (ds, "-r ");
49e315b1
NC		 3638
3639 if (mcore_elf_linker_flags != NULL)
bb0cb4db 3640 dyn_string_append (ds, mcore_elf_linker_flags);
26044998 3641
49e315b1
NC		 3642 while (ptr->next != NULL)
3643 {
bb0cb4db
ILT		 3644 dyn_string_append (ds, ptr->filename);
3645 dyn_string_append (ds, " ");
49e315b1
NC		 3646
3647 ptr = ptr->next;
3648 }
3649
bb0cb4db
ILT		 3650 dyn_string_append (ds, "-o ");
3651 dyn_string_append (ds, MCORE_ELF_TMP_OBJ);
49e315b1
NC		 3652
3653 if (mcore_elf_linker == NULL)
3654 mcore_elf_linker = deduce_name ("ld");
26044998 3655
bb0cb4db
ILT		 3656 run (mcore_elf_linker, ds->s);
3657
3658 dyn_string_delete (ds);
49e315b1 3659
26044998 3660 /* Step two. Create a .exp file and a .lib file from the temporary file.
c9e38879 3661 Do this by recursively invoking dlltool... */
bb0cb4db
ILT		 3662 ds = dyn_string_new (100);
3663
3664 dyn_string_append (ds, "-S ");
3665 dyn_string_append (ds, as_name);
26044998 3666
bb0cb4db
ILT		 3667 dyn_string_append (ds, " -e ");
3668 dyn_string_append (ds, MCORE_ELF_TMP_EXP);
3669 dyn_string_append (ds, " -l ");
3670 dyn_string_append (ds, MCORE_ELF_TMP_LIB);
3671 dyn_string_append (ds, " " );
3672 dyn_string_append (ds, MCORE_ELF_TMP_OBJ);
49e315b1
NC		 3673
3674 if (verbose)
bb0cb4db 3675 dyn_string_append (ds, " -v");
26044998 3676
49e315b1 3677 if (dontdeltemps)
762100ed 3678 {
bb0cb4db 3679 dyn_string_append (ds, " -n");
26044998 3680
762100ed 3681 if (dontdeltemps > 1)
bb0cb4db 3682 dyn_string_append (ds, " -n");
762100ed 3683 }
49e315b1
NC		 3684
3685 /* XXX - FIME: ought to check/copy other command line options as well. */
bb0cb4db
ILT		 3686 run (program_name, ds->s);
3687
3688 dyn_string_delete (ds);
49e315b1 3689
74479bd3 3690 /* Step four. Feed the .exp and object files to ld -shared to create the dll. */
bb0cb4db
ILT		 3691 ds = dyn_string_new (100);
3692
3693 dyn_string_append (ds, "-shared ");
49e315b1
NC		 3694
3695 if (mcore_elf_linker_flags)
bb0cb4db
ILT		 3696 dyn_string_append (ds, mcore_elf_linker_flags);
3697
3698 dyn_string_append (ds, " ");
3699 dyn_string_append (ds, MCORE_ELF_TMP_EXP);
3700 dyn_string_append (ds, " ");
3701 dyn_string_append (ds, MCORE_ELF_TMP_OBJ);
3702 dyn_string_append (ds, " -o ");
3703 dyn_string_append (ds, mcore_elf_out_file);
49e315b1 3704
bb0cb4db 3705 run (mcore_elf_linker, ds->s);
49e315b1 3706
bb0cb4db 3707 dyn_string_delete (ds);
762100ed
NC		 3708
3709 if (dontdeltemps == 0)
74479bd3 3710 unlink (MCORE_ELF_TMP_EXP);
762100ed
NC		 3711
3712 if (dontdeltemps < 2)
3713 unlink (MCORE_ELF_TMP_OBJ);
49e315b1
NC		 3714}
3715#endif /* DLLTOOL_MCORE_ELF */
GDB Binutils - Deliverables
This page took 0.422624 seconds and 4 git commands to generate.