From: Nick Clifton <nickc@redhat.com>
Date: Thu, 19 Jun 2003 07:45:50 +0000 (+0000)
Subject: Replace occurances of testprog with $test_prog.  Initialise this variable to
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=f8a7038a5f3e6067fb696d1a7dc1b71d95abd26d;p=binutils-gdb.git

Replace occurances of testprog with $test_prog.  Initialise this variable to
testprog.exe on Cygwin targeted systems.
---

diff --git a/binutils/testsuite/ChangeLog b/binutils/testsuite/ChangeLog
index c1a23993fb1..23eaaf7daff 100644
--- a/binutils/testsuite/ChangeLog
+++ b/binutils/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2003-06-19  Nick Clifton  <nickc@redhat.com>
+
+	* binutils-all/objcopy.exp: Replace occurances of testprog with
+	$test_prog.  Initialise this variable to testprog.exe on Cygwin
+	targeted systems.
+
 2003-04-26  Nick Clifton  <nickc@redhat.com>
 
 	* binutils-all/readelf.exp (prune_read_warnings): Rename to
diff --git a/binutils/testsuite/binutils-all/objcopy.exp b/binutils/testsuite/binutils-all/objcopy.exp
index 5d4a1bbd18d..795c1b72abf 100644
--- a/binutils/testsuite/binutils-all/objcopy.exp
+++ b/binutils/testsuite/binutils-all/objcopy.exp
@@ -425,10 +425,17 @@ strip_test_with_saving_a_symbol
 
 # Build a final executable.
 
+if { [istarget *-*-cygwin] } {
+    set test_prog "testprog.exe"
+} else {
+    set test_prog "testprog"
+}
+
 proc copy_setup { } {
     global srcdir
     global subdir
     global gcc_gas_flag
+    global test_prog
     
     set res [build_wrapper testglue.o];
     set flags { debug };
@@ -445,11 +452,11 @@ proc copy_setup { } {
 	    set flags "additional_flags=$i $flags"
 	}
     }
-    if { [target_compile "$srcdir/$subdir/testprog.c $add_libs" tmpdir/testprog executable $flags]  != "" } {
+    if { [target_compile "$srcdir/$subdir/testprog.c $add_libs" tmpdir/$test_prog executable $flags]  != "" } {
 	return 2
     }
 
-    set result [remote_load target tmpdir/testprog];
+    set result [remote_load target tmpdir/$test_prog];
     set status [lindex $result 0];
 
     if { $status != "pass"  } {
@@ -463,12 +470,13 @@ proc copy_setup { } {
 # Test copying an executable.
 
 proc copy_executable { prog flags test1 test2 } {
+    global test_prog
 
     if [is_remote host] {
-	set testfile [remote_download host tmpdir/testprog];
+	set testfile [remote_download host tmpdir/$test_prog];
 	set testcopy copyprog
     } else {
-	set testfile tmpdir/testprog
+	set testfile tmpdir/$test_prog
 	set testcopy tmpdir/copyprog
     }
     remote_file host delete $testcopy;
@@ -485,7 +493,7 @@ proc copy_executable { prog flags test1 test2 } {
 	remote_upload host $testcopy tmpdir/copyprog
     }
 
-    set status [remote_exec build "cmp" "tmpdir/testprog tmpdir/copyprog"]
+    set status [remote_exec build "cmp" "tmpdir/$test_prog tmpdir/copyprog"]
     set exec_output [lindex $status 1];
 
     if [string match "" $exec_output] then {