* bytecode.c (exec_byte_code): Don't use XVECTOR before CHECK_VECTOR.
This commit is contained in:
@@ -444,7 +444,7 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth,
|
||||
/* Lisp_Object v1, v2; */
|
||||
Lisp_Object *vectorp;
|
||||
#ifdef BYTE_CODE_SAFE
|
||||
int const_length = XVECTOR (vector)->size;
|
||||
int const_length;
|
||||
Lisp_Object *stacke;
|
||||
int bytestr_length;
|
||||
#endif
|
||||
@@ -466,6 +466,10 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth,
|
||||
CHECK_VECTOR (vector);
|
||||
CHECK_NUMBER (maxdepth);
|
||||
|
||||
#ifdef BYTE_CODE_SAFE
|
||||
const_length = XVECTOR (vector)->size;
|
||||
#endif
|
||||
|
||||
if (STRING_MULTIBYTE (bytestr))
|
||||
/* BYTESTR must have been produced by Emacs 20.2 or the earlier
|
||||
because they produced a raw 8-bit string for byte-code and now
|
||||
|
||||
Reference in New Issue
Block a user