diff options
| author | Dan Nicolaescu | 2008-07-11 02:30:26 +0000 |
|---|---|---|
| committer | Dan Nicolaescu | 2008-07-11 02:30:26 +0000 |
| commit | 6e5cb96f3d905d69ef7cf2c09df3e51b2db06d9b (patch) | |
| tree | 3c7960f6dd3096573828f31642b72e903fa8c976 /src/lisp.h | |
| parent | f4f745d94326e5082acb071953b7c2d713421a2f (diff) | |
| download | emacs-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.h | 18 |
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 | ||
| 317 | typedef EMACS_INT Lisp_Object; | 317 | typedef 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 | |||
| 472 | extern Lisp_Object make_number P_ ((EMACS_INT)); | 472 | extern 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 | ||