codegen.c: s2 may be NULL.

Since `s2` is `NULL` on top-level, it will be an error. No need to
generate strict bytecode.
This commit is contained in:
Yukihiro "Matz" Matsumoto
2021-10-16 11:09:52 +09:00
parent 0dc5fcec7b
commit 36bca25e58
+4 -1
View File
@@ -2811,7 +2811,7 @@ codegen(codegen_scope *s, node *tree, int val)
}
}
/* keyword arguments */
if ((s2->ainfo & 0x1) && tree->cdr->car) {
if (s2 && (s2->ainfo & 0x1) && tree->cdr->car) {
nk = gen_hash(s, tree->cdr->car->cdr, VAL, 14);
if (nk < 0) {st++; nk = 15;}
else st += nk;
@@ -2821,6 +2821,9 @@ codegen(codegen_scope *s, node *tree, int val)
if (tree->cdr->cdr) {
codegen(s, tree->cdr->cdr, VAL);
}
else if (!s2) {/* super at top-level */
push(); /* no need to push block */
}
else {
gen_blkmove(s, s2->ainfo, lv);
}