| @@ -1,14 +1,14 @@ | | | @@ -1,14 +1,14 @@ |
1 | /* $NetBSD: var.c,v 1.882 2021/03/14 20:18:33 rillig Exp $ */ | | 1 | /* $NetBSD: var.c,v 1.883 2021/03/14 20:23:29 rillig Exp $ */ |
2 | | | 2 | |
3 | /* | | 3 | /* |
4 | * Copyright (c) 1988, 1989, 1990, 1993 | | 4 | * Copyright (c) 1988, 1989, 1990, 1993 |
5 | * The Regents of the University of California. All rights reserved. | | 5 | * The Regents of the University of California. All rights reserved. |
6 | * | | 6 | * |
7 | * This code is derived from software contributed to Berkeley by | | 7 | * This code is derived from software contributed to Berkeley by |
8 | * Adam de Boor. | | 8 | * Adam de Boor. |
9 | * | | 9 | * |
10 | * Redistribution and use in source and binary forms, with or without | | 10 | * Redistribution and use in source and binary forms, with or without |
11 | * modification, are permitted provided that the following conditions | | 11 | * modification, are permitted provided that the following conditions |
12 | * are met: | | 12 | * are met: |
13 | * 1. Redistributions of source code must retain the above copyright | | 13 | * 1. Redistributions of source code must retain the above copyright |
14 | * notice, this list of conditions and the following disclaimer. | | 14 | * notice, this list of conditions and the following disclaimer. |
| @@ -130,27 +130,27 @@ | | | @@ -130,27 +130,27 @@ |
130 | #include <regex.h> | | 130 | #include <regex.h> |
131 | #endif | | 131 | #endif |
132 | #include <errno.h> | | 132 | #include <errno.h> |
133 | #include <inttypes.h> | | 133 | #include <inttypes.h> |
134 | #include <limits.h> | | 134 | #include <limits.h> |
135 | #include <time.h> | | 135 | #include <time.h> |
136 | | | 136 | |
137 | #include "make.h" | | 137 | #include "make.h" |
138 | #include "dir.h" | | 138 | #include "dir.h" |
139 | #include "job.h" | | 139 | #include "job.h" |
140 | #include "metachar.h" | | 140 | #include "metachar.h" |
141 | | | 141 | |
142 | /* "@(#)var.c 8.3 (Berkeley) 3/19/94" */ | | 142 | /* "@(#)var.c 8.3 (Berkeley) 3/19/94" */ |
143 | MAKE_RCSID("$NetBSD: var.c,v 1.882 2021/03/14 20:18:33 rillig Exp $"); | | 143 | MAKE_RCSID("$NetBSD: var.c,v 1.883 2021/03/14 20:23:29 rillig Exp $"); |
144 | | | 144 | |
145 | typedef enum VarFlags { | | 145 | typedef enum VarFlags { |
146 | VFL_NONE = 0, | | 146 | VFL_NONE = 0, |
147 | | | 147 | |
148 | /* | | 148 | /* |
149 | * The variable's value is currently being used by Var_Parse or | | 149 | * The variable's value is currently being used by Var_Parse or |
150 | * Var_Subst. This marker is used to avoid endless recursion. | | 150 | * Var_Subst. This marker is used to avoid endless recursion. |
151 | */ | | 151 | */ |
152 | VFL_IN_USE = 1 << 0, | | 152 | VFL_IN_USE = 1 << 0, |
153 | | | 153 | |
154 | /* | | 154 | /* |
155 | * The variable comes from the environment. | | 155 | * The variable comes from the environment. |
156 | * These variables are not registered in any GNode, therefore they | | 156 | * These variables are not registered in any GNode, therefore they |
| @@ -451,33 +451,27 @@ VarFind(const char *name, GNode *scope, | | | @@ -451,33 +451,27 @@ VarFind(const char *name, GNode *scope, |
451 | var = GNode_FindVar(SCOPE_GLOBAL, name, nameHash); | | 451 | var = GNode_FindVar(SCOPE_GLOBAL, name, nameHash); |
452 | if (var == NULL && scope != SCOPE_INTERNAL) | | 452 | if (var == NULL && scope != SCOPE_INTERNAL) |
453 | var = GNode_FindVar(SCOPE_INTERNAL, name, | | 453 | var = GNode_FindVar(SCOPE_INTERNAL, name, |
454 | nameHash); | | 454 | nameHash); |
455 | return var; | | 455 | return var; |
456 | } | | 456 | } |
457 | | | 457 | |
458 | return NULL; | | 458 | return NULL; |
459 | } | | 459 | } |
460 | | | 460 | |
461 | return var; | | 461 | return var; |
462 | } | | 462 | } |
463 | | | 463 | |
464 | /* | | 464 | /* If the variable is an environment variable, free it, including its value. */ |
465 | * If the variable is an environment variable, free it, including its value. | | | |
466 | * | | | |
467 | * Results: | | | |
468 | * TRUE if it was an environment variable, | | | |
469 | * FALSE if it is still a regular variable. | | | |
470 | */ | | | |
471 | static void | | 465 | static void |
472 | VarFreeEnv(Var *v) | | 466 | VarFreeEnv(Var *v) |
473 | { | | 467 | { |
474 | if (!(v->flags & VFL_FROM_ENV)) | | 468 | if (!(v->flags & VFL_FROM_ENV)) |
475 | return; | | 469 | return; |
476 | | | 470 | |
477 | FStr_Done(&v->name); | | 471 | FStr_Done(&v->name); |
478 | Buf_Done(&v->val); | | 472 | Buf_Done(&v->val); |
479 | free(v); | | 473 | free(v); |
480 | } | | 474 | } |
481 | | | 475 | |
482 | /* Add a new variable of the given name and value to the given scope. */ | | 476 | /* Add a new variable of the given name and value to the given scope. */ |
483 | static Var * | | 477 | static Var * |