diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2007-05-17 12:05:17 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2007-05-17 12:05:17 (GMT) |
| commit | bf92473c733080bf950ba0655e97593f87cca16e (patch) | |
| tree | 1796248873dcdf43d444186b25078cff44b85d58 /generic/tclInterp.c | |
| parent | cb11a3c5213ce0e470e298ffd2b4008486fc09f6 (diff) | |
| download | tcl-bf92473c733080bf950ba0655e97593f87cca16e.zip tcl-bf92473c733080bf950ba0655e97593f87cca16e.tar.gz tcl-bf92473c733080bf950ba0655e97593f87cca16e.tar.bz2 | |
Added macro version of Tcl_LimitReady.
Diffstat (limited to 'generic/tclInterp.c')
| -rw-r--r-- | generic/tclInterp.c | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c index 7fcb341..8c32150 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclInterp.c,v 1.73 2007/04/20 05:51:10 kennykb Exp $ + * RCS: @(#) $Id: tclInterp.c,v 1.74 2007/05/17 12:05:22 dkf Exp $ */ #include "tclInt.h" @@ -1409,7 +1409,7 @@ AliasCreate( Slave *slavePtr; Master *masterPtr; Tcl_Obj **prefv; - int new, i; + int isNew, i; aliasPtr = (Alias *) ckalloc((unsigned) (sizeof(Alias) + objc * sizeof(Tcl_Obj *))); @@ -1478,8 +1478,8 @@ AliasCreate( char *string; string = Tcl_GetString(aliasPtr->token); - hPtr = Tcl_CreateHashEntry(&slavePtr->aliasTable, string, &new); - if (new != 0) { + hPtr = Tcl_CreateHashEntry(&slavePtr->aliasTable, string, &isNew); + if (isNew != 0) { break; } @@ -2111,7 +2111,7 @@ SlaveCreate( InterpInfo *masterInfoPtr; Tcl_HashEntry *hPtr; char *path; - int new, objc; + int isNew, objc; Tcl_Obj **objv; if (Tcl_ListObjGetElements(interp, pathPtr, &objc, &objv) != TCL_OK) { @@ -2136,8 +2136,8 @@ SlaveCreate( } masterInfoPtr = (InterpInfo *) ((Interp *) masterInterp)->interpInfo; - hPtr = Tcl_CreateHashEntry(&masterInfoPtr->master.slaveTable, path, &new); - if (new == 0) { + hPtr = Tcl_CreateHashEntry(&masterInfoPtr->master.slaveTable, path, &isNew); + if (isNew == 0) { Tcl_AppendResult(interp, "interpreter named \"", path, "\" already exists, cannot create", (char *) NULL); return NULL; @@ -2931,6 +2931,10 @@ Tcl_LimitExceeded( * Side effects: * Increments the limit granularity counter. * + * Notes: + * If you change this function, you MUST also update TclLimitReady() in + * tclExecute.c. + * *---------------------------------------------------------------------- */ |