gcc-dg.exp (dg-require-alias): Fix typo.

	* lib/gcc-dg.exp (dg-require-alias): Fix typo.
	(dg-require-gc-sections): Likewise.

From-SVN: r67635

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 3aa5d981fbe85bd3613849980a596cfb78f340c8..6f53088805eaac089dd0336a2dfe6e92229929b3 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2003-06-08  Mark Mitchell  <mark@codesourcery.com>
+
+       * lib/gcc-dg.exp (dg-require-alias): Fix typo.
+       (dg-require-gc-sections): Likewise.
+
 Sun Jun  8 16:46:04 CEST 2003  Jan Hubicka  <jh@suse.cz>
 
        * i386-cmov1.c: Fix regular expression.

diff --git a/gcc/testsuite/lib/gcc-dg.exp b/gcc/testsuite/lib/gcc-dg.exp
index 09fd618d90a02ea60935fd2ea91f7acc1bcd43c1..54fdd6abe3c81d4a0486cdabdc7bc3fea334a495 100644 (file)
--- a/gcc/testsuite/lib/gcc-dg.exp
+++ b/gcc/testsuite/lib/gcc-dg.exp
@@ -279,7 +279,7 @@ proc dg-require-alias { args } {
        unresolved "$name"
     }
     if { $alias_available < 2 } {
-       set dg-do-what [list [lindex $dg_do_what 0] "N" "P"]
+       set dg-do-what [list [lindex $dg-do-what 0] "N" "P"]
        return
     }
 }
@@ -290,7 +290,7 @@ proc dg-require-alias { args } {
 proc dg-require-gc-sections { args } {
     if { ![ check_gc_sections_available ] } {
        upvar dg-do-what dg-do-what
-       set dg-do-what [list [lindex $dg_do_what 0] "N" "P"]
+       set dg-do-what [list [lindex $dg-do-what 0] "N" "P"]
        return
     }
 }