Update.

* locale/setlocale.c (free_mem): Don't try to free C locale data
	and use setdata instead of doing it by hand.

	* iconv/gconv_conf.c (add_alias): Check that so such alias is
	currently stored.

	* iconv/gconv_db.c (free_derivation): Free names if charsets for
	first and last step.

ChangeLog

@@ -1,5 +1,14 @@
 1999-01-28  Ulrich Drepper  <drepper@cygnus.com>
 
+	* locale/setlocale.c (free_mem): Don't try to free C locale data
+	and use setdata instead of doing it by hand.
+
+	* iconv/gconv_conf.c (add_alias): Check that so such alias is
+	currently stored.
+
+	* iconv/gconv_db.c (free_derivation): Free names if charsets for
+	first and last step.
+
 	* iconv/gconv_dl.c: Unload all modules when debugging memory use.
 
 	* locale/loadlocale.c (_nl_unload_locale): Free locale name.

iconv/gconv_conf.c

@@ -206,8 +206,9 @@ add_alias (char *rp, void *modules)
 				    from, wp - from);
       new_alias->toname = new_alias->fromname + (to - from);
 
-      if (__tsearch (new_alias, &__gconv_alias_db, __gconv_alias_compare)
-	  == NULL)
+      if (__tfind (new_alias, &__gconv_alias_db, __gconv_alias_compare) != NULL
+	  || (__tsearch (new_alias, &__gconv_alias_db, __gconv_alias_compare)
+	      == NULL))
 	/* Something went wrong, free this entry.  */
 	free (new_alias);
     }

iconv/gconv_db.c

@@ -163,6 +163,10 @@ free_derivation (void *p)
     if (deriv->steps[cnt].end_fct)
       _CALL_DL_FCT (deriv->steps[cnt].end_fct, (&deriv->steps[cnt]));
 
+  /* Free the name strings.  */
+  free ((char *) deriv->steps[0].from_name);
+  free ((char *) deriv->steps[deriv->nsteps - 1].to_name);
+
   free ((struct gconv_step *) deriv->steps);
   free (deriv);
 }

iconv/gconv_dl.c

@@ -254,17 +254,15 @@ __gconv_release_shlib (struct gconv_loaded_object *handle)
 
 /* We run this if we debug the memory allocation.  */
 static void
-do_release_all (const void *nodep, VISIT value, int level)
+do_release_all (void *nodep)
 {
-  struct gconv_loaded_object *obj = *(struct gconv_loaded_object **) nodep;
-
-  if (value != preorder && value != leaf)
-    return;
+  struct gconv_loaded_object *obj = (struct gconv_loaded_object *) nodep;
 
   /* Unload the shared object.  We don't use the trick to
      catch errors since in the case an error is signalled
      something is really wrong.  */
-  _dl_close (obj->handle);
+  if (obj->handle != NULL)
+    _dl_close (obj->handle);
 
   free (obj);
 }
@@ -272,6 +270,6 @@ do_release_all (const void *nodep, VISIT value, int level)
 static void __attribute__ ((unused))
 free_mem (void)
 {
-  __twalk (loaded, do_release_all);
+  __tdestroy (loaded, do_release_all);
 }
 text_set_element (__libc_subfreeres, free_mem);

locale/setlocale.c

@@ -402,9 +402,13 @@ free_mem (void)
     {
       struct locale_data *here = *_nl_current[category];
 
+      /* If this category is already "C" don't do anything.  */
+      if (here == _nl_C[category])
+	continue;
+
       /* We have to be prepared that sometime later me still might
 	 need the locale information.  */
-      *_nl_current[category] = _nl_C[category];
+      setdata (category, _nl_C[category]);
       setname (category, _nl_C_name);
 
       _nl_unload_locale (here);