diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2009-08-19 14:25:37 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2009-08-19 14:25:37 (GMT) |
| commit | 292a05b86ebbf9c8aae085fb829cb63a1086673e (patch) | |
| tree | 126107668b30e68eec270ab8176dc7ee5d3169a3 /generic/tclCmdMZ.c | |
| parent | aaf5ab291c239170c32f62ed8a800ec13b863484 (diff) | |
| download | tcl-292a05b86ebbf9c8aae085fb829cb63a1086673e.zip tcl-292a05b86ebbf9c8aae085fb829cb63a1086673e.tar.gz tcl-292a05b86ebbf9c8aae085fb829cb63a1086673e.tar.bz2 | |
Formatting corrections
Diffstat (limited to 'generic/tclCmdMZ.c')
| -rw-r--r-- | generic/tclCmdMZ.c | 11 |
1 files changed, 5 insertions, 6 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; |