Mercurial > hg > xemacs-beta

diff src/free-hook.c @ 371:cc15677e0335 r21-2b1
Import from CVS: tag r21-2b1
author: cvs
date: Mon, 13 Aug 2007 11:03:08 +0200
parents: fbbf69b4e8a7
children: 8626e4521993
--- a/src/free-hook.c	Mon Aug 13 11:01:58 2007 +0200
+++ b/src/free-hook.c	Mon Aug 13 11:03:08 2007 +0200
@@ -510,8 +510,7 @@
 /* Note: There is no more input blocking in XEmacs */
 typedef enum {
   block_type, unblock_type, totally_type,
-  gcpro1_type, gcpro2_type, gcpro3_type, gcpro4_type, gcpro5_type,
-  ungcpro_type
+  gcpro1_type, gcpro2_type, gcpro3_type, gcpro4_type, ungcpro_type
 } blocktype;
 
 struct block_input_history_struct
@@ -527,7 +526,7 @@
 
 typedef struct block_input_history_struct block_input_history;
 
-#endif /* DEBUG_INPUT_BLOCKING || DEBUG_GCPRO */
+#endif
 
 #ifdef DEBUG_INPUT_BLOCKING
 
@@ -576,7 +575,7 @@
     blhistptr = 0;
 }
 
-#endif /* DEBUG_INPUT_BLOCKING */
+#endif
 
 
 #ifdef DEBUG_GCPRO
@@ -588,6 +587,8 @@
 static void
 log_gcpro (char *file, int line, struct gcpro *value, blocktype type)
 {
+  FRAME start_frame;
+
   if (type == ungcpro_type)
     {
       if (value == gcprolist) goto OK;
@@ -680,9 +681,6 @@
   gcprolist = gcpro1->next;
 }
 
-
-/* To be called from the debugger */
-void show_gcprohist (void);
 void
 show_gcprohist (void)
 {
@@ -705,4 +703,4 @@
   fflush (stdout);
 }
 
-#endif /* DEBUG_GCPRO */
+#endif