X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/4869e0d85a215e7fb0262430a48aa4d5804bf0a4..f95bbe5a67e03fe6d05cbfb4d0c9151a754d6ccd:/src/lisp.h

diff --git a/src/lisp.h b/src/lisp.h
index d0abb24b68..e606ffa025 100644
--- 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