summaryrefslogtreecommitdiffstats
path: root/library/platform/platform.tcl
diff options
context:
space:
mode:
authorandreas_kupries <akupries@shaw.ca>2010-05-07 20:16:50 (GMT)
committerandreas_kupries <akupries@shaw.ca>2010-05-07 20:16:50 (GMT)
commit4d121f611d686f514965d65ee8fc91fb882824e3 (patch)
tree8376e7d1f15d316240f54e73c771bed21a42d17d /library/platform/platform.tcl
parent287b160a61d09c34c6e579e96552e2bb361058cc (diff)
downloadtcl-4d121f611d686f514965d65ee8fc91fb882824e3.zip
tcl-4d121f611d686f514965d65ee8fc91fb882824e3.tar.gz
tcl-4d121f611d686f514965d65ee8fc91fb882824e3.tar.bz2
* library/platform/platform.tcl: Fix cpu name for Solaris/Intel 64bit.
* library/platform/pkgIndex.tcl: Package updated to version 1.0.8. * unix/Makefile.in: * win/Makefile.in:
Diffstat (limited to 'library/platform/platform.tcl')
-rw-r--r--library/platform/platform.tcl9
1 files changed, 7 insertions, 2 deletions
diff --git a/library/platform/platform.tcl b/library/platform/platform.tcl
index 838ceec..370c48a 100644
--- a/library/platform/platform.tcl
+++ b/library/platform/platform.tcl
@@ -103,7 +103,12 @@ proc ::platform::generic {} {
}
sunos {
set plat solaris
- if {![string match "ia64*" $cpu]} {
+ if {[string match "ix86" $cpu]} {
+ if {$tcl_platform(wordSize) == 8} {
+ set cpu x86_64
+ }
+ } elseif {![string match "ia64*" $cpu]} {
+ # sparc
if {$tcl_platform(wordSize) == 8} {
append cpu 64
}
@@ -309,7 +314,7 @@ proc ::platform::patterns {id} {
# ### ### ### ######### ######### #########
## Ready
-package provide platform 1.0.7
+package provide platform 1.0.8
# ### ### ### ######### ######### #########
## Demo application