2003-09-17 Michael Chastain <mec@shout.net>

	* gdb.cp/gdb1355.exp: New file.
	* gdb.cp/gdb1355.c: New file.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 574e4b18ba240ca5b9d1d3189cfcc9eb4ed81844..347f146a58c968f1c2e9ae34d3fc96aa5bde22af 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2003-09-17  Michael Chastain  <mec@shout.net>
+
+       * gdb.cp/gdb1355.exp: New file.
+       * gdb.cp/gdb1355.c: New file.
+
 2003-09-15  Corinna Vinschen  <vinschen@redhat.com>
 
        * gdb.asm/asm-source.exp: Add sh*-*-* as supported target.

diff --git a/gdb/testsuite/gdb.cp/gdb1355.cc b/gdb/testsuite/gdb.cp/gdb1355.cc
new file mode 100644 (file)
index 0000000..a53ca20
--- /dev/null
+++ b/gdb/testsuite/gdb.cp/gdb1355.cc
@@ -0,0 +1,35 @@
+struct mystruct
+{
+  int m_int;
+  char m_char;
+  long int m_long_int;
+  unsigned int m_unsigned_int;
+  long unsigned int m_long_unsigned_int;
+  // long long int m_long_long_int;
+  // long long unsigned int m_long_long_unsigned_int;
+  short int m_short_int;
+  short unsigned int m_short_unsigned_int;
+  unsigned char m_unsigned_char;
+  float m_float;
+  double m_double;
+  long double m_long_double;
+  // complex int m_complex_int;
+  // complex float m_complex_float;
+  // complex long double m_complex_long_double;
+  // wchar_t m_wchar_t;
+  bool m_bool;
+};
+
+struct mystruct s1 =
+{
+    117, 'a', 118, 119, 120,
+    // 121, 122,
+    123, 124, 'b', 125.0, 126.0, 127.0,
+    // complex int, complex float, complex long double, wchar_t,
+    true
+};
+
+int main ()
+{
+  return 0;
+}

diff --git a/gdb/testsuite/gdb.cp/gdb1355.exp b/gdb/testsuite/gdb.cp/gdb1355.exp
new file mode 100644 (file)
index 0000000..11f16d5
--- /dev/null
+++ b/gdb/testsuite/gdb.cp/gdb1355.exp
@@ -0,0 +1,119 @@
+# Copyright 2003 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 2 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.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  
+
+# Tests for PR gdb/1355, which is a reference to PR gcc/12066.
+# 2003-08-26  Michael Chastain <mec@shout.net>
+
+# This file is part of the gdb testsuite.
+
+set ws "\[\r\n\t \]*"
+set nl "\[\r\n\]+"
+
+if $tracelevel then {
+    strace $tracelevel
+    }
+
+if { [skip_cplus_tests] } { continue }
+
+#
+# test running programs
+#
+set prms_id 0
+set bug_id 0
+
+set testfile "gdb1355"
+set srcfile ${testfile}.cc
+set binfile ${objdir}/${subdir}/${testfile}
+
+if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug c++}] != "" } {
+     gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
+}
+
+if [get_compiler_info ${binfile} "c++"] {
+    return -1
+}
+
+gdb_exit
+gdb_start
+gdb_reinitialize_dir $srcdir/$subdir
+gdb_load ${binfile}
+
+if ![runto_main] then {
+    perror "couldn't run to main"
+    continue
+} 
+
+# See http://sources.redhat.com/gdb/bugs/1355
+# See http://gcc.gnu.org/bugzilla/show_bug.cgi?id=12066
+#
+# g++ -gstabs+ does not emit stabs for fundamental types.
+# They get emitted later inside other types, so they have no names
+# and gdb cannot handle them.
+
+set s_head  "${ws}(struct|class) mystruct \{(${ws}public:|)"
+set s_tail  ".*"
+
+set f_i     "${ws}int m_int;"
+set f_c     "${ws}char m_char;"
+set f_li    "${ws}long int m_long_int;"
+set f_ui    "${ws}unsigned int m_unsigned_int;"
+set f_lui   "${ws}long unsigned int m_long_unsigned_int;"
+set f_si    "${ws}short int m_short_int;"
+set f_sui   "${ws}short unsigned int m_short_unsigned_int;"
+set f_uc    "${ws}unsigned char m_unsigned_char;"
+set f_f     "${ws}float m_float;"
+set f_d     "${ws}double m_double;"
+set f_ld    "${ws}long double m_long_double;"
+set f_b     "${ws}bool m_bool;"
+
+set itc     "<invalid type code ${decimal}>"
+set bad_i   "${ws}(${itc}|int) m_int;";
+set bad_c   "${ws}(${itc}|char) m_char;"
+set bad_li  "${ws}(${itc}|long int) m_long_int;"
+set bad_ui  "${ws}(${itc}|unsigned int) m_unsigned_int;"
+set bad_lui "${ws}(${itc}|long unsigned int) m_long_unsigned_int;"
+set bad_si  "${ws}(${itc}|short int) m_short_int;"
+set bad_sui "${ws}(${itc}|short unsigned int) m_short_unsigned_int;"
+set bad_uc  "${ws}(${itc}|unsigned char) m_unsigned_char;"
+set bad_f   "${ws}(${itc}|float) m_float;"
+set bad_d   "${ws}(${itc}|double) m_double;"
+set bad_ld  "${ws}(${itc}|long double) m_long_double;"
+set bad_b   "${ws}(${itc}|bool) m_bool;"
+
+gdb_test_multiple "ptype s1" "ptype s1" {
+    -re "type = ${s_head}${f_i}${f_c}${f_li}${f_ui}${f_lui}${f_si}${f_sui}${f_uc}${f_f}${f_d}${f_ld}${f_b}${s_tail}\}$nl$gdb_prompt $" {
+       pass "ptype s1"
+    }
+    -re "type = ${s_head}${bad_i}${bad_c}${bad_li}${bad_ui}${bad_lui}${bad_si}${bad_sui}${bad_uc}${bad_f}${bad_d}${bad_ld}${bad_b}${s_tail}\}$nl$gdb_prompt $" {
+       # This happened with gcc HEAD 2003-08-20 08:00:00 UTC, -gstabs+.
+       kfail "gdb/1355" "ptype s1"
+    }
+}
+
+gdb_test_multiple "print s1" "print s1" {
+    -re "$decimal = \{m_int = 117, m_char = 97 'a', m_long_int = 118, m_unsigned_int = 119, m_long_unsigned_int = 120, m_short_int = 123, m_short_unsigned_int = 124, m_unsigned_char = 98 'b', m_float = 125, m_double = 126, m_long_double = 127, m_bool = true\}$nl$gdb_prompt $" {
+       pass "print s1"
+    }
+    -re "$decimal = \{m_int = 117, m_char = 97 'a', m_long_int = 118, m_unsigned_int = 119, m_long_unsigned_int = 120, m_short_int = 123, m_short_unsigned_int = 124, m_unsigned_char = 98 'b', m_float = 125, m_double = 126, m_long_double = 127, m_bool = 117\}$nl$gdb_prompt $" {
+       # This pattern is very picky, but if more different output
+       # shows up, I can just add more arms.  -- chastain 2003-08-26
+       #
+       # This happened with gcc HEAD 2003-08-20 08:00:00 UTC, -gstabs+.
+       # Look at the value of m_bool.  It looks like gdb latched onto
+       # random int type and then used the data at structure offset 0.
+       kfail "gdb/1355" "print s1"
+    }
+}