diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-25 10:17:03 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-25 10:17:03 (GMT) |
| commit | 0eb68c7b8271c5fe018e7b2a992ac1def4598879 (patch) | |
| tree | 49e4e6264cb50ab2c3a902b07a651b28595d7eba | |
| parent | 9ee74da9b009a2f2a783bc84af274cdf8a62dd3b (diff) | |
| parent | a6fcc32ebf1951f7cbe9c686563b962a1a1f72a1 (diff) | |
| download | tk-0eb68c7b8271c5fe018e7b2a992ac1def4598879.zip tk-0eb68c7b8271c5fe018e7b2a992ac1def4598879.tar.gz tk-0eb68c7b8271c5fe018e7b2a992ac1def4598879.tar.bz2 | |
Fix [be9cade996]: sigsegv in tkwait
| -rw-r--r-- | generic/tkCmds.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/generic/tkCmds.c b/generic/tkCmds.c index 193c3d6..c5f0a50 100644 --- a/generic/tkCmds.c +++ b/generic/tkCmds.c @@ -1120,14 +1120,16 @@ Tk_TkwaitObjCmd( static char * WaitVariableProc( ClientData clientData, /* Pointer to integer to set to 1. */ - TCL_UNUSED(Tcl_Interp *), /* Interpreter containing variable. */ - TCL_UNUSED(const char *), /* Name of variable. */ + Tcl_Interp *interp, /* Interpreter containing variable. */ + const char *name1, /* Name of variable. */ TCL_UNUSED(const char *), /* Second part of variable name. */ TCL_UNUSED(int)) /* Information about what happened. */ { int *donePtr = (int *)clientData; *donePtr = 1; + Tcl_UntraceVar(interp, name1, TCL_TRACE_WRITES|TCL_TRACE_UNSETS, + WaitVariableProc, clientData); return NULL; } |