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

   1 /* machine description file for Iris-4D machines.  Use with s/iris[45]-*.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 1, 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, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  19
  20
  21 /* The following three symbols give information on
  22  the size of various data types.  */
  23
  24 #define SHORTBITS 16            /* Number of bits in a short */
  25
  26 #define INTBITS 32              /* Number of bits in an int */
  27
  28 #define LONGBITS 32             /* Number of bits in a long */
  29
  30 /* Define BIG_ENDIAN iff lowest-numbered byte in a word
  31    is the most significant byte.  */
  32
  33 #define BIG_ENDIAN
  34
  35 /* Define NO_ARG_ARRAY if you cannot take the address of the first of a
  36  * group of arguments and treat it as an array of the arguments.  */
  37
  38 #define NO_ARG_ARRAY
  39
  40 /* Define WORD_MACHINE if addresses and such have
  41  * to be corrected before they can be used as byte counts.  */
  42
  43 #undef WORD_MACHINE
  44
  45 /* Now define a symbol for the cpu type, if your compiler
  46    does not define it automatically:
  47    Ones defined so far include vax, m68000, ns16000, pyramid,
  48    orion, tahoe, APOLLO and many others */
  49
  50 #ifndef mips
  51 #define mips
  52 #endif
  53
  54 #ifndef IRIS_4D
  55 #define IRIS_4D
  56 #endif
  57
  58 /* Use type int rather than a union, to represent Lisp_Object */
  59 /* This is desirable for most machines.  */
  60
  61 #define NO_UNION_TYPE
  62
  63 /* Define EXPLICIT_SIGN_EXTEND if XINT must explicitly sign-extend
  64    the 24-bit bit field into an int.  In other words, if bit fields
  65    are always unsigned.
  66
  67    If you use NO_UNION_TYPE, this flag does not matter.  */
  68
  69 #define EXPLICIT_SIGN_EXTEND
  70
  71 /* jg@genmagic.genmagic.com (John Giannandrea) says this is unnecessary.  */
  72 #if 0
  73 /* Data type of load average, as read out of kmem.  */
  74
  75 #define LOAD_AVE_TYPE long      /* This doesn't quite work on the 4D */
  76
  77 /* Convert that into an integer that is 100 for a load average of 1.0  */
  78
  79 #define LOAD_AVE_CVT(x) (int)(((double)(x)*100)/1024.0)
  80
  81 /* s-iris3-6.h uses /vmunix */
  82
  83 #undef KERNEL_FILE
  84 #define KERNEL_FILE "/unix"
  85 #endif
  86
  87 /* Define CANNOT_DUMP on machines where unexec does not work.
  88    Then the function dump-emacs will not be defined
  89    and temacs will do (load "loadup") automatically unless told otherwise.  */
  90
  91 #undef CANNOT_DUMP
  92
  93 /* Define VIRT_ADDR_VARIES if the virtual addresses of
  94    pure and impure space as loaded can vary, and even their
  95    relative order cannot be relied on.
  96
  97    Otherwise Emacs assumes that text space precedes data space,
  98    numerically.  */
  99
 100 /* #define VIRT_ADDR_VARIES */
 101
 102 /* Define C_ALLOCA if this machine does not support a true alloca
 103    and the one written in C should be used instead.
 104    Define HAVE_ALLOCA to say that the system provides a properly
 105    working alloca function and it should be used.
 106    Define neither one if an assembler-language alloca
 107    in the file alloca.s should be used.  */
 108
 109 #define C_ALLOCA
 110 /* #define HAVE_ALLOCA */
 111
 112 /* Define NO_REMAP if memory segmentation makes it not work well
 113    to change the boundary between the text section and data section
 114    when Emacs is dumped.  If you define this, the preloaded Lisp
 115    code will not be sharable; but that's better than failing completely.  */
 116
 117 #define NO_REMAP
 118
 119 /* This machine requires completely different unexec code
 120    which lives in a separate file.  Specify the file name.  */
 121
 122 #define UNEXEC unexmips.o
 123
 124 #define TEXT_START 0x400000
 125
 126 /*
 127  * DATA_SEG_BITS forces that bit to be or'd in with any pointers which
 128  * are trying to access pure strings (as gnu-emacs only allows 24 bits
 129  * for the value field of a LISP_OBJECT).
 130  */
 131
 132 #define DATA_START 0x10000000
 133 #define DATA_SEG_BITS   0x10000000
 134
 135 #undef LIBS_MACHINE
 136 /* -lsun in case using Yellow Pages for passwords.  */
 137 #define LIBS_MACHINE -lsun -lmld
 138 #define LIBS_DEBUG
 139
 140 /* Define this if you have a fairly recent system,
 141    in which crt1.o and crt1.n should be used.  */
 142 #define HAVE_CRTN
 143
 144 #ifdef HAVE_CRTN
 145 /* Must define START-FILES so that the linker can find /usr/lib/crt0.o.  */
 146 #define START_FILES pre-crt0.o /usr/lib/crt1.o
 147 #define LIB_STANDARD -lbsd -lc /usr/lib/crtn.o
 148 #else
 149 #define START_FILES pre-crt0.o /usr/lib/crt0.o
 150 /* The entry-point label (start of text segment) is `start', not `__start'.  */
 151 #define DEFAULT_ENTRY_ADDRESS start
 152 #define LIB_STANDARD -lbsd -lc
 153 #endif
 154 \f
 155 /* Use terminfo instead of termcap.  */
 156
 157 #define TERMINFO
 158
 159 /* Letter to use in finding device name of first pty,
 160   if system supports pty's.  'a' means it is /dev/ptya0  */
 161
 162 #undef FIRST_PTY_LETTER
 163 #define FIRST_PTY_LETTER 'q'
 164
 165 /* Define STACK_DIRECTION for alloca.c */
 166
 167 #define STACK_DIRECTION -1
 168 \f
 169 /* The standard definitions of these macros would work ok,
 170    but these are faster because the constants are short.  */
 171
 172 #define XUINT(a) (((unsigned)(a) << INTBITS-VALBITS) >> INTBITS-VALBITS)
 173
 174 #define XSET(var, type, ptr) \
 175    ((var) = ((int)(type) << VALBITS) + (((unsigned) (ptr) << INTBITS-VALBITS) >> INTBITS-VALBITS))
 176
 177 #define XSETINT(a, b)  XSET(a, XTYPE(a), b)
 178 #define XSETUINT(a, b) XSET(a, XTYPE(a), b)
 179 #define XSETPNTR(a, b) XSET(a, XTYPE(a), b)
 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) << INTBITS-GCTYPEBITS-VALBITS) >> INTBITS-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 #define C_SWITCH_MACHINE -cckr
 189 #endif