proc scan-assembler { args } {
upvar 2 name testcase
- set testcase [lindex $testcase 0]
+ if { [llength $testcase] > 1 } {
+ set testcase "$testcase "
+ }
set output_file "[file rootname [file tail $testcase]].s"
-
dg-scan "scan-assembler" 1 $testcase $output_file $args
}
proc scan-assembler-not { args } {
upvar 2 name testcase
- set testcase [lindex $testcase 0]
+ if { [llength $testcase] > 1 } {
+ set testcase "$testcase "
+ }
set output_file "[file rootname [file tail $testcase]].s"
dg-scan "scan-assembler-not" 0 $testcase $output_file $args
proc scan-hidden { args } {
upvar 2 name testcase
- set testcase [lindex $testcase 0]
+ if { [llength $testcase] > 1 } {
+ set testcase "$testcase "
+ }
set output_file "[file rootname [file tail $testcase]].s"
set symbol [lindex $args 0]
proc scan-not-hidden { args } {
upvar 2 name testcase
- set testcase [lindex $testcase 0]
+ if { [llength $testcase] > 1 } {
+ set testcase "$testcase "
+ }
set output_file "[file rootname [file tail $testcase]].s"
set symbol [lindex $args 0]
proc scan-file { output_file args } {
upvar 2 name testcase
- set testcase [lindex $testcase 0]
+ if { [llength $testcase] > 1 } {
+ set testcase "$testcase "
+ }
dg-scan "scan-file" 1 $testcase $output_file $args
}
proc scan-file-not { output_file args } {
upvar 2 name testcase
- set testcase [lindex $testcase 0]
+ if { [llength $testcase] > 1 } {
+ set testcase "$testcase "
+ }
dg-scan "scan-file-not" 0 $testcase $output_file $args
}
proc scan-stack-usage { args } {
upvar 2 name testcase
- set testcase [lindex $testcase 0]
+ if { [llength $testcase] > 1 } {
+ set testcase "$testcase "
+ }
set output_file "[file rootname [file tail $testcase]].su"
dg-scan "scan-file" 1 $testcase $output_file $args
proc scan-stack-usage-not { args } {
upvar 2 name testcase
- set testcase [lindex $testcase 0]
+ if { [llength $testcase] > 1 } {
+ set testcase "$testcase "
+ }
set output_file "[file rootname [file tail $testcase]].su"
dg-scan "scan-file-not" 0 $testcase $output_file $args
# it still stores the filename of the testcase in a local variable "name".
# A cleaner solution would require a new dejagnu release.
upvar 2 name testcase
- set testcase [lindex $testcase 0]
+ if { [llength $testcase] > 1 } {
+ set testcase "$testcase "
+ }
set pattern [lindex $args 0]
set pp_pattern [make_pattern_printable $pattern]
}
upvar 2 name testcase
- set testcase [lindex $testcase 0]
+ if { [llength $testcase] > 1 } {
+ set testcase "$testcase "
+ }
set pattern [lindex $args 0]
set pp_pattern [make_pattern_printable $pattern]
set output_file "[file rootname [file tail $testcase]].s"
}
upvar 2 name testcase
- set testcase [lindex $testcase 0]
+ if { [llength $testcase] > 1 } {
+ set testcase "$testcase "
+ }
set pattern [lindex $args 0]
set pp_pattern [make_pattern_printable $pattern]
set output_file "[file rootname [file tail $testcase]].s"
}
upvar 2 name testcase
- set testcase [lindex $testcase 0]
+ if { [llength $testcase] > 1 } {
+ set testcase "$testcase "
+ }
set what [lindex $args 0]
set where [lsearch { text data bss total } $what]