+Mon Jul 3 14:16:47 1995 Steve Chamberlain <sac@slash.cygnus.com>
+
+ * configure.in (i386-*-win32): New configuration.
+ * dlltool.c (killat, xlate, usage, long_options, main):
+ Understand and cope with -k option.
+
Sat Jul 1 12:25:15 1995 Fred Fish <fnf@cygnus.com>
* ar.c: (extract_file): Change "#if POSIX_UTIME" to
static int machine;
int suckunderscore;
+int killat;
static int verbose;
FILE *base_file;
#ifdef DLLTOOL_ARM
static char *
xlate (char *name)
{
- char *p;
+
if (!suckunderscore)
return name;
if (name[0] == '_')
name++;
- p = strchr (name, '@');
- if (p)
- *p = 0;
+ if (killat) {
+ char *p;
+ p = strchr (name, '@');
+ if (p)
+ *p = 0;
+ }
return name;
}
fprintf (file, "\t --base-file <basefile> Read linker generated base file\n");
fprintf (file, "\t -b <basefile> \n");
fprintf (file, "\t -v Verbose\n");
-
+ fprintf (file, "\t -u Remove leading underscore from .lib\n");
+ fprintf (file, "\t -k Kill @<n> from exported names\n");
exit (status);
}
{
{"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'},
{"base-file", required_argument, NULL, 'b'},
program_name = av[0];
oav = av;
- while ((c = getopt_long (ac, av, "vbuh?m:o:Dd:", long_options, 0)) != EOF)
+ while ((c = getopt_long (ac, av, "kvbuh?m:o:Dd:", long_options, 0)) != EOF)
{
switch (c)
{
case 'u':
suckunderscore = 1;
break;
+ case 'k':
+ killat = 1;
+ break;
case 'd':
def_file = optarg;
break;