summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-02-25 16:35:07 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-02-25 16:35:07 (GMT)
commit03459bb0e1db5fd78e217ee768fe0ee1869ce9a7 (patch)
tree6f4c6fabfca8b30a55c1e0a5d7a19090917784a8
parentd42bd814b5a7244586c488cbb7dd09d927949a4b (diff)
downloadtcl-03459bb0e1db5fd78e217ee768fe0ee1869ce9a7.zip
tcl-03459bb0e1db5fd78e217ee768fe0ee1869ce9a7.tar.gz
tcl-03459bb0e1db5fd78e217ee768fe0ee1869ce9a7.tar.bz2
LimitHandler struct used only locally. Remove from tclInt.h.
-rw-r--r--generic/tclInt.h29
-rw-r--r--generic/tclInterp.c31
2 files changed, 31 insertions, 29 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h
index 1162638..92251fe 100644
--- a/generic/tclInt.h
+++ b/generic/tclInt.h
@@ -2033,35 +2033,6 @@ typedef struct Interp {
#define MAX_NESTING_DEPTH 1000
/*
- * TIP#143 limit handler internal representation.
- */
-
-struct LimitHandler {
- int flags; /* The state of this particular handler. */
- Tcl_LimitHandlerProc *handlerProc;
- /* The handler callback. */
- ClientData clientData; /* Opaque argument to the handler callback. */
- Tcl_LimitHandlerDeleteProc *deleteProc;
- /* How to delete the clientData. */
- LimitHandler *prevPtr; /* Previous item in linked list of
- * handlers. */
- LimitHandler *nextPtr; /* Next item in linked list of handlers. */
-};
-
-/*
- * Values for the LimitHandler flags field.
- * LIMIT_HANDLER_ACTIVE - Whether the handler is currently being
- * processed; handlers are never to be entered reentrantly.
- * LIMIT_HANDLER_DELETED - Whether the handler has been deleted. This
- * should not normally be observed because when a handler is
- * deleted it is also spliced out of the list of handlers, but
- * even so we will be careful.
- */
-
-#define LIMIT_HANDLER_ACTIVE 0x01
-#define LIMIT_HANDLER_DELETED 0x02
-
-/*
* The macro below is used to modify a "char" value (e.g. by casting it to an
* unsigned character) so that it can be used safely with macros such as
* isspace.
diff --git a/generic/tclInterp.c b/generic/tclInterp.c
index 058714f..0231909 100644
--- a/generic/tclInterp.c
+++ b/generic/tclInterp.c
@@ -179,6 +179,37 @@ typedef struct ScriptLimitCallbackKey {
} ScriptLimitCallbackKey;
/*
+ * TIP#143 limit handler internal representation.
+ */
+
+struct LimitHandler {
+ int flags; /* The state of this particular handler. */
+ Tcl_LimitHandlerProc *handlerProc;
+ /* The handler callback. */
+ ClientData clientData; /* Opaque argument to the handler callback. */
+ Tcl_LimitHandlerDeleteProc *deleteProc;
+ /* How to delete the clientData. */
+ LimitHandler *prevPtr; /* Previous item in linked list of
+ * handlers. */
+ LimitHandler *nextPtr; /* Next item in linked list of handlers. */
+};
+
+/*
+ * Values for the LimitHandler flags field.
+ * LIMIT_HANDLER_ACTIVE - Whether the handler is currently being
+ * processed; handlers are never to be entered reentrantly.
+ * LIMIT_HANDLER_DELETED - Whether the handler has been deleted. This
+ * should not normally be observed because when a handler is
+ * deleted it is also spliced out of the list of handlers, but
+ * even so we will be careful.
+ */
+
+#define LIMIT_HANDLER_ACTIVE 0x01
+#define LIMIT_HANDLER_DELETED 0x02
+
+
+
+/*
* Prototypes for local static functions:
*/