From 1a71080889e16d01cccd6af982386633dcec9ec9 Mon Sep 17 00:00:00 2001 From: Duncan Sands Date: Tue, 13 Apr 2010 11:21:12 +0200 Subject: Remove lang_eh_type_covers, which is dead, and the corresponding Ada routine gnat_eh_type_covers. From-SVN: r158258 --- gcc/ada/gcc-interface/misc.c | 17 ----------------- gcc/ada/gcc-interface/trans.c | 6 +----- 2 files changed, 1 insertion(+), 22 deletions(-) (limited to 'gcc/ada/gcc-interface') diff --git a/gcc/ada/gcc-interface/misc.c b/gcc/ada/gcc-interface/misc.c index 8c647d3..dbeabc0 100644 --- a/gcc/ada/gcc-interface/misc.c +++ b/gcc/ada/gcc-interface/misc.c @@ -74,7 +74,6 @@ static void gnat_print_type (FILE *, tree, int); static const char *gnat_printable_name (tree, int); static const char *gnat_dwarf_name (tree, int); static tree gnat_return_tree (tree); -static int gnat_eh_type_covers (tree, tree); static void gnat_parse_file (int); static void internal_error_function (const char *, va_list *); static tree gnat_type_max_size (const_tree); @@ -434,8 +433,6 @@ gnat_init_gcc_eh (void) right exception regions. */ using_eh_for_cleanups (); - lang_eh_type_covers = gnat_eh_type_covers; - /* Turn on -fexceptions and -fnon-call-exceptions. The first one triggers the generation of the necessary exception runtime tables. The second one is useful for two reasons: 1/ we map some asynchronous signals like SEGV @@ -580,20 +577,6 @@ gnat_return_tree (tree t) return t; } -/* Return true if type A catches type B. Callback for flow analysis from - the exception handling part of the back-end. */ - -static int -gnat_eh_type_covers (tree a, tree b) -{ - /* a catches b if they represent the same exception id or if a - is an "others". - - ??? integer_zero_node for "others" is hardwired in too many places - currently. */ - return (a == b || a == integer_zero_node); -} - /* Get the alias set corresponding to a type or expression. */ static alias_set_type diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index 2c86db9..6da6e79 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -3279,11 +3279,7 @@ Exception_Handler_to_gnu_zcx (Node_Id gnat_node) handler can catch, with special cases for others and all others cases. Each exception type is actually identified by a pointer to the exception - id, or to a dummy object for "others" and "all others". - - Care should be taken to ensure that the control flow impact of "others" - and "all others" is known to GCC. lang_eh_type_covers is doing the trick - currently. */ + id, or to a dummy object for "others" and "all others". */ for (gnat_temp = First (Exception_Choices (gnat_node)); gnat_temp; gnat_temp = Next (gnat_temp)) { -- cgit v1.1