From b5852ffc70472969e405af332654a1529b215c4f Mon Sep 17 00:00:00 2001 From: stefan schippers Date: Sat, 11 Mar 2023 11:29:35 +0100 Subject: [PATCH] print current_dirname in xschem globals command for debug --- src/scheduler.c | 1 + 1 file changed, 1 insertion(+) diff --git a/src/scheduler.c b/src/scheduler.c index ed7831da..be3a4f6c 100644 --- a/src/scheduler.c +++ b/src/scheduler.c @@ -1243,6 +1243,7 @@ int xschem(ClientData clientdata, Tcl_Interp *interp, int argc, const char * arg my_snprintf(res, S(res), "maxr[%d]=%d\n", i, xctx->maxr[i]); Tcl_AppendResult(interp, res, NULL); my_snprintf(res, S(res), "maxl[%d]=%d\n", i, xctx->maxl[i]); Tcl_AppendResult(interp, res, NULL); } + my_snprintf(res, S(res), "current_dirname=%s\n", xctx->current_dirname); Tcl_AppendResult(interp, res, NULL); my_snprintf(res, S(res), "current_name=%s\n", xctx->current_name); Tcl_AppendResult(interp, res, NULL); my_snprintf(res, S(res), "currsch=%d\n", xctx->currsch); Tcl_AppendResult(interp, res, NULL); for(i=0;i<=xctx->currsch; ++i)