1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
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;
|
