Commit | Line | Data |
---|---|---|
6b279740 RS |
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 | ||
6b279740 RS |
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__ | |
6b279740 RS |
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))) | |
ab5796a9 MB |
56 | |
57 | /* arch-tag: b9fd7b75-ba3c-46d4-8966-24381b13001b | |
58 | (do not change this comment) */ |