diff options
| author | dwilder <dwilder> | 2007-04-24 22:06:09 +0000 |
|---|---|---|
| committer | dwilder <dwilder> | 2007-04-24 22:06:09 +0000 |
| commit | dbb8444137bda360f01a78e172bc4f36a3d601b4 (patch) | |
| tree | e48bb03f748bfb88d16a40aba07fcdf38ad94124 /testsuite/systemtap.syscall/syscall.exp | |
| parent | eb4cafc4c2e58edece1657dd1a6d25040acb3aed (diff) | |
| download | systemtap-steved-dbb8444137bda360f01a78e172bc4f36a3d601b4.tar.gz systemtap-steved-dbb8444137bda360f01a78e172bc4f36a3d601b4.tar.xz systemtap-steved-dbb8444137bda360f01a78e172bc4f36a3d601b4.zip | |
syscall.exp: Enabled 64-bit tests on s390x, 32-bit test to use -m31 on s390x.
Diffstat (limited to 'testsuite/systemtap.syscall/syscall.exp')
| -rw-r--r-- | testsuite/systemtap.syscall/syscall.exp | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/testsuite/systemtap.syscall/syscall.exp b/testsuite/systemtap.syscall/syscall.exp index dfb6ca27..3e799933 100644 --- a/testsuite/systemtap.syscall/syscall.exp +++ b/testsuite/systemtap.syscall/syscall.exp @@ -13,7 +13,7 @@ proc test_procedure {} { # To find tcl's platform name for your machine, run the following: # echo "puts $::tcl_platform(machine)" | tclsh set do_64_bit_pass 0 - if {$::tcl_platform(machine) == "x86_64" || $::tcl_platform(machine) == "ppc64"} { + if {$::tcl_platform(machine) == "x86_64" || $::tcl_platform(machine) == "ppc64" || $::tcl_platform(machine) == "s390x" } { set do_64_bit_pass 1 } @@ -37,7 +37,12 @@ proc test_procedure {} { } } + if { $::tcl_platform(machine) == "s390x" } { + set flags "additional_flags=-m31" + } else { set flags "additional_flags=-m32" + } + foreach filename [lsort [glob $pattern]] { set file [file tail [string range $filename 0 end-2]] if {![installtest_p]} { untested $file; continue } |