espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-06-25 21:41:47 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
* chillvars.exp (test_ptr):  New function to test EXPR->MODENAME.
This is to test PR chill/6932.
This commit is contained in:
Per Bothner
1995-06-08 00:52:06 +00:00
parent 3029162cdf
commit 7e965616ff
3 changed files with 14 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
gdb/testsuite/gdb.chill/ChangeLog
View File

@ -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> 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. * pr-6632.ch, pr-6632-grt.ch, pr-6632.exp, Makefile.in: New test case.

2
gdb/testsuite/gdb.chill/chillvars.ch
View File

@ -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' 'a','a','a','a','a','a','a','a','a','a','a','a','a','a','a','a'
]; ];
DCL xptr PTR INIT := ->int_high;
booleans: PROC (); booleans: PROC ();
DCL val1 BOOL := TRUE; DCL val1 BOOL := TRUE;

7
gdb/testsuite/gdb.chill/chillvars.exp
View File

@ -61,6 +61,8 @@ proc do_tests {} {
test_arrays test_arrays
test_strings test_strings
test_structs test_structs
test_ptr
} }
proc test_BOOL {} { proc test_BOOL {} {
@ -284,6 +286,11 @@ proc test_structs {} {
".* = \\\[.abool: TRUE, \.nstruct: \\\[\.abool: FALSE, \.aint: 456, \.astring: \"deadbeef\"\\\], \.aint: 789\\\]" ".* = \\\[.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 # 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. # 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. # In either case, just notify the user and skip the tests in this file.