diff options
| author | andreas_kupries <akupries@shaw.ca> | 2010-05-07 20:16:23 (GMT) |
|---|---|---|
| committer | andreas_kupries <akupries@shaw.ca> | 2010-05-07 20:16:23 (GMT) |
| commit | def9844e1be2c256e198761634c15e2c84a9d484 (patch) | |
| tree | f6699f58ead9ba5b7a585947b42c5853a25d65e0 /library/platform/platform.tcl | |
| parent | fd3a206e647a220a123e1f5e41fd72100399b2dc (diff) | |
| download | tcl-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/platform/platform.tcl')
| -rw-r--r-- | library/platform/platform.tcl | 9 |
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 |