|
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 NO_REMAP if memory segmentation makes it not work well
|
|
|
23 to change the boundary between the text section and data section
|
|
|
24 when Emacs is dumped. If you define this, the preloaded Lisp
|
|
|
25 code will not be sharable; but that's better than failing completely. */
|
|
|
26
|
|
|
27 #define NO_REMAP
|
|
|
28
|
|
|
29 /* Alter some of the options used when linking. */
|
|
|
30
|
|
|
31 /*#define C_DEBUG_SWITCH -g*/
|
|
|
32 #define C_DEBUG_SWITCH -O -Olimit 2000
|
|
|
33 #ifdef __GNUC__
|
|
|
34 #define LD_SWITCH_MACHINE -g -Xlinker -D -Xlinker 800000
|
|
|
35 #else /* !__GNUC__ */
|
|
|
36 /*#define LD_SWITCH_MACHINE -D 800000 -g*/
|
|
|
37 #define LD_SWITCH_MACHINE -D 800000
|
|
|
38 #endif /* !__GNUC__ */
|
|
|
39 #define LIBS_MACHINE -lmld
|
|
|
40 #define LIBS_TERMCAP -lcurses
|
|
|
41
|
|
|
42 /* The standard definitions of these macros would work ok,
|
|
|
43 but these are faster because the constants are short. */
|
|
|
44
|
|
|
45 #define XUINT(a) (((unsigned)(a) << (BITS_PER_INT-VALBITS)) >> (BITS_PER_INT-VALBITS))
|
|
|
46
|
|
|
47 #define XSET(var, type, ptr) \
|
|
|
48 ((var) = \
|
|
|
49 ((int)(type) << VALBITS) \
|
|
|
50 + (((unsigned) (ptr) << (BITS_PER_INT-VALBITS)) >> (BITS_PER_INT-VALBITS)))
|
|
|
51
|
|
|
52 #define XUNMARK(a) \
|
|
|
53 ((a) = \
|
|
|
54 (((unsigned)(a) << (BITS_PER_INT-GCTYPEBITS-VALBITS)) \
|
|
|
55 >> (BITS_PER_INT-GCTYPEBITS-VALBITS)))
|
