summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2007-04-10 22:16:42 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2007-04-10 22:16:42 (GMT)
commit1f70d29a9eab0d6dd8b1942730691446b89b4fe0 (patch)
tree891ac535b63695a1cbdeb579cb1c498857d263fc /generic
parent898206cbae7c75188c31370f310b214781c09c33 (diff)
downloadtcl-1f70d29a9eab0d6dd8b1942730691446b89b4fe0.zip
tcl-1f70d29a9eab0d6dd8b1942730691446b89b4fe0.tar.gz
tcl-1f70d29a9eab0d6dd8b1942730691446b89b4fe0.tar.bz2
assorted minor cleanup
Diffstat (limited to 'generic')
-rw-r--r--generic/tclResult.c28
1 files changed, 16 insertions, 12 deletions
diff --git a/generic/tclResult.c b/generic/tclResult.c
index c159fce..d60f06f 100644
--- a/generic/tclResult.c
+++ b/generic/tclResult.c
@@ -8,7 +8,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclResult.c,v 1.34 2007/04/10 14:47:17 dkf Exp $
+ * RCS: @(#) $Id: tclResult.c,v 1.35 2007/04/10 22:16:42 dkf Exp $
*/
#include "tclInt.h"
@@ -118,8 +118,8 @@ Tcl_SaveInterpState(
int
Tcl_RestoreInterpState(
- Tcl_Interp *interp, /* Interpreter's state to be restored*/
- Tcl_InterpState state) /* saved interpreter state */
+ Tcl_Interp *interp, /* Interpreter's state to be restored. */
+ Tcl_InterpState state) /* Saved interpreter state. */
{
Interp *iPtr = (Interp *)interp;
InterpState *statePtr = (InterpState *)state;
@@ -189,7 +189,7 @@ Tcl_DiscardInterpState(
Tcl_DecrRefCount(statePtr->returnOpts);
}
Tcl_DecrRefCount(statePtr->objResult);
- ckfree((char*) statePtr);
+ ckfree((char *) statePtr);
}
/*
@@ -315,7 +315,7 @@ Tcl_RestoreResult(
*/
if (iPtr->appendResult != NULL) {
- ckfree((char *)iPtr->appendResult);
+ ckfree((char *) iPtr->appendResult);
}
iPtr->appendResult = statePtr->appendResult;
@@ -881,8 +881,8 @@ Tcl_FreeResult(
* Side effects:
* It resets the result object to an unshared empty object. It then
* restores the interpreter's string result area to its default
- * initialized state, freeing up any memory that may have been
- * allocated. It also clears any error information for the interpreter.
+ * initialized state, freeing up any memory that may have been allocated.
+ * It also clears any error information for the interpreter.
*
*----------------------------------------------------------------------
*/
@@ -962,7 +962,7 @@ ResetObjResult(
&& (objResultPtr->bytes != tclEmptyStringRep)) {
ckfree((char *) objResultPtr->bytes);
}
- objResultPtr->bytes = tclEmptyStringRep;
+ objResultPtr->bytes = tclEmptyStringRep;
objResultPtr->length = 0;
TclFreeIntRep(objResultPtr);
objResultPtr->typePtr = NULL;
@@ -1334,7 +1334,10 @@ TclMergeReturnOptions(
if (TCL_ERROR == Tcl_GetIndexFromObj(NULL, valuePtr, returnCodes,
NULL, TCL_EXACT, &code)) {
- /* Value is not a legal return code */
+ /*
+ * Value is not a legal return code.
+ */
+
Tcl_ResetResult(interp);
Tcl_AppendResult(interp, "bad completion code \"",
TclGetString(valuePtr),
@@ -1444,7 +1447,7 @@ Tcl_GetReturnOptions(
if (result == TCL_ERROR) {
/*
* When result was an error, fill in any missing values for
- * -errorinfo, -errorcode, and -errorline
+ * -errorinfo, -errorcode, and -errorline.
*/
Tcl_AddObjErrorInfo(interp, "", -1);
@@ -1551,9 +1554,10 @@ TclTransferResult(
if (result == TCL_OK && siPtr->returnOpts == NULL) {
/*
- * Special optimization for the common case of normal
- * command return code and no explicit return options.
+ * Special optimization for the common case of normal command return
+ * code and no explicit return options.
*/
+
if (tiPtr->returnOpts) {
Tcl_DecrRefCount(tiPtr->returnOpts);
tiPtr->returnOpts = NULL;