From 97f783e668015065069fa2b2f85e4cbe518abc26 Mon Sep 17 00:00:00 2001 From: Clifford Wolf Date: Wed, 1 May 2013 14:21:03 +0200 Subject: Improved/simplified TCL bindings --- kernel/register.cc | 25 ------------------------- 1 file changed, 25 deletions(-) (limited to 'kernel/register.cc') diff --git a/kernel/register.cc b/kernel/register.cc index 0579dbc43..bfd51feb1 100644 --- a/kernel/register.cc +++ b/kernel/register.cc @@ -56,8 +56,6 @@ void Pass::run_register() { assert(pass_register.count(pass_name) == 0); pass_register[pass_name] = this; - - register_tcl(); } void Pass::init_register() @@ -77,25 +75,6 @@ void Pass::done_register() raw_register_done = false; } -#ifdef YOSYS_ENABLE_TCL -static int tcl_pass(ClientData that_vp, Tcl_Interp*, int argc, const char *argv[]) -{ - Pass *that = (Pass*)that_vp; - std::vector args; - for (int i = 0; i < argc; i++) - args.push_back(argv[i]); - that->call(yosys_tcl_design, args); - return TCL_OK; -} -#endif - -void Pass::register_tcl() -{ -#ifdef YOSYS_ENABLE_TCL - Tcl_CreateCommand(yosys_tcl, pass_name.c_str(), tcl_pass, (ClientData)this, NULL); -#endif -} - Pass::~Pass() { } @@ -212,8 +191,6 @@ void Frontend::run_register() assert(frontend_register.count(frontend_name) == 0); frontend_register[frontend_name] = this; - - register_tcl(); } Frontend::~Frontend() @@ -306,8 +283,6 @@ void Backend::run_register() assert(backend_register.count(backend_name) == 0); backend_register[backend_name] = this; - - register_tcl(); } Backend::~Backend() -- cgit v1.2.3