From: Steve Chamberlain Date: Sun, 20 Aug 1995 17:01:27 +0000 (+0000) Subject: Sun Aug 20 09:59:00 1995 steve chamberlain X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=2757dc25348d5d98481d0593716c346f2793b853;p=binutils-gdb.git Sun Aug 20 09:59:00 1995 steve chamberlain Modified to generate archives and objects rather than .s files. * dlltool.c (run) New function. (gen_exp_file, gen_lib_file): Use run. (workout_prefix): New. (usage): Document new options. (main): Parse new options. --- diff --git a/binutils/ChangeLog b/binutils/ChangeLog index 08358256d26..561a8671425 100644 --- a/binutils/ChangeLog +++ b/binutils/ChangeLog @@ -1,3 +1,12 @@ +Sun Aug 20 09:59:00 1995 steve chamberlain + + Modified to generate archives and objects rather than .s files. + * dlltool.c (run) New function. + (gen_exp_file, gen_lib_file): Use run. + (workout_prefix): New. + (usage): Document new options. + (main): Parse new options. + Wed Aug 16 16:26:52 1995 steve chamberlain * dlltool.c (gen_exp_file): Fix RVA handling. diff --git a/binutils/dlltool.c b/binutils/dlltool.c index d8ac895b73c..304d2771ded 100644 --- a/binutils/dlltool.c +++ b/binutils/dlltool.c @@ -74,8 +74,6 @@ on the command line, or in the def file, or taken from the first supplied argument. - The output files are -exp.s and -lib.s - The .exp.s file contains the information necessary to export the routines in the DLL. The .lib.s file contains the information necessary to use the DLL's routines from a referencing program. @@ -147,21 +145,16 @@ ranlib thedll.in # run this tool over the library and the def file - ./dlltool -o thedll -d thedll.def thedll.in + ./dlltool --def thedll.def --output-exp thedll.o --output-lib thedll.a - # build the export table for the dll - as -o thedll.exp thedll-exp.s # build the dll with the library with file1.o, file2.o and the export table - ld -o thedll.dll thedll.exp thedll.in - - # build the import table for the executable - as -o thedll.lib thedll-lib.s + ld -o thedll.dll thedll.o thedll.in # build the mainline gcc -c themain.c # link the executable with the import library - ld -e main -Tthemain.ld -o themain.exe themain.o thedll.lib + ld -e main -Tthemain.ld -o themain.exe themain.o thedll.a */ @@ -172,14 +165,25 @@ #include #include "getopt.h" #include "bfd.h" +#include + +char *ar_name = "ar"; +char *as_name = "as"; +char *ranlib_name = "ranlib"; +long rva = 0x400000; +char *exp_name; +char *imp_name; +char *dll_name; + +int deltemps = 1; int yydebug; char *def_file; + char *program_name; char *strrchr (); -char *outfile_prefix; char *xmalloc (); char *strdup (); @@ -210,24 +214,36 @@ struct mac char *how_global; char *how_space; char *how_align_short; - char *how_rva_before; - char *how_rva_after; } mtable[] = { { - "arm", ".byte", ".short", ".long", ".asciz", "@", "ldr\tip,[pc]\n\tldr\tpc,[ip]\n\t.long", ".global", ".space",".align\t2","(",")-0x400000" + "arm", ".byte", ".short", ".long", ".asciz", "@", "ldr\tip,[pc]\n\tldr\tpc,[ip]\n\t.long", ".global", ".space", ".align\t2", } , { - "i386", ".byte", ".short", ".long", ".asciz", "#", "jmp *", ".global", ".space",".align\t2", -"(",")-0x400000" + "i386", ".byte", ".short", ".long", ".asciz", "#", "jmp *", ".global", ".space", ".align\t2", + } , 0 }; + +char *rvaafter (machine) +int machine; +{ + char b[20]; + sprintf(b,")-0x%x", rva); + return strdup (b); +} + +char *rvabefore (machine) +int machine; +{ + return "("; +} #define ASM_BYTE mtable[machine].how_byte #define ASM_SHORT mtable[machine].how_short #define ASM_LONG mtable[machine].how_long @@ -237,8 +253,8 @@ mtable[] #define ASM_GLOBAL mtable[machine].how_global #define ASM_SPACE mtable[machine].how_space #define ASM_ALIGN_SHORT mtable[machine].how_align_short -#define ASM_RVA_BEFORE mtable[machine].how_rva_before -#define ASM_RVA_AFTER mtable[machine].how_rva_after +#define ASM_RVA_BEFORE rvabefore(machine) +#define ASM_RVA_AFTER rvaafter(machine) static char **oav; @@ -289,7 +305,6 @@ static char *d_name; /* Arg to NAME or LIBRARY */ static int d_nfuncs; /* Number of functions exported */ static int d_ord; /* Base ordinal index */ static export_type *d_exports; /*list of exported functions */ -static char *d_suffix = "dll"; static dlist_type *d_list; /* Descriptions */ static dlist_type *a_list; /* Stuff to go in directives */ @@ -335,8 +350,6 @@ def_name (name, base) fprintf (stderr, "Can't have LIBRARY and NAME\n"); } d_name = name; - if (strchr (d_name, '.')) - d_suffix = strdup (strchr (d_name, '.') + 1); d_is_exe = 1; } @@ -352,8 +365,6 @@ def_library (name, base) fprintf (stderr, "%s: Can't have LIBRARY and NAME\n", program_name); } d_name = name; - if (strchr (d_name, '.')) - d_suffix = strdup (strchr (d_name, '.') + 1); d_is_dll = 1; } @@ -367,7 +378,7 @@ def_description (desc) d_list = d; } -void +void new_directive (dir) char *dir; { @@ -460,8 +471,78 @@ def_data (attr) /**********************************************************************/ +void +run (what, args) + char *what; + char *args; +{ + char *s; + int pid; + int i; + char **argv; + extern char **environ; + if (verbose) + fprintf (stderr, "%s %s\n", what, args); + + /* Count the args */ + i = 0; + for (s = args; *s ; s++) + if (*s == ' ') + i++; + i++; + argv = alloca (sizeof (char *) * (i + 3)); + i = 0; + argv[i++] = what; + s = args; + while (1) { + argv[i++] = s; + while (*s != ' ' && *s != 0) + s++; + if (*s == 0) + break; + *s++ = 0; + } + argv[i++] = 0; + + + pid = vfork (); + if (pid == 0) + { + execvp (what, argv); + fprintf (stderr, "%s: can't exec %s\n", program_name, what); + exit (1); + } + else if (pid == -1) + { + extern int errno; + fprintf (stderr, "%s: vfork failed, %d\n", program_name, errno); + exit (1); + } + else + { + int status; + waitpid (pid, &status); + if (status) + { + if (WIFSIGNALED (status)) + { + fprintf (stderr, "%s: %s %s terminated with signal %d\n", + program_name, what, args, WTERMSIG (status)); + exit (1); + } + + if (WIFEXITED (status)) + { + fprintf (stderr, "%s: %s %s terminated with exit status %d\n", + program_name, what, args, WEXITSTATUS (status)); + exit (1); + } + } + } +} + /* read in and block out the base relocations */ -static void +static void basenames (abfd) bfd *abfd; { @@ -531,8 +612,8 @@ scan_obj_file (filename) if (!f) { - fprintf (stderr, "%s: Unable to open object file %s\n", - program_name, + fprintf (stderr, "%s: Unable to open object file %s\n", + program_name, filename); exit (1); } @@ -607,7 +688,7 @@ sfunc (a, b) -static void +static void flush_page (f, need, page_addr, on_page) FILE *f; long *need; @@ -646,11 +727,11 @@ gen_exp_file () dlist_type *dl; int had_noname = 0; - sprintf (outfile, "%s-exp.s", outfile_prefix); + sprintf (outfile, "t%s", exp_name); if (verbose) fprintf (stderr, "%s: Generate exp file %s\n", - program_name, outfile_prefix); + program_name, exp_name); f = fopen (outfile, "w"); if (!f) @@ -670,7 +751,7 @@ gen_exp_file () fprintf (f, "\t%s %d %s Time and date\n", ASM_LONG, time (0), ASM_C); fprintf (f, "\t%s 0 %s Major and Minor version\n", ASM_LONG, ASM_C); fprintf (f, "\t%s %sname%s%s Ptr to name of dll\n", ASM_LONG, ASM_RVA_BEFORE, - ASM_RVA_AFTER,ASM_C); + ASM_RVA_AFTER, ASM_C); fprintf (f, "\t%s %d %s Starting ordinal of exports\n", ASM_LONG, d_ord, ASM_C); fprintf (f, "\t%s The next field is documented as being the number of functions\n", ASM_C); fprintf (f, "\t%s yet it doesn't look like that in real PE dlls\n", ASM_C); @@ -678,14 +759,14 @@ gen_exp_file () fprintf (f, "\t%s always the number of names field\n", ASM_C); fprintf (f, "\t%s %d %s Number of functions\n", ASM_LONG, d_nfuncs, ASM_C); fprintf (f, "\t%s %d %s Number of names\n", ASM_LONG, d_nfuncs, ASM_C); - fprintf (f, "\t%s %safuncs%s %s Address of functions\n", ASM_LONG, - ASM_RVA_BEFORE, ASM_RVA_AFTER,ASM_C); - fprintf (f, "\t%s %sanames%s %s Address of names\n", ASM_LONG, - ASM_RVA_BEFORE, ASM_RVA_AFTER,ASM_C); - fprintf (f, "\t%s %sanords%s %s Address of ordinals\n", ASM_LONG, - ASM_RVA_BEFORE, ASM_RVA_AFTER,ASM_C); + fprintf (f, "\t%s %safuncs%s %s Address of functions\n", ASM_LONG, + ASM_RVA_BEFORE, ASM_RVA_AFTER, ASM_C); + fprintf (f, "\t%s %sanames%s %s Address of names\n", ASM_LONG, + ASM_RVA_BEFORE, ASM_RVA_AFTER, ASM_C); + fprintf (f, "\t%s %sanords%s %s Address of ordinals\n", ASM_LONG, + ASM_RVA_BEFORE, ASM_RVA_AFTER, ASM_C); - fprintf (f, "name: %s \"%s.%s\"\n", ASM_TEXT, outfile_prefix, d_suffix); + fprintf (f, "name: %s \"%s\"\n", ASM_TEXT, dll_name); fprintf (f, "afuncs:\n"); i = d_ord; @@ -703,7 +784,7 @@ gen_exp_file () } #endif fprintf (f, "\t%s\t%s%s%s%s %d\n", ASM_LONG, ASM_RVA_BEFORE, - exp->internal_name,ASM_RVA_AFTER, ASM_C, exp->ordinal); + exp->internal_name, ASM_RVA_AFTER, ASM_C, exp->ordinal); i++; } @@ -718,7 +799,7 @@ gen_exp_file () } else { - fprintf (f, "\t%s %sn%d%s\n", ASM_LONG, ASM_RVA_BEFORE,i,ASM_RVA_AFTER); + fprintf (f, "\t%s %sn%d%s\n", ASM_LONG, ASM_RVA_BEFORE, i, ASM_RVA_AFTER); } } @@ -797,7 +878,7 @@ gen_exp_file () qsort (copy, num_entries, sizeof (long), sfunc); addr = copy[0]; - page_addr = addr & PAGE_MASK; /* work out the page addr */ + page_addr = addr & PAGE_MASK; /* work out the page addr */ on_page = 0; for (j = 0; j < num_entries; j++) { @@ -812,10 +893,19 @@ gen_exp_file () } flush_page (f, need, page_addr, on_page); - fprintf (f, "\t%s\t0,0\t%s End\n",ASM_LONG, ASM_C); + fprintf (f, "\t%s\t0,0\t%s End\n", ASM_LONG, ASM_C); } fclose (f); + + /* assemble the file */ + sprintf (outfile,"-o %s t%s", exp_name, exp_name); + run (as_name, outfile); + if (deltemps) + { + sprintf (outfile,"t%s", exp_name); + unlink (outfile); + } } static char * @@ -827,55 +917,50 @@ xlate (char *name) if (name[0] == '_') name++; - if (killat) { - char *p; - p = strchr (name, '@'); - if (p) - *p = 0; - } + if (killat) + { + char *p; + p = strchr (name, '@'); + if (p) + *p = 0; + } return name; } + /**********************************************************************/ gen_lib_file () { int i; + int sol; FILE *f; export_type *exp; + char *output_filename; + char prefix[PATHMAX]; - sprintf (outfile, "%s-lib.s", outfile_prefix); + sprintf (outfile, "%s", imp_name); + output_filename = strdup (outfile); - f = fopen (outfile, "w"); - if (!f) - { - fprintf (stderr, "Unable to open output file %s\n", outfile); - exit (1); - } + unlink (output_filename); + strcpy (prefix, "d"); + sprintf (outfile, "%sh.s", prefix); - dump_def_info (f); - fprintf (f, "\t.text\n"); - fprintf (f, "%s Thunk table\n", ASM_C); - for (i = 0, exp = d_exports; exp; i++, exp = exp->next) - { - fprintf (f, "\t%s\t%s\n", ASM_GLOBAL, exp->name); - fprintf (f, "\t%s\t__imp_%s\n", ASM_GLOBAL, exp->name); - } - - for (i = 0, exp = d_exports; exp; i++, exp = exp->next) - { - fprintf (f, "%s:\t%s\t__imp_%s\n", exp->name, ASM_JUMP, exp->name); - } - + f = fopen (outfile, "w"); fprintf (f, "%s IMAGE_IMPORT_DESCRIPTOR\n", ASM_C); fprintf (f, "\t.section .idata$2\n"); - fprintf (f, "\t%s\t%shname%s\t%sPtr to image import by name list\n", ASM_LONG, + + fprintf (f, "\t%s\t__%s_head\n", ASM_GLOBAL, imp_name); + fprintf (f, "__%s_head:\n", imp_name); + + fprintf (f, "\t%s\t%shname%s\t%sPtr to image import by name list\n", ASM_LONG, ASM_RVA_BEFORE, ASM_RVA_AFTER, ASM_C); fprintf (f, "\t%s\t%d\t%s time\n", ASM_LONG, time (0), ASM_C); fprintf (f, "\t%s\t0\t%s Forwarder chain\n", ASM_LONG, ASM_C); - fprintf (f, "\t%s\t%siname%s\t%s imported dll's name\n", ASM_LONG, + fprintf (f, "\t%s\t%s__%s_iname%s\t%s imported dll's name\n", ASM_LONG, ASM_RVA_BEFORE, + imp_name, ASM_RVA_AFTER, ASM_C); fprintf (f, "\t%s\t%sfthunk%s\t%s pointer to firstthunk\n", ASM_LONG, @@ -883,57 +968,131 @@ gen_lib_file () ASM_RVA_AFTER, ASM_C); fprintf (f, "%sStuff for compatibility\n", ASM_C); -#if 0 - fprintf (f, "\t.section\t.idata$3\n"); - fprintf (f, "\t%s\t0\n", ASM_LONG); - fprintf (f, "\t%s\t0\n", ASM_LONG); - fprintf (f, "\t%s\t0\n", ASM_LONG); - fprintf (f, "\t%s\t0\n", ASM_LONG); - fprintf (f, "\t%s\t0\n", ASM_LONG); -#endif - fprintf (f, "\t.section\t.idata$5\n"); fprintf (f, "\t%s\t0\n", ASM_LONG); - + fprintf (f, "fthunk:\n"); fprintf (f, "\t.section\t.idata$4\n"); fprintf (f, "\t%s\t0\n", ASM_LONG); + fprintf (f, "\t.section .idata$4\n"); + fprintf (f, "hname:\n"); + + fclose (f); + + sprintf (outfile, "-o %sh.o %sh.s", prefix, prefix); + run (as_name, outfile); - fprintf (f, "\n%s Loader modifies this\n", ASM_C); - fprintf (f, "\t.section .idata$5\n"); - fprintf (f, "fthunk:\n"); for (i = 0, exp = d_exports; exp; i++, exp = exp->next) { + sprintf (outfile, "%ss%d.s", prefix, i); + f = fopen (outfile, "w"); + fprintf (f, "\n\n\n%s ********************* \n", ASM_C); + fprintf (f, "\t.text\n"); + fprintf (f, "\t%s\t%s\n", ASM_GLOBAL, exp->name); + fprintf (f, "%s:\n\t%s\t__imp_%s\n", exp->name, ASM_JUMP, exp->name); + + fprintf (f, "\t.section\t.idata$7\t%s To force loading of head and tail\n", ASM_C); + fprintf (f, "\t%s\t__%s_head\n", ASM_LONG, imp_name); + fprintf (f, "\t%s\t__%s_tail\n", ASM_LONG, imp_name); + + fprintf (f, "\t.section .idata$5\n"); + + fprintf (f, "__imp_%s:\n", exp->name); fprintf (f, "\t%s\t%sID%d%s\n", ASM_LONG, ASM_RVA_BEFORE, i, ASM_RVA_AFTER); + + fprintf (f, "\n%s Hint name array\n", ASM_C); + fprintf (f, "\t.section .idata$4\n"); + fprintf (f, "\t%s\t%sID%d%s\n", ASM_LONG, ASM_RVA_BEFORE, + i, + ASM_RVA_AFTER); + + fprintf (f, "%s Hint/name array storage and import dll name\n", ASM_C); + fprintf (f, "\t.section .idata$6\n"); + + fprintf (f, "\t%s\n", ASM_ALIGN_SHORT); + fprintf (f, "ID%d:\t%s\t%d\n", i, ASM_SHORT, exp->ordinal); + fprintf (f, "\t%s\t\"%s\"\n", ASM_TEXT, xlate (exp->name)); + fclose (f); + + + sprintf (outfile, "-o %ss%d.o %ss%d.s", prefix, i, prefix, i); + run (as_name, outfile); } + + sprintf (outfile, "%st.s", prefix); + f = fopen (outfile, "w"); + + fprintf (f, "\t%s\t__%s_tail\n", ASM_GLOBAL, imp_name); + fprintf (f, "\t%s\t__%s_iname\n", ASM_GLOBAL, imp_name); + fprintf (f, "__%s_tail:\n", imp_name); + fprintf (f, "\t%s\t0\n", ASM_LONG); + fprintf (f, "__%s_iname:\t%s\t\"%s\"\n", + imp_name, ASM_TEXT, dll_name); + - fprintf (f, "\n%s Hint name array\n", ASM_C); fprintf (f, "\t.section .idata$4\n"); - fprintf (f, "hname:\n"); + fprintf (f, "\t%s\t0\n", ASM_LONG); + + fprintf (f, "\t.section .idata$5\n"); + fprintf (f, "\t%s\t0\n", ASM_LONG); + fclose (f); + + sprintf (outfile, "-o %st.o %st.s", prefix, prefix); + run (as_name, outfile); + + /* Now stick them all into the archive */ + + + sprintf (outfile, "crs %s %sh.o %st.o", output_filename, prefix, prefix); + run (ar_name, outfile); + + /* Do the rest in groups of however many fit into a command line */ + sol = 0; for (i = 0, exp = d_exports; exp; i++, exp = exp->next) { - fprintf (f, "\t%s\t%sID%d%s\n", ASM_LONG, ASM_RVA_BEFORE, - i, - ASM_RVA_AFTER); + if (sol == 0) + { + sol = sprintf (outfile, "crs %s", output_filename); + } + + sol += sprintf (outfile + sol, " %ss%d.o", prefix, i); + + if (sol >100) + { + run (ar_name, outfile); + sol = 0; + } + } + if (sol) + run (ar_name, outfile); - fprintf (f, "\t%s\t0\n", ASM_LONG); - fprintf (f, "%s Hint/name array storage and import dll name\n", ASM_C); - fprintf (f, "\t.section .idata$6\n"); + /* Delete all the temp files */ + if (deltemps) + { + sprintf (outfile, "%sh.o", prefix); + unlink (outfile); + sprintf (outfile, "%sh.s", prefix); + unlink (outfile); + sprintf (outfile, "%st.o", prefix); + unlink (outfile); + sprintf (outfile, "%st.s", prefix); + unlink (outfile); + } + /* Always delete these */ for (i = 0, exp = d_exports; exp; i++, exp = exp->next) { - fprintf (f,"\t%s\n", ASM_ALIGN_SHORT); - fprintf (f, "ID%d:\t%s\t%d\n", i, ASM_SHORT, exp->ordinal); - fprintf (f, "\t%s\t\"%s\"\n", ASM_TEXT, xlate (exp->name)); + sprintf (outfile, "%ss%d.o", prefix, i); + unlink (outfile); + sprintf (outfile, "%ss%d.s", prefix, i); + unlink (outfile); } - fprintf (f, "\t%s\t0\n", ASM_LONG); - fprintf (f, "iname:\t%s\t\"%s.%s\"\n", ASM_TEXT, outfile_prefix, d_suffix); - fclose (f); + } /**********************************************************************/ @@ -1148,6 +1307,66 @@ mangle_defs () } + + /* Work out exec prefix from the name of this file */ +void +workout_prefix () +{ + char *ps = 0; + char *s = 0; + char *p; + /* See if we're running in a devo tree */ + for (p = program_name; *p; p++) + { + if (*p == '/' || *p == '\\') + { + ps = s; + s = p; + } + } + + if (ps && strncmp (ps, "/binutils", 9) == 0) + { + /* running in the binutils directory, the other + executables will be surrounding it in the usual places. */ + int len = ps - program_name; + ar_name = xmalloc (len + strlen ("/binutils/ar") + 1); + ranlib_name = xmalloc (len + strlen ("/binutils/ranlib") + 1); + as_name = xmalloc (len + strlen ("/gas/as.new") + 1); + + strncpy (ar_name, program_name, len); + strcat (ar_name, "/binutils/ar"); + strncpy (ranlib_name, program_name, len); + strcat (ranlib_name, "/binutils/ranlib"); + strncpy (as_name, program_name, len); + strcat (as_name, "/gas/as.new"); + } + else + { + /* Otherwise chop off any prefix and use it for the rest of the progs, + so i386-win32-dll generates i386-win32-ranlib etc etc */ + + for (p = program_name; *p; p++) + { + if (strncmp (p, "dlltool", 7) == 0) + { + int len = p - program_name; + ar_name = xmalloc (len + strlen ("ar") +1); + ranlib_name = xmalloc (len + strlen ("ranlib")+1); + as_name = xmalloc (len + strlen ("as")+1); + + strncpy (ar_name, program_name, len); + strcat (ar_name, "ar"); + strncpy (ranlib_name, program_name, len); + strcat (ranlib_name, "ranlib"); + strncpy (as_name, program_name, len); + strcat (as_name, "as"); + } + } + } +} + + /**********************************************************************/ void @@ -1158,7 +1377,11 @@ usage (file, status) fprintf (file, "Usage %s \n", program_name); fprintf (file, "\t -m Generate code for \n"); fprintf (file, "\t --machine \n"); - fprintf (file, "\t -o Set output prefix\n"); + fprintf (file, "\t --output-exp Generate export file.\n"); + fprintf (file, "\t -e \n"); + fprintf (file, "\t --output-lib Generate input library.\n"); + fprintf (file, "\t -l "); + fprintf (file, "\t --dllname Name of input dll to put into output lib.\n"); fprintf (file, "\t -d Name input .def file\n"); fprintf (file, "\t --def \n"); fprintf (file, "\t --base-file Read linker generated base file\n"); @@ -1166,20 +1389,31 @@ usage (file, status) fprintf (file, "\t -v Verbose\n"); fprintf (file, "\t -u Remove leading underscore from .lib\n"); fprintf (file, "\t -k Kill @ from exported names\n"); + fprintf (file, "\t --rva Set the RVA from the default of 0x400000\n"); + fprintf (file, "\t -r \n"); + fprintf (file, "\t --nodelete Keep temp files.\n"); + fprintf (file, "\t -n \n"); exit (status); } static struct option long_options[] = { + {"nodelete", no_argument, NULL,'n'}, + {"dllname", required_argument, NULL,'D'}, + {"output-exp", required_argument, NULL, 'e'}, + {"output-lib", required_argument, NULL, 'l'}, {"def", required_argument, NULL, 'd'}, {"underscore", no_argument, NULL, 'u'}, {"killat", no_argument, NULL, 'k'}, {"help", no_argument, NULL, 'h'}, {"machine", required_argument, NULL, 'm'}, + {"rva", required_argument, NULL, 'r'}, {"base-file", required_argument, NULL, 'b'}, 0 }; + + int main (ac, av) int ac; @@ -1190,10 +1424,19 @@ main (ac, av) program_name = av[0]; oav = av; - while ((c = getopt_long (ac, av, "kvbuh?m:o:Dd:", long_options, 0)) != EOF) + while ((c = getopt_long (ac, av, "D:l:e:nr:kvbuh?m:yd:", long_options, 0)) != EOF) { switch (c) { + case 'D': + dll_name = optarg; + break; + case 'l': + imp_name = optarg; + break; + case 'e': + exp_name = optarg; + break; case 'h': case '?': usage (stderr, 0); @@ -1201,13 +1444,13 @@ main (ac, av) case 'm': mname = optarg; break; - case 'o': - outfile_prefix = optarg; + case 'r': + rva = strtoul (optarg, 0,0); break; case 'v': verbose = 1; break; - case 'D': + case 'y': yydebug = 1; break; case 'u': @@ -1219,6 +1462,9 @@ main (ac, av) case 'd': def_file = optarg; break; + case 'n': + deltemps = 0; + break; case 'b': base_file = fopen (optarg, "r"); if (!base_file) @@ -1249,6 +1495,16 @@ main (ac, av) machine = i; + if (!dll_name && exp_name) + { + char len = strlen (exp_name) + 5; + dll_name = xmalloc (len); + strcpy (dll_name, exp_name); + strcat (dll_name, ".dll"); + } + workout_prefix (); + + if (def_file) { process_def_file (def_file); @@ -1261,31 +1517,15 @@ main (ac, av) optind++; } - if (!outfile_prefix) - { - if (d_name) - outfile_prefix = d_name; - else if (def_file) - outfile_prefix = def_file; - else if (firstarg) - outfile_prefix = firstarg; - else - { - fprintf (stderr, "No way to create an output filename\n"); - exit (1); - } - } - outfile_prefix = prefix (outfile_prefix); - if (verbose) - fprintf (stderr, "%s: Outfile prefix is %s\n", - program_name, outfile_prefix); mangle_defs (); - gen_exp_file (); - - - gen_lib_file (); + if (exp_name) + gen_exp_file (); + if (imp_name) + gen_lib_file (); return 0; } + +