diff options
author | dgp <dgp@users.sourceforge.net> | 2011-09-13 20:02:51 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2011-09-13 20:02:51 (GMT) |
commit | eba0aa0b63589c49ebad74cf7f784cc39afb5ef1 (patch) | |
tree | 72b4631d1d05baa45ed1bc0d0f7566328d1b4973 | |
parent | 5e13cc1518745a4524e9f60e7cdeb95a8a778f22 (diff) | |
download | tcl-eba0aa0b63589c49ebad74cf7f784cc39afb5ef1.zip tcl-eba0aa0b63589c49ebad74cf7f784cc39afb5ef1.tar.gz tcl-eba0aa0b63589c49ebad74cf7f784cc39afb5ef1.tar.bz2 |
3390638 Workaround broken solaris studio cc optimizer.
Thanks to Wolfgang S. Kechel.
-rw-r--r-- | ChangeLog | 3 | ||||
-rw-r--r-- | generic/tclUtil.c | 3 |
2 files changed, 5 insertions, 1 deletions
@@ -1,5 +1,8 @@ 2011-09-13 Don Porter <dgp@users.sourceforge.net> + * 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. diff --git a/generic/tclUtil.c b/generic/tclUtil.c index 19332c8..b327b99 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -2160,7 +2160,8 @@ TclFormatInt(buffer, n) * negating it produces the same value. */ - if (n == -n) { + intVal = -n; /* [Bug 3390638] Workaround for*/ + if (n == -n || intVal == n) { /* broken compiler optimizers. */ sprintf(buffer, "%ld", n); return strlen(buffer); } |