# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1057525605 0
# Node ID b4397c0420d4b687d05d8edb1666a4ade6e82de8
# Parent  e6edda7d95c44f929330d016a982378cb8be77a4
(XSETMARKBIT): Remove unused macro.

diff -r e6edda7d95c4 -r b4397c0420d4 src/lisp.h
--- a/src/lisp.h	Sun Jul 06 19:35:58 2003 +0000
+++ b/src/lisp.h	Sun Jul 06 21:06:45 2003 +0000
@@ -380,10 +380,6 @@
 #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 @@
 
 #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 -r e6edda7d95c4 -r b4397c0420d4 src/m/hp800.h
--- a/src/m/hp800.h	Sun Jul 06 19:35:58 2003 +0000
+++ b/src/m/hp800.h	Sun Jul 06 21:06:45 2003 +0000
@@ -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 @@
    ((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 -r e6edda7d95c4 -r b4397c0420d4 src/m/sr2k.h
--- a/src/m/sr2k.h	Sun Jul 06 19:35:58 2003 +0000
+++ b/src/m/sr2k.h	Sun Jul 06 21:06:45 2003 +0000
@@ -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 @@
    ((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))