[Emacs-diffs] Changes to emacs/src/m/news-r6.h [lexbind]

[Miles Bader]

Index: emacs/src/m/news-r6.h
diff -c /dev/null emacs/src/m/news-r6.h:1.3.2.1
*** /dev/null   Tue Oct 14 19:23:01 2003
--- emacs/src/m/news-r6.h       Tue Oct 14 19:22:53 2003
***************
*** 0 ****
--- 1,53 ----
+ /* news-risc6.h is for the "RISC News", OS version 6.  */
+ /* This is in the public domain.  */
+ 
+ /* Define NO_ARG_ARRAY if you cannot take the address of the first of a
+  * group of arguments and treat it as an array of the arguments.  */
+ 
+ #define NO_ARG_ARRAY
+ 
+ /* Use type int rather than a union, to represent Lisp_Object */
+ /* This is desirable for most machines.  */
+ 
+ #define NO_UNION_TYPE
+ 
+ /* Data type of load average, as read out of kmem.  */
+ 
+ #define LOAD_AVE_TYPE long
+ 
+ /* Convert that into an integer that is 100 for a load average of 1.0  */
+ 
+ #define LOAD_AVE_CVT(x) (int) (((double) (x)) * 100.0 / 256.0)
+ 
+ /* Define NO_REMAP if memory segmentation makes it not work well
+    to change the boundary between the text section and data section
+    when Emacs is dumped.  If you define this, the preloaded Lisp
+    code will not be sharable; but that's better than failing completely.  */
+ 
+ #define NO_REMAP
+ 
+ /* Alter some of the options used when linking.  */
+ 
+ /*#define C_DEBUG_SWITCH -g*/
+ #define C_DEBUG_SWITCH -O -Olimit 2000
+ #ifdef __GNUC__
+ #define LD_SWITCH_MACHINE -g -Xlinker -D -Xlinker 800000
+ #else /* !__GNUC__ */
+ /*#define LD_SWITCH_MACHINE -D 800000 -g*/
+ #define LD_SWITCH_MACHINE -D 800000
+ #endif /* !__GNUC__ */
+ #define LIBS_MACHINE -lmld
+ #define LIBS_TERMCAP -lcurses
+ 
+ /* The standard definitions of these macros would work ok,
+    but these are faster because the constants are short.  */
+ 
+ #define XUINT(a) (((unsigned)(a) << (BITS_PER_INT-VALBITS)) >> 
(BITS_PER_INT-VALBITS))
+ 
+ #define XSET(var, type, ptr)                                          \
+   ((var) =                                                            \
+    ((int)(type) << VALBITS)                                           \
+    + (((unsigned) (ptr) << (BITS_PER_INT-VALBITS)) >> (BITS_PER_INT-VALBITS)))
+ 
+ /* arch-tag: b9fd7b75-ba3c-46d4-8966-24381b13001b
+    (do not change this comment) */