OSDN Git Service

* testsuite/lib/libffi-dg.exp (libffi-dg-test-1): In regsub use,
authorhp <hp@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 20 Apr 2005 10:59:26 +0000 (10:59 +0000)
committerhp <hp@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 20 Apr 2005 10:59:26 +0000 (10:59 +0000)
have Tcl8.3-compatible intermediate variable.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@98453 138bc75d-0d04-0410-961f-82ee72b054a4

libffi/ChangeLog
libffi/testsuite/lib/libffi-dg.exp

index c234dde..0f77eca 100644 (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>
 
index 7b98711..4708ef7 100644 (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]
     }