This is the mail archive of the
gdb-patches@sources.redhat.com
mailing list for the GDB project.
[patch/rfc] Test struct0
- From: Andrew Cagney <cagney at gnu dot org>
- To: gdb-patches at sources dot redhat dot com
- Date: Tue, 03 Feb 2004 19:06:47 -0500
- Subject: [patch/rfc] Test struct0
Hello,
This adds a test for:
struct foo0 { };
to the structs.exp testcase (I'm assuming that this is legal ISO-C), it
passes on PPC with stabs with:
(gdb) PASS: gdb.base/structs.exp: ptype foo1; structs-tc
p/c fun0()
$1 = {<No data fields>}
Tt was intended for completness, however with a dwarf2 compiler:
amd64$ gcc --version
gcc (GCC) 3.2.3 20030502 (Red Hat Linux 3.2.3-24)
(gdb) PASS: gdb.base/structs.exp: ptype foo1; structs-tc
p/c fun0()
$1 = <incomplete type>
I guess I should file a bug report and kfail it?
Andrew
2004-02-03 Andrew Cagney <cagney@redhat.com>
* gdb.base/structs.c (struct struct0): Define.
(foo0, L0): New variables.
(fun0, Fun0): New functions.
(main): Call fun0 and Fun0.
* gdb.base/structs.exp: Test zero sized structure.
(foo): Add output from an empty struct.
Index: testsuite/gdb.base/structs.c
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.base/structs.c,v
retrieving revision 1.5
diff -u -r1.5 structs.c
--- testsuite/gdb.base/structs.c 20 Nov 2003 17:11:55 -0000 1.5
+++ testsuite/gdb.base/structs.c 3 Feb 2004 23:34:47 -0000
@@ -86,6 +86,7 @@
typedef tQ tR;
#endif
+struct struct0 {};
struct struct1 {tA a;};
struct struct2 {tA a; tB b;};
struct struct3 {tA a; tB b; tC c; };
@@ -105,6 +106,7 @@
struct struct17 {tA a; tB b; tC c; tD d; tE e; tF f; tG g; tH h; tI i; tJ j; tK k; tL l; tM m; tN n; tO o; tP p; tQ q; };
struct struct18 {tA a; tB b; tC c; tD d; tE e; tF f; tG g; tH h; tI i; tJ j; tK k; tL l; tM m; tN n; tO o; tP p; tQ q; tR r; };
+struct struct0 foo0 = {}, L0;
struct struct1 foo1 = {'1'}, L1;
struct struct2 foo2 = {'a','2'}, L2;
struct struct3 foo3 = {'1','b','3'}, L3;
@@ -124,6 +126,10 @@
struct struct17 foo17 = {'1','b','3','d','5','f','7','h','9','j','B','l','D','n','F','p','H'}, L17;
struct struct18 foo18 = {'a','2','c','4','e','6','g','8','i','A','k','C','m','E','o','G','q','I'}, L18;
+struct struct0 fun0()
+{
+ return foo0;
+}
struct struct1 fun1()
{
return foo1;
@@ -198,6 +204,15 @@
}
#ifdef PROTOTYPES
+void Fun0(struct struct0 foo0)
+#else
+void Fun0(foo0)
+ struct struct0 foo0;
+#endif
+{
+ L0 = foo0;
+}
+#ifdef PROTOTYPES
void Fun1(struct struct1 foo1)
#else
void Fun1(foo1)
@@ -408,6 +423,7 @@
#endif
int i;
+ Fun0(foo0);
Fun1(foo1);
Fun2(foo2);
Fun3(foo3);
@@ -435,6 +451,7 @@
while (1)
{
zed ();
+ L0 = fun0();
L1 = fun1();
L2 = fun2();
L3 = fun3();
Index: testsuite/gdb.base/structs.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.base/structs.exp,v
retrieving revision 1.17
diff -u -r1.17 structs.exp
--- testsuite/gdb.base/structs.exp 4 Jan 2004 15:04:41 -0000 1.17
+++ testsuite/gdb.base/structs.exp 3 Feb 2004 23:34:47 -0000
@@ -118,7 +118,7 @@
proc foo { n } {
return [lindex {
- "{}"
+ "{<No data fields>}"
"{a = 49 '1'}"
"{a = 97 'a', b = 50 '2'}"
"{a = 49 '1', b = 98 'b', c = 51 '3'}"
@@ -481,6 +481,7 @@
# original "structs" test was doing.
start_structs_test { tc }
+test_struct_calls 0
test_struct_calls 1
test_struct_calls 2
test_struct_calls 3