summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authorandreas_kupries <akupries@shaw.ca>2010-05-07 20:16:23 (GMT)
committerandreas_kupries <akupries@shaw.ca>2010-05-07 20:16:23 (GMT)
commitdef9844e1be2c256e198761634c15e2c84a9d484 (patch)
treef6699f58ead9ba5b7a585947b42c5853a25d65e0 /library
parentfd3a206e647a220a123e1f5e41fd72100399b2dc (diff)
downloadtcl-def9844e1be2c256e198761634c15e2c84a9d484.zip
tcl-def9844e1be2c256e198761634c15e2c84a9d484.tar.gz
tcl-def9844e1be2c256e198761634c15e2c84a9d484.tar.bz2
* library/platform/platform.tcl: Fix cpu name for Solaris/Intel 64bit.
* library/platform/pkgIndex.tcl: Package updated to version 1.0.8.
Diffstat (limited to 'library')
-rw-r--r--library/platform/pkgIndex.tcl2
-rw-r--r--library/platform/platform.tcl9
2 files changed, 8 insertions, 3 deletions
diff --git a/library/platform/pkgIndex.tcl b/library/platform/pkgIndex.tcl
index 69ca721..808f995 100644
--- a/library/platform/pkgIndex.tcl
+++ b/library/platform/pkgIndex.tcl
@@ -1,3 +1,3 @@
-package ifneeded platform 1.0.7 [list source [file join $dir platform.tcl]]
+package ifneeded platform 1.0.8 [list source [file join $dir platform.tcl]]
package ifneeded platform::shell 1.1.4 [list source [file join $dir shell.tcl]]
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