Mercurial > emacs

diff src/eval.c @ 11481:af7833ecb551

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Ffetch_bytecode): Check the type of the object being read from the file.
author Richard M. Stallman <rms@gnu.org>
date Tue, 18 Apr 1995 18:13:13 +0000
parents 1e2290c04cce
children 73ac42b9be24
line wrap: on
line diff
--- a/src/eval.c	Tue Apr 18 07:21:52 1995 +0000
+++ b/src/eval.c	Tue Apr 18 18:13:13 1995 +0000
@@ -2269,6 +2269,8 @@
       && CONSP (XVECTOR (object)->contents[COMPILED_BYTECODE]))
     {
       tem = read_doc_string (XVECTOR (object)->contents[COMPILED_BYTECODE]);
+      if (!CONSP (tem))
+	error ("invalid byte code");
       XVECTOR (object)->contents[COMPILED_BYTECODE] = XCONS (tem)->car;
       XVECTOR (object)->contents[COMPILED_CONSTANTS] = XCONS (tem)->cdr;
     }