Mercurial > emacs
diff src/lisp.h @ 85105:ba4f1a829f83
(XSETPSEUDOVECTOR): Don't set the tag anymore.
This was made redundant by the previous introduction of XSETPVECTYPE.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 09 Oct 2007 04:28:00 +0000 |
| parents | 96eb42c9e0e3 |
| children | bccebab2430e bdb3fe0ba9fa |
line wrap: on
line diff
--- a/src/lisp.h Tue Oct 09 04:26:29 2007 +0000 +++ b/src/lisp.h Tue Oct 09 04:28:00 2007 +0000 @@ -561,7 +561,9 @@ #define XSETPVECTYPE(v,code) ((v)->size |= PSEUDOVECTOR_FLAG | (code)) #define XSETPSEUDOVECTOR(a, b, code) \ - (XSETVECTOR (a, b), XSETPVECTYPE (XVECTOR (a), code)) + (XSETVECTOR (a, b), \ + eassert ((XVECTOR (a)->size & (PSEUDOVECTOR_FLAG | PVEC_TYPE_MASK)) \ + == (PSEUDOVECTOR_FLAG | (code)))) #define XSETWINDOW_CONFIGURATION(a, b) \ (XSETPSEUDOVECTOR (a, b, PVEC_WINDOW_CONFIGURATION)) #define XSETPROCESS(a, b) (XSETPSEUDOVECTOR (a, b, PVEC_PROCESS))