diff options
author | mig <mig> | 2013-01-02 19:20:54 (GMT) |
---|---|---|
committer | mig <mig> | 2013-01-02 19:20:54 (GMT) |
commit | 824efe60eb61baf70614388faa035d26131ed1c8 (patch) | |
tree | fce2e7f6a0843a73a95f96fbe00535b4b175f833 /generic/tclExecute.c | |
parent | 23c8c8b5e43fffff7f81e26ffa820d4f51cca5c5 (diff) | |
download | tcl-824efe60eb61baf70614388faa035d26131ed1c8.zip tcl-824efe60eb61baf70614388faa035d26131ed1c8.tar.gz tcl-824efe60eb61baf70614388faa035d26131ed1c8.tar.bz2 |
remove stray calls to Tcl_Alloc and friends: the core should only use ckalloc to allow MEM_DEBUG to work properly
Diffstat (limited to 'generic/tclExecute.c')
-rw-r--r-- | generic/tclExecute.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 2b5f713..a9b3fb4 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -1212,7 +1212,7 @@ TclStackFree( Tcl_Obj **markerPtr, *marker; if (iPtr == NULL || iPtr->execEnvPtr == NULL) { - Tcl_Free((char *) freePtr); + ckfree((char *) freePtr); return; } @@ -1272,7 +1272,7 @@ TclStackAlloc( int numWords = (numBytes + (sizeof(Tcl_Obj *) - 1))/sizeof(Tcl_Obj *); if (iPtr == NULL || iPtr->execEnvPtr == NULL) { - return (void *) Tcl_Alloc(numBytes); + return (void *) ckalloc(numBytes); } return (void *) StackAllocWords(interp, numWords); @@ -1291,7 +1291,7 @@ TclStackRealloc( int numWords; if (iPtr == NULL || iPtr->execEnvPtr == NULL) { - return (void *) Tcl_Realloc((char *) ptr, numBytes); + return (void *) ckrealloc((char *) ptr, numBytes); } eePtr = iPtr->execEnvPtr; |