Commit | Line | Data |
---|---|---|
3e5b698e | 1 | /* machine description file for IBM S390 in 64-bit mode |
4e6835db | 2 | Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. |
3e5b698e RS |
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) | |
853e72d9 | 161 | |
d7695a63 AS |
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 | ||
853e72d9 MB |
168 | /* arch-tag: 4b87653c-6add-4663-8691-7d9dc17b5519 |
169 | (do not change this comment) */ |