|
|
1.1 root 1: /* m- file for HLH Orion 1/05 (Clipper).
2: Copyright (C) 1985 Free Software Foundation, Inc.
3: Lee McLoughlin <lmjm%[email protected]>
4:
5: This file is part of GNU Emacs.
6:
7: GNU Emacs is free software; you can redistribute it and/or modify
8: it under the terms of the GNU General Public License as published by
9: the Free Software Foundation; either version 1, or (at your option)
10: any later version.
11:
12: GNU Emacs is distributed in the hope that it will be useful,
13: but WITHOUT ANY WARRANTY; without even the implied warranty of
14: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15: GNU General Public License for more details.
16:
17: You should have received a copy of the GNU General Public License
18: along with GNU Emacs; see the file COPYING. If not, write to
19: the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
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: /* Define NO_ARG_ARRAY if you cannot take the address of the first of a
37: * group of arguments and treat it as an array of the arguments. */
38:
39: #define NO_ARG_ARRAY
40:
41: /* Define WORD_MACHINE if addresses and such have
42: * to be corrected before they can be used as byte counts. */
43:
44: #define SIGN_EXTEND_CHAR(c) ((int)(c))
45:
46: /* Use type int rather than a union, to represent Lisp_Object */
47: /* This is desirable for most machines. */
48:
49: #define NO_UNION_TYPE
50:
51: /* Data type of load average, as read out of kmem. */
52: /* This used to be `double'. */
53:
54: #define LOAD_AVE_TYPE long
55:
56: /* Convert that into an integer that is 100 for a load average of 1.0 */
57:
58: /* This used to be 1.0. */
59: #ifndef FSCALE
60: #define FSCALE 256
61: #endif
62: #define LOAD_AVE_CVT(x) (int) (((double) (x)) * 100.0 / FSCALE)
63:
64: /* HLH have a SIGWINCH defined (but unimplemented) so we need a sigmask */
65: #ifndef sigmask
66: #define sigmask(m) (1 << ((m) - 1))
67: #endif
68:
69: #define HAVE_ALLOCA
70:
71: /* Here is where programs actually start running */
72: #define TEXT_START 0x8000
73: #define LD_TEXT_START_ADDR 8000
74:
75: /* Arguments to ignore before argc in crt0.c. */
76: #define DUMMIES dummy1, dummy2,
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.