#define XSET(var, type, ptr) \
((var) = ((int)(type) << VALBITS) + (((unsigned) (ptr) << BITS_PER_INT-VALBITS) >> BITS_PER_INT-VALBITS))
-
-#define XMARKBIT(a) ((a) < 0)
-
-#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))
-#endif
\f
/* Common definitions for HPUX and GNU/Linux. */
/* machine description file for Iris-4D machines. Use with s/irix*.h.
- Copyright (C) 1987, 2002 Free Software Foundation, Inc.
+ Copyright (C) 1987, 2002, 2003 Free Software Foundation, Inc.
This file is part of GNU Emacs.
#define XSET(var, type, ptr) \
((var) = ((int)(type) << VALBITS) + (((unsigned) (ptr) << BITS_PER_INT-VALBITS) >> BITS_PER_INT-VALBITS))
-
-#define XUNMARK(a) ((a) = (((unsigned)(a) << BITS_PER_INT-GCTYPEBITS-VALBITS) >> BITS_PER_INT-GCTYPEBITS-VALBITS))
#endif /* _LP64 */
#ifndef __GNUC__
/* m- file for Mips machines.
- Copyright (C) 1987, 1992, 1993, 1995, 2002 Free Software Foundation, Inc.
+ Copyright (C) 1987,1992,1993,95,2002,03 Free Software Foundation, Inc.
This file contains some changes for our SVR4 based SINIX-Mips 5.4.
I hope this is helpful to port the emacs to our RM?00 series and
((int)(type) << VALBITS) \
+ (((unsigned) (ptr) << (BITS_PER_INT-VALBITS)) >> (BITS_PER_INT-VALBITS)))
-#define XUNMARK(a) \
- ((a) = \
- (((unsigned)(a) << (BITS_PER_INT-GCTYPEBITS-VALBITS)) \
- >> (BITS_PER_INT-GCTYPEBITS-VALBITS)))
-
/* arch-tag: a4f5c090-0bd5-48f0-9724-b7d531f9b6c8
(do not change this comment) */
/* m- file for Mips machines.
- Copyright (C) 1987, 1992, 1999, 2002 Free Software Foundation, Inc.
+ Copyright (C) 1987, 1992, 1999, 2002, 2003 Free Software Foundation, Inc.
This file is part of GNU Emacs.
((var) = \
((int)(type) << VALBITS) \
+ (((unsigned) (ptr) << (BITS_PER_INT-VALBITS)) >> (BITS_PER_INT-VALBITS)))
-
-#define XUNMARK(a) \
- ((a) = \
- (((unsigned)(a) << (BITS_PER_INT-GCTYPEBITS-VALBITS)) \
- >> (BITS_PER_INT-GCTYPEBITS-VALBITS)))
\f
#if !defined (NEWSOS5) && !defined (__linux__)
#ifdef USG
((int)(type) << VALBITS) \
+ (((unsigned) (ptr) << (BITS_PER_INT-VALBITS)) >> (BITS_PER_INT-VALBITS)))
-#define XUNMARK(a) \
- ((a) = \
- (((unsigned)(a) << (BITS_PER_INT-GCTYPEBITS-VALBITS)) \
- >> (BITS_PER_INT-GCTYPEBITS-VALBITS)))
-
/* arch-tag: b9fd7b75-ba3c-46d4-8966-24381b13001b
(do not change this comment) */
#define XSET(var, type, ptr) \
((var) = ((int)(type) << VALBITS) + (((unsigned) (ptr) << BITS_PER_INT-VALBITS) >> BITS_PER_INT-VALBITS))
-
-#define XMARKBIT(a) ((a) < 0)
-
-#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))
-#endif
\f
/* #ifdef __hpux */
/* Now define a symbol for the cpu type, if your compiler