src/m/alpha.h

   1 /* machine description file For the alpha chip.
   2    Copyright (C) 1994 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, Inc., 59 Temple Place - Suite 330,
  19 Boston, MA 02111-1307, USA.  */
  20
  21
  22 /* The following line tells the configuration script what sort of
  23    operating system this machine is likely to run.
  24    USUAL-OPSYS="note"
  25
  26 NOTE-START
  27 Use -opsystem=osf1
  28 NOTE-END
  29
  30 */
  31
  32 #define BITS_PER_LONG 64
  33
  34 /* Define WORDS_BIG_ENDIAN iff lowest-numbered byte in a word
  35    is the most significant byte.  */
  36
  37 #undef WORDS_BIG_ENDIAN
  38
  39 /* Define NO_ARG_ARRAY if you cannot take the address of the first of a
  40  * group of arguments and treat it as an array of the arguments.  */
  41
  42 #define NO_ARG_ARRAY
  43
  44 /* Define WORD_MACHINE if addresses and such have
  45  * to be corrected before they can be used as byte counts.  */
  46
  47 /* #define WORD_MACHINE */
  48
  49 /* Now define a symbol for the cpu type, if your compiler
  50    does not define it automatically:
  51    Ones defined so far include vax, m68000, ns16000, pyramid,
  52    orion, tahoe, APOLLO and many others */
  53
  54 /* __alpha defined automatically */
  55
  56
  57 /* Use type EMACS_INT rather than a union, to represent Lisp_Object */
  58 /* This is desirable for most machines.  */
  59
  60 #define NO_UNION_TYPE
  61
  62 /* Define the type to use.  */
  63 #define EMACS_INT long
  64 #define EMACS_UINT unsigned long
  65 #define SPECIAL_EMACS_INT
  66
  67 /* Define EXPLICIT_SIGN_EXTEND if XINT must explicitly sign-extend
  68    the 24-bit bit field into an int.  In other words, if bit fields
  69    are always unsigned.
  70
  71    If you use NO_UNION_TYPE, this flag does not matter.  */
  72
  73 #define EXPLICIT_SIGN_EXTEND
  74
  75 /* Data type of load average, as read out of kmem.  */
  76
  77 #define LOAD_AVE_TYPE long
  78
  79 /* Convert that into an integer that is 100 for a load average of 1.0  */
  80
  81 #define LOAD_AVE_CVT(x) (int) (((double) (x)) * 100.0 / FSCALE)
  82
  83 /* Define CANNOT_DUMP on machines where unexec does not work.
  84    Then the function dump-emacs will not be defined
  85    and temacs will do (load "loadup") automatically unless told otherwise.  */
  86
  87 /* #define CANNOT_DUMP */
  88
  89 /* Define VIRT_ADDR_VARIES if the virtual addresses of
  90    pure and impure space as loaded can vary, and even their
  91    relative order cannot be relied on.
  92
  93    Otherwise Emacs assumes that text space precedes data space,
  94    numerically.  */
  95
  96 /* #define VIRT_ADDR_VARIES */
  97
  98 /* Define C_ALLOCA if this machine does not support a true alloca
  99    and the one written in C should be used instead.
 100    Define HAVE_ALLOCA to say that the system provides a properly
 101    working alloca function and it should be used.
 102    Define neither one if an assembler-language alloca
 103    in the file alloca.s should be used.  */
 104
 105 #define HAVE_ALLOCA
 106
 107 /* GNU malloc and the relocating allocator do not work together
 108    with X.   [Who wrote that?]  */
 109
 110 /* May 1995: reportedly [Rainer Schoepf <schoepf@uni-mainz.de>] both the
 111    system and the gnu malloc system work with "alpha-dec-osf3.0" and
 112    "alpha-dec-osf3.2".  */
 113
 114 /* May 1995: it seems to me [Morten Welinder <terra@diku.dk>] that both
 115    mallocs work with "alpha-dec-osf2.0", but I daren't break anything
 116    right now.  Feel free to play if you want.  */
 117
 118 /* #define SYSTEM_MALLOC */
 119
 120 /* Define NO_REMAP if memory segmentation makes it not work well
 121    to change the boundary between the text section and data section
 122    when Emacs is dumped.  If you define this, the preloaded Lisp
 123    code will not be sharable; but that's better than failing completely.  */
 124
 125 #define NO_REMAP
 126
 127 /* Some really obscure 4.2-based systems (like Sequent DYNIX)
 128  * do not support asynchronous I/O (using SIGIO) on sockets,
 129  * even though it works fine on tty's.  If you have one of
 130  * these systems, define the following, and then use it in
 131  * config.h (or elsewhere) to decide when (not) to use SIGIO.
 132  *
 133  * You'd think this would go in an operating-system description file,
 134  * but since it only occurs on some, but not all, BSD systems, the
 135  * reasonable place to select for it is in the machine description
 136  * file.
 137  */
 138
 139 /* #define NO_SOCK_SIGIO */
 140
 141
 142 #ifdef __ELF__
 143 /* With ELF, make sure that all common symbols get allocated to in the
 144    data section.  Otherwise, the dump of temacs may miss variables in
 145    the shared library that have been initialized.  For example, with
 146    GNU libc, __malloc_initialized would normally be resolved to the
 147    shared library's .bss section, which is fatal.  */
 148 # ifdef __GNUC__
 149 #  define C_SWITCH_MACHINE      -fno-common
 150 # else
 151 #  error What gives?  Fix me if DEC Unix supports ELF now.
 152 # endif
 153 #endif
 154
 155 #ifdef __ELF__
 156 #undef UNEXEC
 157 #define UNEXEC unexelf1.o
 158 #endif
 159
 160 #ifndef __ELF__
 161
 162 /* Describe layout of the address space in an executing process.  */
 163
 164 #define TEXT_START    0x120000000
 165 #define DATA_START    0x140000000
 166
 167 /* This is necessary for mem-limits.h, so that start_of_data gives
 168    the correct value */
 169
 170 #define DATA_SEG_BITS 0x140000000
 171
 172 /* The program to be used for unexec. */
 173
 174 #define UNEXEC unexalpha.o
 175
 176 #endif /* notdef __ELF__ */
 177
 178 #ifdef OSF1
 179 #define ORDINARY_LINK
 180
 181 /* Some systems seem to have this, others don't.  */
 182 #ifdef HAVE_LIBDNET
 183 #define LIBS_MACHINE -ldnet
 184 #else
 185 #define LIBS_MACHINE -ldnet_stub
 186 #endif
 187 #endif /* OSF1 */
 188
 189 #if 0 /* Rainer Schoepf <schoepf@uni-mainz.de> says this loses with X11R6
 190          since it has only shared libraries.  */
 191 #ifndef __GNUC__
 192 /* This apparently is for the system ld as opposed to Gnu ld.  */
 193 #ifdef OSF1
 194 #define LD_SWITCH_MACHINE      -non_shared
 195 #endif
 196 #endif
 197 #endif /* 0 */
 198
 199 #ifdef OSF1
 200 #define LIBS_DEBUG
 201 #define START_FILES pre-crt0.o
 202 #endif
 203
 204 #if defined (LINUX) && __GNU_LIBRARY__ - 0 < 6
 205 /* This controls a conditional in main.  */
 206 #define LINUX_SBRK_BUG
 207 #endif
 208
 209
 210 #define PNTR_COMPARISON_TYPE unsigned long
 211
 212 /* On the 64 bit architecture, we can use 60 bits for addresses */
 213
 214 #define VALBITS         60
 215
 216
 217 /* This definition of MARKBIT is necessary because of the comparison of
 218    ARRAY_MARK_FLAG and MARKBIT in an #if in lisp.h, which cpp doesn't like. */
 219
 220 #define MARKBIT         0x8000000000000000L
 221
 222
 223 /* Define XINT and XUINT so that they can take arguments of type int */
 224
 225 #define XINT(a)  (((long) (a) << (BITS_PER_LONG - VALBITS)) >> (BITS_PER_LONG - VALBITS))
 226 #define XUINT(a) ((long) (a) & VALMASK)
 227
 228 /* Define XPNTR to avoid or'ing with DATA_SEG_BITS */
 229
 230 #define XPNTR(a) XUINT (a)
 231
 232 /* Declare malloc and realloc in a way that is clean.
 233    But not in makefiles!  */
 234
 235 #ifndef NOT_C_CODE
 236 /* We need these because pointers are larger than the default ints.  */
 237 #include <alloca.h>
 238
 239 /* Hack alert!  For reasons unknown to mankind the string.h file insists
 240    on defining bcopy etc. as taking char pointers as arguments.  With
 241    Emacs this produces an endless amount of warning which are harmless,
 242    but tends to flood the real errors.  This hack works around this problem
 243    by not prototyping.  */
 244 #define bcopy string_h_bcopy
 245 #define bzero string_h_bzero
 246 #define bcmp  string_h_bcmp
 247 #include <string.h>
 248 #undef bcopy
 249 #undef bzero
 250 #undef bcmp
 251
 252 /* We need to prototype these for the lib-src programs even if we don't
 253    use the system malloc for the Emacs proper.  */
 254 #ifdef _MALLOC_INTERNAL
 255 /* These declarations are designed to match the ones in gmalloc.c.  */
 256 #if defined (__STDC__) && __STDC__
 257 extern void *malloc (), *realloc (), *calloc ();
 258 #else
 259 extern char *malloc (), *realloc (), *calloc ();
 260 #endif
 261 #else /* not _MALLOC_INTERNAL */
 262 extern void *malloc (), *realloc (), *calloc ();
 263 #endif /* not _MALLOC_INTERNAL */
 264
 265
 266 extern long *xmalloc (), *xrealloc ();
 267
 268 #ifdef REL_ALLOC
 269 #ifndef _MALLOC_INTERNAL
 270 /* "char *" because ralloc.c defines it that way.  gmalloc.c thinks it
 271    is allowed to prototype these as "void *" so we don't prototype in
 272    that case.  You're right: it stinks!  */
 273 extern char *r_alloc (), *r_re_alloc ();
 274 extern void r_alloc_free ();
 275 #endif /* not _MALLOC_INTERNAL */
 276 #endif /* REL_ALLOC */
 277
 278 #endif /* not NOT_C_CODE */
 279
 280 #ifdef OSF1
 281 #define PTY_ITERATION           for (i = 0; i < 1; i++) /* ick */
 282 #define PTY_NAME_SPRINTF        /* none */
 283 #define PTY_TTY_NAME_SPRINTF    /* none */
 284 #define PTY_OPEN                                        \
 285   do                                                    \
 286     {                                                   \
 287       int dummy;                                        \
 288       SIGMASKTYPE mask;                                 \
 289       mask = sigblockx (SIGCHLD);                       \
 290       if (-1 == openpty (&fd, &dummy, pty_name, 0, 0))  \
 291         fd = -1;                                        \
 292       sigsetmask (mask);                                \
 293       close (dummy);                                    \
 294     }                                                   \
 295   while (0)
 296 #endif
 297
 298 /* On the Alpha it's best to avoid including TERMIO since struct
 299    termio and struct termios are mutually incompatible.  */
 300 #define NO_TERMIO
 301
 302 #ifdef LINUX
 303 # define TEXT_END ({ extern int _etext; &_etext; })
 304 # ifndef __ELF__
 305 #  define COFF
 306 #  define DATA_END ({ extern int _EDATA; &_EDATA; })
 307 # endif /* notdef __ELF__ */
 308 #endif