libffi-dg.exp (libffi-dg-test-1): In regsub use, have Tcl8.3-compatible intermediate variable.

	* testsuite/lib/libffi-dg.exp (libffi-dg-test-1): In regsub use,
	have Tcl8.3-compatible intermediate variable.

From-SVN: r98453

libffi/ChangeLog

+2005-04-20  Hans-Peter Nilsson  <hp@axis.com>
+
+	* testsuite/lib/libffi-dg.exp (libffi-dg-test-1): In regsub use,
+	have Tcl8.3-compatible intermediate variable.
+
 2005-04-18  Simon Posnjak <simon.posnjak@siol.net> 
 	    Hans-Peter Nilsson  <hp@axis.com>
 

libffi/testsuite/lib/libffi-dg.exp

-#   Copyright (C) 2003 Free Software Foundation, Inc.
+#   Copyright (C) 2003, 2005 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
@@ -40,7 +40,7 @@ proc libffi-dg-test-1 { target_compile prog do_what extra_tool_flags } {
     upvar 2 dg-output-text output_match
 
     if { [llength $output_match] > 1 } {
-	set x [regsub -all "\n" [lindex $output_match 1] "\r?\n"]
+	regsub -all "\n" [lindex $output_match 1] "\r?\n" x
 	set output_match [lreplace $output_match 1 1 $x]
     }