[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 416195f 6/6: * src/lisp.h (lisp_h_XPL, XPL): Remove; unused.
From: |
Paul Eggert |
Subject: |
master 416195f 6/6: * src/lisp.h (lisp_h_XPL, XPL): Remove; unused. |
Date: |
Mon, 31 Aug 2020 03:06:05 -0400 (EDT) |
branch: master
commit 416195fd43c803e40afb52472c155b360e5bcca6
Author: Paul Eggert <eggert@cs.ucla.edu>
Commit: Paul Eggert <eggert@cs.ucla.edu>
* src/lisp.h (lisp_h_XPL, XPL): Remove; unused.
---
src/lisp.h | 11 -----------
1 file changed, 11 deletions(-)
diff --git a/src/lisp.h b/src/lisp.h
index 745c056..88e69b9 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -339,24 +339,20 @@ typedef EMACS_INT Lisp_Word;
# define lisp_h_XLI(o) ((EMACS_INT) (o))
# define lisp_h_XIL(i) ((Lisp_Object) (i))
# define lisp_h_XLP(o) ((void *) (o))
-# define lisp_h_XPL(p) ((Lisp_Object) (p))
# else
# define lisp_h_XLI(o) (o)
# define lisp_h_XIL(i) (i)
# define lisp_h_XLP(o) ((void *) (uintptr_t) (o))
-# define lisp_h_XPL(p) ((Lisp_Object) (uintptr_t) (p))
# endif
#else
# if LISP_WORDS_ARE_POINTERS
# define lisp_h_XLI(o) ((EMACS_INT) (o).i)
# define lisp_h_XIL(i) ((Lisp_Object) {(Lisp_Word) (i)})
# define lisp_h_XLP(o) ((void *) (o).i)
-# define lisp_h_XPL(p) lisp_h_XIL (p)
# else
# define lisp_h_XLI(o) ((o).i)
# define lisp_h_XIL(i) ((Lisp_Object) {i})
# define lisp_h_XLP(o) ((void *) (uintptr_t) (o).i)
-# define lisp_h_XPL(p) ((Lisp_Object) {(uintptr_t) (p)})
# endif
#endif
@@ -425,7 +421,6 @@ typedef EMACS_INT Lisp_Word;
# define XLI(o) lisp_h_XLI (o)
# define XIL(i) lisp_h_XIL (i)
# define XLP(o) lisp_h_XLP (o)
-# define XPL(p) lisp_h_XPL (p)
# define CHECK_FIXNUM(x) lisp_h_CHECK_FIXNUM (x)
# define CHECK_SYMBOL(x) lisp_h_CHECK_SYMBOL (x)
# define CHECK_TYPE(ok, predicate, x) lisp_h_CHECK_TYPE (ok, predicate, x)
@@ -735,12 +730,6 @@ INLINE void *
return lisp_h_XLP (o);
}
-INLINE Lisp_Object
-(XPL) (void *p)
-{
- return lisp_h_XPL (p);
-}
-
/* Extract A's type. */
INLINE enum Lisp_Type
- master updated (886ba06 -> 416195f), Paul Eggert, 2020/08/31
- master 2ff930d 1/6: Fix GC bug with Lisp floats and --with-wide-int, Paul Eggert, 2020/08/31
- master 7e2f6f8 4/6: Remove mark_maybe_object, Paul Eggert, 2020/08/31
- master cf95bb0 3/6: Avoid some false matches in mark_maybe_pointer, Paul Eggert, 2020/08/31
- master aa1b586 2/6: Omit no-longer-needed stack mark_maybe_object, Paul Eggert, 2020/08/31
- master 89350d4 5/6: Use mark_objects elsewhere too, Paul Eggert, 2020/08/31
- master 416195f 6/6: * src/lisp.h (lisp_h_XPL, XPL): Remove; unused.,
Paul Eggert <=