Mercurial > emacs
changeset 51772:b4397c0420d4
(XSETMARKBIT): Remove unused macro.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sun, 06 Jul 2003 21:06:45 +0000 |
| parents | e6edda7d95c4 |
| children | 879bebcbb9d7 |
| files | src/lisp.h src/m/hp800.h src/m/sr2k.h |
| diffstat | 3 files changed, 2 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- 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)
--- 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))
--- 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))