* ggc.h (struct ggc_statistics): New type.

	(ggc_get_size): New function.
	(ggc_print_statistics): Likewise.
	* ggc-common.c (ggc_stats): New variable.
	(ggc_mark_rtx_children): Keep statistics.
	(ggc_mark_tree_children): Likewise.
	(ggc_print_statistics): New function.
	* ggc-page.c (struct globals): Add bytes_mapped field.
	(alloc_anon): Update it.
	(release_pages): Likewise.
	(ggc_get_size): New function.
	(ggc_page_print_statistics): New function.
	* ggc-simple.c (ggc_get_size): New function.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@30251 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 9 insertions, 0 deletions

diff --git a/gcc/ggc-simple.c b/gcc/ggc-simple.c
index f665487cd53..194863edc7d 100644
--- a/gcc/ggc-simple.c
+++ b/gcc/ggc-simple.c
@@ -253,6 +253,15 @@ ggc_mark_if_gcable (p)
   G.objects += 1;
 }
 
+size_t
+ggc_get_size (p)
+     void *p;
+{
+  struct ggc_mem *x 
+    = (struct ggc_mem *) ((char *)p - offsetof (struct ggc_mem, u));
+  return x->size;
+}
+
 static void
 clear_marks (x)
      struct ggc_mem *x;