Purge procfs.c of make_cleanup_func.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 66f413e..c428db6 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,13 @@
+Mon May 22 15:49:13 2000  Andrew Cagney  <cagney@b1.cygnus.com>
+
+       * procfs.c (info_proc_cmd): Use make_cleanup_freeargv.
+       (proc_iterate_over_mappings): Use make_cleanup_close.
+       (proc_get_LDT_entry): Ditto.
+       (do_closedir_cleanup): New function.
+       (proc_update_threads): Use.
+       (do_destroy_procinfo_cleanup): New function.
+       (info_proc_cmd): Use.
+
 Mon May 22 15:21:38 2000  Andrew Cagney  <cagney@b1.cygnus.com>
 
        * top.h (command_loop_marker): Change signature to match

diff --git a/gdb/procfs.c b/gdb/procfs.c
index 2fa825b..65d306e 100644 (file)
--- a/gdb/procfs.c
+++ b/gdb/procfs.c
@@ -328,6 +328,7 @@ static procinfo *find_procinfo_or_die PARAMS ((int pid, int tid));
 static procinfo *find_procinfo        PARAMS ((int pid, int tid));
 static procinfo *create_procinfo      PARAMS ((int pid, int tid));
 static void      destroy_procinfo     PARAMS ((procinfo *p));
+static void do_destroy_procinfo_cleanup (void *);
 static void      dead_procinfo        PARAMS ((procinfo *p, 
                                               char *msg, int killp));
 static int       open_procinfo_files  PARAMS ((procinfo *p, int which));
@@ -683,6 +684,12 @@ destroy_procinfo (pi)
     }
 }
 
+static void
+do_destroy_procinfo_cleanup (void *pi)
+{
+  destroy_procinfo (pi);
+}
+
 enum { NOKILL, KILL };
 
 /*
@@ -2633,7 +2640,7 @@ proc_iterate_over_mappings (func)
     proc_error (pi, "proc_iterate_over_mappings (open)", __LINE__);
 
   /* Make sure it gets closed again.  */
-  make_cleanup ((make_cleanup_func) close, (void *) map_fd);
+  make_cleanup_close (map_fd);
 
   /* Allocate space for mapping (lifetime only for this function). */
   map = alloca (sizeof (struct prmap));
@@ -2744,7 +2751,7 @@ proc_get_LDT_entry (pi, key)
       return NULL;
     }
   /* Make sure it gets closed again! */
-  old_chain = make_cleanup ((make_cleanup_func) close, (void *) fd);
+  old_chain = make_cleanup_close (fd);
 
   /* Now 'read' thru the table, find a match and return it.  */
   while (read (fd, ldt_entry, sizeof (struct ssd)) == sizeof (struct ssd))
@@ -3013,6 +3020,12 @@ proc_update_threads (pi)
 /*
  * Unixware and Solaris 6 (and later) version
  */
+static void
+do_closedir_cleanup (void *dir)
+{
+  closedir (dir);
+}
+
 int
 proc_update_threads (pi)
      procinfo *pi;
@@ -3051,7 +3064,7 @@ proc_update_threads (pi)
   if ((dirp = opendir (pathname)) == NULL)
     proc_error (pi, "update_threads, opendir", __LINE__);
 
-  old_chain = make_cleanup ((make_cleanup_func) closedir, dirp);
+  old_chain = make_cleanup (do_closedir_cleanup, dirp);
   while ((direntry = readdir (dirp)) != NULL)
     if (direntry->d_name[0] != '.')            /* skip '.' and '..' */
       {
@@ -5033,7 +5046,7 @@ info_proc_cmd (args, from_tty)
       if ((argv = buildargv (args)) == NULL)
        nomem (0);
       else
-       make_cleanup ((make_cleanup_func) freeargv, argv);
+       make_cleanup_freeargv (argv);
     }
   while (argv != NULL && *argv != NULL)
     {
@@ -5067,7 +5080,7 @@ info_proc_cmd (args, from_tty)
           /* No.  So open a procinfo for it, but 
              remember to close it again when finished.  */
           process = create_procinfo (pid, 0);
-          make_cleanup ((make_cleanup_func) destroy_procinfo, process);
+          make_cleanup (do_destroy_procinfo_cleanup, process);
           if (!open_procinfo_files (process, FD_CTL))
             proc_error (process, "info proc, open_procinfo_files", __LINE__);
         }