src/m/ibms390x.h

   1 /* machine description file for IBM S390 in 64-bit mode
   2    Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008
   3      Free Software Foundation, Inc.
   4
   5 This file is part of GNU Emacs.
   6
   7 GNU Emacs is free software; you can redistribute it and/or modify
   8 it under the terms of the GNU General Public License as published by
   9 the Free Software Foundation; either version 3, or (at your option)
  10 any later version.
  11
  12 GNU Emacs is distributed in the hope that it will be useful,
  13 but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 GNU General Public License for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with GNU Emacs; see the file COPYING.  If not, write to
  19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  20 Boston, MA 02110-1301, USA.  */
  21
  22 /* This file was made by copying the significant parts of amdx86-64.h
  23    into ibms390.h.  */
  24
  25
  26 /* The following line tells the configuration script what sort of
  27    operating system this machine is likely to run.
  28    USUAL-OPSYS="<name of system .h file here, without the s- or .h>"
  29
  30 NOTE-START
  31 IBM s390 64 bits (-machine=ibms390x64)
  32
  33   The possibilities for -opsystem are: gnu-linux.
  34
  35 NOTE-END */
  36
  37 #define BITS_PER_LONG 64
  38 #define BITS_PER_EMACS_INT 64
  39
  40 /* Define WORDS_BIG_ENDIAN if lowest-numbered byte in a word
  41    is the most significant byte.  */
  42
  43 #define WORDS_BIG_ENDIAN
  44
  45 /* Define NO_ARG_ARRAY if you cannot take the address of the first of a
  46  * group of arguments and treat it as an array of the arguments.  */
  47
  48 #define NO_ARG_ARRAY
  49
  50 /* Define WORD_MACHINE if addresses and such have
  51  * to be corrected before they can be used as byte counts.  */
  52
  53 #define WORD_MACHINE
  54
  55 /* Now define a symbol for the cpu type, if your compiler
  56    does not define it automatically:
  57    Ones defined so far include vax, m68000, ns16000, pyramid,
  58    orion, tahoe, APOLLO and many others */
  59
  60 /* Use type int rather than a union, to represent Lisp_Object */
  61 /* This is desirable for most machines.  */
  62
  63 #define NO_UNION_TYPE
  64
  65 /* Define the type to use.  */
  66 #define EMACS_INT long
  67 #define EMACS_UINT unsigned long
  68 #define SPECIAL_EMACS_INT
  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
  76 #undef EXPLICIT_SIGN_EXTEND
  77
  78 /* Data type of load average, as read out of kmem.  */
  79
  80 #define LOAD_AVE_TYPE long
  81
  82 /* Convert that into an integer that is 100 for a load average of 1.0  */
  83
  84 #define LOAD_AVE_CVT(x) (int) (((double) (x)) * 100.0 / FSCALE)
  85
  86 /* Define CANNOT_DUMP on machines where unexec does not work.
  87    Then the function dump-emacs will not be defined
  88    and temacs will do (load "loadup") automatically unless told otherwise.  */
  89
  90 #undef CANNOT_DUMP
  91
  92 /* Define VIRT_ADDR_VARIES if the virtual addresses of
  93    pure and impure space as loaded can vary, and even their
  94    relative order cannot be relied on.
  95
  96    Otherwise Emacs assumes that text space precedes data space,
  97    numerically.  */
  98
  99 #define VIRT_ADDR_VARIES
 100
 101 /* Define C_ALLOCA if this machine does not support a true alloca
 102    and the one written in C should be used instead.
 103    Define HAVE_ALLOCA to say that the system provides a properly
 104    working alloca function and it should be used.
 105    Define neither one if an assembler-language alloca
 106    in the file alloca.s should be used.  */
 107
 108 #undef C_ALLOCA
 109 #define HAVE_ALLOCA
 110
 111 /* Define NO_REMAP if memory segmentation makes it not work well
 112    to change the boundary between the text section and data section
 113    when Emacs is dumped.  If you define this, the preloaded Lisp
 114    code will not be sharable; but that's better than failing completely.  */
 115
 116 #undef NO_REMAP
 117
 118 /* Some really obscure 4.2-based systems (like Sequent DYNIX)
 119  * do not support asynchronous I/O (using SIGIO) on sockets,
 120  * even though it works fine on tty's.  If you have one of
 121  * these systems, define the following, and then use it in
 122  * config.h (or elsewhere) to decide when (not) to use SIGIO.
 123  *
 124  * You'd think this would go in an operating-system description file,
 125  * but since it only occurs on some, but not all, BSD systems, the
 126  * reasonable place to select for it is in the machine description
 127  * file.
 128  */
 129
 130 #undef NO_SOCK_SIGIO
 131
 132
 133 /* After adding support for a new system, modify the large case
 134    statement in the `configure' script to recognize reasonable
 135    configuration names, and add a description of the system to
 136    `etc/MACHINES'.
 137
 138    If you've just fixed a problem in an existing configuration file,
 139    you should also check `etc/MACHINES' to make sure its descriptions
 140    of known problems in that configuration should be updated.  */
 141
 142 #define PNTR_COMPARISON_TYPE unsigned long
 143
 144 /* On the 64 bit architecture, we can use 60 bits for addresses */
 145
 146 #define VALBITS         60
 147
 148 /* This definition of MARKBIT is necessary because of the comparison of
 149    ARRAY_MARK_FLAG and MARKBIT in an #if in lisp.h, which cpp doesn't like. */
 150
 151 #define MARKBIT         0x8000000000000000L
 152
 153 #define LINKER $(CC) -nostdlib
 154
 155 /* Define XINT and XUINT so that they can take arguments of type int */
 156 #define XINT(a)  (((long) (a) << (BITS_PER_LONG - VALBITS)) >> (BITS_PER_LONG - VALBITS))
 157 #define XUINT(a) ((long) (a) & VALMASK)
 158
 159 /* Define XPNTR to avoid or'ing with DATA_SEG_BITS */
 160
 161 #define XPNTR(a) XUINT (a)
 162
 163 #undef START_FILES
 164 #ifdef HAVE_X86_64_LIB64_DIR
 165 #define START_FILES pre-crt0.o /usr/lib64/crt1.o /usr/lib64/crti.o
 166 #else
 167 #define START_FILES pre-crt0.o /usr/lib/crt1.o /usr/lib/crti.o
 168 #endif
 169
 170 #undef LIB_STANDARD
 171 #ifdef HAVE_X86_64_LIB64_DIR
 172 #define LIB_STANDARD -lgcc -lc -lgcc /usr/lib64/crtn.o
 173 #else
 174 #define LIB_STANDARD -lgcc -lc -lgcc /usr/lib/crtn.o
 175 #endif
 176
 177 /* arch-tag: 4b87653c-6add-4663-8691-7d9dc17b5519
 178    (do not change this comment) */