Mercurial > hg > xemacs-beta
comparison src/m/gec63.h @ 0:376386a54a3c r19-14
Import from CVS: tag r19-14
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 08:45:50 +0200 |
| parents | |
| children | 0132846995bd |
comparison
equal
deleted
inserted
replaced
| -1:000000000000 | 0:376386a54a3c |
|---|---|
| 1 /* machine description file for gec63 | |
| 2 Copyright (C) 1986 Free Software Foundation, Inc. | |
| 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 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. */ | |
| 20 | |
| 21 /* Synched up with: FSF 19.31. */ | |
| 22 | |
| 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" */ | |
| 26 | |
| 27 /* Say this machine is a 68000 */ | |
| 28 | |
| 29 #define gec63 | |
| 30 | |
| 31 /* GEC63 has alloca in the PW/ux63 library. */ | |
| 32 #define LIB_STANDARD -lPW -lc | |
| 33 #define HAVE_ALLOCA | |
| 34 | |
| 35 /* Do not define LOAD_AVE_TYPE or LOAD_AVE_CVT | |
| 36 since there is no /dev/kmem */ | |
| 37 | |
| 38 #undef ADDR_CORRECT(x) | |
| 39 | |
| 40 #undef TERMCAP | |
| 41 #define TERMINFO | |
| 42 | |
| 43 #define NO_REMAP | |
| 44 | |
| 45 /* The rest of the file certainly needs updating for Emacs 19.29! */ | |
| 46 | |
| 47 /* I'm certain none of this works with XEmacs. -jwz */ | |
| 48 #error fixme | |
| 49 | |
| 50 /* Define sizes of portions of a Lisp_Object. */ | |
| 51 #define VALBITS 24 | |
| 52 | |
| 53 #define VALAMASK (((1<<VALBITS) - 1)| 0xF0000000L) | |
| 54 | |
| 55 #define XTYPE(a) ((enum Lisp_Type) (((a) >> VALBITS) & GCTYPEMASK)) | |
| 56 #define XSETTYPE(a, b) ((a) = ((a) & VALAMASK) + ((int)(b) << VALBITS)) | |
| 57 | |
| 58 #define XPNTR(a) ((a) & VALAMASK) | |
| 59 | |
| 60 #define XSET(var, type, ptr) \ | |
| 61 ((var) = ((int)(type) << VALBITS) + ((int) (ptr) & VALAMASK)) | |
| 62 | |
| 63 /* Move some garbage-collector flag bits to different bit positions. */ | |
| 64 #define ARRAY_MARK_FLAG (1 << 27) |