diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2010-02-24 10:32:17 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2010-02-24 10:32:17 (GMT) |
| commit | 9f6e608ac5b1a6b4bb9382774a7ae4e263533dde (patch) | |
| tree | bb3ca2b92677cccc5b5f36dbbcc5eee5aafa3e7d /generic/tclIndexObj.c | |
| parent | eaefb7d9cf0d3569d504889654cc1ca47d6e6d92 (diff) | |
| download | tcl-9f6e608ac5b1a6b4bb9382774a7ae4e263533dde.zip tcl-9f6e608ac5b1a6b4bb9382774a7ae4e263533dde.tar.gz tcl-9f6e608ac5b1a6b4bb9382774a7ae4e263533dde.tar.bz2 | |
Pure whitespace changes, changing to follow Engineering Manual style.
Diffstat (limited to 'generic/tclIndexObj.c')
| -rw-r--r-- | generic/tclIndexObj.c | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/generic/tclIndexObj.c b/generic/tclIndexObj.c index e419222..f631d73 100644 --- a/generic/tclIndexObj.c +++ b/generic/tclIndexObj.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIndexObj.c,v 1.54 2010/01/29 16:17:20 nijtmans Exp $ + * RCS: @(#) $Id: tclIndexObj.c,v 1.55 2010/02/24 10:32:17 dkf Exp $ */ #include "tclInt.h" @@ -21,7 +21,7 @@ * Prototypes for functions defined later in this file: */ -static int GetIndexFromObjList(Tcl_Interp *interp, +static int GetIndexFromObjList(Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj *tableObjPtr, const char *msg, int flags, int *indexPtr); static int SetIndexFromAny(Tcl_Interp *interp, Tcl_Obj *objPtr); @@ -105,7 +105,7 @@ typedef struct { int Tcl_GetIndexFromObj( - Tcl_Interp *interp, /* Used for error reporting if not NULL. */ + Tcl_Interp *interp, /* Used for error reporting if not NULL. */ Tcl_Obj *objPtr, /* Object containing the string to lookup. */ const char *const*tablePtr, /* Array of strings to compare against the * value of objPtr; last entry must be NULL @@ -168,7 +168,7 @@ Tcl_GetIndexFromObj( int GetIndexFromObjList( - Tcl_Interp *interp, /* Used for error reporting if not NULL. */ + Tcl_Interp *interp, /* Used for error reporting if not NULL. */ Tcl_Obj *objPtr, /* Object containing the string to lookup. */ Tcl_Obj *tableObjPtr, /* List of strings to compare against the * value of objPtr. */ @@ -254,7 +254,7 @@ GetIndexFromObjList( int Tcl_GetIndexFromObjStruct( - Tcl_Interp *interp, /* Used for error reporting if not NULL. */ + Tcl_Interp *interp, /* Used for error reporting if not NULL. */ Tcl_Obj *objPtr, /* Object containing the string to lookup. */ const void *tablePtr, /* The first string in the table. The second * string will be at this address plus the @@ -340,12 +340,12 @@ Tcl_GetIndexFromObjStruct( */ if (objPtr->typePtr == &indexType) { - indexRep = objPtr->internalRep.otherValuePtr; + indexRep = objPtr->internalRep.otherValuePtr; } else { TclFreeIntRep(objPtr); - indexRep = (IndexRep *) ckalloc(sizeof(IndexRep)); - objPtr->internalRep.otherValuePtr = indexRep; - objPtr->typePtr = &indexType; + indexRep = (IndexRep *) ckalloc(sizeof(IndexRep)); + objPtr->internalRep.otherValuePtr = indexRep; + objPtr->typePtr = &indexType; } indexRep->tablePtr = (void *) tablePtr; indexRep->offset = offset; |