From beb9f7453ae9a4473cf43a16c186a090d77c4b3b Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 9 Oct 2007 04:28:00 +0000 Subject: [PATCH] (XSETPSEUDOVECTOR): Don't set the tag anymore. This was made redundant by the previous introduction of XSETPVECTYPE. --- src/ChangeLog | 7 ++++++- src/lisp.h | 4 +++- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 541432e70b..9e1ef4b06f 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,6 +1,11 @@ +2007-10-09 Stefan Monnier + + * lisp.h (XSETPSEUDOVECTOR): Don't set the tag anymore. + This was made redundant by the previous introduction of XSETPVECTYPE. + 2007-10-09 Richard Stallman - * 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 diff --git a/src/lisp.h b/src/lisp.h index bbad0b2822..43daded691 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -561,7 +561,9 @@ extern size_t pure_size; #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)) -- 2.20.1