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

   1 /* alliant.h  Alliant machine running system version 2 or 3.
   2    Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
   3    Note that for version 1 of the Alliant system
   4    you should use alliant1.h instead of this file.
   5    Use alliant4.h for version 4.
   6
   7 This file is part of GNU Emacs.
   8
   9 GNU Emacs is free software; you can redistribute it and/or modify
  10 it under the terms of the GNU General Public License as published by
  11 the Free Software Foundation; either version 1, or (at your option)
  12 any later version.
  13
  14 GNU Emacs is distributed in the hope that it will be useful,
  15 but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 GNU General Public License for more details.
  18
  19 You should have received a copy of the GNU General Public License
  20 along with GNU Emacs; see the file COPYING.  If not, write to
  21 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  22
  23 /* The following line tells the configuration script what sort of
  24    operating system this machine is likely to run.
  25    USUAL-OPSYS="bsd4-2"  */
  26
  27 /* The following three symbols give information on
  28  the size of various data types.  */
  29
  30 #define SHORTBITS 16            /* Number of bits in a short */
  31
  32 #define INTBITS 32              /* Number of bits in an int */
  33
  34 #define LONGBITS 32             /* Number of bits in a long */
  35
  36 /* Define BIG_ENDIAN iff lowest-numbered byte in a word
  37    is the most significant byte.  */
  38
  39 #define BIG_ENDIAN
  40
  41 /* Define NO_ARG_ARRAY if you cannot take the address of the first of a
  42  * group of arguments and treat it as an array of the arguments.  */
  43
  44 #ifdef ALLIANT_1
  45 #define NO_ARG_ARRAY
  46 #endif
  47
  48 /* Define WORD_MACHINE if addresses and such have
  49  * to be corrected before they can be used as byte counts.  */
  50
  51 #undef WORD_MACHINE
  52
  53 /* Define how to take a char and sign-extend into an int.
  54    On machines where char is signed, this is a no-op.  */
  55
  56 #define SIGN_EXTEND_CHAR(c) (c)
  57
  58 /* Now define a symbol for the cpu type, if your compiler
  59    does not define it automatically:
  60    vax, m68000, ns16000, pyramid, orion, tahoe and APOLLO
  61    are the ones defined so far.  */
  62
  63 #define ALLIANT
  64
  65 /* Use type int rather than a union, to represent Lisp_Object */
  66 /* This is desirable for most machines.  */
  67
  68 #define NO_UNION_TYPE
  69
  70 /* Define EXPLICIT_SIGN_EXTEND if XINT must explicitly sign-extend
  71    the 24-bit bit field into an int.  In other words, if bit fields
  72    are always unsigned.
  73
  74    If you use NO_UNION_TYPE, this flag does not matter.  */
  75 /* On Alliants, bitfields are unsigned. */
  76
  77 #define EXPLICIT_SIGN_EXTEND
  78
  79 /* No load average information available for Alliants. */
  80
  81 #undef LOAD_AVE_TYPE
  82 #undef LOAD_AVE_CVT
  83
  84 /* Define CANNOT_DUMP on machines where unexec does not work.
  85    Then the function dump-emacs will not be defined
  86    and temacs will do (load "loadup") automatically unless told otherwise.  */
  87
  88 #undef CANNOT_DUMP
  89
  90 /* Define VIRT_ADDR_VARIES if the virtual addresses of
  91    pure and impure space as loaded can vary, and even their
  92    relative order cannot be relied on.
  93
  94    Otherwise Emacs assumes that text space precedes data space,
  95    numerically.  */
  96
  97 #undef VIRT_ADDR_VARIES
  98
  99 /* Define C_ALLOCA if this machine does not support a true alloca
 100    and the one written in C should be used instead.
 101    Define HAVE_ALLOCA to say that the system provides a properly
 102    working alloca function and it should be used.
 103    Define neither one if an assembler-language alloca
 104    in the file alloca.s should be used.  */
 105
 106 #undef C_ALLOCA
 107 #define HAVE_ALLOCA
 108
 109 #ifdef ALLIANT_1
 110 #define C_ALLOCA
 111 #undef HAVE_ALLOCA
 112 #endif /* ALLIANT_1 */
 113
 114 /* Define NO_REMAP if memory segmentation makes it not work well
 115    to change the boundary between the text section and data section
 116    when Emacs is dumped.  If you define this, the preloaded Lisp
 117    code will not be sharable; but that's better than failing completely.  */
 118 /* Actually, Alliant CONCENTRIX does paging "right":
 119    data pages are copy-on-write, which means that the pure data areas
 120    are shared automatically and remapping is not necessary.  */
 121
 122 #define NO_REMAP
 123
 124 /* Alliant needs special crt0.o because system version is not reentrant */
 125
 126 #define START_FILES crt0.o
 127
 128 /* Alliant dependent code for dumping executing image.
 129    See crt0.c code for alliant.  */
 130
 131 #define ADJUST_EXEC_HEADER {\
 132 extern int _curbrk, _setbrk;\
 133 _setbrk = _curbrk;\
 134 hdr.a_bss_addr = bss_start;\
 135 unexec_text_start = hdr.a_text_addr;}
 136
 137 /* cc screws up on long names.  Try making cpp replace them.  */
 138
 139 #ifdef ALLIANT_1
 140 #define Finsert_abbrev_table_description Finsert_abbrev_table_descrip
 141 #define internal_with_output_to_temp_buffer internal_with_output_to_tem
 142 #endif
 143
 144 /* "vector" is a typedef in /usr/include/machine/reg.h, so its use as
 145    a variable name causes errors when compiling under ANSI C.  */
 146
 147 #define vector xxvector