1 |
/* machine description file for Hitachi SR2001/SR2201 machines. |
/* machine description file for Hitachi SR2001/SR2201 machines. |
2 |
Copyright (C) 1996, 2002 Free Software Foundation, Inc. |
Copyright (C) 1996, 2002, 2003 Free Software Foundation, Inc. |
3 |
|
|
4 |
This file is part of GNU Emacs. |
This file is part of GNU Emacs. |
5 |
|
|
69 |
((var) = ((int)(type) << VALBITS) + (((unsigned) (ptr) << BITS_PER_INT-VALBITS) >> BITS_PER_INT-VALBITS)) |
((var) = ((int)(type) << VALBITS) + (((unsigned) (ptr) << BITS_PER_INT-VALBITS) >> BITS_PER_INT-VALBITS)) |
70 |
|
|
71 |
#define XMARKBIT(a) ((a) < 0) |
#define XMARKBIT(a) ((a) < 0) |
|
#define XSETMARKBIT(a,b) ((a) = ((b) ? (a)|MARKBIT : (a) & ~MARKBIT)) |
|
72 |
|
|
73 |
#if 0 /* Loses when sign bit of type field is set. */ |
#if 0 /* Loses when sign bit of type field is set. */ |
74 |
#define XUNMARK(a) ((a) = (((a) << BITS_PER_INT-GCTYPEBITS-VALBITS) >> BITS_PER_INT-GCTYPEBITS-VALBITS)) |
#define XUNMARK(a) ((a) = (((a) << BITS_PER_INT-GCTYPEBITS-VALBITS) >> BITS_PER_INT-GCTYPEBITS-VALBITS)) |