src/m/news-r6.h

   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)))