diff options
Diffstat (limited to 'gdb/testsuite/gdb.chill/pr-6632.ch')
-rw-r--r-- | gdb/testsuite/gdb.chill/pr-6632.ch | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/gdb/testsuite/gdb.chill/pr-6632.ch b/gdb/testsuite/gdb.chill/pr-6632.ch deleted file mode 100644 index b82c7ae1c88..00000000000 --- a/gdb/testsuite/gdb.chill/pr-6632.ch +++ /dev/null @@ -1,31 +0,0 @@ -markus: MODULE - -<> USE_SEIZE_FILE "pr-6632-grt.grt" <> -SEIZE m_dummy, m_dummy_range; - -DCL v m_dummy_range; - -NEWMODE is_str_descr = STRUCT (p PTR, - l INT, - flag STRUCT (x UBYTE, - y SET (aa, bb, cc, dd, ee, ff))); -DCL des is_str_descr; - -NEWMODE is_cb_debug = STRUCT (i INT, - channel m_dummy_range, - p PTR); -NEWMODE is_cb_debug_array = ARRAY (0:20) is_cb_debug; -DCL cb_debug is_cb_debug_array; -DCL cb_debug_index INT := 0; - -p: PROC (pp is_str_descr IN, x m_dummy_range IN) - DO WITH cb_debug(cb_debug_index); - channel := x; - OD; -END p; - -p (des, dummy_10); -WRITETEXT (stdout, "cb_debug(%C).channel := %C%/", - cb_debug_index, cb_debug(cb_debug_index).channel); - -END markus; |