diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 6608a84759c..9cb867300f8 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+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__.
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index e33fc4a406c..4a47514ee25 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+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.
diff --git a/gcc/ada/misc.c b/gcc/ada/misc.c
index 3ae66a83f98..bcd9deedef9 100644
--- a/gcc/ada/misc.c
+++ b/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));
diff --git a/gcc/ggc-common.c b/gcc/ggc-common.c
index 9c7b46d2b8b..6a6b69b3dd8 100644
--- a/gcc/ggc-common.c
+++ b/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;
 
diff --git a/gcc/ggc.h b/gcc/ggc.h
index 8d65b12a2a5..5933084720f 100644
--- a/gcc/ggc.h
+++ b/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 *));