diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2005-06-26 22:10:08 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2005-06-26 22:10:08 (GMT) |
| commit | febb81de53930f986aa208e0948c3bcf084fdfcc (patch) | |
| tree | ec53185a5e25dfc527038068f0a0b7ac92ba0597 | |
| parent | edcb5a9de7e074a8e26ad94390533b8fcbb2e54c (diff) | |
| download | tcl-febb81de53930f986aa208e0948c3bcf084fdfcc.zip tcl-febb81de53930f986aa208e0948c3bcf084fdfcc.tar.gz tcl-febb81de53930f986aa208e0948c3bcf084fdfcc.tar.bz2 | |
Add explanatory comment about static unprotected variables.
| -rwxr-xr-x | generic/tclStrToD.c | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c index ab18ef7..9f31841 100755 --- a/generic/tclStrToD.c +++ b/generic/tclStrToD.c @@ -15,7 +15,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclStrToD.c,v 1.4 2005/05/11 15:39:50 kennykb Exp $ + * RCS: @(#) $Id: tclStrToD.c,v 1.5 2005/06/26 22:10:08 dkf Exp $ * *---------------------------------------------------------------------- */ @@ -73,6 +73,12 @@ typedef unsigned int fpu_control_t __attribute__ ((__mode__ (__HI__))); # define NAN_MASK (((Tcl_WideUInt) 1) << 51) #endif +/* + * There now follows a lot of static variables that are shared across all + * threads but which are not guarded by mutexes. This is OK, because they are + * only ever assigned _ONCE_ during Tcl's library initialization sequence. + */ + /* The powers of ten that can be represented exactly as IEEE754 doubles. */ #define MAXPOW 22 |