diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2008-10-26 18:34:03 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2008-10-26 18:34:03 (GMT) |
| commit | d84707cdee0b26bca07af2756cb4e234e11a6195 (patch) | |
| tree | b47f8826ac440515804f80e59f434ef1dff42fd1 /generic/tclStringObj.c | |
| parent | c2a4f7e6129491089c0fa4d0202ed91617d29591 (diff) | |
| download | tcl-d84707cdee0b26bca07af2756cb4e234e11a6195.zip tcl-d84707cdee0b26bca07af2756cb4e234e11a6195.tar.gz tcl-d84707cdee0b26bca07af2756cb4e234e11a6195.tar.bz2 | |
Style improvements - invoking callbacks without visual junk.
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index b017347..6d5f96a 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -33,7 +33,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclStringObj.c,v 1.73 2008/10/16 22:34:19 nijtmans Exp $ */ + * RCS: @(#) $Id: tclStringObj.c,v 1.74 2008/10/26 18:34:04 dkf Exp $ */ #include "tclInt.h" #include "tommath.h" @@ -883,13 +883,12 @@ Tcl_AttemptSetObjLength( */ if (objPtr->bytes != tclEmptyStringRep) { - newBytes = attemptckrealloc(objPtr->bytes, - (unsigned)(length + 1)); + newBytes = attemptckrealloc(objPtr->bytes, (unsigned) length+1); if (newBytes == NULL) { return 0; } } else { - newBytes = attemptckalloc((unsigned) (length + 1)); + newBytes = attemptckalloc((unsigned) length+1); if (newBytes == NULL) { return 0; } @@ -2027,7 +2026,7 @@ Tcl_AppendFormatToObj( const char *bytes; if (useShort) { - pure = Tcl_NewIntObj((int)(s)); + pure = Tcl_NewIntObj((int) s); } else if (useWide) { pure = Tcl_NewWideIntObj(w); } else if (useBig) { |