From: Tom Tromey <tom@tromey.com>
Date: Thu, 19 Jul 2018 14:49:58 +0000 (-0600)
Subject: Remove make_cleanup_value_free_to_mark
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=4581dc8297381651284e2f4a9f835eebcc6f2328;p=binutils-gdb.git

Remove make_cleanup_value_free_to_mark

Pedro's patch to introduce gdbscm_wrap removed the last caller of
make_cleanup_value_free_to_mark.  This patch removes this function.

I'm checking this in as obvious.  Tested by rebuilding, and by
grepping.

gdb/ChangeLog
2018-07-19  Tom Tromey  <tom@tromey.com>

	* utils.c (do_value_free_to_mark)
	(make_cleanup_value_free_to_mark): Remove.
	* utils.h (make_cleanup_value_free_to_mark): Remove.
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index c28b24053ca..7f254b9ae82 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,9 @@
+2018-07-19  Tom Tromey  <tom@tromey.com>
+
+	* utils.c (do_value_free_to_mark)
+	(make_cleanup_value_free_to_mark): Remove.
+	* utils.h (make_cleanup_value_free_to_mark): Remove.
+
 2018-07-19  Pedro Alves  <palves@redhat.com>
 
 	* guile/guile-internal.h (gdbscm_wrap): Really make 'args' a
diff --git a/gdb/utils.c b/gdb/utils.c
index 09381d9092d..bfcb45bc950 100644
--- a/gdb/utils.c
+++ b/gdb/utils.c
@@ -141,23 +141,6 @@ show_pagination_enabled (struct ui_file *file, int from_tty,
    because while they use the "cleanup API" they are not part of the
    "cleanup API".  */
 
-/* Helper for make_cleanup_value_free_to_mark.  */
-
-static void
-do_value_free_to_mark (void *value)
-{
-  value_free_to_mark ((struct value *) value);
-}
-
-/* Free all values allocated since MARK was obtained by value_mark
-   (except for those released) when the cleanup is run.  */
-
-struct cleanup *
-make_cleanup_value_free_to_mark (struct value *mark)
-{
-  return make_cleanup (do_value_free_to_mark, mark);
-}
-
 /* This function is useful for cleanups.
    Do
 
diff --git a/gdb/utils.h b/gdb/utils.h
index c728449429e..68523994b94 100644
--- a/gdb/utils.h
+++ b/gdb/utils.h
@@ -248,10 +248,6 @@ private:
 
 /* Cleanup utilities.  */
 
-/* For make_cleanup_close see common/filestuff.h.  */
-
-extern struct cleanup *make_cleanup_value_free_to_mark (struct value *);
-
 /* A deleter for a hash table.  */
 struct htab_deleter
 {