Subversion Repositories or1k

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;