(U+6215): Apply new conventions for glyph granularity.

[chise/xemacs-chise.git.1] / src / dumper.c

diff --git a/src/dumper.c b/src/dumper.c
index e0b4ad8..9e93d09 100644 (file)
--- 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);