From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 9 Oct 2007 04:28:00 +0000 (+0000)
Subject: (XSETPSEUDOVECTOR): Don't set the tag anymore.
X-Git-Tag: emacs-pretest-23.0.90~10475
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=beb9f7453ae9a4473cf43a16c186a090d77c4b3b;p=emacs.git

(XSETPSEUDOVECTOR): Don't set the tag anymore.
This was made redundant by the previous introduction of XSETPVECTYPE.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 541432e70bf..9e1ef4b06f8 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -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>
 
diff --git a/src/lisp.h b/src/lisp.h
index bbad0b28226..43daded691a 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))