From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 6 Jul 2003 21:06:45 +0000 (+0000)
Subject: (XSETMARKBIT): Remove unused macro.
X-Git-Tag: ttn-vms-21-2-B4~9471
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c74abe0afd969423d0be6b2477b146fbd8e27b18;p=emacs.git

(XSETMARKBIT): Remove unused macro.
---

diff --git a/src/lisp.h b/src/lisp.h
index 997120ff958..95da9d82968 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -380,10 +380,6 @@ enum pvec_type
 #define XMARKBIT(a) ((a) & MARKBIT)
 #endif
 
-#ifndef XSETMARKBIT
-#define XSETMARKBIT(a,b) ((a) = ((a) & ~MARKBIT) | ((b) ? MARKBIT : 0))
-#endif
-
 #ifndef XMARK
 #define XMARK(a) ((a) |= MARKBIT)
 #endif
@@ -433,7 +429,6 @@ extern Lisp_Object make_number ();
 
 #define XGCTYPE(a) ((a).gu.type)
 #define XMARKBIT(a) ((a).gu.markbit)
-#define XSETMARKBIT(a,b) (XMARKBIT(a) = (b))
 #define XMARK(a) (XMARKBIT(a) = 1)
 #define XUNMARK(a) (XMARKBIT(a) = 0)
 
diff --git a/src/m/hp800.h b/src/m/hp800.h
index 5e4e0fd0ec6..bc51b31836a 100644
--- a/src/m/hp800.h
+++ b/src/m/hp800.h
@@ -1,5 +1,5 @@
 /* machine description file for hp9000 series 800 machines.
-   Copyright (C) 1987, 2002 Free Software Foundation, Inc.
+   Copyright (C) 1987, 2002, 2003 Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -69,7 +69,6 @@ Boston, MA 02111-1307, USA.  */
    ((var) = ((int)(type) << VALBITS) + (((unsigned) (ptr) << BITS_PER_INT-VALBITS) >> BITS_PER_INT-VALBITS))
 
 #define XMARKBIT(a) ((a) < 0)
-#define XSETMARKBIT(a,b) ((a) = ((b) ? (a)|MARKBIT : (a) & ~MARKBIT))
 
 #if 0  /* Loses when sign bit of type field is set.  */
 #define XUNMARK(a) ((a) = (((a) << BITS_PER_INT-GCTYPEBITS-VALBITS) >> BITS_PER_INT-GCTYPEBITS-VALBITS))
diff --git a/src/m/sr2k.h b/src/m/sr2k.h
index 4adf0f700fc..579432aa3b0 100644
--- a/src/m/sr2k.h
+++ b/src/m/sr2k.h
@@ -1,5 +1,5 @@
 /* machine description file for Hitachi SR2001/SR2201 machines.
-   Copyright (C) 1996, 2002 Free Software Foundation, Inc.
+   Copyright (C) 1996, 2002, 2003 Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -69,7 +69,6 @@ Boston, MA 02111-1307, USA.  */
    ((var) = ((int)(type) << VALBITS) + (((unsigned) (ptr) << BITS_PER_INT-VALBITS) >> BITS_PER_INT-VALBITS))
 
 #define XMARKBIT(a) ((a) < 0)
-#define XSETMARKBIT(a,b) ((a) = ((b) ? (a)|MARKBIT : (a) & ~MARKBIT))
 
 #if 0  /* Loses when sign bit of type field is set.  */
 #define XUNMARK(a) ((a) = (((a) << BITS_PER_INT-GCTYPEBITS-VALBITS) >> BITS_PER_INT-GCTYPEBITS-VALBITS))