diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-04-18 18:13:13 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-04-18 18:13:13 +0000 |
| commit | e38d71693a5c55d2581a8481a3125fa437a7369f (patch) | |
| tree | cb6122d977c81964c7c7182ffeabdf360f2fe769 /src/eval.c | |
| parent | 84ba42e182a57ea956e0b3675f3b19dd78bbc187 (diff) | |
| download | emacs-e38d71693a5c55d2581a8481a3125fa437a7369f.tar.gz | |
(Ffetch_bytecode): Check the type of the object being read from the file.
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 2 |
1 files changed, 2 insertions, 0 deletions
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; } |