diff options
Diffstat (limited to 'src/m-gec63.h')
-rw-r--r-- | src/m-gec63.h | 79 |
1 files changed, 79 insertions, 0 deletions
diff --git a/src/m-gec63.h b/src/m-gec63.h new file mode 100644 index 00000000000..53ac916a191 --- /dev/null +++ b/src/m-gec63.h @@ -0,0 +1,79 @@ +/* m- 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 1, 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 GNU Emacs; see the file COPYING. If not, write to +the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ + + +/* The following three symbols give information on + the size of various data types. */ + +#define SHORTBITS 16 /* Number of bits in a short */ + +#define INTBITS 32 /* Number of bits in an int */ + +#define LONGBITS 32 /* Number of bits in a long */ + +/* GEC63 is big-endian: lowest numbered byte is most significant. */ + +#define BIG_ENDIAN + +/* Define how to take a char and sign-extend into an int. + On machines where char is signed, this is a no-op. */ + +#define SIGN_EXTEND_CHAR(c) (((c)<<24)>>24) + +/* Say this machine is a 68000 */ + +#define gec63 + +/* Use an int to represent Lisp_Object */ + +#define NO_UNION_TYPE + +/* 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) +#define NO_ARG_ARRAY + +#undef TERMCAP +#define TERMINFO + +/* Define sizes of portions of a Lisp_Object. */ +#define VALBITS 22 +#define GCTYPEBITS 5 + +#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 XSETPNTR(a, b) ((a) = ((a) & ~VALAMASK) + ((b) & 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) +#define DONT_COPY_FLAG (1 << 26) + +#define NO_REMAP |