update.

[chise/xemacs-chise.git.1] / src / free-hook.c

diff --git a/src/free-hook.c b/src/free-hook.c
index d243aeb..4dbd9ba 100644 (file)
--- a/src/free-hook.c
+++ b/src/free-hook.c
@@ -131,7 +131,7 @@ check_free (void *ptr)
 #endif
 
       EMACS_INT present = (EMACS_INT) gethash (ptr, pointer_table,
-                                              (CONST void **) &size);
+                                              (const void **) &size);
 
       if (!present)
        {
@@ -257,7 +257,7 @@ check_realloc (void * ptr, size_t size)
   void *result = malloc (size);
 
   if (!ptr) return result;
-  present = (EMACS_INT) gethash (ptr, pointer_table, (CONST void **) &old_size);
+  present = (EMACS_INT) gethash (ptr, pointer_table, (const void **) &old_size);
   if (!present)
     {
     /* This can only happen by reallocing a pointer that didn't
@@ -491,6 +491,8 @@ log_gcpro (char *file, int line, struct gcpro *value, blocktype type)
       if (value == gcprolist->next->next) goto OK;
       if (! gcprolist->next->next) abort ();
       if (value == gcprolist->next->next->next) goto OK;
+      if (! gcprolist->next->next->next) abort ();
+      if (value == gcprolist->next->next->next->next) goto OK;
       abort ();
     OK:;
     }
@@ -587,6 +589,7 @@ show_gcprohist (void)
               gcprohist[j].type == gcpro2_type ? "GCPRO2" :
               gcprohist[j].type == gcpro3_type ? "GCPRO3" :
               gcprohist[j].type == gcpro4_type ? "GCPRO4" :
+              gcprohist[j].type == gcpro5_type ? "GCPRO5" :
               gcprohist[j].type == ungcpro_type ? "UNGCPRO" : "???"),
              gcprohist[j].value);
     }