 @@ -1,14 +1,14 @@
-/*	$NetBSD: var.c,v 1.625 2020/10/31 14:55:33 rillig Exp $	*/
+/*	$NetBSD: var.c,v 1.626 2020/10/31 15:23:52 rillig Exp $	*/
 /*
  * Copyright (c) 1988, 1989, 1990, 1993
  *	The Regents of the University of California.  All rights reserved.
+ *
  * This code is derived from software contributed to Berkeley by
  * Adam de Boor.
+ *
  * Redistribution and use in source and binary forms, with or without
  * modification, are permitted provided that the following conditions
  * are met:
  * 1. Redistributions of source code must retain the above copyright
  *    notice, this list of conditions and the following disclaimer.
 @@ -119,27 +119,27 @@
 #include    <sys/types.h>
 #include    <regex.h>
 #endif
 #include    <inttypes.h>
 #include    <limits.h>
 #include    <time.h>
 #include    "make.h"
 #include    "dir.h"
 #include    "job.h"
 #include    "metachar.h"
 /*	"@(#)var.c	8.3 (Berkeley) 3/19/94" */
-MAKE_RCSID("$NetBSD: var.c,v 1.625 2020/10/31 14:55:33 rillig Exp $");
+MAKE_RCSID("$NetBSD: var.c,v 1.626 2020/10/31 15:23:52 rillig Exp $");
 #define VAR_DEBUG1(fmt, arg1) DEBUG1(VAR, fmt, arg1)
 #define VAR_DEBUG2(fmt, arg1, arg2) DEBUG2(VAR, fmt, arg1, arg2)
 #define VAR_DEBUG3(fmt, arg1, arg2, arg3) DEBUG3(VAR, fmt, arg1, arg2, arg3)
 #define VAR_DEBUG4(fmt, arg1, arg2, arg3, arg4) DEBUG4(VAR, fmt, arg1, arg2, arg3, arg4)
 ENUM_FLAGS_RTTI_3(VarEvalFlags,
 		  VARE_UNDEFERR, VARE_WANTRES, VARE_ASSIGN);
 /*
  * This lets us tell if we have replaced the original environ
  * (which we cannot free).
  */
 @@ -3316,59 +3316,47 @@ out:
 bad_modifier:
     Error("Bad modifier `:%.*s' for %s",
 	  (int)strcspn(mod, ":)}"), mod, st.v->name);
 cleanup:
     *pp = p;
     free(*freePtr);
     *freePtr = NULL;
     *exprFlags = st.exprFlags;
     return var_Error;
+}
 /* Only four of the local variables are treated specially as they are the
  * only four that will be set when dynamic sources are expanded. */
 static Boolean
-VarIsDynamic(GNode *ctxt, const char *varname, size_t namelen)
+VarnameIsDynamic(const char *name, size_t len)
+{
-    if ((namelen == 1 ||
+    if (len == 1 || (len == 2 && (name[1] == 'F' || name[1] == 'D'))) {
-	 (namelen == 2 && (varname[1] == 'F' || varname[1] == 'D'))) &&
+	switch (name[0]) {
 	(ctxt == VAR_CMDLINE || ctxt == VAR_GLOBAL))
 	/*
 	 * If substituting a local variable in a non-local context,
 	 * assume it's for dynamic source stuff. We have to handle
 	 * this specially and return the longhand for the variable
 	 * with the dollar sign escaped so it makes it back to the
 	 * caller. Only four of the local variables are treated
 	 * specially as they are the only four that will be set
 	 * when dynamic sources are expanded.
 	 */
 	switch (varname[0]) {
 	case '@':
 	case '%':
 	case '*':
 	case '!':
 	    return TRUE;
+	}
 	return FALSE;
+    }
-    if ((namelen == 7 || namelen == 8) && varname[0] == '.' &&
+    if ((len == 7 || len == 8) && name[0] == '.' && ch_isupper(name[1])) {
-	ch_isupper(varname[1]) && (ctxt == VAR_CMDLINE || ctxt == VAR_GLOBAL))
+	return strcmp(name, ".TARGET") == 0 ||
 	       strcmp(name, ".ARCHIVE") == 0 ||
-	return strcmp(varname, ".TARGET") == 0 ||
+	       strcmp(name, ".PREFIX") == 0 ||
-	       strcmp(varname, ".ARCHIVE") == 0 ||
+	       strcmp(name, ".MEMBER") == 0;
 	       strcmp(varname, ".PREFIX") == 0 ||
 	       strcmp(varname, ".MEMBER") == 0;
+    }
     return FALSE;
+}
 static const char *
 UndefinedShortVarValue(char varname, const GNode *ctxt, VarEvalFlags eflags)
+{
     if (ctxt == VAR_CMDLINE || ctxt == VAR_GLOBAL) {
 	/*
 	 * If substituting a local variable in a non-local context,
 	 * assume it's for dynamic source stuff. We have to handle
 	 * this specially and return the longhand for the variable
 @@ -3577,27 +3565,30 @@ ParseVarnameLong(
 	char name[] = { varname[0], '\0' };
 	v = VarFind(name, ctxt, 0);
 	if (v != NULL) {
 	    if (varname[1] == 'D') {
 		*out_TRUE_extraModifiers = "H:";
 	    } else { /* F */
 		*out_TRUE_extraModifiers = "T:";
+	    }
+	}
+    }
     if (v == NULL) {
-	dynamic = VarIsDynamic(ctxt, varname, namelen);
+	/* Defer expansion of dynamic variables if they appear in non-local
 	 * context since they are not defined there. */
 	dynamic = VarnameIsDynamic(varname, namelen) &&
 		  (ctxt == VAR_CMDLINE || ctxt == VAR_GLOBAL);
 	if (!haveModifier) {
 	    p++;		/* skip endc */
 	    *pp = p;
 	    if (dynamic) {
 		char *pstr = bmake_strsedup(start, p);
 		free(varname);
 		*out_FALSE_res = VPR_OK;
 		*out_FALSE_freePtr = pstr;
 		*out_FALSE_val = pstr;
 		return FALSE;
+	    }
 @@ -3704,27 +3695,27 @@ Var_Parse(const char **pp, GNode *ctxt,
 				 * or braces */
     char endc;			/* Ending character if variable in parens
 				 * or braces */
     Boolean dynamic;		/* TRUE if the variable is local and we're
 				 * expanding it in a non-local context. This
 				 * is done to support dynamic sources. The
 				 * result is just the expression, unaltered */
     const char *extramodifiers;
     Var *v;
     char *nstr;
     char eflags_str[VarEvalFlags_ToStringSize];
     VarExprFlags exprFlags = 0;
-    VAR_DEBUG3("%s: %s with %s\n", __func__, start,
+    VAR_DEBUG2("Var_Parse: %s with %s\n", start,
 	       Enum_FlagsToString(eflags_str, sizeof eflags_str, eflags,
 				  VarEvalFlags_ToStringSpecs));
     *out_val_freeIt = NULL;
     extramodifiers = NULL;	/* extra modifiers to apply first */
     dynamic = FALSE;
     /* Appease GCC, which thinks that the variable might not be
      * initialized. */
     endc = '\0';
     startc = start[1];
     if (startc != '(' && startc != '{') {