code.delx.au - gnu-emacs/blob - src/m/iris4d.h

   1 /* machine description file for Iris-4D machines.  Use with s/irix*.h.
   2    Copyright (C) 1987 Free Software Foundation, Inc.
   3
   4 This file is part of GNU Emacs.
   5
   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
   8 the Free Software Foundation; either version 2, or (at your option)
   9 any later version.
  10
  11 GNU Emacs is distributed in the hope that it will be useful,
  12 but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 GNU General Public License for more details.
  15
  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
  18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  19 Boston, MA 02111-1307, USA.  */
  20
  21
  22 /* Define WORDS_BIG_ENDIAN iff lowest-numbered byte in a word
  23    is the most significant byte.  */
  24
  25 #define WORDS_BIG_ENDIAN
  26
  27 /* Define NO_ARG_ARRAY if you cannot take the address of the first of a
  28  * group of arguments and treat it as an array of the arguments.  */
  29
  30 #define NO_ARG_ARRAY
  31
  32 /* Define WORD_MACHINE if addresses and such have
  33  * to be corrected before they can be used as byte counts.  */
  34
  35 #undef WORD_MACHINE
  36
  37 /* Now define a symbol for the cpu type, if your compiler
  38    does not define it automatically:
  39    Ones defined so far include vax, m68000, ns16000, pyramid,
  40    orion, tahoe, APOLLO and many others */
  41
  42 #ifndef mips
  43 #define mips
  44 #endif
  45
  46 #ifndef IRIS_4D
  47 #define IRIS_4D
  48 #endif
  49
  50 /* Use type int rather than a union, to represent Lisp_Object */
  51 /* This is desirable for most machines.  */
  52
  53 #define NO_UNION_TYPE
  54
  55 /* Define EXPLICIT_SIGN_EXTEND if XINT must explicitly sign-extend
  56    the bit field into an int.  In other words, if bit fields
  57    are always unsigned.
  58
  59    If you use NO_UNION_TYPE, this flag does not matter.  */
  60
  61 #define EXPLICIT_SIGN_EXTEND
  62
  63 /* jg@genmagic.genmagic.com (John Giannandrea) says this is unnecessary.  */
  64 #if 0
  65 /* Data type of load average, as read out of kmem.  */
  66
  67 #define LOAD_AVE_TYPE long      /* This doesn't quite work on the 4D */
  68
  69 /* Convert that into an integer that is 100 for a load average of 1.0  */
  70
  71 #define LOAD_AVE_CVT(x) (int)(((double)(x)*100)/1024.0)
  72
  73 /* s-iris3-6.h uses /vmunix */
  74
  75 #undef KERNEL_FILE
  76 #define KERNEL_FILE "/unix"
  77 #endif
  78
  79 /* Define CANNOT_DUMP on machines where unexec does not work.
  80    Then the function dump-emacs will not be defined
  81    and temacs will do (load "loadup") automatically unless told otherwise.  */
  82
  83 #undef CANNOT_DUMP
  84
  85 /* Define VIRT_ADDR_VARIES if the virtual addresses of
  86    pure and impure space as loaded can vary, and even their
  87    relative order cannot be relied on.
  88
  89    Otherwise Emacs assumes that text space precedes data space,
  90    numerically.  */
  91
  92 /* #define VIRT_ADDR_VARIES */
  93
  94 /* Define C_ALLOCA if this machine does not support a true alloca
  95    and the one written in C should be used instead.
  96    Define HAVE_ALLOCA to say that the system provides a properly
  97    working alloca function and it should be used.
  98    Define neither one if an assembler-language alloca
  99    in the file alloca.s should be used.  */
 100
 101 /* #define C_ALLOCA */  /* Sjoerd.Mullender@cwi.nl says no need.  */
 102 /* #define HAVE_ALLOCA */
 103
 104 /* Define NO_REMAP if memory segmentation makes it not work well
 105    to change the boundary between the text section and data section
 106    when Emacs is dumped.  If you define this, the preloaded Lisp
 107    code will not be sharable; but that's better than failing completely.  */
 108
 109 #define NO_REMAP
 110
 111 /* This machine requires completely different unexec code
 112    which lives in a separate file.  Specify the file name.  */
 113
 114 #ifdef USG5_4
 115 #undef UNEXEC
 116 #define UNEXEC unexsgi.o
 117 #else
 118 #define UNEXEC unexmips.o
 119 #endif
 120
 121 #define TEXT_START 0x400000
 122
 123 /*
 124  * DATA_SEG_BITS forces extra bits to be or'd in with any pointers which
 125  * were stored in a Lisp_Object (as Emacs uses fewer than 32 bits for
 126  * the value field of a LISP_OBJECT).
 127  */
 128
 129 #define DATA_START 0x10000000
 130 #define DATA_SEG_BITS   0x10000000
 131
 132 #undef LIBS_MACHINE
 133 /* -lsun in case using Yellow Pages for passwords.  */
 134 #if defined(__GNUC__) && defined(_ABIN32)
 135 #define LIBS_MACHINE
 136 #else
 137 #define LIBS_MACHINE -lmld
 138 #endif
 139 #define LIBS_DEBUG
 140
 141 /* Define this if you have a fairly recent system,
 142    in which crt1.o and crt1.n should be used.  */
 143 #define HAVE_CRTN
 144
 145 #ifndef USG5_4
 146 #ifdef HAVE_CRTN
 147 /* Must define START-FILES so that the linker can find /usr/lib/crt0.o.  */
 148 #define START_FILES pre-crt0.o /usr/lib/crt1.o
 149 #define LIB_STANDARD -lc /usr/lib/crtn.o
 150 #else
 151 #define START_FILES pre-crt0.o /usr/lib/crt0.o
 152 /* The entry-point label (start of text segment) is `start', not `__start'.  */
 153 #define DEFAULT_ENTRY_ADDRESS start
 154 #define LIB_STANDARD -lc
 155 #endif
 156 #endif
 157 \f
 158 /* Use terminfo instead of termcap.  */
 159
 160 #define TERMINFO
 161
 162 /* Letter to use in finding device name of first pty,
 163   if system supports pty's.  'a' means it is /dev/ptya0  */
 164
 165 #undef FIRST_PTY_LETTER
 166 #define FIRST_PTY_LETTER 'q'
 167
 168 /* Define STACK_DIRECTION for alloca.c */
 169
 170 #undef STACK_DIRECTION
 171 #define STACK_DIRECTION -1
 172 \f
 173 /* The standard definitions of these macros would work ok,
 174    but these are faster because the constants are short.  */
 175
 176 #define XUINT(a) (((unsigned)(a) << BITS_PER_INT-VALBITS) >> BITS_PER_INT-VALBITS)
 177
 178 #define XSET(var, type, ptr) \
 179    ((var) = ((int)(type) << VALBITS) + (((unsigned) (ptr) << BITS_PER_INT-VALBITS) >> BITS_PER_INT-VALBITS))
 180
 181 #define XMARKBIT(a) ((a) < 0)
 182 #define XSETMARKBIT(a,b) ((a) = ((a) & ~MARKBIT) | ((b) ? MARKBIT : 0))
 183 #define XUNMARK(a) ((a) = (((unsigned)(a) << BITS_PER_INT-GCTYPEBITS-VALBITS) >> BITS_PER_INT-GCTYPEBITS-VALBITS))
 184
 185 #ifndef __GNUC__
 186 /* Turn off some "helpful" error checks for type mismatches
 187    that we can't fix without breaking other machines.  */
 188 #ifdef IRIX_FORCE_32_BITS
 189 #ifdef THIS_IS_MAKEFILE
 190 #define C_SWITCH_MACHINE -32
 191 #endif
 192 #endif
 193
 194 #endif /* not __GNUC__ */