diff 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
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/m/gec63.h	Mon Aug 13 08:45:50 2007 +0200
@@ -0,0 +1,64 @@
+/* machine description file for gec63
+   Copyright (C) 1986 Free Software Foundation, Inc.
+
+This file is part of GNU Emacs.
+
+GNU Emacs is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+GNU Emacs is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with XEmacs; see the file COPYING.  If not, write to
+the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+Boston, MA 02111-1307, USA.  */
+
+/* Synched up with: FSF 19.31. */
+
+/* The following line tells the configuration script what sort of 
+   operating system this machine is likely to run.
+   USUAL-OPSYS="usg5-2"  */
+
+/* Say this machine is a 68000 */
+
+#define gec63
+
+/* GEC63 has alloca in the PW/ux63 library.  */
+#define LIB_STANDARD -lPW -lc
+#define HAVE_ALLOCA
+
+/* Do not define LOAD_AVE_TYPE or LOAD_AVE_CVT
+   since there is no /dev/kmem */
+
+#undef ADDR_CORRECT(x)
+
+#undef TERMCAP
+#define TERMINFO
+
+#define NO_REMAP
+
+/* The rest of the file certainly needs updating for Emacs 19.29!  */
+
+/* I'm certain none of this works with XEmacs. -jwz */
+#error fixme
+
+/* Define sizes of portions of a Lisp_Object.  */
+#define VALBITS 24
+  
+#define VALAMASK (((1<<VALBITS) - 1)| 0xF0000000L)
+
+#define XTYPE(a) ((enum Lisp_Type) (((a) >> VALBITS) & GCTYPEMASK))
+#define XSETTYPE(a, b) ((a)  =  ((a) & VALAMASK)  +  ((int)(b) << VALBITS))
+
+#define XPNTR(a) ((a) & VALAMASK)
+
+#define XSET(var, type, ptr) \
+   ((var) = ((int)(type) << VALBITS) + ((int) (ptr) & VALAMASK))
+
+/* Move some garbage-collector flag bits to different bit positions.  */
+#define ARRAY_MARK_FLAG (1 << 27)