[testsuite/guality] Use @main as bp loc instead of line nrs in const-volatile.c
authorTom de Vries <tdevries@suse.de>
Sun, 1 Jul 2018 18:28:24 +0000 (18:28 +0000)
committerTom de Vries <vries@gcc.gnu.org>
Sun, 1 Jul 2018 18:28:24 +0000 (18:28 +0000)
2018-07-01  Tom de Vries  <tdevries@suse.de>

* lib/gcc-gdb-test.exp (gdb-test): Handle '@' prefix in line number
argument.
* gcc.dg/guality/const-volatile.c: Replace gdb-test line nrs 50 and 58
with @main.

From-SVN: r262288

gcc/testsuite/ChangeLog
gcc/testsuite/gcc.dg/guality/const-volatile.c
gcc/testsuite/lib/gcc-gdb-test.exp

index b8b00f5f875da8af31c2c7d37ad8861d51295326..df7edd94872f6a40ac2e7a8023aaa74b91aa76dd 100644 (file)
@@ -1,3 +1,10 @@
+2018-07-01  Tom de Vries  <tdevries@suse.de>
+
+       * lib/gcc-gdb-test.exp (gdb-test): Handle '@' prefix in line number
+       argument.
+       * gcc.dg/guality/const-volatile.c: Replace gdb-test line nrs 50 and 58
+       with @main.
+
 2018-07-01  Tom de Vries  <tdevries@suse.de>
 
        * gcc.dg/guality/prevent-optimization.h (VOLATILE): Define.
index d657f48079c91b39f99c9118136f32a4ed2ef547..3bfca0d14d38096c91b9b85ffc6c087754b385a2 100644 (file)
@@ -62,33 +62,33 @@ main (int argc, char **argv)
   return f (argv[0], &dummy, as) - 1;
 }
 
-/* { dg-final { gdb-test 50 "type:main" "int (int, char **)" } } */
+/* { dg-final { gdb-test "@main" "type:main" "int (int, char **)" } } */
 
-/* { dg-final { gdb-test 50 "type:i" "int" } } */
-/* { dg-final { gdb-test 50 "type:ci" "const int" } } */
-/* { dg-final { gdb-test 50 "type:vi" "volatile int" } } */
-/* { dg-final { gdb-test 50 "type:cvi" "const volatile int" } } */
+/* { dg-final { gdb-test "@main" "type:i" "int" } } */
+/* { dg-final { gdb-test "@main" "type:ci" "const int" } } */
+/* { dg-final { gdb-test "@main" "type:vi" "volatile int" } } */
+/* { dg-final { gdb-test "@main" "type:cvi" "const volatile int" } } */
 
-/* { dg-final { gdb-test 50 "type:pi" "int *" } } */
-/* { dg-final { gdb-test 50 "type:pci" "const int *" } } */
-/* { dg-final { gdb-test 50 "type:pvi" "volatile int *" } } */
-/* { dg-final { gdb-test 50 "type:pcvi" "const volatile int *" } } */
+/* { dg-final { gdb-test "@main" "type:pi" "int *" } } */
+/* { dg-final { gdb-test "@main" "type:pci" "const int *" } } */
+/* { dg-final { gdb-test "@main" "type:pvi" "volatile int *" } } */
+/* { dg-final { gdb-test "@main" "type:pcvi" "const volatile int *" } } */
 
-/* { dg-final { gdb-test 50 "type:cip" "int * const" } } */
-/* { dg-final { gdb-test 50 "type:vip" "int * volatile" } } */
-/* { dg-final { gdb-test 50 "type:cvip" "int * const volatile" } } */
+/* { dg-final { gdb-test "@main" "type:cip" "int * const" } } */
+/* { dg-final { gdb-test "@main" "type:vip" "int * volatile" } } */
+/* { dg-final { gdb-test "@main" "type:cvip" "int * const volatile" } } */
 
-/* { dg-final { gdb-test 50 "type:vs" "volatile struct { const long cli; const signed char csc; }" } } */
+/* { dg-final { gdb-test "@main" "type:vs" "volatile struct { const long cli; const signed char csc; }" } } */
 
-/* { dg-final { gdb-test 50 "type:cvip" "int * const volatile" } } */
+/* { dg-final { gdb-test "@main" "type:cvip" "int * const volatile" } } */
 
-/* { dg-final { gdb-test 50 "type:bar" "struct bar { short s; const short cs; volatile short vs; const volatile short cvs; volatile long long vll; }" } } */
-/* { dg-final { gdb-test 50 "type:foo" "struct foo { const long cli; const signed char csc; }" } } */
-/* { dg-final { gdb-test 50 "type:cfoo" "const struct foo { const long cli; const signed char csc; }" } } */
-/* { dg-final { gdb-test 50 "type:vfoo" "volatile struct foo { const long cli; const signed char csc; }" } } */
-/* { dg-final { gdb-test 50 "type:cvfoo" "const volatile struct foo { const long cli; const signed char csc; }" } } */
+/* { dg-final { gdb-test "@main" "type:bar" "struct bar { short s; const short cs; volatile short vs; const volatile short cvs; volatile long long vll; }" } } */
+/* { dg-final { gdb-test "@main" "type:foo" "struct foo { const long cli; const signed char csc; }" } } */
+/* { dg-final { gdb-test "@main" "type:cfoo" "const struct foo { const long cli; const signed char csc; }" } } */
+/* { dg-final { gdb-test "@main" "type:vfoo" "volatile struct foo { const long cli; const signed char csc; }" } } */
+/* { dg-final { gdb-test "@main" "type:cvfoo" "const volatile struct foo { const long cli; const signed char csc; }" } } */
 
-/* { dg-final { gdb-test 58 "type:s" "volatile signed char" } } */
-/* { dg-final { gdb-test 50 "type:cs" "const volatile signed char" } } */
+/* { dg-final { gdb-test "@main" "type:s" "volatile signed char" } } */
+/* { dg-final { gdb-test "@main" "type:cs" "const volatile signed char" } } */
 
-/* { dg-final { gdb-test 50 "type:f" "int (const char *, volatile struct foo *, const score)" } } */
+/* { dg-final { gdb-test "@main" "type:f" "int (const char *, volatile struct foo *, const score)" } } */
index c446f5b122dc10552bcd7426660963bc12c0edc6..bb966d43023e7b3098ba8c63e82e4f3507b0ef19 100644 (file)
@@ -60,7 +60,12 @@ proc gdb-test { useline args } {
     set cmd_file "[file rootname [file tail $prog]].gdb"
 
     set fd [open $cmd_file "w"]
-    set line [get-absolute-line $useline [lindex $args 0]]
+    set line [lindex $args 0]
+    if { [string range $line 0 0] == "@" } {
+       set line [string range $line 1 end]
+    } else {
+       set line [get-absolute-line $useline $line]
+    }
     puts $fd "break $line"
     puts $fd "run"
     puts $fd "$command $var"