* chillvars.ch (xptr): Declare new variable.

	* chillvars.exp (test_ptr):  New function to test EXPR->MODENAME.
This is to test PR chill/6932.

diff --git a/gdb/testsuite/gdb.chill/ChangeLog b/gdb/testsuite/gdb.chill/ChangeLog
index bd966a4526c4c9a43f82f36d1deb10e353b528a1..cb0dc6e34886d8fa28efb1f44fbcce182d8a0210 100644 (file)
--- a/gdb/testsuite/gdb.chill/ChangeLog
+++ b/gdb/testsuite/gdb.chill/ChangeLog
@@ -1,3 +1,8 @@
+Wed Jun  7 17:52:38 1995  Per Bothner  <bothner@kalessin.cygnus.com>
+
+       * chillvars.ch (xptr):  Declare new variable.
+       * chillvars.exp (test_ptr):  New function to test EXPR->MODENAME.
+
 Tue Mar 28 17:13:13 1995  Per Bothner  <bothner@kalessin.cygnus.com>
 
        * pr-6632.ch, pr-6632-grt.ch, pr-6632.exp, Makefile.in:  New test case.

diff --git a/gdb/testsuite/gdb.chill/chillvars.ch b/gdb/testsuite/gdb.chill/chillvars.ch
index 3df623b857eb7a310ad89e855664d83a7c7d301b..21dfcba5486adf3c15dd86000c040bafee8fd017 100644 (file)
--- a/gdb/testsuite/gdb.chill/chillvars.ch
+++ b/gdb/testsuite/gdb.chill/chillvars.ch
@@ -125,6 +125,8 @@ DCL charmatrix ARRAY (0:255) CHAR INIT := [
   'a','a','a','a','a','a','a','a','a','a','a','a','a','a','a','a'
 ];
 
+DCL xptr PTR INIT := ->int_high;
+
 booleans: PROC ();
 
        DCL val1 BOOL := TRUE;

diff --git a/gdb/testsuite/gdb.chill/chillvars.exp b/gdb/testsuite/gdb.chill/chillvars.exp
index 78d9f01d6716dbd207b4b42e135e1320a453cf39..4651826643c9a5f21c7afc42c7897da08d913fd3 100644 (file)
--- a/gdb/testsuite/gdb.chill/chillvars.exp
+++ b/gdb/testsuite/gdb.chill/chillvars.exp
@@ -61,6 +61,8 @@ proc do_tests {} {
     test_arrays
     test_strings
     test_structs
+
+    test_ptr
 }
 
 proc test_BOOL {} {
@@ -284,6 +286,11 @@ proc test_structs {} {
        ".* = \\\[.abool: TRUE, \.nstruct: \\\[\.abool: FALSE, \.aint: 456, \.astring: \"deadbeef\"\\\], \.aint: 789\\\]"
 }
 
+proc test_ptr {} {
+    # This is to test Cygnus PR 6932
+    gdb_test "print xptr->int" ".* = 32767"
+}
+
 # Check to see if we have an executable to test.  If not, then either we
 # haven't tried to compile one, or the compilation failed for some reason.
 # In either case, just notify the user and skip the tests in this file.