From a05ee097066d51f8aa2c991d65b79460d15ffab6 Mon Sep 17 00:00:00 2001
From: Joel Brobecker <brobecker@gnat.com>
Date: Mon, 17 Dec 2007 07:18:03 +0000
Subject: [PATCH]         * gdb.base/frame-args.c: New file.         *
 gdb.base/frame-args.exp: New testcase.

---
 gdb/testsuite/ChangeLog               |  5 +++
 gdb/testsuite/gdb.base/frame-args.c   | 56 +++++++++++++++++++++++
 gdb/testsuite/gdb.base/frame-args.exp | 65 +++++++++++++++++++++++++++
 3 files changed, 126 insertions(+)
 create mode 100644 gdb/testsuite/gdb.base/frame-args.c
 create mode 100644 gdb/testsuite/gdb.base/frame-args.exp

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index f8e8daf59af..ffe1f45af73 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2007-12-17  Joel Brobecker  <brobecker@adacore.com>
+
+	* gdb.base/frame-args.c: New file.
+	* gdb.base/frame-args.exp: New testcase.
+
 2007-12-16  Daniel Jacobowitz  <dan@codesourcery.com>
             Joseph Myers  <joseph@codesourcery.com>
 
diff --git a/gdb/testsuite/gdb.base/frame-args.c b/gdb/testsuite/gdb.base/frame-args.c
new file mode 100644
index 00000000000..50ffe6070b9
--- /dev/null
+++ b/gdb/testsuite/gdb.base/frame-args.c
@@ -0,0 +1,56 @@
+/* This testcase is part of GDB, the GNU debugger.
+
+   Copyright 2007 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.
+
+   You should have received a copy of the GNU General Public License
+   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
+
+struct s
+{
+  int a;
+  int b;
+};
+
+union u
+{
+  int a;
+  float b;
+};
+
+enum color { red, green, blue };
+
+static void
+break_me (void)
+{
+}
+
+static void
+call_me (int i, float f, struct s s, struct s *ss, union u u, enum color e)
+{
+  break_me ();
+}
+
+int
+main (void)
+{
+  struct s s;
+  union u u;
+
+  s.a = 3;
+  s.b = 5;
+  u.a = 7;
+
+  call_me (3, 5.0, s, &s, u, green);
+
+  return 0;
+}
diff --git a/gdb/testsuite/gdb.base/frame-args.exp b/gdb/testsuite/gdb.base/frame-args.exp
new file mode 100644
index 00000000000..02200db62ed
--- /dev/null
+++ b/gdb/testsuite/gdb.base/frame-args.exp
@@ -0,0 +1,65 @@
+# Copyright 2007 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.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+if $tracelevel {
+    strace $tracelevel
+}
+
+set testfile "frame-args"
+set srcfile ${testfile}.c
+set binfile ${objdir}/${subdir}/${testfile}
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
+    untested "Couldn't compile ${srcfile}"
+    return -1
+}
+
+gdb_exit
+gdb_start
+gdb_reinitialize_dir $srcdir/$subdir
+gdb_load ${binfile}
+
+if ![runto break_me] then {
+  perror "Couldn't run ${testfile}"
+  return
+}
+
+# Test with "print frame-arguments" set to "all"
+
+gdb_test "set print frame-arguments all" \
+         "" \
+         "set print frame-arguments all"
+gdb_test "frame 1" \
+         ".*in call_me \\(i=3, f=5, s={a = 3, b = 5}, ss=0x\[0-9a-f\]\+, u={.*}, e=green\\) at .*frame-args\\.c:.*" \
+         "frame 1 with print frame-arguments set to all"
+
+# Test with "print frame-arguments" set to "scalars"
+
+gdb_test "set print frame-arguments scalars" \
+         "" \
+         "set print frame-arguments scalars"
+gdb_test "frame 1" \
+         ".*in call_me \\(i=3, f=5, s=\\.\\.\\., ss=0x\[0-9a-f\]\+, u=\\.\\.\\., e=green\\) at .*frame-args\\.c:.*" \
+         "frame 1 with print frame-arguments set to scalars"
+
+# Test with "print frame-arguments" set to "none"
+
+gdb_test "set print frame-arguments none" \
+         "" \
+         "set print frame-arguments none"
+gdb_test "frame 1" \
+         ".*in call_me \\(i=\\.\\.\\., f=\\.\\.\\., s=\\.\\.\\., ss=\\.\\.\\., u=\\.\\.\\., e=\\.\\.\\.\\) at .*frame-args\\.c:.*" \
+         "frame 1 with print frame-arguments set to none"
+
+
-- 
2.30.2