Changeset 900 for vendor/gnumake/current/variable.c

Timestamp:

May 23, 2007, 5:13:11 AM (18 years ago)

Author:

bird

Message:

Load /home/bird/src/Gnu/make/2007-05-23 into vendor/gnumake/current.

File:

• vendor/gnumake/current/variable.c (modified) (24 diffs)

vendor/gnumake/current/variable.c

@@ -43 +43 @@
 
 struct pattern_var *
-create_pattern_var (char *target, char *suffix)
-{
-  register struct pattern_var *p
-    = (struct pattern_var *) xmalloc (sizeof (struct pattern_var));
+create_pattern_var (const char *target, const char *suffix)
+{
+  register struct pattern_var *p = xmalloc (sizeof (struct pattern_var));
 
   if (last_pattern_var != 0)
@@ -65 +64 @@
 
 static struct pattern_var *
-lookup_pattern_var (struct pattern_var *start, char *target)
+lookup_pattern_var (struct pattern_var *start, const char *target)
 {
   struct pattern_var *p;
@@ -72 +71 @@
   for (p = start ? start->next : pattern_vars; p != 0; p = p->next)
     {
-      char *stem;
+      const char *stem;
       unsigned int stemlen;
 
@@ -163 +162 @@
 struct variable *
 define_variable_in_set (const char *name, unsigned int length,
-                        char *value, enum variable_origin origin,
+                        const char *value, enum variable_origin origin,
                         int recursive, struct variable_set *set,
                         const struct floc *flocp)
@@ -209 +208 @@
   /* Create a new variable definition and add it to the hash table.  */
 
-  v = (struct variable *) xmalloc (sizeof (struct variable));
+  v = xmalloc (sizeof (struct variable));
   v->name = savestring (name, length);
   v->length = length;
@@ -318 +317 @@
               }
 
-            bcopy (v->name, p, l);
+            memcpy (p, v->name, l);
             p += l;
             *(p++) = ' ';
@@ -445 +444 @@
    parent of FILE's variable set.
 
-   If we're READing a makefile, don't do the pattern variable search now,
+   If we're READING a makefile, don't do the pattern variable search now,
    since the pattern variable might not have been defined yet.  */
 
@@ -457 +456 @@
       l = (struct variable_set_list *)
         xmalloc (sizeof (struct variable_set_list));
-      l->set = (struct variable_set *) xmalloc (sizeof (struct variable_set));
+      l->set = xmalloc (sizeof (struct variable_set));
       hash_init (&l->set->table, PERFILE_VARIABLE_BUCKETS,
                  variable_hash_1, variable_hash_2, variable_hash_cmp);
@@ -553 +552 @@
   register struct variable_set *set;
 
-  set = (struct variable_set *) xmalloc (sizeof (struct variable_set));
+  set = xmalloc (sizeof (struct variable_set));
   hash_init (&set->table, SMALL_SCOPE_VARIABLE_BUCKETS,
              variable_hash_1, variable_hash_2, variable_hash_cmp);
@@ -578 +577 @@
   hash_map (&list->set->table, free_variable_name_and_value);
   hash_free (&list->set->table, 1);
-  free ((char *) list->set);
-  free ((char *) list);
+  free (list->set);
+  free (list);
 }
 
@@ -635 +634 @@
 
   /* Free the one we no longer need.  */
-  free ((char *) setlist);
+  free (setlist);
   hash_map (&set->table, free_variable_name_and_value);
   hash_free (&set->table, 1);
-  free ((char *) set);
+  free (set);
 }
 
@@ -953 +952 @@
   hash_delete (&table, &makelevel_key);
 
-  result = result_0 = (char **) xmalloc ((table.ht_fill + 2) * sizeof (char *));
+  result = result_0 = xmalloc ((table.ht_fill + 2) * sizeof (char *));
 
   v_slot = (struct variable **) table.ht_vec;
@@ -974 +973 @@
               convert_Path_to_windows32(value, ';');
 #endif
-            *result++ = concat (v->name, "=", value);
+            *result++ = xstrdup (concat (v->name, "=", value));
             free (value);
           }
@@ -984 +983 @@
               convert_Path_to_windows32(v->value, ';');
 #endif
-            *result++ = concat (v->name, "=", v->value);
+            *result++ = xstrdup (concat (v->name, "=", v->value));
           }
       }
 
-  *result = (char *) xmalloc (100);
-  (void) sprintf (*result, "%s=%u", MAKELEVEL_NAME, makelevel + 1);
+  *result = xmalloc (100);
+  sprintf (*result, "%s=%u", MAKELEVEL_NAME, makelevel + 1);
   *++result = 0;
 
@@ -1003 +1002 @@
 struct variable *
 do_variable_definition (const struct floc *flocp, const char *varname,
-                        char *value, enum variable_origin origin,
+                        const char *value, enum variable_origin origin,
                         enum variable_flavor flavor, int target_var)
 {
-  char *p, *alloc_value = NULL;
+  const char *p;
+  char *alloc_value = NULL;
   struct variable *v;
   int append = 0;
@@ -1071 +1071 @@
 
             unsigned int oldlen, vallen;
-            char *val;
+            const char *val;
+            char *tp;
 
             val = value;
@@ -1088 +1089 @@
             oldlen = strlen (v->value);
             vallen = strlen (val);
-            p = (char *) alloca (oldlen + 1 + vallen + 1);
-            bcopy (v->value, p, oldlen);
-            p[oldlen] = ' ';
-            bcopy (val, &p[oldlen + 1], vallen + 1);
+            tp = alloca (oldlen + 1 + vallen + 1);
+            memcpy (tp, v->value, oldlen);
+            tp[oldlen] = ' ';
+            memcpy (&tp[oldlen + 1], val, vallen + 1);
+            p = tp;
           }
       }
@@ -1117 +1119 @@
 
       /* See if we can find "/bin/sh.exe", "/bin/sh.com", etc.  */
-      if (__dosexec_find_on_path (p, (char **)0, shellpath))
+      if (__dosexec_find_on_path (p, NULL, shellpath))
         {
-          char *p;
-
-          for (p = shellpath; *p; p++)
-            {
-              if (*p == '\\')
-                *p = '/';
-            }
+          char *tp;
+
+          for (tp = shellpath; *tp; tp++)
+            if (*tp == '\\')
+              *tp = '/';
+
           v = define_variable_loc (varname, strlen (varname),
                                    shellpath, origin, flavor == f_recursive,
@@ -1132 +1133 @@
       else
         {
-          char *shellbase, *bslash;
+          const char *shellbase, *bslash;
           struct variable *pathv = lookup_variable ("PATH", 4);
           char *path_string;
@@ -1153 +1154 @@
           if (pathv)
             pathlen = strlen (pathv->value);
-          path_string = (char *)xmalloc (5 + pathlen + 2 + 1);
+          path_string = xmalloc (5 + pathlen + 2 + 1);
           /* On MSDOS, current directory is considered as part of $PATH.  */
           sprintf (path_string, "PATH=.;%s", pathv ? pathv->value : "");
           fake_env[0] = path_string;
-          fake_env[1] = (char *)0;
+          fake_env[1] = 0;
           if (__dosexec_find_on_path (shellbase, fake_env, shellpath))
             {
-              char *p;
-
-              for (p = shellpath; *p; p++)
-                {
-                  if (*p == '\\')
-                    *p = '/';
-                }
+              char *tp;
+
+              for (tp = shellpath; *tp; tp++)
+                if (*tp == '\\')
+                  *tp = '/';
+
               v = define_variable_loc (varname, strlen (varname),
                                        shellpath, origin,
@@ -1320 +1320 @@
 
   /* Expand the name, so "$(foo)bar = baz" works.  */
-  name = (char *) alloca (end - beg + 1);
-  bcopy (beg, name, end - beg);
+  name = alloca (end - beg + 1);
+  memcpy (name, beg, end - beg);
   name[end - beg] = '\0';
   v->name = allocated_variable_expand (name);
@@ -1374 +1374 @@
 print_variable (const void *item, void *arg)
 {
-  const struct variable *v = (struct variable *) item;
-  const char *prefix = (char *) arg;
+  const struct variable *v = item;
+  const char *prefix = arg;
   const char *origin;
 
@@ -1489 +1489 @@
 
 void
-print_file_variables (struct file *file)
+print_file_variables (const struct file *file)
 {
   if (file->variables != 0)
@@ -1516 +1516 @@
    */
   convert_Path_to_windows32 (path, ';');
-  environ_path = concat ("PATH", "=", path);
+  environ_path = xstrdup (concat ("PATH", "=", path));
   putenv (environ_path);
   free (path);