|
|
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 distributed in the hope that it will be useful,
8: but WITHOUT ANY WARRANTY. No author or distributor
9: accepts responsibility to anyone for the consequences of using it
10: or for whether it serves any particular purpose or works at all,
11: unless he says so in writing. Refer to the GNU Emacs General Public
12: License for full details.
13:
14: Everyone is granted permission to copy, modify and redistribute
15: GNU Emacs, but only under the conditions described in the
16: GNU Emacs General Public License. A copy of this license is
17: supposed to have been given to you along with GNU Emacs so you
18: can know your rights and responsibilities. It should be in a
19: file named COPYING. Among other things, the copyright notice
20: and this notice must be preserved on all copies. */
21:
22:
23: /* The following three symbols give information on
24: the size of various data types. */
25:
26: #define SHORTBITS 16 /* Number of bits in a short */
27:
28: #define INTBITS 32 /* Number of bits in an int */
29:
30: #define LONGBITS 32 /* Number of bits in a long */
31:
32: /* Define BIG_ENDIAN iff lowest-numbered byte in a word
33: is the most significant byte. */
34:
35: #undef BIG_ENDIAN
36:
37: /* Define NO_ARG_ARRAY if you cannot take the address of the first of a
38: * group of arguments and treat it as an array of the arguments. */
39:
40: #define NO_ARG_ARRAY
41:
42: /* Define WORD_MACHINE if addresses and such have
43: * to be corrected before they can be used as byte counts. */
44:
45: #define SIGN_EXTEND_CHAR(c) ((int)(c))
46:
47: /* Use type int rather than a union, to represent Lisp_Object */
48: /* This is desirable for most machines. */
49:
50: #define NO_UNION_TYPE
51:
52: /* Data type of load average, as read out of kmem. */
53:
54: #define LOAD_AVE_TYPE double
55:
56: /* Convert that into an integer that is 100 for a load average of 1.0 */
57:
58: #ifndef FSCALE
59: #define FSCALE 1.0
60: #endif
61: #define LOAD_AVE_CVT(x) (int) (((double) (x)) * 100.0 / FSCALE)
62:
63: /* HLH have a SIGWINCH defined (but unimplemented) so we need a sigmask */
64: #ifndef sigmask
65: #define sigmask(m) (1 << ((m) - 1))
66: #endif
67:
68: #define HAVE_ALLOCA
69:
70: /* Here is where programs actually start running */
71: #define TEXT_START 0x8000
72: #define LD_TEXT_START_ADDR 8000
73:
74: /* Arguments to ignore before argc in crt0.c. */
75: #define DUMMIES dummy1, dummy2,
76:
77: /* dbx can't cope so what the heck - currently (July 88) eval.c causes
78: * the compiler to go into an infinite loop - so compile it by hand
79: * cc -c -Demacs eval.c
80: * before running make
81: */
82: #define C_DEBUG_SWITCH -O
83:
84: /* Since not debugging don't add dbx lib */
85: #define LIBS_DEBUG
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.