diff options
author | dkf <dkf@noemail.net> | 2010-02-24 10:32:16 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2010-02-24 10:32:16 (GMT) |
commit | 9922e22153f7a4a4b4b4c13a2a6d4886fbf6c48a (patch) | |
tree | bb3ca2b92677cccc5b5f36dbbcc5eee5aafa3e7d /generic/tclStrToD.c | |
parent | 957eb6dc492a11633d5333641c4a5c3b10ba5c88 (diff) | |
download | tcl-9922e22153f7a4a4b4b4c13a2a6d4886fbf6c48a.zip tcl-9922e22153f7a4a4b4b4c13a2a6d4886fbf6c48a.tar.gz tcl-9922e22153f7a4a4b4b4c13a2a6d4886fbf6c48a.tar.bz2 |
Pure whitespace changes, changing to follow Engineering Manual style.
FossilOrigin-Name: c81eddebbb969209a42ab4c210dd62f3080909d4
Diffstat (limited to 'generic/tclStrToD.c')
-rwxr-xr-x | generic/tclStrToD.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c index 6412e92..20016db 100755 --- a/generic/tclStrToD.c +++ b/generic/tclStrToD.c @@ -14,7 +14,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.39 2009/12/07 17:15:33 dgp Exp $ + * RCS: @(#) $Id: tclStrToD.c,v 1.40 2010/02/24 10:32:17 dkf Exp $ * *---------------------------------------------------------------------- */ @@ -185,14 +185,14 @@ static double SafeLdExp(double fraction, int exponent); * - TCL_PARSE_SCAN_PREFIXES: ignore the prefixes 0b and 0o that are * not part of the [scan] command's vocabulary. Use only in * combination with TCL_PARSE_INTEGER_ONLY. - * - TCL_PARSE_OCTAL_ONLY: parse only in the octal format, whether + * - TCL_PARSE_OCTAL_ONLY: parse only in the octal format, whether * or not a prefix is present that would lead to octal parsing. * Use only in combination with TCL_PARSE_INTEGER_ONLY. - * - TCL_PARSE_HEXADECIMAL_ONLY: parse only in the hexadecimal format, + * - TCL_PARSE_HEXADECIMAL_ONLY: parse only in the hexadecimal format, * whether or not a prefix is present that would lead to * hexadecimal parsing. Use only in combination with * TCL_PARSE_INTEGER_ONLY. - * - TCL_PARSE_DECIMAL_ONLY: parse only in the decimal format, no + * - TCL_PARSE_DECIMAL_ONLY: parse only in the decimal format, no * matter whether a 0 prefix would normally force a different * base. * - TCL_PARSE_NO_WHITESPACE: reject any leading/trailing whitespace @@ -1540,7 +1540,7 @@ MakeHighPrecisionDouble( static double MakeNaN( int signum, /* Sign bit (1=negative, 0=nonnegative */ - Tcl_WideUInt tags) /* Tag bits to put in the NaN */ + Tcl_WideUInt tags) /* Tag bits to put in the NaN */ { union { Tcl_WideUInt iv; @@ -2601,7 +2601,7 @@ BignumToBiasedFrExp( static double Pow10TimesFrExp( - int exponent, /* Power of 10 to multiply by */ + int exponent, /* Power of 10 to multiply by */ double fraction, /* Significand of multiplicand */ int *machexp) /* On input, exponent of multiplicand. On * output, exponent of result. */ @@ -2734,7 +2734,7 @@ TclFormatNaN( * * Nokia770Twiddle -- * - * Transpose the two words of a number for Nokia 770 floating + * Transpose the two words of a number for Nokia 770 floating * point handling. * *---------------------------------------------------------------------- @@ -2752,7 +2752,7 @@ Nokia770Twiddle( * * TclNokia770Doubles -- * - * Transpose the two words of a number for Nokia 770 floating + * Transpose the two words of a number for Nokia 770 floating * point handling. * *---------------------------------------------------------------------- |