X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Ffree-hook.c;h=4dbd9ba6ab11de72ea3622b9363e92d393844435;hb=c23f2bdb52b8779bbe4d494cc3f29f515c2c23bb;hp=5022b5767b27856064ca440b2733de8fcdc63bb4;hpb=3e447015251ce6dcde843cbed10d9033d5538622;p=chise%2Fxemacs-chise.git

diff --git a/src/free-hook.c b/src/free-hook.c
index 5022b57..4dbd9ba 100644
--- a/src/free-hook.c
+++ b/src/free-hook.c
@@ -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);
     }