diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-17 16:44:44 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-17 16:44:44 (GMT) |
commit | 01a48e2369782044a30d922c5f8ed52262ef4fcd (patch) | |
tree | cded44f524910001e25a40e44637c146b16a5302 /generic/tclPathObj.c | |
parent | e5a2ebd71b2aa2b31ca5128eb47ae0a7fdd20bd5 (diff) | |
download | tcl-01a48e2369782044a30d922c5f8ed52262ef4fcd.zip tcl-01a48e2369782044a30d922c5f8ed52262ef4fcd.tar.gz tcl-01a48e2369782044a30d922c5f8ed52262ef4fcd.tar.bz2 |
Tcl_NewObj() -> TclNewObj()
Diffstat (limited to 'generic/tclPathObj.c')
-rw-r--r-- | generic/tclPathObj.c | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/generic/tclPathObj.c b/generic/tclPathObj.c index d919c40..b69607a 100644 --- a/generic/tclPathObj.c +++ b/generic/tclPathObj.c @@ -743,7 +743,7 @@ TclPathPart( (Tcl_FSGetPathType(pathPtr) == TCL_PATH_RELATIVE))) { Tcl_ListObjIndex(NULL, splitPtr, splitElements-1, &resultPtr); } else { - resultPtr = Tcl_NewObj(); + TclNewObj(resultPtr); } } else { /* @@ -781,7 +781,7 @@ GetExtension( tail = TclGetString(pathPtr); extension = TclGetExtension(tail); if (extension == NULL) { - ret = Tcl_NewObj(); + TclNewObj(ret); } else { ret = Tcl_NewStringObj(extension, -1); } @@ -857,7 +857,8 @@ TclJoinPath( assert ( elements >= 0 ); if (elements == 0) { - return Tcl_NewObj(); + TclNewObj(res); + return res; } assert ( elements > 0 ); @@ -1056,7 +1057,7 @@ TclJoinPath( noQuickReturn: if (res == NULL) { - res = Tcl_NewObj(); + TclNewObj(res); ptr = Tcl_GetStringFromObj(res, &length); } else { ptr = Tcl_GetStringFromObj(res, &length); @@ -1317,7 +1318,7 @@ TclNewFSPathObj( return pathPtr; } - pathPtr = Tcl_NewObj(); + TclNewObj(pathPtr); fsPathPtr = ckalloc(sizeof(FsPath)); /* |