Index: gdb/testsuite/gdb.dwarf2/dw2-compdir-oldgcc.exp |
diff --git a/gdb/testsuite/gdb.dwarf2/dw2-simple-locdesc.exp b/gdb/testsuite/gdb.dwarf2/dw2-compdir-oldgcc.exp |
similarity index 56% |
copy from gdb/testsuite/gdb.dwarf2/dw2-simple-locdesc.exp |
copy to gdb/testsuite/gdb.dwarf2/dw2-compdir-oldgcc.exp |
index 77d42ecff0d42359d6c61cc8bf82b778cf2e89cb..8f1409af9f283c043d999b83064414e09a50a53d 100644 |
--- a/gdb/testsuite/gdb.dwarf2/dw2-simple-locdesc.exp |
+++ b/gdb/testsuite/gdb.dwarf2/dw2-compdir-oldgcc.exp |
@@ -1,4 +1,4 @@ |
-# Copyright 2011-2012 Free Software Foundation, Inc. |
+# Copyright 2012-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 |
@@ -20,25 +20,23 @@ if {![dwarf2_support]} { |
} |
standard_testfile .S |
- |
-if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" object {}] != "" } { |
+if {[prepare_for_testing $testfile.exp $testfile $srcfile]} { |
return -1 |
} |
-clean_restart $testfile |
+# Here should be GDB-computed "Compilation directory is". |
+gdb_test "list gcc42" ".*" |
+gdb_test "info source" "\r\nCurrent source file is dw2-compdir-oldgcc42.S\r\nCompilation directory is /dir/d\r\n.*" \ |
+ "info source gcc42" |
-# Re: [patch 2/2] Fix decode_locdesc for gcc-4.7.x optimized DWARF |
-# http://sourceware.org/ml/gdb-patches/2011-07/msg00766.html |
-set test "p &s.shl" |
-gdb_test_multiple $test $test { |
- -re " = \\(int \\*\\) 0x1000000\r\n$gdb_prompt $" { |
- pass $test |
+# Here should not be GDB-computed "Compilation directory is". |
+gdb_test "list gcc43" ".*" |
+set test "info source gcc43" |
+gdb_test_multiple "info source" $test { |
+ -re "\r\nCompilation directory is .*\r\n$gdb_prompt $" { |
+ fail $test |
} |
- -re " = \\(int \\*\\) 0x14\r\n$gdb_prompt $" { |
- kfail "symtab/13307" $test |
+ -re "\r\nCurrent source file is dw2-compdir-oldgcc43.S\r\n.*\r\n$gdb_prompt $" { |
+ pass $test |
} |
} |
- |
-# Re: RFC: fix DW_AT_data_member_location buglet |
-# http://sourceware.org/ml/gdb-patches/2011-05/msg00291.html |
-gdb_test "p &s.data4" { = \(int \*\) 0x10000} |