From 5bbdb09071ac5681f6ef97418d9d0c54032dfd66 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 18 Apr 1995 18:13:13 +0000 Subject: [PATCH] (Ffetch_bytecode): Check the type of the object being read from the file. --- src/eval.c | 2 ++ 1 file changed, 2 insertions(+) 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; } -- 2.39.5