From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 18 Apr 1995 18:13:13 +0000 (+0000)
Subject: (Ffetch_bytecode): Check the type of the object being read from the file.
X-Git-Tag: emacs-19.34~4377
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5bbdb09071ac5681f6ef97418d9d0c54032dfd66;p=emacs.git

(Ffetch_bytecode): Check the type of the object being read from the file.
---

diff --git a/src/eval.c b/src/eval.c
index 29136940c4e..6a6bde4f328 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -2269,6 +2269,8 @@ DEFUN ("fetch-bytecode", Ffetch_bytecode, Sfetch_bytecode,
       && 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;
     }