OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

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

From-SVN: r98453
This commit is contained in:
Hans-Peter Nilsson 2005-04-20 10:59:26 +00:00 committed by Hans-Peter Nilsson
parent d288ff8d54
commit fc0ad8d961
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libffi/ChangeLog
View File

@ -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>

4
libffi/testsuite/lib/libffi-dg.exp
View File

@ -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]
}