mirrors/make
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/make.git synced 2024-12-28 15:57:48 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Formerly variable.c.~22~

Browse source
This commit is contained in:
Roland McGrath 1993-07-15 00:22:56 +00:00
parent ca3b88c66a
commit fc8fa16253
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
variable.c
View file

@ -389,6 +389,7 @@ define_automatic_variables ()
int export_all_variables; int export_all_variables;
/* Create a new environment for FILE's commands. /* Create a new environment for FILE's commands.
If FILE is nil, this is for the `shell' function.
The child's MAKELEVEL variable is incremented. */ The child's MAKELEVEL variable is incremented. */
char ** char **
@ -408,14 +409,18 @@ target_environment (file)
char **result; char **result;
unsigned int mklev_hash; unsigned int mklev_hash;
if (file == 0)
s = current_variable_set_list;
else
s = file->variables;
/* Find the lowest number of buckets in any set in the list. */ /* Find the lowest number of buckets in any set in the list. */
s = file->variables;
buckets = s->set->buckets; buckets = s->set->buckets;
for (s = s->next; s != 0; s = s->next) for (s = s->next; s != 0; s = s->next)
if (s->set->buckets < buckets) if (s->set->buckets < buckets)
buckets = s->set->buckets; buckets = s->set->buckets;
/* Find the hash value of `MAKELEVEL' will fall into. */ /* Find the hash value of the bucket `MAKELEVEL' will fall into. */
{ {
char *p = "MAKELEVEL"; char *p = "MAKELEVEL";
mklev_hash = 0; mklev_hash = 0;