Tcl Source Code

Check-in [512a5af394]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Make panic in TclParseNumber() work when IEEE_FLOATING_POINT is not defined.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-6-branch
Files: files | file ages | folders
SHA1: 512a5af3947e9bb3e85b0bcdeddf65f365adb50b
User & Date: jan.nijtmans 2017-06-15 09:13:51
References
2017-06-15
19:15 Ticket [1613456fff] file readable lies with samba shared folder or file status still Open with 4 other changes artifact: 91813a7df2 user: oehhar
Context
2017-06-18
14:01
Factor out chunk of non-obvious code in the guts of [oo::define] into one place. check-in: 2bcf10b88e user: dkf tags: core-8-6-branch
13:36
Start of an idea on how to make it easier to have non-trivial little languages for particular class ... check-in: c3b3ca625f user: dkf tags: dkf-oo-override-definition-namespaces
2017-06-16
20:17
Merge 8.6; update changes. check-in: b7fe674c77 user: dgp tags: core-8-6-7-rc
14:31
merge core-8-6-branch check-in: 5631b412d3 user: jan.nijtmans tags: rfe-6c0d7aec67
2017-06-15
11:01
Merge core-8-6-branch. Fix gcc warning: tclStrToD.c:1180:2: warning: enumeration value ‘ZERO_D’... check-in: cf3e4e5c76 user: jan.nijtmans tags: bsg-0d-radix-prefix
09:38
merge core-8-6-branch check-in: a1f9019daa user: jan.nijtmans tags: trunk
09:13
Make panic in TclParseNumber() work when IEEE_FLOATING_POINT is not defined. check-in: 512a5af394 user: jan.nijtmans tags: core-8-6-branch
2017-06-14
21:49
[9c058c5803e30d02] Correction to cross linking in dict(n)'s SEE ALSO section. check-in: 98b22be0c4 user: dkf tags: core-8-6-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclStrToD.c.

1179
1180
1181
1182
1183
1184
1185

1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
	case sINFINI:
	case sINFINIT:
#ifdef IEEE_FLOATING_POINT
	case sN:
	case sNA:
	case sNANPAREN:
	case sNANHEX:

	    Tcl_Panic("TclParseNumber: bad acceptState %d parsing '%s'",
		    acceptState, bytes);
#endif
	case BINARY:
	    shift = numTrailZeros;
	    if (!significandOverflow && significandWide != 0 &&
		    ((size_t)shift >= CHAR_BIT*sizeof(Tcl_WideUInt) ||
		    significandWide > (MOST_BITS + signum) >> shift)) {
		significandOverflow = 1;
		TclBNInitBignumFromWideUInt(&significandBig, significandWide);






>


<







1179
1180
1181
1182
1183
1184
1185
1186
1187
1188

1189
1190
1191
1192
1193
1194
1195
	case sINFINI:
	case sINFINIT:
#ifdef IEEE_FLOATING_POINT
	case sN:
	case sNA:
	case sNANPAREN:
	case sNANHEX:
#endif
	    Tcl_Panic("TclParseNumber: bad acceptState %d parsing '%s'",
		    acceptState, bytes);

	case BINARY:
	    shift = numTrailZeros;
	    if (!significandOverflow && significandWide != 0 &&
		    ((size_t)shift >= CHAR_BIT*sizeof(Tcl_WideUInt) ||
		    significandWide > (MOST_BITS + signum) >> shift)) {
		significandOverflow = 1;
		TclBNInitBignumFromWideUInt(&significandBig, significandWide);