diff options
| author | Andrea Corallo | 2019-09-08 20:39:34 +0200 |
|---|---|---|
| committer | Andrea Corallo | 2020-01-01 11:37:46 +0100 |
| commit | a8517ba3ceb21f3fb5c452226d5ca6a3981ae852 (patch) | |
| tree | 452f68d2bf6338d227dce3519c1e5d12237604bf /src/comp.c | |
| parent | a70e54f6f7a6e711bcc49fce4e117d9c3e9d71a1 (diff) | |
| download | emacs-a8517ba3ceb21f3fb5c452226d5ca6a3981ae852.tar.gz emacs-a8517ba3ceb21f3fb5c452226d5ca6a3981ae852.zip | |
add sanity check into compile_function
Diffstat (limited to 'src/comp.c')
| -rw-r--r-- | src/comp.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/comp.c b/src/comp.c index c2bd135495e..8422c7d3431 100644 --- a/src/comp.c +++ b/src/comp.c | |||
| @@ -2698,6 +2698,7 @@ compile_function (Lisp_Object func) | |||
| 2698 | Lisp_Object block_name = HASH_KEY (ht, i); | 2698 | Lisp_Object block_name = HASH_KEY (ht, i); |
| 2699 | Lisp_Object block = HASH_VALUE (ht, i); | 2699 | Lisp_Object block = HASH_VALUE (ht, i); |
| 2700 | Lisp_Object insns = FUNCALL1 (comp-block-insns, block); | 2700 | Lisp_Object insns = FUNCALL1 (comp-block-insns, block); |
| 2701 | eassert (!NILP (block) && !NILP (insns)); | ||
| 2701 | 2702 | ||
| 2702 | comp.block = retrive_block (block_name); | 2703 | comp.block = retrive_block (block_name); |
| 2703 | while (CONSP (insns)) | 2704 | while (CONSP (insns)) |