diff options
| -rw-r--r-- | generic/tclInt.decls | 3 | ||||
| -rw-r--r-- | generic/tclInt.h | 4 | ||||
| -rw-r--r-- | generic/tclInterp.c | 3 |
3 files changed, 6 insertions, 4 deletions
diff --git a/generic/tclInt.decls b/generic/tclInt.decls index 159fbda..6a98616 100644 --- a/generic/tclInt.decls +++ b/generic/tclInt.decls @@ -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.decls,v 1.71 2004/03/19 18:43:15 dgp Exp $ +# RCS: @(#) $Id: tclInt.decls,v 1.72 2004/05/13 20:31:07 dkf Exp $ library tcl @@ -735,6 +735,7 @@ declare 181 generic { Tcl_Obj *TclDbNewListObjDirect(int objc, Tcl_Obj **objv, CONST char *file, int line) } + ############################################################################## # Define the platform specific internal Tcl interface. These functions are diff --git a/generic/tclInt.h b/generic/tclInt.h index b6a0dab..d0d60ce 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.159 2004/05/13 12:59:22 dkf Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.160 2004/05/13 20:31:08 dkf Exp $ */ #ifndef _TCLINT @@ -1351,7 +1351,7 @@ typedef struct Interp { * to evaluate the limit check. */ Tcl_Time time; /* Time limit for execution within the - * interpreter (in seconds from epoch). */ + * interpreter. */ LimitHandler *timeHandlers; /* Handlers to execute when the limit * is reached. */ int timeGranularity; /* Mod factor used to determine how often diff --git a/generic/tclInterp.c b/generic/tclInterp.c index edb5bbc..616c244 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -5,11 +5,12 @@ * and manipulation of Tcl interpreters from within Tcl scripts. * * Copyright (c) 1995-1997 Sun Microsystems, Inc. + * Copyright (c) 2004 Donal K. Fellows * * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclInterp.c,v 1.27 2004/05/13 12:59:23 dkf Exp $ + * RCS: @(#) $Id: tclInterp.c,v 1.28 2004/05/13 20:31:08 dkf Exp $ */ #include "tclInt.h" |