From 3948f93497412e0c4753bf02e5ddc35ced2f39de Mon Sep 17 00:00:00 2001
From: mmason <mmason>
Date: Mon, 15 Jan 2007 15:51:28 +0000
Subject: Test 32-bit binaries on ppc64 in test.exp.

---
 testsuite/systemtap.syscall/ChangeLog | 4 ++++
 testsuite/systemtap.syscall/test.exp  | 5 +++--
 2 files changed, 7 insertions(+), 2 deletions(-)

(limited to 'testsuite/systemtap.syscall')

diff --git a/testsuite/systemtap.syscall/ChangeLog b/testsuite/systemtap.syscall/ChangeLog
index 8552351c..1fa61a87 100644
--- a/testsuite/systemtap.syscall/ChangeLog
+++ b/testsuite/systemtap.syscall/ChangeLog
@@ -1,3 +1,7 @@
+2007-01-15  Mike Mason  <mmlnx@us.ibm.com>
+
+	* test.exp: test 32-bit binaries on ppc64
+
 2007-01-09  Martin Hunt  <hunt@redhat.com>
 
 	* test.exp, test.tcl, test-debug.tcl: PR 3524.
diff --git a/testsuite/systemtap.syscall/test.exp b/testsuite/systemtap.syscall/test.exp
index 2d441cb2..8068a6fc 100644
--- a/testsuite/systemtap.syscall/test.exp
+++ b/testsuite/systemtap.syscall/test.exp
@@ -22,8 +22,9 @@ proc test_procedure {} {
 	}
     }
     
-    if {$::tcl_platform(machine) == "x86_64"} {
-	# on x86_64, test 32-bit and 64-bit binaries
+    if {$::tcl_platform(machine) == "x86_64" || 
+        $::tcl_platform(machine) == "ppc64"} {
+	# on x86_64 and pcp64, test 32-bit and 64-bit binaries
 	set flags "additional_flags=-m32"
 	foreach filename [lsort [glob $pattern]] {
 	    set file [file tail [string range $filename 0 end-2]]
-- 
cgit