Mercurial > emacs
annotate src/m/ibms390.h @ 104231:bfb43cf93581
(quail-completion-1): Simplify.
(quail-define-rules): Use slightly more compact code.
(quail-insert-decode-map): Propertize keys, compact columns.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Mon, 10 Aug 2009 21:42:41 +0000 |
parents | e038c1a8307c |
children | 1d1d5d9bd884 |
rev | line source |
---|---|
40423
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
1 /* machine description file template. |
94714
7e5b32f86a4c
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79755
diff
changeset
|
2 Copyright (C) 1985, 1986, 2001, 2002, 2003, 2004, 2005, 2006, 2007, |
100951 | 3 2008, 2009 Free Software Foundation, Inc. |
40423
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
4 |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
5 This file is part of GNU Emacs. |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
6 |
94714
7e5b32f86a4c
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79755
diff
changeset
|
7 GNU Emacs is free software: you can redistribute it and/or modify |
40423
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
8 it under the terms of the GNU General Public License as published by |
94714
7e5b32f86a4c
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79755
diff
changeset
|
9 the Free Software Foundation, either version 3 of the License, or |
7e5b32f86a4c
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79755
diff
changeset
|
10 (at your option) any later version. |
40423
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
11 |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
12 GNU Emacs is distributed in the hope that it will be useful, |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
13 but WITHOUT ANY WARRANTY; without even the implied warranty of |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
15 GNU General Public License for more details. |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
16 |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
17 You should have received a copy of the GNU General Public License |
94714
7e5b32f86a4c
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79755
diff
changeset
|
18 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ |
40423
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
19 |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
20 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
44601
diff
changeset
|
21 /* The following line tells the configuration script what sort of |
40423
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
22 operating system this machine is likely to run. |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
23 USUAL-OPSYS="<name of system .h file here, without the s- or .h>" */ |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
24 |
78499 | 25 /* Define WORDS_BIG_ENDIAN if lowest-numbered byte in a word |
40423
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
26 is the most significant byte. */ |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
27 |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
28 #define WORDS_BIG_ENDIAN |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
29 |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
30 /* Define NO_ARG_ARRAY if you cannot take the address of the first of a |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
31 * group of arguments and treat it as an array of the arguments. */ |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
32 |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
33 #define NO_ARG_ARRAY |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
34 |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
35 /* Define EXPLICIT_SIGN_EXTEND if XINT must explicitly sign-extend |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
36 the 24-bit bit field into an int. In other words, if bit fields |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
37 are always unsigned. |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
38 |
96602 | 39 This flag only matters if you use USE_LISP_UNION_TYPE. */ |
40423
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
40 |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
41 #define EXPLICIT_SIGN_EXTEND |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
42 |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
43 /* Data type of load average, as read out of kmem. */ |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
44 |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
45 #define LOAD_AVE_TYPE long |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
46 |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
47 /* Convert that into an integer that is 100 for a load average of 1.0 */ |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
48 |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
49 #define LOAD_AVE_CVT(x) (int) (((double) (x)) * 100.0 / FSCALE) |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
50 |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
51 /* Define VIRT_ADDR_VARIES if the virtual addresses of |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
52 pure and impure space as loaded can vary, and even their |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
53 relative order cannot be relied on. |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
54 |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
55 Otherwise Emacs assumes that text space precedes data space, |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
56 numerically. */ |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
57 |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
58 #define VIRT_ADDR_VARIES |
95067215a94a
New file. From Adam Thornton <athornton@sinenomine.net>.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
59 |
52401 | 60 /* arch-tag: d8a0ffa4-a8f0-4736-90d3-7fd7b21b8314 |
61 (do not change this comment) */ |