Accept 16-bit addresses.
[deliverable/binutils-gdb.git] / binutils / dlltool.c
index 6f8a26ca124a0492e809416d009f67528452e709..ae2b568718fbef939009ea53b83f065890e1b9d2 100644 (file)
@@ -1,5 +1,5 @@
 /* dlltool.c -- tool to generate stuff for PE style DLLs
-   Copyright (C) 1995, 96, 97, 98, 1999 Free Software Foundation, Inc.
+   Copyright (C) 1995, 96, 97, 98, 99, 2000 Free Software Foundation, Inc.
 
    This file is part of GNU Binutils.
 
    SECTIONS donkey READ WRITE
    aardvark EXECUTE
 
- # compile up the parts of the dll
+ # Compile up the parts of the dll and the program
 
-   gcc -c file1.c
-   gcc -c file2.c
+   gcc -c file1.c file2.c themain.c
 
- # put them in a library (you don't have to, you
- # could name all the .os on the dlltool line)
+ # Optional: put the dll objects into a library
+ # (you don't have to, you could name all the object
+ # files on the dlltool line)
 
    ar  qcv thedll.in file1.o file2.o
    ranlib thedll.in
 
- # run this tool over the library and the def file
-   ./dlltool --def thedll.def --output-exp thedll.o --output-lib thedll.a
+ # Run this tool over the DLL's .def file and generate an exports
+ # file (thedll.o) and an imports file (thedll.a).
+ # (You may have to use -S to tell dlltool where to find the assembler).
+   dlltool --def thedll.def --output-exp thedll.o --output-lib thedll.a
 
- # build the dll with the library with file1.o, file2.o and the export table
+ # Build the dll with the library and the export table
    ld -o thedll.dll thedll.o thedll.in
 
- # build the mainline
-   gcc -c themain.c
-
- # link the executable with the import library
+ # Link the executable with the import library
    gcc -o themain.exe themain.o thedll.a
 
+ This example can be extended if relocations are needed in the DLL:
+
+ # Compile up the parts of the dll and the program
+
+   gcc -c file1.c file2.c themain.c
+
+ # Run this tool over the DLL's .def file and generate an imports file.
+   dlltool --def thedll.def --output-lib thedll.lib
+
+ # Link the executable with the import library and generate a base file
+ # at the same time
+   gcc -o themain.exe themain.o thedll.lib -Wl,--base-file -Wl,themain.base
+
+ # Run this tool over the DLL's .def file and generate an exports file
+ # which includes the relocations from the base file.
+   dlltool --def thedll.def --base-file themain.base --output-exp thedll.exp
+
+ # Build the dll with file1.o, file2.o and the export table
+   ld -o thedll.dll thedll.exp file1.o file2.o
  */
 
 /* .idata section description
@@ -342,6 +367,10 @@ static boolean do_default_excludes;
 /* Default symbols to exclude when exporting all the symbols.  */
 static const char *default_excludes = "DllMain@12,DllEntryPoint@0,impure_ptr";
 
+/* True if we should add __imp_<SYMBOL> to import libraries for backward 
+   compatibility to old Cygwin releases.  */
+static boolean create_compat_implib;
+
 static char *def_file;
 
 extern char * program_name;
@@ -366,7 +395,7 @@ static const char *mname = "ppc";
 #endif
 
 #ifdef DLLTOOL_MCORE
-static const char * mname = "mcore";
+static const char * mname = "mcore-le";
 #endif
 
 #ifdef DLLTOOL_MCORE_ELF
@@ -425,16 +454,20 @@ static const unsigned char thumb_jtab[] =
 
 static const unsigned char mcore_be_jtab[] =
 {
-  0x70, 0x01,            /* jmpi 1     */
-  0x12, 0x11,            /* nop */
-  0x00, 0x00, 0x00, 0x00 /* <address>  */  
+  0x71, 0x02,            /* lrw r1,2       */
+  0x81, 0x01,            /* ld.w r1,(r1,0) */  
+  0x00, 0xC1,            /* jmp r1         */
+  0x12, 0x00,            /* nop            */
+  0x00, 0x00, 0x00, 0x00 /* <address>      */  
 };
 
 static const unsigned char mcore_le_jtab[] =
 {
-  0x01, 0x70,            /* jmpi 1     */
-  0x11, 0x12,            /* nop */
-  0x00, 0x00, 0x00, 0x00 /* <address>  */  
+  0x02, 0x71,            /* lrw r1,2       */
+  0x01, 0x81,            /* ld.w r1,(r1,0) */  
+  0xC1, 0x00,            /* jmp r1         */
+  0x00, 0x12,            /* nop            */
+  0x00, 0x00, 0x00, 0x00 /* <address>      */  
 };
 
 /* This is the glue sequence for PowerPC PE. There is a  */
@@ -472,6 +505,7 @@ struct mac
     const char *how_space;
     const char *how_align_short;
     const char *how_align_long;
+    const char *how_default_as_switches;
     const char *how_bfd_target;
     enum bfd_architecture how_bfd_arch;
     const unsigned char *how_jtab;
@@ -486,27 +520,33 @@ mtable[] =
 #define MARM 0
     "arm", ".byte", ".short", ".long", ".asciz", "@",
     "ldr\tip,[pc]\n\tldr\tpc,[ip]\n\t.long",
-    ".global", ".space", ".align\t2",".align\t4","pe-arm-little", bfd_arch_arm,
+    ".global", ".space", ".align\t2",".align\t4", "-mapcs-32",
+    "pe-arm-little", bfd_arch_arm,
     arm_jtab, sizeof (arm_jtab), 8
   }
   ,
   {
 #define M386 1
-    "i386", ".byte", ".short", ".long", ".asciz", "#", "jmp *", ".global", ".space", ".align\t2",".align\t4","pe-i386",bfd_arch_i386,
-   i386_jtab, sizeof (i386_jtab), 2
+    "i386", ".byte", ".short", ".long", ".asciz", "#",
+    "jmp *", ".global", ".space", ".align\t2",".align\t4", "",
+    "pe-i386",bfd_arch_i386,
+    i386_jtab, sizeof (i386_jtab), 2
   }
   ,
   {
 #define MPPC 2
-    "ppc", ".byte", ".short", ".long", ".asciz", "#", "jmp *", ".global", ".space", ".align\t2",".align\t4","pe-powerpcle",bfd_arch_powerpc,
-   ppc_jtab, sizeof (ppc_jtab), 0
+    "ppc", ".byte", ".short", ".long", ".asciz", "#",
+    "jmp *", ".global", ".space", ".align\t2",".align\t4", "",
+    "pe-powerpcle",bfd_arch_powerpc,
+    ppc_jtab, sizeof (ppc_jtab), 0
   }
   ,
   {
 #define MTHUMB 3
     "thumb", ".byte", ".short", ".long", ".asciz", "@",
     "push\t{r6}\n\tldr\tr6, [pc, #8]\n\tldr\tr6, [r6]\n\tmov\tip, r6\n\tpop\t{r6}\n\tbx\tip",
-    ".global", ".space", ".align\t2",".align\t4","pe-arm-little", bfd_arch_arm,
+    ".global", ".space", ".align\t2",".align\t4", "-mthumb-interwork",
+    "pe-arm-little", bfd_arch_arm,
     thumb_jtab, sizeof (thumb_jtab), 12
   }
   ,
@@ -514,43 +554,57 @@ mtable[] =
   {
     "arm_interwork", ".byte", ".short", ".long", ".asciz", "@",
     "ldr\tip,[pc]\n\tldr\tip,[ip]\n\tbx\tip\n\t.long",
-    ".global", ".space", ".align\t2",".align\t4","pe-arm-little", bfd_arch_arm,
+    ".global", ".space", ".align\t2",".align\t4", "-mthumb-interwork",
+    "pe-arm-little", bfd_arch_arm,
     arm_interwork_jtab, sizeof (arm_interwork_jtab), 12
   }
   ,
   {
 #define MMCORE_BE 5
-    "mcore", ".byte", ".short", ".long", ".asciz", "//",
-    "jmpi\t1\n\tnop\n\t.long",
-    ".global", ".space", ".align\t2",".align\t4","pe-mcore-big", bfd_arch_mcore,
+    "mcore-be", ".byte", ".short", ".long", ".asciz", "//",
+    "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
+    ".global", ".space", ".align\t2",".align\t4", "",
+    "pe-mcore-big", bfd_arch_mcore,
     mcore_be_jtab, sizeof (mcore_be_jtab), 8
   }
   ,
   {
 #define MMCORE_LE 6
     "mcore-le", ".byte", ".short", ".long", ".asciz", "//",
-    "jmpi\t1\n\tnop\n\t.long",
-    ".global", ".space", ".align\t2",".align\t4","pe-mcore-little", bfd_arch_mcore,
+    "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
+    ".global", ".space", ".align\t2",".align\t4", "-EL",
+    "pe-mcore-little", bfd_arch_mcore,
     mcore_le_jtab, sizeof (mcore_le_jtab), 8
   }
   ,
   {
 #define MMCORE_ELF 7
-    "mcore-elf", ".byte", ".short", ".long", ".asciz", "//",
-    "jmpi\t1\n\tnop\n\t.long",
-    ".global", ".space", ".align\t2",".align\t4","elf32-mcore-big", bfd_arch_mcore,
+    "mcore-elf-be", ".byte", ".short", ".long", ".asciz", "//",
+    "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
+    ".global", ".space", ".align\t2",".align\t4", "",
+    "elf32-mcore-big", bfd_arch_mcore,
     mcore_be_jtab, sizeof (mcore_be_jtab), 8
   }
   ,
   {
 #define MMCORE_ELF_LE 8
     "mcore-elf-le", ".byte", ".short", ".long", ".asciz", "//",
-    "jmpi\t1\n\tnop\n\t.long",
-    ".global", ".space", ".align\t2",".align\t4","elf32-mcore-little", bfd_arch_mcore,
+    "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
+    ".global", ".space", ".align\t2",".align\t4", "-EL",
+    "elf32-mcore-little", bfd_arch_mcore,
     mcore_le_jtab, sizeof (mcore_le_jtab), 8
   }
   ,
- {    0}
+  {
+#define MARM_EPOC 9
+    "arm", ".byte", ".short", ".long", ".asciz", "@",
+    "ldr\tip,[pc]\n\tldr\tpc,[ip]\n\t.long",
+    ".global", ".space", ".align\t2",".align\t4", "",
+    "epoc-pe-arm-little", bfd_arch_arm,
+    arm_jtab, sizeof (arm_jtab), 8
+  }
+  ,
+  { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }
 };
 
 typedef struct dlist
@@ -773,11 +827,14 @@ asm_prefix (machine)
 #define ASM_RVA_AFTER          rvaafter(machine)
 #define ASM_PREFIX     asm_prefix(machine)
 #define ASM_ALIGN_LONG  mtable[machine].how_align_long
-#define HOW_BFD_TARGET  0  /* always default*/
+#define HOW_BFD_READ_TARGET  0  /* always default*/
+#define HOW_BFD_WRITE_TARGET mtable[machine].how_bfd_target
 #define HOW_BFD_ARCH    mtable[machine].how_bfd_arch
 #define HOW_JTAB        mtable[machine].how_jtab
 #define HOW_JTAB_SIZE   mtable[machine].how_jtab_size
 #define HOW_JTAB_ROFF   mtable[machine].how_jtab_roff
+#define ASM_SWITCHES    mtable[machine].how_default_as_switches
+
 static char **oav;
 
 void
@@ -819,7 +876,7 @@ static int d_is_exe;
 
 int
 yyerror (err)
-     const char *err;
+     const char * err ATTRIBUTE_UNUSED;
 {
   /* xgettext:c-format */
   warn (_("Syntax error in def file %s:%d\n"), def_file, linenumber);
@@ -1178,7 +1235,9 @@ scan_drectve_symbols (abfd)
   inform (_("Sucking in info from %s section in %s\n"),
          DRECTVE_SECTION_NAME, bfd_get_filename (abfd));
 
-  /* Search for -export: strings */
+  /* Search for -export: strings. The exported symbols can optionally
+     have type tags (eg., -export:foo,data), so handle those as well.
+     Currently only data tag is supported.  */
   p = buf;
   e = buf + size;
   while (p < e)
@@ -1188,25 +1247,35 @@ scan_drectve_symbols (abfd)
        {
          char * name;
          char * c;
+         flagword flags = BSF_FUNCTION;
          
          p += 8;
          name = p;
-         while (p < e && *p != ' ' && *p != '-')
+         while (p < e && *p != ',' && *p != ' ' && *p != '-')
            p++;
          c = xmalloc (p - name + 1);
          memcpy (c, name, p - name);
          c[p - name] = 0;
+         if (p < e && *p == ',')       /* found type tag. */
+           {
+             char *tag_start = ++p;
+             while (p < e && *p != ' ' && *p != '-')
+               p++;
+             if (strncmp (tag_start, "data", 4) == 0)
+               flags &= ~BSF_FUNCTION;
+           }
 
          /* FIXME: The 5th arg is for the `constant' field.
             What should it be?  Not that it matters since it's not
             currently useful.  */
-         def_exports (c, 0, -1, 0, 0, 0);
+         def_exports (c, 0, -1, 0, 0, ! (flags & BSF_FUNCTION));
 
          if (add_stdcall_alias && strchr (c, '@'))
            {
              char *exported_name = xstrdup (c);
              char *atsym = strchr (exported_name, '@');
              *atsym = '\0';
+             /* Note: stdcall alias symbols can never be data.  */
              def_exports (exported_name, xstrdup (c), -1, 0, 0, 0);
            }
        }
@@ -1248,13 +1317,15 @@ scan_filtered_symbols (abfd, minisyms, symcount, size)
       if (bfd_get_symbol_leading_char (abfd) == symbol_name[0])
        ++symbol_name;
 
-      def_exports (xstrdup (symbol_name) , 0, -1, 0, 0, 0);
+      def_exports (xstrdup (symbol_name) , 0, -1, 0, 0,
+                  ! (sym->flags & BSF_FUNCTION));
 
       if (add_stdcall_alias && strchr (symbol_name, '@'))
         {
          char *exported_name = xstrdup (symbol_name);
          char *atsym = strchr (exported_name, '@');
          *atsym = '\0';
+         /* Note: stdcall alias symbols can never be data. */
          def_exports (exported_name, xstrdup (symbol_name), -1, 0, 0, 0);
        }
     }
@@ -1517,10 +1588,17 @@ flush_page (f, need, page_addr, on_page)
           ASM_LONG,
           (on_page * 2) + (on_page & 1) * 2 + 8,
           ASM_C);
+  
   for (i = 0; i < on_page; i++)
     {
-      fprintf (f, "\t%s\t0x%lx\n", ASM_SHORT, (need[i] - page_addr) | 0x3000);
+      long needed = need[i];
+      
+      if (needed)
+       needed = ((needed - page_addr) | 0x3000) & 0xffff;
+  
+      fprintf (f, "\t%s\t0x%lx\n", ASM_SHORT, needed);
     }
+  
   /* And padding */
   if (on_page & 1)
     fprintf (f, "\t%s\t0x%x\n", ASM_SHORT, 0 | 0x0000);
@@ -1676,6 +1754,22 @@ generate_idata_ofile (filvar)
     }
 }
 
+/* Assemble the specified file. */
+static void
+assemble_file (source, dest)
+     const char * source;
+     const char * dest;
+{
+  char * cmd;
+  
+  cmd = (char *) alloca (strlen (ASM_SWITCHES) + strlen (as_flags)
+                        + strlen (source) + strlen (dest) + 50);
+
+  sprintf (cmd, "%s %s -o %s %s", ASM_SWITCHES, as_flags, dest, source);
+
+  run (as_name, cmd);
+}
+
 static void
 gen_exp_file ()
 {
@@ -1683,7 +1777,6 @@ gen_exp_file ()
   int i;
   export_type *exp;
   dlist_type *dl;
-  char *cmd;
 
   /* xgettext:c-format */
   inform (_("Generating export file: %s\n"), exp_name);
@@ -1794,9 +1887,9 @@ gen_exp_file ()
            {
              char *p;
              int l;
-             /* We dont output as ascii 'cause there can
-                be quote characters in the string */
-
+             
+             /* We don't output as ascii because there can
+                be quote characters in the string.  */
              l = 0;
              for (p = dl->text; *p; p++)
                {
@@ -1822,7 +1915,7 @@ gen_exp_file ()
 
 
   /* Add to the output file a way of getting to the exported names
-     without using the import library. */
+     without using the import library.  */
   if (add_indirect)
     {
       fprintf (f, "\t.section\t.rdata\n");
@@ -1832,9 +1925,11 @@ gen_exp_file ()
            /* We use a single underscore for MS compatibility, and a
                double underscore for backward compatibility with old
                cygwin releases.  */
-           fprintf (f, "\t%s\t__imp_%s\n", ASM_GLOBAL, exp->name);
+           if (create_compat_implib)
+             fprintf (f, "\t%s\t__imp_%s\n", ASM_GLOBAL, exp->name);
            fprintf (f, "\t%s\t_imp__%s\n", ASM_GLOBAL, exp->name);
-           fprintf (f, "__imp_%s:\n", exp->name);
+           if (create_compat_implib)
+             fprintf (f, "__imp_%s:\n", exp->name);
            fprintf (f, "_imp__%s:\n", exp->name);
            fprintf (f, "\t%s\t%s\n", ASM_LONG, exp->name);
          }
@@ -1901,16 +1996,7 @@ gen_exp_file ()
   fclose (f);
 
   /* assemble the file */
-  cmd = (char *) alloca (strlen (as_flags) + strlen (exp_name)
-                        + sizeof TMP_ASM + 50);
-  sprintf (cmd, "%s -o %s %s", as_flags, exp_name, TMP_ASM);
-
-#ifdef DLLTOOL_ARM
-  if (machine == MARM_INTERWORK || machine == MTHUMB)
-    strcat (cmd, " -mthumb-interwork");
-#endif
-
-  run (as_name, cmd);
+  assemble_file (TMP_ASM, exp_name);
 
   if (dontdeltemps == 0)
     unlink (TMP_ASM);
@@ -1990,15 +2076,16 @@ typedef struct
 
 #define NSECS 7
 
+#define INIT_SEC_DATA(id, name, flags, align) { id, name, flags, align, NULL, NULL, NULL, 0, NULL }
 static sinfo secdata[NSECS] =
 {
-  { TEXT,   ".text",    SEC_CODE | SEC_HAS_CONTENTS, 2},
-  { DATA,   ".data",    SEC_DATA,                    2},
-  { BSS,    ".bss",     0,                           2},
-  { IDATA7, ".idata$7", SEC_HAS_CONTENTS,            2},
-  { IDATA5, ".idata$5", SEC_HAS_CONTENTS,            2},
-  { IDATA4, ".idata$4", SEC_HAS_CONTENTS,            2},
-  { IDATA6, ".idata$6", SEC_HAS_CONTENTS,            1}
+  INIT_SEC_DATA (TEXT,   ".text",    SEC_CODE | SEC_HAS_CONTENTS, 2),
+  INIT_SEC_DATA (DATA,   ".data",    SEC_DATA,                    2),
+  INIT_SEC_DATA (BSS,    ".bss",     0,                           2),
+  INIT_SEC_DATA (IDATA7, ".idata$7", SEC_HAS_CONTENTS,            2),
+  INIT_SEC_DATA (IDATA5, ".idata$5", SEC_HAS_CONTENTS,            2),
+  INIT_SEC_DATA (IDATA4, ".idata$4", SEC_HAS_CONTENTS,            2),
+  INIT_SEC_DATA (IDATA6, ".idata$6", SEC_HAS_CONTENTS,            1)
 };
 
 #else
@@ -2094,17 +2181,19 @@ make_one_lib_file (exp, i)
       char *name;
       FILE *f;
       const char *prefix = "d";
-      char *cmd;
+      char *dest;
 
       name = (char *) alloca (strlen (prefix) + 10);
       sprintf (name, "%ss%05d.s", prefix, i);
       f = fopen (name, FOPEN_WT);
       fprintf (f, "\t.text\n");
       fprintf (f, "\t%s\t%s%s\n", ASM_GLOBAL, ASM_PREFIX, exp->name);
-      fprintf (f, "\t%s\t__imp_%s\n", ASM_GLOBAL, exp->name);
+      if (create_compat_implib)
+       fprintf (f, "\t%s\t__imp_%s\n", ASM_GLOBAL, exp->name);
       fprintf (f, "\t%s\t_imp__%s\n", ASM_GLOBAL, exp->name);
-      fprintf (f, "%s%s:\n\t%s\t__imp_%s\n", ASM_PREFIX,
-              exp->name, ASM_JUMP, exp->name);
+      if (create_compat_implib)
+       fprintf (f, "%s%s:\n\t%s\t__imp_%s\n", ASM_PREFIX,
+                exp->name, ASM_JUMP, exp->name);
 
       fprintf (f, "\t.section\t.idata$7\t%s To force loading of head\n", ASM_C);
       fprintf (f, "\t%s\t%s\n", ASM_LONG, head_label);
@@ -2113,7 +2202,8 @@ make_one_lib_file (exp, i)
       fprintf (f,"%s Import Address Table\n", ASM_C);
 
       fprintf (f, "\t.section  .idata$5\n");
-      fprintf (f, "__imp_%s:\n", exp->name);
+      if (create_compat_implib)
+       fprintf (f, "__imp_%s:\n", exp->name);
       fprintf (f, "_imp__%s:\n", exp->name);
 
       dump_iat (f, exp);
@@ -2133,16 +2223,9 @@ make_one_lib_file (exp, i)
 
       fclose (f);
 
-      cmd = (char *) alloca (strlen (as_flags) + 2 * strlen (prefix) + 50);
-      sprintf (cmd, "%s -o %ss%05d.o %ss%d.s",
-              as_flags, prefix, i, prefix, i);
-
-#ifdef DLLTOOL_ARM
-      if (machine == MARM_INTERWORK || machine == MTHUMB)
-       strcat (cmd, " -mthumb-interwork");
-#endif
-  
-      run (as_name, cmd);
+      dest = (char *) alloca (strlen (prefix) + 10);
+      sprintf (dest, "%ss%05d.o", prefix, i);
+      assemble_file (name, dest);
     }
 #else /* if 0 */
     {
@@ -2169,7 +2252,7 @@ make_one_lib_file (exp, i)
       
       sprintf (outname, "%s%05d.o", TMP_STUB, i);
       
-      abfd = bfd_openw (outname, HOW_BFD_TARGET);
+      abfd = bfd_openw (outname, HOW_BFD_WRITE_TARGET);
       
       if (!abfd)
        /* xgettext:c-format */
@@ -2241,13 +2324,16 @@ make_one_lib_file (exp, i)
       /* Generate imp symbols with one underscore for Microsoft
          compatibility, and with two underscores for backward
          compatibility with old versions of cygwin.  */
-      iname = bfd_make_empty_symbol(abfd);
-      iname->name = make_label ("__imp_", exp->name);
-      iname->section = secdata[IDATA5].sec;
-      iname->flags = BSF_GLOBAL;
-      iname->value = 0;
+      if (create_compat_implib)
+       {
+         iname = bfd_make_empty_symbol (abfd);
+         iname->name = make_label ("__imp_", exp->name);
+         iname->section = secdata[IDATA5].sec;
+         iname->flags = BSF_GLOBAL;
+         iname->value = 0;
+       }
 
-      iname2 = bfd_make_empty_symbol(abfd);
+      iname2 = bfd_make_empty_symbol (abfd);
       iname2->name = make_label ("_imp__", exp->name);
       iname2->section = secdata[IDATA5].sec;
       iname2->flags = BSF_GLOBAL;
@@ -2262,7 +2348,8 @@ make_one_lib_file (exp, i)
 
 
       iname_pp = ptrs + oidx;
-      ptrs[oidx++] = iname;
+      if (create_compat_implib)
+       ptrs[oidx++] = iname;
       ptrs[oidx++] = iname2;
 
       iname_lab_pp = ptrs + oidx;
@@ -2546,7 +2633,7 @@ make_one_lib_file (exp, i)
 
       bfd_set_symtab (abfd, ptrs, oidx);
       bfd_close (abfd);
-      abfd = bfd_openr (outname, HOW_BFD_TARGET);
+      abfd = bfd_openr (outname, HOW_BFD_READ_TARGET);
       return abfd;
     }
 #endif
@@ -2556,7 +2643,6 @@ static bfd *
 make_head ()
 {
   FILE *f = fopen (TMP_HEAD_S, FOPEN_WT);
-  char *cmd;
 
   if (f == NULL)
     {
@@ -2607,25 +2693,15 @@ make_head ()
   
   fclose (f);
 
-  cmd = (char *) alloca (strlen (as_flags) + sizeof TMP_HEAD_O
-                        + sizeof TMP_HEAD_S + 50);
-  sprintf (cmd, "%s -o %s %s", as_flags, TMP_HEAD_O, TMP_HEAD_S);
-  
-#ifdef DLLTOOL_ARM
-  if (machine == MARM_INTERWORK || machine == MTHUMB)
-    strcat (cmd, " -mthumb-interwork");
-#endif
-  
-  run (as_name, cmd);
+  assemble_file (TMP_HEAD_S, TMP_HEAD_O);
 
-  return bfd_openr (TMP_HEAD_O, HOW_BFD_TARGET);
+  return bfd_openr (TMP_HEAD_O, HOW_BFD_READ_TARGET);
 }
 
 static bfd *
 make_tail ()
 {
   FILE *f = fopen (TMP_TAIL_S, FOPEN_WT);
-  char *cmd;
 
   if (f == NULL)
     {
@@ -2676,18 +2752,9 @@ make_tail ()
 
   fclose (f);
 
-  cmd = (char *) alloca (strlen (as_flags) + sizeof TMP_TAIL_O
-                        + sizeof TMP_TAIL_S + 50);
-  sprintf (cmd, "%s -o %s %s", as_flags, TMP_TAIL_O, TMP_TAIL_S);
+  assemble_file (TMP_TAIL_S, TMP_TAIL_O);
   
-#ifdef DLLTOOL_ARM
-  if (machine == MARM_INTERWORK || MTHUMB)
-    strcat (cmd, " -mthumb-interwork");
-#endif
-  
-  run (as_name, cmd);
-  
-  return  bfd_openr (TMP_TAIL_O, HOW_BFD_TARGET);
+  return  bfd_openr (TMP_TAIL_O, HOW_BFD_READ_TARGET);
 }
 
 static void
@@ -2702,7 +2769,7 @@ gen_lib_file ()
 
   unlink (imp_name);
 
-  outarch = bfd_openw (imp_name, HOW_BFD_TARGET);
+  outarch = bfd_openw (imp_name, HOW_BFD_WRITE_TARGET);
 
   if (!outarch)
     /* xgettext:c-format */
@@ -2827,7 +2894,11 @@ remove_null_names (ptr)
 
 static void
 dtab (ptr)
-     export_type **ptr;
+     export_type ** ptr
+#ifndef SACDEBUG
+ATTRIBUTE_UNUSED
+#endif
+     ;
 {
 #ifdef SACDEBUG
   int i;
@@ -3058,7 +3129,7 @@ usage (file, status)
   fprintf (file, _("Usage %s <options> <object-files>\n"), program_name);
   /* xgetext:c-format */
   fprintf (file, _("   -m --machine <machine>    Create as DLL for <machine>.  [default: %s]\n"), mname);
-  fprintf (file, _("        possible <machine>: arm[_interwork], i386, mcore[-elf][-le], ppc, thumb\n"));
+  fprintf (file, _("        possible <machine>: arm[_interwork], i386, mcore[-elf]{-le|-be}, ppc, thumb\n"));
   fprintf (file, _("   -e --output-exp <outname> Generate an export file.\n"));
   fprintf (file, _("   -l --output-lib <outname> Generate an interface library.\n"));
   fprintf (file, _("   -a --add-indirect         Add dll indirects to export file.\n"));
@@ -3077,6 +3148,7 @@ usage (file, status)
   fprintf (file, _("   -A --add-stdcall-alias    Add aliases without @<n>.\n"));
   fprintf (file, _("   -S --as <name>            Use <name> for assembler.\n"));
   fprintf (file, _("   -f --as-flags <flags>     Pass <flags> to the assembler.\n"));
+  fprintf (file, _("   -C --compat-implib        Create backward compatible import library.\n"));
   fprintf (file, _("   -n --no-delete            Keep temp files (repeat for extra preservation).\n"));
   fprintf (file, _("   -v --verbose              Be verbose.\n"));
   fprintf (file, _("   -V --version              Display the program version.\n"));
@@ -3121,7 +3193,8 @@ static const struct option long_options[] =
   {"as", required_argument, NULL, 'S'},
   {"as-flags", required_argument, NULL, 'f'},
   {"mcore-elf", required_argument, NULL, 'M'},
-  {0}
+  {"compat-implib", no_argument, NULL, 'C'},
+  {NULL,0,NULL,0}
 };
 
 int
@@ -3143,9 +3216,9 @@ main (ac, av)
 
   while ((c = getopt_long (ac, av,
 #ifdef DLLTOOL_MCORE_ELF                          
-                          "m:e:l:aD:d:z:b:xcuUkAS:f:nvVhM:L:F:",
+                          "m:e:l:aD:d:z:b:xcCuUkAS:f:nvVhM:L:F:",
 #else
-                          "m:e:l:aD:d:z:b:xcuUkAS:f:nvVh",
+                          "m:e:l:aD:d:z:b:xcCuUkAS:f:nvVh",
 #endif
                           long_options, 0))
         != EOF)
@@ -3241,6 +3314,9 @@ main (ac, av)
          mcore_elf_linker_flags = optarg;
          break;
 #endif
+       case 'C':
+         create_compat_implib = 1;
+         break;
        default:
          usage (stderr, 1);
          break;
This page took 0.031962 seconds and 4 git commands to generate.