diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2003-09-29 22:51:50 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2003-09-29 22:51:50 (GMT) |
commit | ff693f2417965aa5165a3e8f7367cfbe7ab0c912 (patch) | |
tree | 0241f7a2f91d3c2cd624208fc66072a518b33ddc /generic/tclInt.h | |
parent | a87c1ffef9b5c696cd26cd041002325c871cafde (diff) | |
download | tcl-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.h | 45 |
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. */ |