|
|
1.1 ! root 1: /* m- file for Sun 68000's version 2. ! 2: Copyright (C) 1985 Richard M. Stallman. ! 3: ! 4: This file is part of GNU Emacs. ! 5: ! 6: GNU Emacs is distributed in the hope that it will be useful, ! 7: but WITHOUT ANY WARRANTY. No author or distributor ! 8: accepts responsibility to anyone for the consequences of using it ! 9: or for whether it serves any particular purpose or works at all, ! 10: unless he says so in writing. Refer to the GNU Emacs General Public ! 11: License for full details. ! 12: ! 13: Everyone is granted permission to copy, modify and redistribute ! 14: GNU Emacs, but only under the conditions described in the ! 15: GNU Emacs General Public License. A copy of this license is ! 16: supposed to have been given to you along with GNU Emacs so you ! 17: can know your rights and responsibilities. It should be in a ! 18: file named COPYING. Among other things, the copyright notice ! 19: and this notice must be preserved on all copies. */ ! 20: ! 21: ! 22: /* The following three symbols give information on ! 23: the size of various data types. */ ! 24: ! 25: #define SHORTBITS 16 /* Number of bits in a short */ ! 26: ! 27: #define INTBITS 32 /* Number of bits in an int */ ! 28: ! 29: #define LONGBITS 32 /* Number of bits in a long */ ! 30: ! 31: /* 68000 has lowest-numbered byte as most significant */ ! 32: ! 33: #define BIG_ENDIAN ! 34: ! 35: /* Define how to take a char and sign-extend into an int. ! 36: On machines where char is signed, this is a no-op. */ ! 37: ! 38: #define SIGN_EXTEND_CHAR(c) (c) ! 39: ! 40: /* Say this machine is a 68000 */ ! 41: ! 42: #define m68000 ! 43: ! 44: /* Use type int rather than a union, to represent Lisp_Object */ ! 45: ! 46: #define NO_UNION_TYPE ! 47: ! 48: /* Sun can't write competant compilers */ ! 49: #define COMPILER_REGISTER_BUG ! 50: ! 51: /* XINT must explicitly sign-extend */ ! 52: ! 53: #define EXPLICIT_SIGN_EXTEND ! 54: ! 55: /* Data type of load average, as read out of kmem. */ ! 56: ! 57: #define LOAD_AVE_TYPE long ! 58: ! 59: /* Convert that into an integer that is 100 for a load average of 1.0 */ ! 60: ! 61: #define LOAD_AVE_CVT(x) (int) (((double) (x)) * 100.0 / FSCALE) ! 62: ! 63: /* Say that this is a Sun 2; must check for and maybe reinitialize ! 64: the "sky" board. */ ! 65: ! 66: #define sun2
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.