changeset 90830:e33fffaa9534

(read1): Use CHAR_TABLE_STANDARD_SLOTS to validate char-table size.
author Andreas Schwab <schwab@suse.de>
date Sun, 29 Apr 2007 16:03:52 +0000
parents 92c344270c8a
children 04525a3725c7
files src/lread.c
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/lread.c	Thu Apr 26 04:38:27 2007 +0000
+++ b/src/lread.c	Sun Apr 29 16:03:52 2007 +0000
@@ -2302,7 +2302,7 @@
 	    {
 	      Lisp_Object tmp;
 	      tmp = read_vector (readcharfun, 0);
-	      if (XVECTOR (tmp)->size < VECSIZE (struct Lisp_Char_Table))
+	      if (XVECTOR (tmp)->size < CHAR_TABLE_STANDARD_SLOTS)
 		error ("Invalid size char-table");
 	      XSETCHAR_TABLE (tmp, XCHAR_TABLE (tmp));
 	      return tmp;