diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-08 09:36:14 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-08 09:36:14 (GMT) |
| commit | ebfa9b6f2dab96c8ae9b1216ecc832b6b263fd98 (patch) | |
| tree | 136492083317a8a4c2dc6c400e6d35016ceebd4c /generic/tclTestObj.c | |
| parent | 73229a7e53190161f9fac4c02158d6a20645eab0 (diff) | |
| download | tcl-ebfa9b6f2dab96c8ae9b1216ecc832b6b263fd98.zip tcl-ebfa9b6f2dab96c8ae9b1216ecc832b6b263fd98.tar.gz tcl-ebfa9b6f2dab96c8ae9b1216ecc832b6b263fd98.tar.bz2 | |
ckalloc -> Tcl_Alloc and ckfree -> Tcl_Free
Diffstat (limited to 'generic/tclTestObj.c')
| -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; } |