Mercurial > emacs

diff src/lisp.h @ 91717:23bd9edca21f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ASET): Check bounds.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sun, 10 Feb 2008 03:20:40 +0000
parents b7a5a89054dc
children 929fde6550ca
line wrap: on
line diff
--- a/src/lisp.h	Sun Feb 10 03:16:06 2008 +0000
+++ b/src/lisp.h	Sun Feb 10 03:20:40 2008 +0000
@@ -589,8 +589,12 @@
 /* Convenience macros for dealing with Lisp arrays.  */
 
 #define AREF(ARRAY, IDX)	XVECTOR ((ARRAY))->contents[IDX]
-#define ASET(ARRAY, IDX, VAL)	(AREF ((ARRAY), (IDX)) = (VAL))
 #define ASIZE(ARRAY)		XVECTOR ((ARRAY))->size
+/* The IDX==IDX tries to detect when the macro argument is side-effecting.  */
+#define ASET(ARRAY, IDX, VAL)	\
+  (eassert ((IDX) == (IDX)),				\
+   eassert ((IDX) >= 0 && (IDX) < ASIZE (ARRAY)),	\
+   ASLOT ((ARRAY), (IDX)) = (VAL))
 
 /* Convenience macros for dealing with Lisp strings.  */