From c74abe0afd969423d0be6b2477b146fbd8e27b18 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 6 Jul 2003 21:06:45 +0000 Subject: [PATCH] (XSETMARKBIT): Remove unused macro. --- src/lisp.h | 5 ----- src/m/hp800.h | 3 +-- src/m/sr2k.h | 3 +-- 3 files changed, 2 insertions(+), 9 deletions(-) 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)) -- 2.39.2