From a6425a3364b790a04f2cf8f85a1fc07fb6dab9f2 Mon Sep 17 00:00:00 2001
From: James Cherry <cherry@parallaxsw.com>
Date: Sat, 28 Feb 2026 14:51:09 -0800
Subject: [PATCH] FindMessages criticalError

Signed-off-by: James Cherry <cherry@parallaxsw.com>
---
 dcalc/ArnoldiDelayCalc.cc | 3 ++-
 etc/FindMessages.tcl      | 2 +-
 power/Power.cc            | 2 +-
 search/Levelize.cc        | 2 +-
 4 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/dcalc/ArnoldiDelayCalc.cc b/dcalc/ArnoldiDelayCalc.cc
index ac6705d8..162c4d3e 100644
--- a/dcalc/ArnoldiDelayCalc.cc
+++ b/dcalc/ArnoldiDelayCalc.cc
@@ -610,7 +610,8 @@ delay_work_get_residues(delay_work *D,int term_index)
 // calculate_poles_res
 //
 
-void arnoldi1::calculate_poles_res(delay_work *D,double rdrive)
+void arnoldi1::calculate_poles_res(delay_work *D,
+                                   double rdrive)
 {
   if (n > D->nmax) delay_work_alloc(D,n);
   double *p = D->poles;
diff --git a/etc/FindMessages.tcl b/etc/FindMessages.tcl
index bf60754b..c5fad936 100755
--- a/etc/FindMessages.tcl
+++ b/etc/FindMessages.tcl
@@ -61,7 +61,7 @@ foreach subdir $subdirs {
     set files [glob -nocomplain [file join $subdir "*.{cc,hh,yy,ll,i}"]]
     set files_c [concat $files_c $files]
 }
-set warn_regexp_c {(?:(?:->critical|->warn|->fileWarn|->error|->fileError|libWarn|libError| warn)\(|tclArgError\(interp,\s*)([0-9]+),.*(".+")}
+set warn_regexp_c {(?:(?:->critical|->warn|->fileWarn|->error|->fileError|criticalError|libWarn|libError)\(|tclArgError\(interp,\s*)([0-9]+),.*(".+")}
 
 set files_tcl {}
 foreach subdir $subdirs {
diff --git a/power/Power.cc b/power/Power.cc
index 4319de04..2faaef23 100644
--- a/power/Power.cc
+++ b/power/Power.cc
@@ -842,7 +842,7 @@ Power::evalBddDuty(DdNode *bdd,
     else if (bdd == Cudd_ReadLogicZero(bdd_.cuddMgr()))
       return 0.0;
     else
-      criticalError(1100, "unknown cudd constant");
+      criticalError(2400, "unknown cudd constant");
   }
   else {
     float duty0 = evalBddDuty(Cudd_E(bdd), inst);
diff --git a/search/Levelize.cc b/search/Levelize.cc
index 02ef86e5..df6c983d 100644
--- a/search/Levelize.cc
+++ b/search/Levelize.cc
@@ -678,7 +678,7 @@ Levelize::setLevelIncr(Vertex  *vertex,
   }
   max_level_ = max(level, max_level_);
   if (level >= Graph::vertex_level_max)
-    criticalError(617, "maximum logic level exceeded");
+    criticalError(618, "maximum logic level exceeded");
 }
 
 void