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/tclObj.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/tclObj.c')
-rw-r--r-- | generic/tclObj.c | 29 |
1 files changed, 14 insertions, 15 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index 721de46..05bba4d 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclObj.c,v 1.169 2010/02/17 21:58:11 dkf Exp $ + * RCS: @(#) $Id: tclObj.c,v 1.170 2010/02/24 10:45:04 dkf Exp $ */ #include "tclInt.h" @@ -576,7 +576,7 @@ TclContinuationsEnter( int newEntry; ThreadSpecificData *tsdPtr = TclGetContLineTable(); Tcl_HashEntry *hPtr = - Tcl_CreateHashEntry(tsdPtr->lineCLPtr, (char *) objPtr, &newEntry); + Tcl_CreateHashEntry(tsdPtr->lineCLPtr, (char*) objPtr, &newEntry); ContLineLoc *clLocPtr = (ContLineLoc *) ckalloc(sizeof(ContLineLoc) + num*sizeof(int)); @@ -602,7 +602,7 @@ TclContinuationsEnter( * doing. */ - ckfree((char *) Tcl_GetHashValue(hPtr)); + ckfree(Tcl_GetHashValue(hPtr)); } clLocPtr->num = num; @@ -638,6 +638,9 @@ TclContinuationsEnterDerived( int start, int *clNext) { + int length, end, num; + int *wordCLLast = clNext; + /* * We have to handle invisible continuations lines here as well, despite * the code we have in TclSubstTokens (TST) for that. Why ? Nesting. If @@ -658,15 +661,11 @@ TclContinuationsEnterDerived( */ /* - * First compute the range of the word within the script. + * First compute the range of the word within the script. (Is there a + * better way which doesn't shimmer?) */ - int length, end, num; - int *wordCLLast = clNext; - Tcl_GetStringFromObj(objPtr, &length); - /* Is there a better way which doesn't shimmer ? */ - end = start + length; /* First char after the word */ /* @@ -690,7 +689,7 @@ TclContinuationsEnterDerived( * Re-base the locations. */ - for (i=0;i<num;i++) { + for (i=0 ; i<num ; i++) { clLocPtr->loc[i] -= start; /* @@ -1867,7 +1866,7 @@ Tcl_SetBooleanObj( int Tcl_GetBooleanFromObj( - Tcl_Interp *interp, /* Used for error reporting if not NULL. */ + Tcl_Interp *interp, /* Used for error reporting if not NULL. */ register Tcl_Obj *objPtr, /* The object from which to get boolean. */ register int *boolPtr) /* Place to store resulting boolean. */ { @@ -2259,7 +2258,7 @@ Tcl_SetDoubleObj( int Tcl_GetDoubleFromObj( - Tcl_Interp *interp, /* Used for error reporting if not NULL. */ + Tcl_Interp *interp, /* Used for error reporting if not NULL. */ register Tcl_Obj *objPtr, /* The object from which to get a double. */ register double *dblPtr) /* Place to store resulting double. */ { @@ -2472,7 +2471,7 @@ Tcl_SetIntObj( int Tcl_GetIntFromObj( - Tcl_Interp *interp, /* Used for error reporting if not NULL. */ + Tcl_Interp *interp, /* Used for error reporting if not NULL. */ register Tcl_Obj *objPtr, /* The object from which to get a int. */ register int *intPtr) /* Place to store resulting int. */ { @@ -2734,7 +2733,7 @@ Tcl_SetLongObj( int Tcl_GetLongFromObj( - Tcl_Interp *interp, /* Used for error reporting if not NULL. */ + Tcl_Interp *interp, /* Used for error reporting if not NULL. */ register Tcl_Obj *objPtr, /* The object from which to get a long. */ register long *longPtr) /* Place to store resulting long. */ { @@ -3051,7 +3050,7 @@ Tcl_SetWideIntObj( int Tcl_GetWideIntFromObj( - Tcl_Interp *interp, /* Used for error reporting if not NULL. */ + Tcl_Interp *interp, /* Used for error reporting if not NULL. */ register Tcl_Obj *objPtr, /* Object from which to get a wide int. */ register Tcl_WideInt *wideIntPtr) /* Place to store resulting long. */ |