diff options
Diffstat (limited to 'generic/tclNamesp.c')
| -rw-r--r-- | generic/tclNamesp.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/generic/tclNamesp.c b/generic/tclNamesp.c index e371aa0..ea955b0 100644 --- a/generic/tclNamesp.c +++ b/generic/tclNamesp.c @@ -569,10 +569,10 @@ EstablishErrorCodeTraces( const char *name2, int flags) { - Tcl_TraceVar(interp, "errorCode", TCL_GLOBAL_ONLY | TCL_TRACE_READS, - ErrorCodeRead, NULL); - Tcl_TraceVar(interp, "errorCode", TCL_GLOBAL_ONLY | TCL_TRACE_UNSETS, - EstablishErrorCodeTraces, NULL); + Tcl_TraceVar2(interp, "errorCode", NULL, + TCL_GLOBAL_ONLY | TCL_TRACE_READS, ErrorCodeRead, NULL); + Tcl_TraceVar2(interp, "errorCode", NULL, + TCL_GLOBAL_ONLY | TCL_TRACE_UNSETS, EstablishErrorCodeTraces, NULL); return NULL; } @@ -643,10 +643,10 @@ EstablishErrorInfoTraces( const char *name2, int flags) { - Tcl_TraceVar(interp, "errorInfo", TCL_GLOBAL_ONLY | TCL_TRACE_READS, - ErrorInfoRead, NULL); - Tcl_TraceVar(interp, "errorInfo", TCL_GLOBAL_ONLY | TCL_TRACE_UNSETS, - EstablishErrorInfoTraces, NULL); + Tcl_TraceVar2(interp, "errorInfo", NULL, + TCL_GLOBAL_ONLY | TCL_TRACE_READS, ErrorInfoRead, NULL); + Tcl_TraceVar2(interp, "errorInfo", NULL, + TCL_GLOBAL_ONLY | TCL_TRACE_UNSETS, EstablishErrorInfoTraces, NULL); return NULL; } |