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

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

From-SVN: r98453

diff --git a/libffi/ChangeLog b/libffi/ChangeLog
index c234ddea206fb44069e398f302c0b05746e294ed..0f77eca8d6d4ae02f05fe9cb4c58c7c2973203fd 100644 (file)
--- a/libffi/ChangeLog
+++ b/libffi/ChangeLog
@@ -1,3 +1,8 @@
+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>
 

diff --git a/libffi/testsuite/lib/libffi-dg.exp b/libffi/testsuite/lib/libffi-dg.exp
index 7b987111d146d53ab9f19351b9642fac7a66c37f..4708ef7b4e73fca0f534fb627fe733d4b5c2b0d0 100644 (file)
--- a/libffi/testsuite/lib/libffi-dg.exp
+++ b/libffi/testsuite/lib/libffi-dg.exp
@@ -1,4 +1,4 @@
-#   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]
     }