Commit | Line | Data |
---|---|---|
c906108c SS |
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; |