18388
|
1 /* news-risc6.h is for the "RISC News", OS version 6. */
|
|
2 /* This is in the public domain. */
|
|
3
|
|
4 /* Define NO_ARG_ARRAY if you cannot take the address of the first of a
|
|
5 * group of arguments and treat it as an array of the arguments. */
|
|
6
|
|
7 #define NO_ARG_ARRAY
|
|
8
|
|
9 /* Use type int rather than a union, to represent Lisp_Object */
|
|
10 /* This is desirable for most machines. */
|
|
11
|
|
12 #define NO_UNION_TYPE
|
|
13
|
|
14 /* Data type of load average, as read out of kmem. */
|
|
15
|
|
16 #define LOAD_AVE_TYPE long
|
|
17
|
|
18 /* Convert that into an integer that is 100 for a load average of 1.0 */
|
|
19
|
|
20 #define LOAD_AVE_CVT(x) (int) (((double) (x)) * 100.0 / 256.0)
|
|
21
|
|
22 /* Define C_ALLOCA if this machine does not support a true alloca
|
|
23 and the one written in C should be used instead.
|
|
24 Define HAVE_ALLOCA to say that the system provides a properly
|
|
25 working alloca function and it should be used.
|
|
26 Define neither one if an assembler-language alloca
|
|
27 in the file alloca.s should be used. */
|
|
28
|
|
29 #define HAVE_ALLOCA
|
|
30
|
|
31 /* Define NO_REMAP if memory segmentation makes it not work well
|
|
32 to change the boundary between the text section and data section
|
|
33 when Emacs is dumped. If you define this, the preloaded Lisp
|
|
34 code will not be sharable; but that's better than failing completely. */
|
|
35
|
|
36 #define NO_REMAP
|
|
37
|
|
38 /* Alter some of the options used when linking. */
|
|
39
|
|
40 /*#define C_DEBUG_SWITCH -g*/
|
|
41 #define C_DEBUG_SWITCH -O -Olimit 2000
|
|
42 #ifdef __GNUC__
|
|
43 #define LD_SWITCH_MACHINE -g -Xlinker -D -Xlinker 800000
|
|
44 #else /* !__GNUC__ */
|
|
45 /*#define LD_SWITCH_MACHINE -D 800000 -g*/
|
|
46 #define LD_SWITCH_MACHINE -D 800000
|
|
47 #endif /* !__GNUC__ */
|
|
48 #define LIBS_MACHINE -lmld
|
|
49 #define LIBS_TERMCAP -lcurses
|
|
50
|
|
51 /* The standard definitions of these macros would work ok,
|
|
52 but these are faster because the constants are short. */
|
|
53
|
|
54 #define XUINT(a) (((unsigned)(a) << (BITS_PER_INT-VALBITS)) >> (BITS_PER_INT-VALBITS))
|
|
55
|
|
56 #define XSET(var, type, ptr) \
|
|
57 ((var) = \
|
|
58 ((int)(type) << VALBITS) \
|
|
59 + (((unsigned) (ptr) << (BITS_PER_INT-VALBITS)) >> (BITS_PER_INT-VALBITS)))
|
|
60
|
|
61 #define XUNMARK(a) \
|
|
62 ((a) = \
|
|
63 (((unsigned)(a) << (BITS_PER_INT-GCTYPEBITS-VALBITS)) \
|
|
64 >> (BITS_PER_INT-GCTYPEBITS-VALBITS)))
|