-

[gnu-emacs] / src / lisp.h

diff --git a/src/lisp.h b/src/lisp.h
index d0abb24b6858279fd5e19fc99f9a99951e622e8b..e606ffa0259e8894b4a07955bf65a74b8f2d39e8 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -1768,7 +1768,8 @@ CHAR_TABLE_EXTRA_SLOTS (struct Lisp_Char_Table *ct)
 
 /* Make sure that sub char-table contents slot is where we think it is.  */
 verify (offsetof (struct Lisp_Sub_Char_Table, contents)
-       == offsetof (struct Lisp_Vector, contents[SUB_CHAR_TABLE_OFFSET]));
+       == (offsetof (struct Lisp_Vector, contents)
+           + SUB_CHAR_TABLE_OFFSET * sizeof (Lisp_Object)));
 
 /***********************************************************************
                               Symbols