From ff693f2417965aa5165a3e8f7367cfbe7ab0c912 Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Mon, 29 Sep 2003 22:51:50 +0000
Subject: Undid bozo check-in of work-in-progress

---
 generic/tclInt.h | 45 +--------------------------------------------
 1 file changed, 1 insertion(+), 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.
      */
-- 
cgit v0.12