From b1c0ef9a2f5e412cda8a21b1efc1930101b088a0 Mon Sep 17 00:00:00 2001
From: Omar Rizwan <omar@omar.website>
Date: Wed, 16 Aug 2023 09:50:32 -0400
Subject: Increase log size + some unmatch hacking

---
 lib/evaluator.tcl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lib')

diff --git a/lib/evaluator.tcl b/lib/evaluator.tcl
index 02d87faa..73c6a353 100644
--- a/lib/evaluator.tcl
+++ b/lib/evaluator.tcl
@@ -1031,6 +1031,7 @@ namespace eval Evaluator {
                 if (unmatch->edges[j].type == PARENT) {
                     statement_handle_t unmatchWhenId = unmatch->edges[j].statement;
                     statement_t* unmatchWhen = get(unmatchWhenId);
+                    if (unmatchWhen == NULL) continue;
                     for (int k = 0; k < unmatchWhen->n_edges; k++) {
                         if (unmatchWhen->edges[k].type == PARENT) {
                             unmatchId = unmatchWhen->edges[k].match;
@@ -1135,7 +1136,7 @@ namespace eval Evaluator {
             };
         } log_entry_t;
 
-        log_entry_t evaluatorLog[1024] = {0};
+        log_entry_t evaluatorLog[4096] = {0};
         #define EVALUATOR_LOG_CAPACITY (sizeof(evaluatorLog)/sizeof(evaluatorLog[1]))
         int evaluatorLogReadIndex = EVALUATOR_LOG_CAPACITY - 1;
         int evaluatorLogWriteIndex = 0;
-- 
cgit v1.2.3