diff options
author | dkf <dkf@noemail.net> | 2009-08-19 14:25:37 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2009-08-19 14:25:37 (GMT) |
commit | a8f3422b2da411f06bf00a867dff7e9e85bcb016 (patch) | |
tree | 126107668b30e68eec270ab8176dc7ee5d3169a3 /generic/tclCmdMZ.c | |
parent | e8eb4c5cf57683335cdaa9dbe5dcb5c96a797834 (diff) | |
download | tcl-a8f3422b2da411f06bf00a867dff7e9e85bcb016.zip tcl-a8f3422b2da411f06bf00a867dff7e9e85bcb016.tar.gz tcl-a8f3422b2da411f06bf00a867dff7e9e85bcb016.tar.bz2 |
Formatting corrections
FossilOrigin-Name: 890f330c874908130ff103e6ebd27e48cc1c12b6
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; |