testsuite: Fix gcc_compiled for gcc 6 & 7
authorJan Kratochvil <jan.kratochvil@redhat.com>
Thu, 20 Oct 2016 19:58:54 +0000 (21:58 +0200)
committerJan Kratochvil <jan.kratochvil@redhat.com>
Thu, 20 Oct 2016 19:58:54 +0000 (21:58 +0200)
gdb/testsuite/ChangeLog
2016-10-20  Jan Kratochvil  <jan.kratochvil@redhat.com>

* lib/gdb.exp (get_compiler_info): Generalize gcc_compile regexp.

gdb/testsuite/ChangeLog
gdb/testsuite/lib/gdb.exp

index 5409537..c8709b7 100644 (file)
@@ -1,3 +1,7 @@
+2016-10-20  Jan Kratochvil  <jan.kratochvil@redhat.com>
+
+       * lib/gdb.exp (get_compiler_info): Generalize gcc_compile regexp.
+
 2016-10-19  Maciej W. Rozycki  <macro@imgtec.com>
 
        * gdb.base/killed-outside.exp: Remove $options from a call to
index 378eea0..7d9b198 100644 (file)
@@ -3290,12 +3290,8 @@ proc get_compiler_info {{arg ""}} {
     }
 
     # Set the legacy symbols.
-    set gcc_compiled     0
-    if { [regexp "^gcc-1-" "$compiler_info" ] } { set gcc_compiled 1 }
-    if { [regexp "^gcc-2-" "$compiler_info" ] } { set gcc_compiled 2 }
-    if { [regexp "^gcc-3-" "$compiler_info" ] } { set gcc_compiled 3 }
-    if { [regexp "^gcc-4-" "$compiler_info" ] } { set gcc_compiled 4 }
-    if { [regexp "^gcc-5-" "$compiler_info" ] } { set gcc_compiled 5 }
+    set gcc_compiled 0
+    regexp "^gcc-(\[0-9\]+)-" "$compiler_info" matchall gcc_compiled
 
     # Log what happened.
     verbose -log "get_compiler_info: $compiler_info"