===================================================================
@@ -79,9 +79,10 @@
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
}
@@ -95,7 +96,9 @@
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
@@ -126,7 +129,9 @@
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]
@@ -143,7 +148,9 @@
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]
@@ -158,7 +165,9 @@
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
}
@@ -167,7 +176,9 @@
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
}
@@ -176,7 +187,9 @@
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
@@ -187,7 +200,9 @@
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
@@ -216,7 +231,9 @@
# 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]
@@ -276,7 +293,9 @@
}
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"
@@ -331,7 +350,9 @@
}
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"
@@ -387,7 +408,9 @@
}
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]