annotate src/m/ibms390x.h @ 71501:021c1400e746

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