Mercurial > emacs
changeset 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 | 9befff1bc946 |
| children | fd282fb888de |
| files | src/ChangeLog src/lisp.h |
| diffstat | 2 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ChangeLog Tue Oct 09 04:26:29 2007 +0000 +++ b/src/ChangeLog Tue Oct 09 04:28:00 2007 +0000 @@ -1,6 +1,11 @@ +2007-10-09 Stefan Monnier <monnier@iro.umontreal.ca> + + * lisp.h (XSETPSEUDOVECTOR): Don't set the tag anymore. + This was made redundant by the previous introduction of XSETPVECTYPE. + 2007-10-09 Richard Stallman <rms@gnu.org> - * image.c (free_bitmap_record): Renamed from Free_Bitmap_Record. + * image.c (free_bitmap_record): Rename from Free_Bitmap_Record. 2007-09-29 Richard Stallman <rms@gnu.org>
--- 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))