Tcl Source Code

Check-in [678d621890]
Login

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

Overview
Comment:3390638 Workaround broken solaris studio cc optimizer. Thanks to Wolfgang S. Kechel.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-4-branch
Files: files | file ages | folders
SHA1: 678d621890ef8d744f791a651255de94d4e1f209
User & Date: dgp 2011-09-13 20:02:51
Context
2011-09-16
13:01
Don't change Tcl_UniChar type when TCL_UTF_MAX == 4 (not supported anyway) check-in: c796c8b14f user: jan.nijtmans tags: core-8-4-branch
2011-09-13
20:03
3390638 Workaround broken solaris studio cc optimizer. Thanks to Wolfgang S. Kechel. check-in: c233837119 user: dgp tags: core-8-5-branch
20:02
3390638 Workaround broken solaris studio cc optimizer. Thanks to Wolfgang S. Kechel. check-in: 678d621890 user: dgp tags: core-8-4-branch
18:22
3405652 Portability workaround for broken system DTrace support. Thanks to Dagobert Michelson. check-in: 431ab7aa29 user: dgp tags: core-8-4-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.

1



2
3
4
5
6
7
8
2011-09-13  Don Porter  <[email protected]>




	* generic/tclDTrace.d:	[Bug 3405652] Portability workaround for
	broken system DTrace support.  Thanks to Dagobert Michelson.

2011-09-12  Jan Nijtmans  <[email protected]>

	* win/tclWinPort.h: [Bug 3407070] tclPosixStr.c won't build with

>
>
>







1
2
3
4
5
6
7
8
9
10
11
2011-09-13  Don Porter  <[email protected]>

	* generic/tclUtil.c:	[Bug 3390638] Workaround broken solaris
	studio cc optimizer.  Thanks to Wolfgang S. Kechel.

	* generic/tclDTrace.d:	[Bug 3405652] Portability workaround for
	broken system DTrace support.  Thanks to Dagobert Michelson.

2011-09-12  Jan Nijtmans  <[email protected]>

	* win/tclWinPort.h: [Bug 3407070] tclPosixStr.c won't build with

Changes to generic/tclUtil.c.

2156
2157
2158
2159
2160
2161
2162

2163
2164
2165
2166
2167
2168
2169
2170

    /*
     * Check whether "n" is the maximum negative value. This is
     * -2^(m-1) for an m-bit word, and has no positive equivalent;
     * negating it produces the same value.
     */


    if (n == -n) {
	sprintf(buffer, "%ld", n);
	return strlen(buffer);
    }

    /*
     * Generate the characters of the result backwards in the buffer.
     */







>
|







2156
2157
2158
2159
2160
2161
2162
2163
2164
2165
2166
2167
2168
2169
2170
2171

    /*
     * Check whether "n" is the maximum negative value. This is
     * -2^(m-1) for an m-bit word, and has no positive equivalent;
     * negating it produces the same value.
     */

    intVal = -n;			/* [Bug 3390638] Workaround for*/
    if (n == -n || intVal == n) {	/* broken compiler optimizers. */
	sprintf(buffer, "%ld", n);
	return strlen(buffer);
    }

    /*
     * Generate the characters of the result backwards in the buffer.
     */