PR gas/5322

* lib/gas-defs.exp (gas_host_run): Add fourth argument to regsub command.

diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog
index 315e2dd9152811845383cf3248de3fce47cc859a..cedaa25750cc8125202e6de4fc5c12030ee78bbc 100644 (file)
--- a/gas/testsuite/ChangeLog
+++ b/gas/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2008-01-08  John David Anglin  <dave.anglin@nrc-cnrc.gc.ca>
+
+       PR gas/5322
+       * lib/gas-defs.exp (gas_host_run): Add fourth argument to regsub
+       command.
+
 2008-01-05  H.J. Lu  <hongjiu.lu@intel.com>
 
        * gas/i386/intel.s: Add tests for fadd, faddp, fdiv, fdivp,

diff --git a/gas/testsuite/lib/gas-defs.exp b/gas/testsuite/lib/gas-defs.exp
index 112bb5270a8df875adea7a8e752f96673bec3b6a..af9f5659696c327e63c9d26024fb8d392a5c4b01 100644 (file)
--- a/gas/testsuite/lib/gas-defs.exp
+++ b/gas/testsuite/lib/gas-defs.exp
@@ -63,7 +63,8 @@ proc gas_host_run { cmd redir } {
        set command "$cmd 2>gas.stderr"
        set return_contents_of "gas.stderr"
     } elseif [regexp ">&.*" $redir] then {
-       set output_file [regsub ">&" $redir ""]
+       # See PR 5322 for why the following line is used.
+       regsub ">&" $redir "" output_file       
        set command "$cmd 2>&1"
     } elseif [regexp "2>.*" $redir] then {
        set output_file "gas.out"