1 /* machine description file for gec63
2 Copyright (C) 1986 Free Software Foundation, Inc.
4 This file is part of SXEmacs
6 SXEmacs 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 3 of the License, or
9 (at your option) any later version.
11 SXEmacs 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.
16 You should have received a copy of the GNU General Public License
17 along with this program. If not, see <http://www.gnu.org/licenses/>. */
20 /* Synched up with: FSF 19.31. */
22 /* The following line tells the configuration script what sort of
23 operating system this machine is likely to run.
24 USUAL-OPSYS="usg5-2" */
26 /* Say this machine is a 68000 */
30 /* GEC63 has alloca in the PW/ux63 library. */
31 #define LIB_STANDARD "-lPW -lc"
34 /* Do not define LOAD_AVE_TYPE or LOAD_AVE_CVT
35 since there is no /dev/kmem */
37 #undef ADDR_CORRECT(x)
44 /* The rest of the file certainly needs updating for Emacs 19.29! */
46 /* I'm certain none of this works with XEmacs. -jwz */
49 /* Define sizes of portions of a Lisp_Object. */
52 #define VALAMASK (((1<<VALBITS) - 1)| 0xF0000000L)
54 #define XTYPE(a) ((enum Lisp_Type) (((a) >> VALBITS) & GCTYPEMASK))
55 #define XSETTYPE(a, b) ((a) = ((a) & VALAMASK) + ((int)(b) << VALBITS))
57 #define XPNTR(a) ((a) & VALAMASK)
59 #define XSET(var, type, ptr) \
60 ((var) = ((int)(type) << VALBITS) + ((int) (ptr) & VALAMASK))
62 /* Move some garbage-collector flag bits to different bit positions. */
63 #define ARRAY_MARK_FLAG (1 << 27)