diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2004-05-13 20:31:07 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2004-05-13 20:31:07 (GMT) |
| commit | c359e6c397870e97a217bd8acb51d120ed220088 (patch) | |
| tree | 3a42eb644a816ea342f8a229124578eeb3536f16 | |
| parent | d01320f05bae27ec34d7f467bf673d3e88ba5e5b (diff) | |
| download | tcl-c359e6c397870e97a217bd8acb51d120ed220088.zip tcl-c359e6c397870e97a217bd8acb51d120ed220088.tar.gz tcl-c359e6c397870e97a217bd8acb51d120ed220088.tar.bz2 | |
Very minor updates to comments/whitespace
| -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" |