diff options
| author | Richard Guenther <rguenther@suse.de> | 2009-10-08 15:32:30 +0000 |
|---|---|---|
| committer | Richard Biener <rguenth@gcc.gnu.org> | 2009-10-08 15:32:30 +0000 |
| commit | 0d0bfe1795ba93c2af0fca2ca68a025c5cd4c82b (patch) | |
| tree | 3e20298dac5f4c3479c3718ecbb1a22f63f8e5b3 /gcc | |
| parent | 90e1a3493092a41db18dc3ba5ced7814ca37af15 (diff) | |
| download | gcc-0d0bfe1795ba93c2af0fca2ca68a025c5cd4c82b.zip gcc-0d0bfe1795ba93c2af0fca2ca68a025c5cd4c82b.tar.gz gcc-0d0bfe1795ba93c2af0fca2ca68a025c5cd4c82b.tar.bz2 | |
gimple.c (free_gimple_type_tables): New function.
2009-10-08 Richard Guenther <rguenther@suse.de>
* gimple.c (free_gimple_type_tables): New function.
* gimple.h (free_gimple_type_tables): Declare.
lto/
* lto.c (read_cgraph_and_symbols): Free the gimple type merging
hash tables.
From-SVN: r152562
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/gimple.c | 30 | ||||
| -rw-r--r-- | gcc/gimple.h | 1 | ||||
| -rw-r--r-- | gcc/lto/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/lto/lto.c | 3 |
5 files changed, 42 insertions, 2 deletions
diff --git a/gcc/ChangeLog b/gcc/ChangeLog index 7d066da..11eb0f8 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,8 @@ +2009-10-08 Richard Guenther <rguenther@suse.de> + + * gimple.c (free_gimple_type_tables): New function. + * gimple.h (free_gimple_type_tables): Declare. + 2009-10-07 Mark Heffernan <meheff@google.com> * ipa-prop.c (ipa_print_node_params) Only print diff --git a/gcc/gimple.c b/gcc/gimple.c index 481daf0..8835319 100644 --- a/gcc/gimple.c +++ b/gcc/gimple.c @@ -3899,8 +3899,8 @@ print_gimple_types_stats (void) else fprintf (stderr, "GIMPLE type table is empty\n"); if (gtc_visited) - fprintf (stderr, "GIMPLE type comparison table: size %ld, %ld elements, " - "%ld searches, %ld collisions (ratio: %f)\n", + fprintf (stderr, "GIMPLE type comparison table: size %ld, %ld " + "elements, %ld searches, %ld collisions (ratio: %f)\n", (long) htab_size (gtc_visited), (long) htab_elements (gtc_visited), (long) gtc_visited->searches, @@ -3910,6 +3910,32 @@ print_gimple_types_stats (void) fprintf (stderr, "GIMPLE type comparison table is empty\n"); } +/* Free the gimple type hashtables used for LTO type merging. */ + +void +free_gimple_type_tables (void) +{ + /* Last chance to print stats for the tables. */ + if (flag_lto_report) + print_gimple_types_stats (); + + if (gimple_types) + { + htab_delete (gimple_types); + gimple_types = NULL; + } + if (type_hash_cache) + { + pointer_map_destroy (type_hash_cache); + type_hash_cache = NULL; + } + if (gtc_visited) + { + htab_delete (gtc_visited); + gtc_visited = NULL; + } +} + /* Return a type the same as TYPE except unsigned or signed according to UNSIGNEDP. */ diff --git a/gcc/gimple.h b/gcc/gimple.h index e21d53f..3998bdf 100644 --- a/gcc/gimple.h +++ b/gcc/gimple.h @@ -919,6 +919,7 @@ extern void gimple_force_type_merge (tree, tree); extern int gimple_types_compatible_p (tree, tree); extern tree gimple_register_type (tree); extern void print_gimple_types_stats (void); +extern void free_gimple_type_tables (void); extern tree gimple_unsigned_type (tree); extern tree gimple_signed_type (tree); extern alias_set_type gimple_get_alias_set (tree); diff --git a/gcc/lto/ChangeLog b/gcc/lto/ChangeLog index e88baf4..36241e8 100644 --- a/gcc/lto/ChangeLog +++ b/gcc/lto/ChangeLog @@ -1,3 +1,8 @@ +2009-10-08 Richard Guenther <rguenther@suse.de> + + * lto.c (read_cgraph_and_symbols): Free the gimple type merging + hash tables. + 2009-10-07 Joseph Myers <joseph@codesourcery.com> * lto.c: Only include <sys/mman.h> if HAVE_MMAP_FILE. diff --git a/gcc/lto/lto.c b/gcc/lto/lto.c index 504fe48..cc40091 100644 --- a/gcc/lto/lto.c +++ b/gcc/lto/lto.c @@ -1844,6 +1844,9 @@ read_cgraph_and_symbols (unsigned nfiles, const char **fnames) /* Fixup all decls and types. */ lto_fixup_decls (all_file_decl_data); + /* Free the type hash tables. */ + free_gimple_type_tables (); + /* FIXME lto. This loop needs to be changed to use the pass manager to call the ipa passes directly. */ if (!errorcount) |