diff options
| author | andy <andy@noemail.net> | 2014-06-04 21:45:29 (GMT) |
|---|---|---|
| committer | andy <andy@noemail.net> | 2014-06-04 21:45:29 (GMT) |
| commit | 31fa58d879c6e3b3ca91867e53ed5858329def35 (patch) | |
| tree | b5a96ef73389a411a0483399690958c4844b1f75 /doc | |
| parent | e8364f542494b6242b1990ea635a42533cf8c514 (diff) | |
| download | tcl-31fa58d879c6e3b3ca91867e53ed5858329def35.zip tcl-31fa58d879c6e3b3ca91867e53ed5858329def35.tar.gz tcl-31fa58d879c6e3b3ca91867e53ed5858329def35.tar.bz2 | |
Add missing calls to Tcl_DecrRefCount() in string object man page examples.
FossilOrigin-Name: 8b99a29c3ff6448c43fbe82ab228937acda48509
Diffstat (limited to 'doc')
| -rw-r--r-- | doc/StringObj.3 | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/doc/StringObj.3 b/doc/StringObj.3 index d81f23d..cf8f6d3 100644 --- a/doc/StringObj.3 +++ b/doc/StringObj.3 @@ -293,6 +293,7 @@ of \fBTcl_Format\fR with functionality equivalent to: Tcl_Obj *newPtr = \fBTcl_Format\fR(interp, format, objc, objv); if (newPtr == NULL) return TCL_ERROR; \fBTcl_AppendObjToObj\fR(objPtr, newPtr); +\fBTcl_DecrRefCount\fR(newPtr); return TCL_OK; .CE .PP @@ -337,7 +338,9 @@ Compile-time protection may be provided by some compilers. of \fBTcl_ObjPrintf\fR with functionality equivalent to .PP .CS -\fBTcl_AppendObjToObj\fR(objPtr, \fBTcl_ObjPrintf\fR(format, ...)); +Tcl_Obj *newPtr = \fBTcl_ObjPrintf\fR(format, ...); +\fBTcl_AppendObjToObj\fR(objPtr, newPtr); +\fBTcl_DecrRefCount\fR(newPtr); .CE .PP but with greater convenience and efficiency when the appending |