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.
This commit is contained in:
Steve Chamberlain
1995-07-03 21:20:26 +00:00
parent bd676d26ea
commit 002898399e
2 changed files with 21 additions and 6 deletions

View File

@ -1,3 +1,9 @@
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> Sat Jul 1 12:25:15 1995 Fred Fish <fnf@cygnus.com>
* ar.c: (extract_file): Change "#if POSIX_UTIME" to * ar.c: (extract_file): Change "#if POSIX_UTIME" to

View File

@ -182,6 +182,7 @@ char *strdup ();
static int machine; static int machine;
int suckunderscore; int suckunderscore;
int killat;
static int verbose; static int verbose;
FILE *base_file; FILE *base_file;
#ifdef DLLTOOL_ARM #ifdef DLLTOOL_ARM
@ -800,15 +801,18 @@ gen_exp_file ()
static char * static char *
xlate (char *name) xlate (char *name)
{ {
char *p;
if (!suckunderscore) if (!suckunderscore)
return name; return name;
if (name[0] == '_') if (name[0] == '_')
name++; name++;
p = strchr (name, '@'); if (killat) {
if (p) char *p;
*p = 0; p = strchr (name, '@');
if (p)
*p = 0;
}
return name; return name;
} }
@ -1125,7 +1129,8 @@ usage (file, status)
fprintf (file, "\t --base-file <basefile> Read linker generated base file\n"); fprintf (file, "\t --base-file <basefile> Read linker generated base file\n");
fprintf (file, "\t -b <basefile> \n"); fprintf (file, "\t -b <basefile> \n");
fprintf (file, "\t -v Verbose\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); exit (status);
} }
@ -1133,6 +1138,7 @@ static struct option long_options[] =
{ {
{"def", required_argument, NULL, 'd'}, {"def", required_argument, NULL, 'd'},
{"underscore", no_argument, NULL, 'u'}, {"underscore", no_argument, NULL, 'u'},
{"killat", no_argument, NULL, 'k'},
{"help", no_argument, NULL, 'h'}, {"help", no_argument, NULL, 'h'},
{"machine", required_argument, NULL, 'm'}, {"machine", required_argument, NULL, 'm'},
{"base-file", required_argument, NULL, 'b'}, {"base-file", required_argument, NULL, 'b'},
@ -1149,7 +1155,7 @@ main (ac, av)
program_name = av[0]; program_name = av[0];
oav = av; 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) switch (c)
{ {
@ -1172,6 +1178,9 @@ main (ac, av)
case 'u': case 'u':
suckunderscore = 1; suckunderscore = 1;
break; break;
case 'k':
killat = 1;
break;
case 'd': case 'd':
def_file = optarg; def_file = optarg;
break; break;