diff options
author | dkf <dkf@noemail.net> | 2010-02-24 10:45:04 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2010-02-24 10:45:04 (GMT) |
commit | 55218895cf223746f44b0965cd66871be282f53a (patch) | |
tree | 484964998d32be03482d6e1078a27f1f3187f409 /generic/tclScan.c | |
parent | 9922e22153f7a4a4b4b4c13a2a6d4886fbf6c48a (diff) | |
download | tcl-55218895cf223746f44b0965cd66871be282f53a.zip tcl-55218895cf223746f44b0965cd66871be282f53a.tar.gz tcl-55218895cf223746f44b0965cd66871be282f53a.tar.bz2 |
More tidying up (whitespace, spelling, useless parentheses, useless casts)
FossilOrigin-Name: 511d94dd873e4ace6252b896eeb821f03023f00f
Diffstat (limited to 'generic/tclScan.c')
-rw-r--r-- | generic/tclScan.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclScan.c b/generic/tclScan.c index f5ec509..a9be080 100644 --- a/generic/tclScan.c +++ b/generic/tclScan.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: tclScan.c,v 1.33 2009/09/07 07:28:38 das Exp $ + * RCS: @(#) $Id: tclScan.c,v 1.34 2010/02/24 10:45:04 dkf Exp $ */ #include "tclInt.h" @@ -45,7 +45,7 @@ typedef struct CharSet { * Declarations for functions used only in this file. */ -static const char * BuildCharSet(CharSet *cset, const char *format); +static const char * BuildCharSet(CharSet *cset, const char *format); static int CharInSet(CharSet *cset, int ch); static void ReleaseCharSet(CharSet *cset); static int ValidateFormat(Tcl_Interp *interp, const char *format, @@ -262,7 +262,7 @@ ValidateFormat( char *end; Tcl_UniChar ch; int objIndex, xpgSize, nspace = numVars; - int *nassign = (int *) TclStackAlloc(interp, nspace * sizeof(int)); + int *nassign = TclStackAlloc(interp, nspace * sizeof(int)); char buf[TCL_UTF_MAX+1]; /* @@ -472,7 +472,7 @@ ValidateFormat( } else { nspace += 16; /* formerly STATIC_LIST_SIZE */ } - nassign = (int *) TclStackRealloc(interp, nassign, + nassign = TclStackRealloc(interp, nassign, nspace * sizeof(int)); for (i = value; i < nspace; i++) { nassign[i] = 0; @@ -554,7 +554,7 @@ ValidateFormat( /* ARGSUSED */ int Tcl_ScanObjCmd( - ClientData dummy, /* Not used. */ + ClientData dummy, /* Not used. */ Tcl_Interp *interp, /* Current interpreter. */ int objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Argument objects. */ |