missing error ids

DBGGG · Mar 7, 2021 · 9940576 · 9940576
1 parent ea15b74
commit 9940576
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/tcl/Cmds.tcl b/tcl/Cmds.tcl
@@ -1448,23 +1448,23 @@ proc get_lib_cell_arg { arg_name arg error_proc } {
     if { $object_type == "LibertyCell" } {
       set lib_cell $arg
     } else {
-      $error_proc "$arg_name type '$object_type' is not a liberty cell."
+      $error_proc 700 "$arg_name type '$object_type' is not a liberty cell."
     }
     # Parse library_name/cell_name.
   } elseif {[regexp [cell_regexp] $arg ignore lib_name cell_name]} {
     set library [find_liberty $lib_name]
     if { $library != "NULL" } {
       set lib_cell [$library find_liberty_cell $cell_name]
       if { $lib_cell == "NULL" } {
-	$error_proc "liberty cell '$arg' not found."
+	$error_proc 701 "liberty cell '$arg' not found."
       }
     } else {
-      $error_proc "library '$lib_name' not found."
+      $error_proc 702  "library '$lib_name' not found."
     }
   } else {
     set lib_cell [find_liberty_cell $arg]
     if { $lib_cell == "NULL" } {
-      $error_proc "liberty cell '$arg' not found."
+      $error_proc 703 "liberty cell '$arg' not found."
     }
   }
   return $lib_cell