diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-17 14:12:55 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-17 14:12:55 (GMT) |
commit | be275081a1ef4cf0490a07d2e253ca901d932fe8 (patch) | |
tree | 6bd1b9d196a5924bc9e00578719d36ef22f2eafd /generic/tclPkg.c | |
parent | 0a36b1187dcef39b41d28a5ce319aa7c54f56f66 (diff) | |
parent | 733b7a43a45ee6be75ccd99172f66b35b69841c5 (diff) | |
download | tcl-be275081a1ef4cf0490a07d2e253ca901d932fe8.zip tcl-be275081a1ef4cf0490a07d2e253ca901d932fe8.tar.gz tcl-be275081a1ef4cf0490a07d2e253ca901d932fe8.tar.bz2 |
Merge 8.7
Diffstat (limited to 'generic/tclPkg.c')
-rw-r--r-- | generic/tclPkg.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/generic/tclPkg.c b/generic/tclPkg.c index 126e777..9681a52 100644 --- a/generic/tclPkg.c +++ b/generic/tclPkg.c @@ -285,7 +285,7 @@ TclPkgFileSeen( Tcl_Obj *list; if (isNew) { - list = Tcl_NewObj(); + TclNewObj(list); Tcl_SetHashValue(entry, list); Tcl_IncrRefCount(list); } else { @@ -1243,7 +1243,7 @@ TclNRPackageObjCmd( } else { Tcl_Obj *resultObj; - resultObj = Tcl_NewObj(); + TclNewObj(resultObj); tablePtr = &iPtr->packageTable; for (hPtr = Tcl_FirstHashEntry(tablePtr, &search); hPtr != NULL; hPtr = Tcl_NextHashEntry(&search)) { @@ -1483,7 +1483,7 @@ TclNRPackageObjCmd( */ Tcl_SetObjResult(interp, - Tcl_NewIntObj(CompareVersions(iva, ivb, NULL))); + Tcl_NewWideIntObj(CompareVersions(iva, ivb, NULL))); Tcl_Free(iva); Tcl_Free(ivb); break; @@ -1492,8 +1492,9 @@ TclNRPackageObjCmd( Tcl_WrongNumArgs(interp, 2, objv, "package"); return TCL_ERROR; } else { - Tcl_Obj *resultObj = Tcl_NewObj(); + Tcl_Obj *resultObj; + TclNewObj(resultObj); argv2 = TclGetString(objv[2]); hPtr = Tcl_FindHashEntry(&iPtr->packageTable, argv2); if (hPtr != NULL) { |