summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2009-08-19 14:25:37 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2009-08-19 14:25:37 (GMT)
commit292a05b86ebbf9c8aae085fb829cb63a1086673e (patch)
tree126107668b30e68eec270ab8176dc7ee5d3169a3 /generic
parentaaf5ab291c239170c32f62ed8a800ec13b863484 (diff)
downloadtcl-292a05b86ebbf9c8aae085fb829cb63a1086673e.zip
tcl-292a05b86ebbf9c8aae085fb829cb63a1086673e.tar.gz
tcl-292a05b86ebbf9c8aae085fb829cb63a1086673e.tar.bz2
Formatting corrections
Diffstat (limited to 'generic')
-rw-r--r--generic/tclCmdMZ.c11
-rw-r--r--generic/tclInt.h16
2 files changed, 13 insertions, 14 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c
index 554097f..c5817bc 100644
--- a/generic/tclCmdMZ.c
+++ b/generic/tclCmdMZ.c
@@ -15,7 +15,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclCmdMZ.c,v 1.188 2009/07/20 09:13:44 dkf Exp $
+ * RCS: @(#) $Id: tclCmdMZ.c,v 1.189 2009/08/19 14:25:37 dkf Exp $
*/
#include "tclInt.h"
@@ -24,7 +24,7 @@
static inline Tcl_Obj * During(Tcl_Interp *interp, int resultCode,
Tcl_Obj *oldOptions, Tcl_Obj *errorInfo);
static int SwitchPostProc(ClientData data[], Tcl_Interp* interp,
- int result);
+ int result);
static int TryPostBody(ClientData data[], Tcl_Interp *interp,
int result);
static int TryPostFinal(ClientData data[], Tcl_Interp *interp,
@@ -3895,9 +3895,8 @@ TclNRSwitchObjCmd(
* TIP #280: Make invoking context available to switch branch.
*/
- Tcl_NRAddCallback(interp, SwitchPostProc, INT2PTR(splitObjs),
- (ClientData) ctxPtr, INT2PTR(pc),
- (ClientData) pattern);
+ Tcl_NRAddCallback(interp, SwitchPostProc, INT2PTR(splitObjs), ctxPtr,
+ INT2PTR(pc), (ClientData) pattern);
return TclNREvalObjEx(interp, objv[j], 0, ctxPtr, j);
}
static int
@@ -4676,7 +4675,7 @@ TclNRWhileObjCmd(
* We reuse [for]'s callback, passing a NULL for the 'next' script.
*/
- TclSmallAllocEx (interp, sizeof(ForIterData), iterPtr);
+ TclSmallAllocEx(interp, sizeof(ForIterData), iterPtr);
iterPtr->cond = objv[1];
iterPtr->body = objv[2];
iterPtr->next = NULL;
diff --git a/generic/tclInt.h b/generic/tclInt.h
index a381678..93dbf01 100644
--- a/generic/tclInt.h
+++ b/generic/tclInt.h
@@ -15,7 +15,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclInt.h,v 1.434 2009/08/16 12:25:06 nijtmans Exp $
+ * RCS: @(#) $Id: tclInt.h,v 1.435 2009/08/19 14:26:18 dkf Exp $
*/
#ifndef _TCLINT
@@ -2621,8 +2621,8 @@ MODULE_SCOPE Tcl_ObjCmdProc TclNRTailcallObjCmd;
MODULE_SCOPE Tcl_ObjCmdProc TclNRCoroutineObjCmd;
MODULE_SCOPE Tcl_ObjCmdProc TclNRYieldObjCmd;
-MODULE_SCOPE void TclClearTailcall(Tcl_Interp *interp,
- struct TEOV_callback *tailcallPtr);
+MODULE_SCOPE void TclClearTailcall(Tcl_Interp *interp,
+ struct TEOV_callback *tailcallPtr);
/*
* This structure holds the data for the various iteration callbacks used to
@@ -2635,11 +2635,11 @@ MODULE_SCOPE void TclClearTailcall(Tcl_Interp *interp,
*/
typedef struct ForIterData {
- Tcl_Obj* cond; /* loop condition expression */
- Tcl_Obj* body; /* loop body */
- Tcl_Obj* next; /* loop step script, NULL for 'while' */
- const char* msg; /* error message part */
- int word; /* Index of the body script in the command */
+ Tcl_Obj *cond; /* Loop condition expression. */
+ Tcl_Obj *body; /* Loop body. */
+ Tcl_Obj *next; /* Loop step script, NULL for 'while'. */
+ const char *msg; /* Error message part. */
+ int word; /* Index of the body script in the command */
} ForIterData;
/*