* chillvars.ch (xptr): Declare new variable.
* chillvars.exp (test_ptr): New function to test EXPR->MODENAME. This is to test PR chill/6932.
This commit is contained in:
parent
3029162cdf
commit
7e965616ff
|
@ -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.
|
||||
|
|
|
@ -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;
|
||||
|
|
|
@ -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.
|
||||
|
|
Loading…
Reference in New Issue