GDB 7.6.50

gdb/testsuite/gdb.arch/vsx-regs.exp

-# Copyright (C) 2008-2012 Free Software Foundation, Inc.
+# Copyright (C) 2008-2013 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
 # the Free Software Foundation; either version 3 of the License, or
 # (at your option) any later version.
 #
 # This program is distributed in the hope that it will be useful,
 # but WITHOUT ANY WARRANTY; without even the implied warranty of
 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 # GNU General Public License for more details.
@@ skipping 109 matching lines @@
 
 for {set i 0} {$i < 32} {incr i 1} {
     gdb_test "info reg vr$i" "vr$i.*$vector_register3_vr" "info reg vr$i"
 }
 
 # Create a core file.  We create the core file before the F32~F63/VR0~VR31 test
 # below because then we'll have more interesting register values to verify
 # later when loading the core file (i.e., different register values for different
 # vector register banks).
 
-set escapedfilename [string_to_regexp ${objdir}/${subdir}/vsx-core.test]
-
-set core_supported 0
-
-gdb_test_multiple "gcore ${objdir}/${subdir}/vsx-core.test" \
-        "Save a VSX-enabled corefile" \
-{
-  -re "Saved corefile ${escapedfilename}\[\r\n\]+$gdb_prompt $" {
-    pass "Save a VSX-enabled corefile"
-    global core_supported
-    set core_supported 1
-  }
-  -re "Can't create a corefile\[\r\n\]+$gdb_prompt $" {
-    unsupported "Save a VSX-enabled corefile"
-    global core_supported
-    set core_supported 0
-  }
-}
+set corefile "${objdir}/${subdir}/vsx-core.test"
+set core_supported [gdb_gcore_cmd "$corefile" "Save a VSX-enabled corefile"]
 
 # Now run the F32~F63/VR0~VR31 tests.
 
 # 1: Set F32~F63 registers and check if it reflects on VR0~VR31.
 for {set i 32} {$i < 64} {incr i 1} {
     gdb_test_no_output "set \$f$i = 1\.3"
 }
 
 for {set i 0} {$i < 32} {incr i 1} {
     gdb_test "info reg vr$i" "vr$i.*$vector_register1_vr" "info reg vr$i (doubleword 0)"
@@ skipping 18 matching lines @@
 
 if {!$core_supported} {
   return -1
 }
 
 gdb_exit
 gdb_start
 gdb_reinitialize_dir $srcdir/$subdir
 gdb_load ${binfile}
 
-gdb_test_multiple "core ${objdir}/${subdir}/vsx-core.test" \
-        "re-load generated corefile" \
-{
-    -re ".* is not a core dump:.*$gdb_prompt $" {
-        fail "re-load generated corefile (bad file format)"
-        # No use proceeding from here.
-        return;
-    }
-    -re ".*: No such file or directory.*$gdb_prompt $" {
-        fail "re-load generated corefile (file not found)"
-        # No use proceeding from here.
-        return;
-    }
-    -re ".*Couldn't find .* registers in core file.*$gdb_prompt $" {
-        fail "re-load generated corefile (incomplete note section)"
-    }
-    -re "Core was generated by .*$gdb_prompt $" {
-        pass "re-load generated corefile"
-    }
-    -re ".*$gdb_prompt $" {
-        fail "re-load generated corefile"
-    }
-    timeout {
-        fail "re-load generated corefile (timeout)"
-    }
+set core_loaded [gdb_core_cmd "$corefile" "re-load generated corefile"]
+if { $core_loaded == -1 } {
+    # No use proceeding from here.
+    return
 }
 
 for {set i 0} {$i < 32} {incr i 1} {
     gdb_test "info reg vs$i" "vs$i.*$vector_register2" "Restore vs$i from core file"
 }
 
 for {set i 32} {$i < 64} {incr i 1} {
     gdb_test "info reg vs$i" "vs$i.*$vector_register3" "Restore vs$i from core file"
 }