Small init_lread fix for bug#10208
[emacs.git] / src / m / ibms390x.h
blob5ea7974b0525ac5fe4a2910defee9db18b8661f1
1 /* Machine description file for IBM S390 in 64-bit mode
3 Copyright (C) 2002-2011 Free Software Foundation, Inc.
5 This file is part of GNU Emacs.
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 of the License, or
10 (at your option) any later version.
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.
17 You should have received a copy of the GNU General Public License
18 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
20 #define BITS_PER_LONG 64
21 #define BITS_PER_EMACS_INT 64
23 /* Define the type to use. */
24 #define EMACS_INT long
25 #define pI "l"
26 #define EMACS_UINT unsigned long
28 /* On the 64 bit architecture, we can use 60 bits for addresses */
29 #define VALBITS 60
31 /* Define XPNTR to avoid or'ing with DATA_SEG_BITS */
32 #define XPNTR(a) XUINT (a)