From 3432b91b650d7b134217ee74392840f6a4d85c4b Mon Sep 17 00:00:00 2001 From: Per Bothner Date: Sun, 21 Jan 2001 13:18:04 -0800 Subject: [PATCH] jcf-parse.c (ggc_mark_jcf): New function. * jcf-parse.c (ggc_mark_jcf): New function. (init_jcf_parse): Register current_jcf as ggc root. From-SVN: r39173 --- gcc/java/ChangeLog | 5 +++++ gcc/java/jcf-parse.c | 25 +++++++++++++++++++++++++ 2 files changed, 30 insertions(+) diff --git a/gcc/java/ChangeLog b/gcc/java/ChangeLog index 27d6864fec7..a01b0b5f194 100644 --- a/gcc/java/ChangeLog +++ b/gcc/java/ChangeLog @@ -1,3 +1,8 @@ +2001-01-21 Per Bothner + + * jcf-parse.c (ggc_mark_jcf): New function. + (init_jcf_parse): Register current_jcf as ggc root. + 2001-01-21 Per Bothner * lang.c (put_decl_node): Print method's name. diff --git a/gcc/java/jcf-parse.c b/gcc/java/jcf-parse.c index e917d1db2e2..b1214d456f9 100644 --- a/gcc/java/jcf-parse.c +++ b/gcc/java/jcf-parse.c @@ -93,6 +93,29 @@ static int find_in_current_zip PARAMS ((const char *, struct JCF **)); static void parse_class_file PARAMS ((void)); static void set_source_filename PARAMS ((JCF *, int)); static int predefined_filename_p PARAMS ((tree)); +static void ggc_mark_jcf PARAMS ((void**)); + +/* Mark (for garbage collection) all the tree nodes that are + referenced from JCF's constant pool table. */ + +static void +ggc_mark_jcf (elt) + void **elt; +{ + JCF *jcf = *(JCF**) elt; + if (jcf != NULL) + { + CPool *cpool = &jcf->cpool; + int size = CPOOL_COUNT(cpool); + int index; + for (index = 1; index < size; index++) + { + int tag = JPOOL_TAG (jcf, index); + if ((tag & CONSTANT_ResolvedFlag) || tag == CONSTANT_Utf8) + ggc_mark_tree ((tree) cpool->data[index]); + } + } +} /* Handle "SourceFile" attribute. */ @@ -1099,4 +1122,6 @@ init_jcf_parse () ggc_add_tree_root (¤t_field, 1); ggc_add_tree_root (¤t_method, 1); ggc_add_tree_root (¤t_file_list, 1); + + ggc_add_root (¤t_jcf, 1, sizeof (JCF), ggc_mark_jcf); } -- 2.30.2