Mercurial > emacs
comparison src/m/hp800.h @ 51772:b4397c0420d4
(XSETMARKBIT): Remove unused macro.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sun, 06 Jul 2003 21:06:45 +0000 |
| parents | 23a1cea22d13 |
| children | 695cf19ef79e |
comparison
equal
deleted
inserted
replaced
| 51771:e6edda7d95c4 | 51772:b4397c0420d4 |
|---|---|
| 1 /* machine description file for hp9000 series 800 machines. | 1 /* machine description file for hp9000 series 800 machines. |
| 2 Copyright (C) 1987, 2002 Free Software Foundation, Inc. | 2 Copyright (C) 1987, 2002, 2003 Free Software Foundation, Inc. |
| 3 | 3 |
| 4 This file is part of GNU Emacs. | 4 This file is part of GNU Emacs. |
| 5 | 5 |
| 6 GNU Emacs is free software; you can redistribute it and/or modify | 6 GNU Emacs is free software; you can redistribute it and/or modify |
| 7 it under the terms of the GNU General Public License as published by | 7 it under the terms of the GNU General Public License as published by |
| 67 | 67 |
| 68 #define XSET(var, type, ptr) \ | 68 #define XSET(var, type, ptr) \ |
| 69 ((var) = ((int)(type) << VALBITS) + (((unsigned) (ptr) << BITS_PER_INT-VALBITS) >> BITS_PER_INT-VALBITS)) | 69 ((var) = ((int)(type) << VALBITS) + (((unsigned) (ptr) << BITS_PER_INT-VALBITS) >> BITS_PER_INT-VALBITS)) |
| 70 | 70 |
| 71 #define XMARKBIT(a) ((a) < 0) | 71 #define XMARKBIT(a) ((a) < 0) |
| 72 #define XSETMARKBIT(a,b) ((a) = ((b) ? (a)|MARKBIT : (a) & ~MARKBIT)) | |
| 73 | 72 |
| 74 #if 0 /* Loses when sign bit of type field is set. */ | 73 #if 0 /* Loses when sign bit of type field is set. */ |
| 75 #define XUNMARK(a) ((a) = (((a) << BITS_PER_INT-GCTYPEBITS-VALBITS) >> BITS_PER_INT-GCTYPEBITS-VALBITS)) | 74 #define XUNMARK(a) ((a) = (((a) << BITS_PER_INT-GCTYPEBITS-VALBITS) >> BITS_PER_INT-GCTYPEBITS-VALBITS)) |
| 76 #endif | 75 #endif |
| 77 | 76 |