|
|
1.1 ! root 1: /* m- file for HLH Orion. ! 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: /* Define BIG_ENDIAN iff lowest-numbered byte in a word ! 32: is the most significant byte. */ ! 33: ! 34: #undef BIG_ENDIAN ! 35: ! 36: /* Now define a symbol for the cpu type, if your compiler ! 37: does not define it automatically. */ ! 38: ! 39: #ifndef orion ! 40: #define orion ! 41: #endif ! 42: ! 43: /* Define NO_ARG_ARRAY if you cannot take the address of the first of a ! 44: * group of arguments and treat it as an array of the arguments. */ ! 45: ! 46: #define NO_ARG_ARRAY ! 47: ! 48: /* Define WORD_MACHINE if addresses and such have ! 49: * to be corrected before they can be used as byte counts. */ ! 50: ! 51: #define WORD_MACHINE ! 52: ! 53: /* Define how to take a char and sign-extend into an int. ! 54: On machines where char is signed, this is a no-op. */ ! 55: ! 56: #define SIGN_EXTEND_CHAR(c) ((((int) (c)) << 24) >> 24) ! 57: ! 58: /* Use type int rather than a union, to represent Lisp_Object */ ! 59: /* This is desirable for most machines. */ ! 60: ! 61: #define NO_UNION_TYPE ! 62: ! 63: /* Define EXPLICIT_SIGN_EXTEND if XINT must explicitly sign-extend */ ! 64: ! 65: #define EXPLICIT_SIGN_EXTEND ! 66: ! 67: /* Data type of load average, as read out of kmem. */ ! 68: ! 69: #define LOAD_AVE_TYPE double ! 70: ! 71: /* Convert that into an integer that is 100 for a load average of 1.0 */ ! 72: ! 73: #ifndef FSCALE ! 74: #define FSCALE 1.0 ! 75: #endif ! 76: #define LOAD_AVE_CVT(x) (int) (((double) (x)) * 100.0 / FSCALE) ! 77: ! 78: /* It is necessary to use the portable imitation of alloca, ! 79: since a true stack-allocating one is impossible. */ ! 80: ! 81: #define C_ALLOCA
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.