comparison src/m/iris4d.h @ 52495:7afb553c7135

(XMARKBIT, XUNMARK): Remove.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 12 Sep 2003 19:54:10 +0000
parents 695cf19ef79e
children 23a17af379b1
comparison
equal deleted inserted replaced
52494:96d237d6be00 52495:7afb553c7135
1 /* machine description file for Iris-4D machines. Use with s/irix*.h. 1 /* machine description file for Iris-4D machines. Use with s/irix*.h.
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
168 168
169 #define XUINT(a) (((unsigned)(a) << BITS_PER_INT-VALBITS) >> BITS_PER_INT-VALBITS) 169 #define XUINT(a) (((unsigned)(a) << BITS_PER_INT-VALBITS) >> BITS_PER_INT-VALBITS)
170 170
171 #define XSET(var, type, ptr) \ 171 #define XSET(var, type, ptr) \
172 ((var) = ((int)(type) << VALBITS) + (((unsigned) (ptr) << BITS_PER_INT-VALBITS) >> BITS_PER_INT-VALBITS)) 172 ((var) = ((int)(type) << VALBITS) + (((unsigned) (ptr) << BITS_PER_INT-VALBITS) >> BITS_PER_INT-VALBITS))
173
174 #define XUNMARK(a) ((a) = (((unsigned)(a) << BITS_PER_INT-GCTYPEBITS-VALBITS) >> BITS_PER_INT-GCTYPEBITS-VALBITS))
175 #endif /* _LP64 */ 173 #endif /* _LP64 */
176 174
177 #ifndef __GNUC__ 175 #ifndef __GNUC__
178 /* Turn off some "helpful" error checks for type mismatches 176 /* Turn off some "helpful" error checks for type mismatches
179 that we can't fix without breaking other machines. */ 177 that we can't fix without breaking other machines. */