|
|
1.1 ! root 1: /* m- file for HLH Orion. ! 2: Copyright (C) 1985 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 1, 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 GNU Emacs; see the file COPYING. If not, write to ! 18: the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ ! 19: ! 20: ! 21: /* The following three symbols give information on ! 22: the size of various data types. */ ! 23: ! 24: #define SHORTBITS 16 /* Number of bits in a short */ ! 25: ! 26: #define INTBITS 32 /* Number of bits in an int */ ! 27: ! 28: #define LONGBITS 32 /* Number of bits in a long */ ! 29: ! 30: /* Define BIG_ENDIAN iff lowest-numbered byte in a word ! 31: is the most significant byte. */ ! 32: ! 33: #undef BIG_ENDIAN ! 34: ! 35: /* Now define a symbol for the cpu type, if your compiler ! 36: does not define it automatically. */ ! 37: ! 38: #ifndef orion ! 39: #define orion ! 40: #endif ! 41: ! 42: /* Define NO_ARG_ARRAY if you cannot take the address of the first of a ! 43: * group of arguments and treat it as an array of the arguments. */ ! 44: ! 45: #define NO_ARG_ARRAY ! 46: ! 47: /* Define WORD_MACHINE if addresses and such have ! 48: * to be corrected before they can be used as byte counts. */ ! 49: ! 50: #define WORD_MACHINE ! 51: ! 52: /* Define how to take a char and sign-extend into an int. ! 53: On machines where char is signed, this is a no-op. */ ! 54: ! 55: #define SIGN_EXTEND_CHAR(c) ((((int) (c)) << 24) >> 24) ! 56: ! 57: /* Use type int rather than a union, to represent Lisp_Object */ ! 58: /* This is desirable for most machines. */ ! 59: ! 60: #define NO_UNION_TYPE ! 61: ! 62: /* Define EXPLICIT_SIGN_EXTEND if XINT must explicitly sign-extend */ ! 63: ! 64: #define EXPLICIT_SIGN_EXTEND ! 65: ! 66: /* Data type of load average, as read out of kmem. */ ! 67: ! 68: #define LOAD_AVE_TYPE double ! 69: ! 70: /* Convert that into an integer that is 100 for a load average of 1.0 */ ! 71: ! 72: #ifndef FSCALE ! 73: #define FSCALE 1.0 ! 74: #endif ! 75: #define LOAD_AVE_CVT(x) (int) (((double) (x)) * 100.0 / FSCALE) ! 76: ! 77: /* It is necessary to use the portable imitation of alloca, ! 78: since a true stack-allocating one is impossible. */ ! 79: ! 80: #define C_ALLOCA
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.