mirrors/make-dfsg
1
0
Fork 0
mirror of https://salsa.debian.org/srivasta/make-dfsg.git synced 2025-01-30 16:41:44 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

(parse_file_seq): Rearranged l(a b)' -> l(a) l(b)' loop to not

Browse source 
skip the elt immediately preceding `l(...'.
This commit is contained in:
Roland McGrath 1995-03-13 05:45:44 +00:00
parent deb7cced6e
commit cbfc50cb51
1 changed files with 15 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
read.c
View file

@ -1582,7 +1582,9 @@ parse_file_seq (stringp, stopchar, size, strip)
an elt further down the chain (i.e., previous in the file list) an elt further down the chain (i.e., previous in the file list)
with an unmatched `(' (e.g., "lib(mem"). */ with an unmatched `(' (e.g., "lib(mem"). */
for (new1 = new, lastnew1 = 0; new1 != 0; lastnew1 = new1, new1 = new1->next) new1 = new;
lastnew1 = 0;
while (new1 != 0)
if (new1->name[0] != '(' /* Don't catch "(%)" and suchlike. */ if (new1->name[0] != '(' /* Don't catch "(%)" and suchlike. */
&& new1->name[strlen (new1->name) - 1] == ')' && new1->name[strlen (new1->name) - 1] == ')'
&& index (new1->name, '(') == 0) && index (new1->name, '(') == 0)
@ -1663,14 +1665,21 @@ parse_file_seq (stringp, stopchar, size, strip)
name = concat (libname, new1->name, ")"); name = concat (libname, new1->name, ")");
free (new1->name); free (new1->name);
new1->name = name; new1->name = name;
lastnew1 = new1;
new1 = new1->next; new1 = new1->next;
} }
if (new1 == 0)
/* We might have slurped up the whole list,
and continuing the loop would dereference NEW1. */
break;
} }
else
{
/* No frobnication happening. Just step down the list. */
lastnew1 = new1;
new1 = new1->next;
}
}
else
{
lastnew1 = new1;
new1 = new1->next;
} }
#endif #endif