diff options
| author | Paul Eggert | 2018-05-22 12:26:22 -0700 |
|---|---|---|
| committer | Paul Eggert | 2018-05-22 12:42:16 -0700 |
| commit | 02f303d75f876517b7802f787413cbb418203315 (patch) | |
| tree | a0a0413cb8928dd09c8a125581e3d4dbbd0cae45 /test/src | |
| parent | a51725280ac3f4db3b9a1a552f25fb4204f45a4d (diff) | |
| download | emacs-02f303d75f876517b7802f787413cbb418203315.tar.gz emacs-02f303d75f876517b7802f787413cbb418203315.zip | |
Fix failed assertion when load-force-doc-strings
Problem reported by Philipp Stephani (Bug#31556).
* src/lread.c (read_vector): When load_force_doc_strings, check
for byte code vectors that are invalid because they are too short.
* test/src/lread-tests.el (lread-invalid-bytecodes): New test.
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/lread-tests.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/test/src/lread-tests.el b/test/src/lread-tests.el index 647e886d342..639a6da93ae 100644 --- a/test/src/lread-tests.el +++ b/test/src/lread-tests.el | |||
| @@ -207,4 +207,8 @@ literals (Bug#20852)." | |||
| 207 | ;; bug was fixed. | 207 | ;; bug was fixed. |
| 208 | (eval-buffer)))) | 208 | (eval-buffer)))) |
| 209 | 209 | ||
| 210 | (ert-deftest lread-invalid-bytecodes () | ||
| 211 | (should-error | ||
| 212 | (let ((load-force-doc-strings t)) (read "#[0 \"\"]")))) | ||
| 213 | |||
| 210 | ;;; lread-tests.el ends here | 214 | ;;; lread-tests.el ends here |