[Emacs-diffs] master 3b4d119: Fix bug in GC_CHECK_MARKED_OBJECTS check

[Paul Eggert]

branch: master
commit 3b4d119c40817a528be5ad2bb994521a947dc443
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>

    Fix bug in GC_CHECK_MARKED_OBJECTS check
    
    * src/alloc.c (mark_object): Fix bug in checking code.
    When GC_CHECK_MARKED_OBJECTS is defined, the bug caused
    CHECK_ALLOCATED_AND_LIVE_SYMBOL to repeatedly do the
    CHECK_ALLOCATED and CHECK_LIVE tests for the first symbol in each
    bucket.  The bug did not affect behavior either in the normal case
    where GC_CHECK_MARKED_OBJECTS is not defined, or where Emacs does
    not have an internal error that a properly-written
    CHECK_ALLOCATED_AND_LIVE_SYMBOL would detect.
---
 src/alloc.c |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/src/alloc.c b/src/alloc.c
index 3ab2a6e..5fc40d1 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -6217,7 +6217,7 @@ mark_object (Lisp_Object arg)
          MARK_STRING (XSTRING (ptr->name));
        MARK_INTERVAL_TREE (string_intervals (ptr->name));
        /* Inner loop to mark next symbol in this bucket, if any.  */
-       ptr = ptr->next;
+       po = ptr = ptr->next;
        if (ptr)
          goto nextsym;
       }