X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Fdumper.c;h=9e93d0967d2877ec671927078680b0132341d41d;hb=8ccf542c980645ba3c02074a8bc67cd4fc8e7a1f;hp=e0b4ad8c3a7221f725253f39d4145edab25a19b7;hpb=6e8f204c9e1f490b2752de46c111744d1deb3ee0;p=chise%2Fxemacs-chise.git.1

diff --git a/src/dumper.c b/src/dumper.c
index e0b4ad8..9e93d09 100644
--- a/src/dumper.c
+++ b/src/dumper.c
@@ -570,7 +570,7 @@ pdump_register_object (Lisp_Object obj)
   if (imp->description)
     {
       int me = depth++;
-      if (me>65536)
+      if (me>=65536)
 	{
 	  stderr_out ("Backtrace overflow, loop ?\n");
 	  ABORT ();
@@ -605,7 +605,7 @@ pdump_register_struct (const void *data,
     {
       int me = depth++;
       int i;
-      if (me>65536)
+      if (me>=65536)
 	{
 	  stderr_out ("Backtrace overflow, loop ?\n");
 	  ABORT ();
@@ -1071,7 +1071,8 @@ pdump (void)
   pdump_dump_root_objects ();
 
   fclose (pdump_out);
-  close (pdump_fd);
+  /* pdump_fd is already closed by the preceding fclose call
+  close (pdump_fd); */
 
   free (pdump_buf);