gcc-common.c (lang_mark_false_label_stack): Remove.

	* gcc-common.c (lang_mark_false_label_stack): Remove.
	* ggc.h (lang_mark_false_label_stack): Similarly.
ada:
	* misc.c (ggc_p): Remove.

From-SVN: r51433

gcc/ChangeLog

+2002-03-27  Neil Booth  <neil@daikokuya.demon.co.uk>
+
+	* gcc-common.c (lang_mark_false_label_stack): Remove.
+	* ggc.h (lang_mark_false_label_stack): Similarly.
+
 2002-03-26  Vladimir Makarov  <vmakarov@redhat.com> 
 
 	* pa/pa-pro-end.h (CPP_PREDEFINES): Add -D__pro__.

gcc/ada/ChangeLog

+2002-03-27  Neil Booth  <neil@daikokuya.demon.co.uk>
+
+	* misc.c (ggc_p): Remove.
+
 2002-03-27  Geert Bosch  <bosch@gnat.com>
 
 	* prj-makr.ads, prj-makr.adb : New files.

gcc/ada/misc.c

@@ -161,10 +161,6 @@ const char *const tree_code_name[] = {
 extern int gnat_argc;
 extern char **gnat_argv;
 
-/* Global Variables Expected by gcc: */
-
-int ggc_p = 1;
-
 static void internal_error_function	PARAMS ((const char *, va_list *));
 static rtx gnat_expand_expr		PARAMS ((tree, rtx, enum machine_mode,
 						 enum expand_modifier));

gcc/ggc-common.c

@@ -35,12 +35,6 @@ Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 /* Statistics about the allocation.  */
 static ggc_statistics *ggc_stats;
 
-/* The FALSE_LABEL_STACK, declared in except.h, has language-dependent
-   semantics.  If a front-end needs to mark the false label stack, it
-   should set this pointer to a non-NULL value.  Otherwise, no marking
-   will be done.  */
-void (*lang_mark_false_label_stack) PARAMS ((struct label_node *));
-
 /* Trees that have been marked, but whose children still need marking.  */
 varray_type ggc_pending_trees;
 

gcc/ggc.h

@@ -177,14 +177,6 @@ extern int ggc_set_mark			PARAMS ((const void *));
    static objects, stack variables, or memory allocated with malloc.  */
 extern int ggc_marked_p			PARAMS ((const void *));
 
-/* Callbacks to the languages.  */
-
-/* The FALSE_LABEL_STACK, declared in except.h, has language-dependent
-   semantics.  If a front-end needs to mark the false label stack, it
-   should set this pointer to a non-NULL value.  Otherwise, no marking
-   will be done.  */
-extern void (*lang_mark_false_label_stack) PARAMS ((struct label_node *));
-
 /* Mark functions for various structs scattered about.  */
 
 void mark_eh_status			PARAMS ((struct eh_status *));