Mercurial > emacs

comparison src/m/sr2k.h @ 88155:d7ddb3e565de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sync with trunk
author Henrik Enberg <henrik.enberg@telia.com>
date Mon, 16 Jan 2006 00:03:54 +0000
parents 23a1cea22d13
children
comparison
equal deleted inserted replaced
88154:8ce476d3ba36 88155:d7ddb3e565de
1 /* machine description file for Hitachi SR2001/SR2201 machines. 1 /* machine description file for Hitachi SR2001/SR2201 machines.
2 Copyright (C) 1996, 2002 Free Software Foundation, Inc. 2 Copyright (C) 1996, 2002, 2003, 2004, 2005 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
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details. 14 GNU General Public License for more details.
15 15
16 You should have received a copy of the GNU General Public License 16 You should have received a copy of the GNU General Public License
17 along with GNU Emacs; see the file COPYING. If not, write to 17 along with GNU Emacs; see the file COPYING. If not, write to
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, 18 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
19 Boston, MA 02111-1307, USA. */ 19 Boston, MA 02110-1301, USA. */
20 20
21 21
22 /* The following line tells the configuration script what sort of 22 /* The following line tells the configuration script what sort of
23 operating system this machine is likely to run. 23 operating system this machine is likely to run.
24 USUAL-OPSYS="hpux" */ 24 USUAL-OPSYS="hpux" */
65 65
66 #define XUINT(a) (((unsigned)(a) << BITS_PER_INT-VALBITS) >> BITS_PER_INT-VALBITS) 66 #define XUINT(a) (((unsigned)(a) << BITS_PER_INT-VALBITS) >> BITS_PER_INT-VALBITS)
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
71 #define XMARKBIT(a) ((a) < 0)
72 #define XSETMARKBIT(a,b) ((a) = ((b) ? (a)|MARKBIT : (a) & ~MARKBIT))
73
74 #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))
76 #endif
77 70
78 /* #ifdef __hpux */ 71 /* #ifdef __hpux */
79 /* Now define a symbol for the cpu type, if your compiler 72 /* Now define a symbol for the cpu type, if your compiler
80 does not define it automatically: 73 does not define it automatically:
81 Ones defined so far include vax, m68000, ns16000, pyramid, 74 Ones defined so far include vax, m68000, ns16000, pyramid,
159 152
160 #define index strchr 153 #define index strchr
161 #define rindex strrchr 154 #define rindex strrchr
162 155
163 /* #endif */ 156 /* #endif */
157
158 /* arch-tag: 4ced5b51-ffe6-4be1-9954-eb40657023a5
159 (do not change this comment) */