diff options
author | andreas_kupries <akupries@shaw.ca> | 2010-05-07 20:16:37 (GMT) |
---|---|---|
committer | andreas_kupries <akupries@shaw.ca> | 2010-05-07 20:16:37 (GMT) |
commit | ce9483a5bd1885e47f7f2ab67a2c947736fd7c3d (patch) | |
tree | 5bf476700702ecfc43ff98ae6727a16d35f3a4b1 /library/platform | |
parent | 9d79f83b1c9d6697d68413130af8b676127a4aa6 (diff) | |
download | tcl-ce9483a5bd1885e47f7f2ab67a2c947736fd7c3d.zip tcl-ce9483a5bd1885e47f7f2ab67a2c947736fd7c3d.tar.gz tcl-ce9483a5bd1885e47f7f2ab67a2c947736fd7c3d.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')
-rw-r--r-- | library/platform/pkgIndex.tcl | 2 | ||||
-rw-r--r-- | library/platform/platform.tcl | 9 |
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 |