diff options
author | dgp <dgp@users.sourceforge.net> | 2013-02-25 15:45:13 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2013-02-25 15:45:13 (GMT) |
commit | 668a8c108fe1f273e3d214f8fbb76f0aaf5fd223 (patch) | |
tree | b6577f24a311af9aaddd7dc6502b11ce6450b00d | |
parent | 1f5b1659347a5cb0b2f887b5f3b8c5e9221e3997 (diff) | |
parent | 1a5fadcb2c9b5d2449ed657899373b19443e4a75 (diff) | |
download | tcl-668a8c108fe1f273e3d214f8fbb76f0aaf5fd223.zip tcl-668a8c108fe1f273e3d214f8fbb76f0aaf5fd223.tar.gz tcl-668a8c108fe1f273e3d214f8fbb76f0aaf5fd223.tar.bz2 |
Array Search struct used only locally. Remove from tclInt.h.
-rw-r--r-- | generic/tclInt.h | 24 | ||||
-rw-r--r-- | generic/tclVar.c | 24 |
2 files changed, 24 insertions, 24 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index ddbae7a..641cfd0 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -589,30 +589,6 @@ typedef struct ActiveVarTrace { } ActiveVarTrace; /* - * The following structure describes an enumerative search in progress on an - * array variable; this are invoked with options to the "array" command. - */ - -typedef struct ArraySearch { - int id; /* Integer id used to distinguish among - * multiple concurrent searches for the same - * array. */ - struct Var *varPtr; /* Pointer to array variable that's being - * searched. */ - Tcl_HashSearch search; /* Info kept by the hash module about progress - * through the array. */ - Tcl_HashEntry *nextEntry; /* Non-null means this is the next element to - * be enumerated (it's leftover from the - * Tcl_FirstHashEntry call or from an "array - * anymore" command). NULL means must call - * Tcl_NextHashEntry to get value to - * return. */ - struct ArraySearch *nextPtr;/* Next in list of all active searches for - * this variable, or NULL if this is the last - * one. */ -} ArraySearch; - -/* * The structure below defines a variable, which associates a string name with * a Tcl_Obj value. These structures are kept in procedure call frames (for * local variables recognized by the compiler) or in the heap (for global diff --git a/generic/tclVar.c b/generic/tclVar.c index befcc26..39a1d5f 100644 --- a/generic/tclVar.c +++ b/generic/tclVar.c @@ -144,6 +144,30 @@ static const char *isArrayElement = #define HasLocalVars(framePtr) ((framePtr)->isProcCallFrame & FRAME_IS_PROC) /* + * The following structure describes an enumerative search in progress on an + * array variable; this are invoked with options to the "array" command. + */ + +typedef struct ArraySearch { + int id; /* Integer id used to distinguish among + * multiple concurrent searches for the same + * array. */ + struct Var *varPtr; /* Pointer to array variable that's being + * searched. */ + Tcl_HashSearch search; /* Info kept by the hash module about progress + * through the array. */ + Tcl_HashEntry *nextEntry; /* Non-null means this is the next element to + * be enumerated (it's leftover from the + * Tcl_FirstHashEntry call or from an "array + * anymore" command). NULL means must call + * Tcl_NextHashEntry to get value to + * return. */ + struct ArraySearch *nextPtr;/* Next in list of all active searches for + * this variable, or NULL if this is the last + * one. */ +} ArraySearch; + +/* * Forward references to functions defined later in this file: */ |