From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 8 Sep 2019 18:39:34 +0000 (+0200)
Subject: add sanity check into compile_function
X-Git-Tag: emacs-28.0.90~2727^2~1191
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a8517ba3ceb21f3fb5c452226d5ca6a3981ae852;p=emacs.git

add sanity check into compile_function
---

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)
       Lisp_Object block_name = HASH_KEY (ht, i);
       Lisp_Object block = HASH_VALUE (ht, i);
       Lisp_Object insns = FUNCALL1 (comp-block-insns, block);
+      eassert (!NILP (block) && !NILP (insns));
 
       comp.block = retrive_block (block_name);
       while (CONSP (insns))