diff options
| author | bch <brad.harder@gmail.com> | 2022-08-23 20:29:58 (GMT) |
|---|---|---|
| committer | bch <brad.harder@gmail.com> | 2022-08-23 20:29:58 (GMT) |
| commit | abe4d4223da114bb82cca35dc22618f25847668f (patch) | |
| tree | 0dc36206ccd4aedfad6569dd6cc28e2168712925 /generic/tclTrace.c | |
| parent | 176e98222e65668b47b1f0a105219a3610fee79e (diff) | |
| download | tcl-abe4d4223da114bb82cca35dc22618f25847668f.zip tcl-abe4d4223da114bb82cca35dc22618f25847668f.tar.gz tcl-abe4d4223da114bb82cca35dc22618f25847668f.tar.bz2 | |
fix(?) stray ckalloc()/ckfree(); ref TIP 494.
Diffstat (limited to 'generic/tclTrace.c')
| -rw-r--r-- | generic/tclTrace.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclTrace.c b/generic/tclTrace.c index c837e92..f830a77 100644 --- a/generic/tclTrace.c +++ b/generic/tclTrace.c @@ -2152,7 +2152,7 @@ static void traceWrapperDelProc(void *clientData) if (info->delProc) { info->delProc(clientData); } - ckfree(info); + Tcl_Free(info); } Tcl_Trace @@ -2165,7 +2165,7 @@ Tcl_CreateObjTrace2( Tcl_CmdObjTraceDeleteProc *delProc) /* Function to call when trace is deleted */ { - TraceWrapperInfo *info = (TraceWrapperInfo *)ckalloc(sizeof(TraceWrapperInfo)); + TraceWrapperInfo *info = (TraceWrapperInfo *)Tcl_Alloc(sizeof(TraceWrapperInfo)); info->proc = proc; info->delProc = delProc; info->clientData = clientData; |