summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-02-25 15:37:41 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-02-25 15:37:41 (GMT)
commit1a5fadcb2c9b5d2449ed657899373b19443e4a75 (patch)
tree6f813fde4d882835b9c7091194a027df3a02e1a1 /generic
parent597760fa003d1d510853e15a4c74b3ffd70b3e98 (diff)
downloadtcl-1a5fadcb2c9b5d2449ed657899373b19443e4a75.zip
tcl-1a5fadcb2c9b5d2449ed657899373b19443e4a75.tar.gz
tcl-1a5fadcb2c9b5d2449ed657899373b19443e4a75.tar.bz2
ArraySearch struct used only locally. Remove from tclInt.h.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclInt.h24
-rw-r--r--generic/tclVar.c24
2 files changed, 24 insertions, 24 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h
index d5a479b..50280cc 100644
--- a/generic/tclInt.h
+++ b/generic/tclInt.h
@@ -481,30 +481,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 d000296..f4f83a4 100644
--- a/generic/tclVar.c
+++ b/generic/tclVar.c
@@ -142,6 +142,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:
*/