diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2005-06-26 22:10:08 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2005-06-26 22:10:08 (GMT) |
| commit | 57cc95bbfb27d01340eef8ea8106d4e261945412 (patch) | |
| tree | ec53185a5e25dfc527038068f0a0b7ac92ba0597 /generic/tclStrToD.c | |
| parent | 5ebddbea81a786d03b9e95174d975b6280edbbea (diff) | |
| download | tcl-57cc95bbfb27d01340eef8ea8106d4e261945412.zip tcl-57cc95bbfb27d01340eef8ea8106d4e261945412.tar.gz tcl-57cc95bbfb27d01340eef8ea8106d4e261945412.tar.bz2 | |
Add explanatory comment about static unprotected variables.
Diffstat (limited to 'generic/tclStrToD.c')
| -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 |