From 9940576780ac7e87d8794729cb45f87392ebe6c9 Mon Sep 17 00:00:00 2001
From: James Cherry <cherry@parallaxsw.com>
Date: Sun, 7 Mar 2021 10:21:28 -0700
Subject: [PATCH] missing error ids

---
 tcl/Cmds.tcl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/tcl/Cmds.tcl b/tcl/Cmds.tcl
index 6db94a3c..c77870b1 100644
--- a/tcl/Cmds.tcl
+++ b/tcl/Cmds.tcl
@@ -1448,7 +1448,7 @@ 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]} {
@@ -1456,15 +1456,15 @@ proc get_lib_cell_arg { arg_name arg error_proc } {
     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