1 /* machine description file for gec63
2 Copyright (C) 1986 Free Software Foundation, Inc.
4 This file is part of GNU Emacs.
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)
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.
16 You should have received a copy of the GNU General Public License
17 along with XEmacs; see the file COPYING. If not, write to
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA. */
21 /* Synched up with: FSF 19.31. */
23 /* The following line tells the configuration script what sort of
24 operating system this machine is likely to run.
25 USUAL-OPSYS="usg5-2" */
27 /* Say this machine is a 68000 */
31 /* GEC63 has alloca in the PW/ux63 library. */
32 #define LIB_STANDARD "-lPW -lc"
35 /* Do not define LOAD_AVE_TYPE or LOAD_AVE_CVT
36 since there is no /dev/kmem */
38 #undef ADDR_CORRECT(x)
45 /* The rest of the file certainly needs updating for Emacs 19.29! */
47 /* I'm certain none of this works with XEmacs. -jwz */
50 /* Define sizes of portions of a Lisp_Object. */
53 #define VALAMASK (((1<<VALBITS) - 1)| 0xF0000000L)
55 #define XTYPE(a) ((enum Lisp_Type) (((a) >> VALBITS) & GCTYPEMASK))
56 #define XSETTYPE(a, b) ((a) = ((a) & VALAMASK) + ((int)(b) << VALBITS))
58 #define XPNTR(a) ((a) & VALAMASK)
60 #define XSET(var, type, ptr) \
61 ((var) = ((int)(type) << VALBITS) + ((int) (ptr) & VALAMASK))
63 /* Move some garbage-collector flag bits to different bit positions. */
64 #define ARRAY_MARK_FLAG (1 << 27)