mirrors/make
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/make.git synced 2024-12-29 08:09:02 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Formerly commands.c.~17~

Browse source
This commit is contained in:
Roland McGrath 1993-02-21 20:05:54 +00:00
parent 4034f2bdfb
commit b50f2fc0a6
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
commands.c
View file

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