codegen.c: exit headless case early if a condition is always true

2026-06-08 16:11:16 +00:00 · 2022-10-21 19:47:07 -07:00
parent 2d57967afa
commit e5b32e5598
1 changed files with 19 additions and 0 deletions
@@ -2606,6 +2606,25 @@ codegen(codegen_scope *s, node *tree, int val)
      }
      tree = tree->cdr;
      while (tree) {
+        if (!head) {
+          n = tree->car->car;
+          while (n) {
+            if (true_always(n->car)) {
+              codegen(s, tree->car->cdr, val);
+              if (val) pop();
+              uint32_t pos = cursp();
+              if (pos3 != JMPLINK_START) dispatch_linked(s, pos3);
+              if (val) {
+                if (cursp() != pos) {
+                  gen_move(s, cursp(), pos, 0);
+                }
+                push();
+              }
+              goto exit;
+            }
+            n = n->cdr;
+          }
+        }
        n = tree->car->car;
        pos1 = pos2 = JMPLINK_START;
        while (n) {