gdb/testsuite/gdb.chill/pr-6632.ch

   1 markus: MODULE
   2
   3 <> USE_SEIZE_FILE "pr-6632-grt.grt" <>
   4 SEIZE m_dummy, m_dummy_range;
   5
   6 DCL v m_dummy_range;
   7
   8 NEWMODE is_str_descr = STRUCT (p PTR,
   9                                l INT,
  10                                flag STRUCT (x UBYTE,
  11                                             y SET (aa, bb, cc, dd, ee, ff)));
  12 DCL des is_str_descr;
  13
  14 NEWMODE is_cb_debug = STRUCT (i INT,
  15                               channel m_dummy_range,
  16                               p PTR);
  17 NEWMODE is_cb_debug_array = ARRAY (0:20) is_cb_debug;
  18 DCL cb_debug is_cb_debug_array;
  19 DCL cb_debug_index INT := 0;
  20
  21 p: PROC (pp is_str_descr IN, x m_dummy_range IN)
  22   DO WITH cb_debug(cb_debug_index);
  23     channel := x;
  24   OD;
  25 END p;
  26
  27 p (des, dummy_10);
  28 WRITETEXT (stdout, "cb_debug(%C).channel := %C%/",
  29            cb_debug_index, cb_debug(cb_debug_index).channel);
  30
  31 END markus;