From: Akim Demaille Date: Mon, 5 Mar 2001 13:23:27 +0000 (+0000) Subject: * automake.in (&handle_single_transform_list, &add_depend2): Let X-Git-Tag: handle-languages~193 X-Git-Url: https://sourceware.org/git/?a=commitdiff_plain;h=5b5034384a92df92fbc9562336a109c2bea7e214;p=automake.git * automake.in (&handle_single_transform_list, &add_depend2): Let $lang_specific_files{$lang} be a list instead of a string. --- diff --git a/ChangeLog b/ChangeLog index 3c0e553a..16d5e926 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2001-03-05 Akim Demaille + + * automake.in (&handle_single_transform_list, &add_depend2): Let + $lang_specific_files{$lang} be a list instead of a string. + 2001-03-05 Akim Demaille Let's make it run ten times faster... diff --git a/automake.in b/automake.in index f64574ee..964b5501 100755 --- a/automake.in +++ b/automake.in @@ -1318,9 +1318,8 @@ sub handle_single_transform_list $rule = ''; my $obj_sans_ext = substr ($object, 0, - length ($this_obj_ext)); - $lang_specific_files{$lang} .= (' ' . $derived - . ' ' . $full - . ' ' . $obj_sans_ext); + push (@{$lang_specific_files{$lang}}, + "$derived $full $obj_sans_ext"); } } elsif ($extension eq 'o') @@ -2783,17 +2782,10 @@ sub add_depend2 # Now include code for each specially handled object with this # language. - my @list = grep ($_ ne '', split (' ', $lang_specific_files{$lang})); - my $max = scalar @list; - my $i = 0; - my ($derived, $source, $obj); my %seen_files = (); - while ($i < $max) + foreach my $file (@{$lang_specific_files{$lang}}) { - $derived = $list[$i]; - $source = $list[$i + 1]; - $obj = $list[$i + 2]; - $i += 3; + my ($derived, $source, $obj) = split (' ', $file); # We might see a given object twice, for instance if it is # used under different conditions.