src/m/iris4d.h

   1 /* machine description file for Iris-4D machines.  Use with s/irix*.h.
   2
   3 Copyright (C) 1987, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008,
   4   2009, 2010  Free Software Foundation, Inc.
   5
   6 This file is part of GNU Emacs.
   7
   8 GNU Emacs is free software: you can redistribute it and/or modify
   9 it under the terms of the GNU General Public License as published by
  10 the Free Software Foundation, either version 3 of the License, or
  11 (at your option) any later version.
  12
  13 GNU Emacs is distributed in the hope that it will be useful,
  14 but WITHOUT ANY WARRANTY; without even the implied warranty of
  15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16 GNU General Public License for more details.
  17
  18 You should have received a copy of the GNU General Public License
  19 along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.  */
  20
  21
  22 /* Define WORDS_BIG_ENDIAN if lowest-numbered byte in a word
  23    is the most significant byte.  */
  24 #define WORDS_BIG_ENDIAN
  25
  26 /* Define EXPLICIT_SIGN_EXTEND if XINT must explicitly sign-extend
  27    the bit field into an int.  In other words, if bit fields
  28    are always unsigned.
  29
  30    This flag only matters if you use USE_LISP_UNION_TYPE.  */
  31 #define EXPLICIT_SIGN_EXTEND
  32
  33 #define TEXT_START 0x400000
  34
  35 /* DATA_SEG_BITS forces extra bits to be or'd in with any pointers which
  36    were stored in a Lisp_Object (as Emacs uses fewer than 32 bits for
  37    the value field of a LISP_OBJECT).  */
  38 #define DATA_START 0x10000000
  39 #define DATA_SEG_BITS   0x10000000
  40
  41 \f
  42 #if _MIPS_SZLONG != 64
  43 /* fixme: should there be 64-bit definitions?  (The ones below aren't OK.)  */
  44
  45 /* The standard definitions of these macros would work ok,
  46    but these are faster because the constants are short.  */
  47 #define XUINT(a) (((unsigned)(a) << BITS_PER_INT-VALBITS) >> BITS_PER_INT-VALBITS)
  48
  49 #define XSET(var, type, ptr) \
  50    ((var) = ((int)(type) << VALBITS) + (((unsigned) (ptr) << BITS_PER_INT-VALBITS) >> BITS_PER_INT-VALBITS))
  51 #endif /* _LP64 */
  52
  53 /* arch-tag: fff5e139-9ae0-465d-afec-837c41ea0aa6
  54    (do not change this comment) */