Formerly commands.c.~17~

This commit is contained in:
Roland McGrath 1993-02-21 20:05:54 +00:00
parent 4034f2bdfb
commit b50f2fc0a6

View file

@ -44,11 +44,15 @@ set_file_variables (file)
if (ar_name (file->name))
{
unsigned int len;
p = index (file->name, '(');
at = (char *) alloca (p - file->name + 1);
bcopy (file->name, at, p - file->name);
at[p - file->name] = '\0';
percent = p + 1;
len = strlen (p + 1);
percent = (char *) alloca (len);
bcopy (p + 1, percent, len - 1);
percent[len - 1] = '\0';
}
else
#endif /* NO_ARCHIVES. */