Tcl Source Code

Check-in [b9fb2d7653]
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 | trunk
Files: files | file ages | folders
SHA1: b9fb2d765344d47c26e68005a9f4286503b09c0f
User & Date: dgp 2011-09-13 20:04:35
Context
2011-09-15
16:27
3408408 Partial improvement by sharing as literals the computed values of constant subexpressions wh... check-in: 3ea7c67cbf user: dgp tags: trunk
2011-09-13
20:04
3390638 Workaround broken solaris studio cc optimizer. Thanks to Wolfgang S. Kechel. check-in: b9fb2d7653 user: dgp tags: trunk
20:03
3390638 Workaround broken solaris studio cc optimizer. Thanks to Wolfgang S. Kechel. check-in: c233837119 user: dgp tags: core-8-5-branch
18:27
3405652 Portability workaround for broken system DTrace support. Thanks to Dagobert Michelson. check-in: d9f5e84500 user: dgp tags: trunk
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.

3152
3153
3154
3155
3156
3157
3158

3159
3160
3161
3162
3163
3164
3165
3166

    /*
     * 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) {
	return sprintf(buffer, "%ld", n);
    }

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








>
|







3152
3153
3154
3155
3156
3157
3158
3159
3160
3161
3162
3163
3164
3165
3166
3167

    /*
     * 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. */
	return sprintf(buffer, "%ld", n);
    }

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