commit 4935157ebb18301a537dd2e9bce11330b2896604
author Maciej Kurc <mkurc@antmicro.com> Thu Sep 24 14:18:55 2020 +0200
committer Tomasz Michalak <tmichalak@antmicro.com> Fri Sep 25 15:39:48 2020 +0200
tree 15626e0224506c77860e5c727ea41f9e2271b3ba
parent c604cc8e778d002d541f1f4e192db774070feabb

Addressed review comments.

Signed-off-by: Maciej Kurc <mkurc@antmicro.com>

get_count-plugin/get_count.cc

diff --git a/get_count-plugin/get_count.cc b/get_count-plugin/get_count.cc
index 1e68973..b78f9b8 100644
--- a/get_count-plugin/get_count.cc
+++ b/get_count-plugin/get_count.cc
@@ -28,12 +28,6 @@
 USING_YOSYS_NAMESPACE
 PRIVATE_NAMESPACE_BEGIN
 
-void register_in_tcl_interpreter(const std::string& command) {
-    Tcl_Interp* interp = yosys_get_tcl_interp();
-    std::string tcl_script = stringf("proc %s args { return [yosys %s {*}$args] }", command.c_str(), command.c_str());
-    Tcl_Eval(interp, tcl_script.c_str());
-}
-
 struct GetCount : public Pass {
 
     enum class ObjectType {
@@ -45,7 +39,6 @@
 
     GetCount () :
         Pass("get_count", "Returns count of various selected object types to the TCL interpreter") {
-            register_in_tcl_interpreter(pass_name);
         }    
 
     void help() YS_OVERRIDE {
@@ -95,7 +88,6 @@
 
         // Get the TCL interpreter
         Tcl_Interp* tclInterp = yosys_get_tcl_interp();
-        Tcl_Obj*    tclList = Tcl_NewListObj(0, NULL);
 
         // Count objects
         size_t moduleCount = 0;
@@ -128,8 +120,7 @@
         std::string value = std::to_string(count);
 
         Tcl_Obj* tclStr = Tcl_NewStringObj(value.c_str(), value.size());
-        Tcl_ListObjAppendElement(tclInterp, tclList, tclStr);
-        Tcl_SetObjResult(tclInterp, tclList);
+        Tcl_SetObjResult(tclInterp, tclStr);
     }
 
 } GetCount;