old-dejagnu.exp: Don't delete output of executable.

	* lib/old-dejagnu.exp: Don't delete output of executable.
	Add .exe suffix to executables.

Co-Authored-By: Mark Mitchell <mark@codesourcery.com>
From-SVN: r41443

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 16e28e1ec32e3fa8da16edf7896235a1b1d33546..c6d3012358f83e42282af1ce45fb7e1632f56f0f 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2001-04-19  David Billinghurst <David.Billinghurst@riotinto.com>
+           Mark Mitchell  <mark@codesourcery.com>
+
+       * lib/old-dejagnu.exp: Don't delete output of executable.
+       Add .exe suffix to executables.
+
 2001-04-18  Toon Moene  <toon@moene.indiv.nluug.nl>
 
        * g77.f-torture/execute/short.x; Remove - Error has been fixed.

diff --git a/gcc/testsuite/lib/old-dejagnu.exp b/gcc/testsuite/lib/old-dejagnu.exp
index aaac095b21a2e1e3bee7cd65473d7e3ecefeddbe..8384e8392c6b03543f8ea74b576962b14ad6c1e3 100644 (file)
--- a/gcc/testsuite/lib/old-dejagnu.exp
+++ b/gcc/testsuite/lib/old-dejagnu.exp
@@ -1,4 +1,4 @@
-# Copyright (C) 1988, 90, 91, 92, 1994, 1996, 1997, 2000 Free Software Foundation, Inc.
+# Copyright (C) 1988, 90, 91, 92, 1994, 1996, 1997, 2000, 2001 Free Software Foundation, Inc.
 
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -233,7 +233,7 @@ proc old-dejagnu { compiler prog name cflagsx default_cflags libs } {
     lappend cflags "compiler=$compiler"
 
     regsub -all "\[./\]" "$name" "-" output;
-    set output "$tmpdir/$output";
+    set output "$tmpdir/$output.exe";
     set compile_type "executable"
 
     set tmp [lindex [grep $prog "Build don.t link:"] 0]
@@ -574,9 +574,10 @@ proc old-dejagnu { compiler prog name cflagsx default_cflags libs } {
            }
            $status "$name $pattern Execution test"
        }
+    } else {
+      verbose "deleting $output"
+      remote_file build delete $output
     }
 
-    verbose "deleting $output"
-    remote_file build delete $output
     return 0
 }