Diff

Differences From Artifact [f8b2da0698]:

To Artifact [2810807ee8]:


    44     44   			foreach ext $failedexts {
    45     45   				puts "  $ext"
    46     46   			}
    47     47   			exit 1
    48     48   		}
    49     49   	}
    50     50   	"list" {
    51         -		set os "*"
    52         -		set cpu "*"
           51  +		set os [string tolower $tcl_platform(os)]
           52  +		set cpu [string tolower $tcl_platform(machine)]
    53     53   		if {[llength $argv] > 0} {
    54     54   			set os [lindex $argv 0]
    55     55   		}
    56     56   		if {[llength $argv] > 1} {
    57     57   			set cpu [lindex $argv 1]
    58     58   		}
    59     59