aboutsummaryrefslogtreecommitdiffstats
path: root/src/lisp.h
diff options
context:
space:
mode:
authorDan Nicolaescu2008-07-11 02:30:26 +0000
committerDan Nicolaescu2008-07-11 02:30:26 +0000
commit6e5cb96f3d905d69ef7cf2c09df3e51b2db06d9b (patch)
tree3c7960f6dd3096573828f31642b72e903fa8c976 /src/lisp.h
parentf4f745d94326e5082acb071953b7c2d713421a2f (diff)
downloademacs-6e5cb96f3d905d69ef7cf2c09df3e51b2db06d9b.tar.gz
emacs-6e5cb96f3d905d69ef7cf2c09df3e51b2db06d9b.zip
* lisp.h:
* w32heap.c: * emacs.c: * alloc.c: Replace all references of NO_UNION_TYPE with USE_LISP_UNION_TYPE. * m/xtensa.h (NO_UNION_TYPE): * m/vax.h (NO_UNION_TYPE): * m/template.h (NO_UNION_TYPE): * m/sparc.h (NO_UNION_TYPE): * m/mips.h (NO_UNION_TYPE): * m/macppc.h (NO_UNION_TYPE): * m/m68k.h (NO_UNION_TYPE): * m/iris4d.h (NO_UNION_TYPE): * m/intel386.h (NO_UNION_TYPE): * m/ibms390x.h (NO_UNION_TYPE): * m/ibms390.h (NO_UNION_TYPE): * m/ibmrs6000.h (NO_UNION_TYPE): * m/ia64.h (NO_UNION_TYPE): * m/hp800.h (NO_UNION_TYPE): * m/arm.h (NO_UNION_TYPE): * m/amdx86-64.h (NO_UNION_TYPE): * m/alpha.h (NO_UNION_TYPE): Remove definition, all platform were defining it the same.
Diffstat (limited to 'src/lisp.h')
-rw-r--r--src/lisp.h18
1 files changed, 9 insertions, 9 deletions
diff --git a/src/lisp.h b/src/lisp.h
index c4216b74dcd..25a5729237d 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -129,8 +129,8 @@ extern void die P_((const char *, const char *, int)) NO_RETURN;
129 129
130/***** Select the tagging scheme. *****/ 130/***** Select the tagging scheme. *****/
131/* There are basically two options that control the tagging scheme: 131/* There are basically two options that control the tagging scheme:
132 - NO_UNION_TYPE says that Lisp_Object should be an integer instead 132 - USE_LISP_UNION_TYPE says that Lisp_Object should be a union instead
133 of a union. 133 of an integer.
134 - USE_LSB_TAG means that we can assume the least 3 bits of pointers are 134 - USE_LSB_TAG means that we can assume the least 3 bits of pointers are
135 always 0, and we can thus use them to hold tag bits, without 135 always 0, and we can thus use them to hold tag bits, without
136 restricting our addressing space. 136 restricting our addressing space.
@@ -163,7 +163,7 @@ extern void die P_((const char *, const char *, int)) NO_RETURN;
163/* We also need to be able to specify mult-of-8 alignment on static vars. */ 163/* We also need to be able to specify mult-of-8 alignment on static vars. */
164# if defined DECL_ALIGN 164# if defined DECL_ALIGN
165/* We currently do not support USE_LSB_TAG with a union Lisp_Object. */ 165/* We currently do not support USE_LSB_TAG with a union Lisp_Object. */
166# if defined NO_UNION_TYPE 166# if defined USE_LISP_UNION_TYPE
167# define USE_LSB_TAG 167# define USE_LSB_TAG
168# endif 168# endif
169# endif 169# endif
@@ -246,7 +246,7 @@ enum Lisp_Misc_Type
246#define VALBITS (BITS_PER_EMACS_INT - GCTYPEBITS) 246#define VALBITS (BITS_PER_EMACS_INT - GCTYPEBITS)
247#endif 247#endif
248 248
249#ifndef NO_UNION_TYPE 249#ifdef USE_LISP_UNION_TYPE
250 250
251#ifndef WORDS_BIG_ENDIAN 251#ifndef WORDS_BIG_ENDIAN
252 252
@@ -310,13 +310,13 @@ LISP_MAKE_RVALUE (Lisp_Object o)
310#define LISP_MAKE_RVALUE(o) (o) 310#define LISP_MAKE_RVALUE(o) (o)
311#endif 311#endif
312 312
313#else /* NO_UNION_TYPE */ 313#else /* USE_LISP_UNION_TYPE */
314 314
315/* If union type is not wanted, define Lisp_Object as just a number. */ 315/* If union type is not wanted, define Lisp_Object as just a number. */
316 316
317typedef EMACS_INT Lisp_Object; 317typedef EMACS_INT Lisp_Object;
318#define LISP_MAKE_RVALUE(o) (0+(o)) 318#define LISP_MAKE_RVALUE(o) (0+(o))
319#endif /* NO_UNION_TYPE */ 319#endif /* USE_LISP_UNION_TYPE */
320 320
321/* In the size word of a vector, this bit means the vector has been marked. */ 321/* In the size word of a vector, this bit means the vector has been marked. */
322 322
@@ -374,7 +374,7 @@ enum pvec_type
374 For example, if tem is a Lisp_Object whose type is Lisp_Cons, 374 For example, if tem is a Lisp_Object whose type is Lisp_Cons,
375 XCONS (tem) is the struct Lisp_Cons * pointing to the memory for that cons. */ 375 XCONS (tem) is the struct Lisp_Cons * pointing to the memory for that cons. */
376 376
377#ifdef NO_UNION_TYPE 377#ifndef USE_LISP_UNION_TYPE
378 378
379/* Return a perfect hash of the Lisp_Object representation. */ 379/* Return a perfect hash of the Lisp_Object representation. */
380#define XHASH(a) (a) 380#define XHASH(a) (a)
@@ -440,7 +440,7 @@ enum pvec_type
440 440
441#endif /* not USE_LSB_TAG */ 441#endif /* not USE_LSB_TAG */
442 442
443#else /* not NO_UNION_TYPE */ 443#else /* USE_LISP_UNION_TYPE */
444 444
445#define XHASH(a) ((a).i) 445#define XHASH(a) ((a).i)
446 446
@@ -472,7 +472,7 @@ enum pvec_type
472extern Lisp_Object make_number P_ ((EMACS_INT)); 472extern Lisp_Object make_number P_ ((EMACS_INT));
473#endif 473#endif
474 474
475#endif /* NO_UNION_TYPE */ 475#endif /* USE_LISP_UNION_TYPE */
476 476
477#define EQ(x, y) (XHASH (x) == XHASH (y)) 477#define EQ(x, y) (XHASH (x) == XHASH (y))
478 478