emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

feature/noverlay c55254dccc: Make it compile with ITREE_DEBUG defined


From: Gerd Moellmann
Subject: feature/noverlay c55254dccc: Make it compile with ITREE_DEBUG defined
Date: Sat, 1 Oct 2022 02:35:30 -0400 (EDT)

branch: feature/noverlay
commit c55254dcccf53df3e619737bb6670f0a573f27a1
Author: Gerd Möllmann <gerd@gnu.org>
Commit: Gerd Möllmann <gerd@gnu.org>

    Make it compile with ITREE_DEBUG defined
    
    * src/buffer.c (make_lispy_interval_node): Use make_fixnum.
    (overlay_tree): Use ITREE_NULL.
---
 src/buffer.c | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/buffer.c b/src/buffer.c
index 19937216ed..1e01750e16 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -4913,15 +4913,15 @@ defvar_per_buffer (struct Lisp_Buffer_Objfwd *bo_fwd, 
const char *namestring,
 static Lisp_Object
 make_lispy_interval_node (const struct interval_node *node)
 {
-  return listn (CONSTYPE_HEAP, 12,
+  return listn (12,
                 intern (":begin"),
-                make_number (node->begin),
+                make_fixnum (node->begin),
                 intern (":end"),
-                make_number (node->end),
+                make_fixnum (node->end),
                 intern (":limit"),
-                make_number (node->limit),
+                make_fixnum (node->limit),
                 intern (":offset"),
-                make_number (node->offset),
+                make_fixnum (node->offset),
                 intern (":rear-advance"),
                 node->rear_advance ? Qt : Qnil,
                 intern (":front-advance"),
@@ -4932,7 +4932,7 @@ static Lisp_Object
 overlay_tree (const struct interval_tree *tree,
               const struct interval_node *node)
 {
-  if (node == &tree->nil)
+  if (node == ITREE_NULL)
     return Qnil;
   return list3 (make_lispy_interval_node (node),
                 overlay_tree (tree, node->left),



reply via email to

[Prev in Thread] Current Thread [Next in Thread]