src/m/ibms390x.h

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