diff options
| author | Hans-Peter Nilsson <hp@axis.com> | 2005-04-20 10:59:26 +0000 |
|---|---|---|
| committer | Hans-Peter Nilsson <hp@gcc.gnu.org> | 2005-04-20 10:59:26 +0000 |
| commit | fc0ad8d9614651dfad418cb280e4e66d4a5cf72d (patch) | |
| tree | 7c2c3fc2feb21e192f90e8a878f0ce705b72bb23 /libffi | |
| parent | d288ff8d54dce83ba0ccea262d4da42a820a1bfc (diff) | |
| download | gcc-fc0ad8d9614651dfad418cb280e4e66d4a5cf72d.tar.gz gcc-fc0ad8d9614651dfad418cb280e4e66d4a5cf72d.tar.bz2 gcc-fc0ad8d9614651dfad418cb280e4e66d4a5cf72d.zip | |
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
Diffstat (limited to 'libffi')
| -rw-r--r-- | libffi/ChangeLog | 5 | ||||
| -rw-r--r-- | libffi/testsuite/lib/libffi-dg.exp | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/libffi/ChangeLog b/libffi/ChangeLog index c234ddea206..0f77eca8d6d 100644 --- 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 7b987111d14..4708ef7b4e7 100644 --- 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] } |