[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),
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- feature/noverlay c55254dccc: Make it compile with ITREE_DEBUG defined,
Gerd Moellmann <=