diff options
| author | Per Bothner <per@bothner.com> | 1995-06-08 00:52:06 +0000 |
|---|---|---|
| committer | Per Bothner <per@bothner.com> | 1995-06-08 00:52:06 +0000 |
| commit | 7e965616ffb09f47b93b1be75128154b841c69ca (patch) | |
| tree | fe51f9fc4eb65cfc5a2ba32146f174c5f37b8b96 | |
| parent | 3029162cdf703ccb5469b4e0370010b7d01c51a2 (diff) | |
| download | gdb-7e965616ffb09f47b93b1be75128154b841c69ca.zip gdb-7e965616ffb09f47b93b1be75128154b841c69ca.tar.gz gdb-7e965616ffb09f47b93b1be75128154b841c69ca.tar.bz2 | |
* chillvars.ch (xptr): Declare new variable.
* chillvars.exp (test_ptr): New function to test EXPR->MODENAME.
This is to test PR chill/6932.
| -rw-r--r-- | gdb/testsuite/gdb.chill/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.chill/chillvars.ch | 2 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.chill/chillvars.exp | 7 |
3 files changed, 14 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.chill/ChangeLog b/gdb/testsuite/gdb.chill/ChangeLog index bd966a4..cb0dc6e 100644 --- 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 3df623b..21dfcba 100644 --- 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 78d9f01..4651826 100644 --- 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. |