diff options
| -rw-r--r-- | generic/tclTestObj.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclTestObj.c b/generic/tclTestObj.c index 820da0e..7accb9b 100644 --- a/generic/tclTestObj.c +++ b/generic/tclTestObj.c @@ -1498,7 +1498,7 @@ TeststringobjCmd( Tcl_SetObjResult(interp, varPtr[varIndex]); break; case 13: /* newunicode*/ - unicode = (Tcl_UniChar *) ckalloc((objc - 3) * sizeof(Tcl_UniChar)); + unicode = (Tcl_UniChar *) Tcl_Alloc((objc - 3) * sizeof(Tcl_UniChar)); for (i = 0; i < (objc - 3); ++i) { int val; if (Tcl_GetIntFromObj(interp, objv[i + 3], &val) != TCL_OK) { @@ -1507,12 +1507,12 @@ TeststringobjCmd( unicode[i] = (Tcl_UniChar)val; } if (i < (objc-3)) { - ckfree(unicode); + Tcl_Free(unicode); return TCL_ERROR; } SetVarToObj(varPtr, varIndex, Tcl_NewUnicodeObj(unicode, objc - 3)); Tcl_SetObjResult(interp, varPtr[varIndex]); - ckfree(unicode); + Tcl_Free(unicode); break; } |