summaryrefslogtreecommitdiffstats
path: root/generic/tclInt.h
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2003-09-29 22:51:50 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2003-09-29 22:51:50 (GMT)
commitff693f2417965aa5165a3e8f7367cfbe7ab0c912 (patch)
tree0241f7a2f91d3c2cd624208fc66072a518b33ddc /generic/tclInt.h
parenta87c1ffef9b5c696cd26cd041002325c871cafde (diff)
downloadtcl-ff693f2417965aa5165a3e8f7367cfbe7ab0c912.zip
tcl-ff693f2417965aa5165a3e8f7367cfbe7ab0c912.tar.gz
tcl-ff693f2417965aa5165a3e8f7367cfbe7ab0c912.tar.bz2
Undid bozo check-in of work-in-progress
Diffstat (limited to 'generic/tclInt.h')
-rw-r--r--generic/tclInt.h45
1 files changed, 1 insertions, 44 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h
index acf4ae5..a844485 100644
--- a/generic/tclInt.h
+++ b/generic/tclInt.h
@@ -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: tclInt.h,v 1.134 2003/09/29 21:38:49 dkf Exp $
+ * RCS: @(#) $Id: tclInt.h,v 1.135 2003/09/29 22:51:50 dkf Exp $
*/
#ifndef _TCLINT
@@ -1094,14 +1094,6 @@ typedef struct Command {
#define CMD_HAS_EXEC_TRACES 0x4
/*
- * Flag bits for saying what limits are enabled on an interpreter, as
- * defined in TIP #143.
- */
-
-#define LIMIT_COMMAND_COUNTS 0x1
-#define LIMIT_WALL_TIME 0x2
-
-/*
*----------------------------------------------------------------
* Data structures related to name resolution procedures.
*----------------------------------------------------------------
@@ -1135,21 +1127,6 @@ typedef struct ResolverScheme {
/*
*----------------------------------------------------------------
- * This structure defines a list of interpreter/handler script pairs
- * that will be called when a particular limit is exceeded in some
- * interpreter.
- *----------------------------------------------------------------
- */
-
-typedef struct LimitHandler {
- Tcl_Interp *interp; /* Which interpreter to execute the handler
- * in. */
- Tcl_Obj *handlerObj; /* The handler script itself. */
- struct LimitHandler *next; /* Pointer to next handler in linked list. */
-} LimitHandler;
-
-/*
- *----------------------------------------------------------------
* This structure defines an interpreter, which is a collection of
* commands plus other state information related to interpreting
* commands, such as variable storage. Primary responsibility for
@@ -1348,26 +1325,6 @@ typedef struct Interp {
Tcl_Obj *returnOptionsKey; /* holds "-options" */
/*
- * Resource limit control fields (TIP #143)
- */
-
- long limitCheckCounter; /* Counter used to constrain the frequency
- * of limit checks. */
- int limits; /* Which limits are to be checked. */
- long timeGranularity; /* Modulus for the limit check counter to
- * determine when to apply the time limit
- * checks. */
- long timeLimit; /* When the time limit expires. */
- LimitHandler *timeLimitHandlers;
- /* Linked list of time limit handlers. */
- long cmdcountGranularity; /* As with timeLimitGranularity except
- * for being for command count limits. */
- int cmdcountLimit; /* The maximum number of commands that this
- * interpreter may execute. */
- LimitHandler *cmdcountLimitHandlers;
- /* Linked list of cmdcount limit handlers. */
-
- /*
* Statistical information about the bytecode compiler and interpreter's
* operation.
*/