projects / deliverable / binutils-gdb.git / blame
| Commit | Line | Data |
|---|---|---|
| c906108c SS |
1 | xx: MODULE |
| 2 | ||
| 3 | DCL v_bool BOOL INIT := FALSE; | |
| 4 | DCL v_char CHAR INIT := 'X'; | |
| 5 | DCL v_byte BYTE INIT := -30; | |
| 6 | DCL v_ubyte UBYTE INIT := 30; | |
| 7 | DCL v_int INT INIT := -333; | |
| 8 | DCL v_uint UINT INIT := 333; | |
| 9 | DCL v_long LONG INIT := -4444; | |
| 10 | DCL v_ulong ULONG INIT := 4444; | |
| 11 | DCL v_ptr PTR; | |
| 12 | ||
| 13 | SYNMODE m_set = SET (e1, e2, e3, e4, e5, e6); | |
| 14 | DCL v_set m_set INIT := e3; | |
| 15 | ||
| 16 | SYNMODE m_set_range = m_set(e2:e5); | |
| 17 | DCL v_set_range m_set_range INIT := e3; | |
| 18 | ||
| 19 | SYNMODE m_numbered_set = SET (n1 = 25, n2 = 22, n3 = 35, n4 = 33, | |
| 20 | n5 = 45, n6 = 43); | |
| 21 | DCL v_numbered_set m_numbered_set INIT := n3; | |
| 22 | ||
| 23 | SYNMODE m_char_range = CHAR('A':'Z'); | |
| 24 | DCL v_char_range m_char_range INIT := 'G'; | |
| 25 | ||
| 26 | SYNMODE m_bool_range = BOOL(FALSE:FALSE); | |
| 27 | DCL v_bool_range m_bool_range; | |
| 28 | ||
| 29 | SYNMODE m_long_range = LONG(255:3211); | |
| 30 | DCL v_long_range m_long_range INIT := 1000; | |
| 31 | ||
| 32 | SYNMODE m_range = RANGE(12:28); | |
| 33 | DCL v_range m_range INIT := 23; | |
| 34 | ||
| 35 | SYNMODE m_chars = CHARS(20); | |
| 36 | SYNMODE m_chars_v = CHARS(20) VARYING; | |
| 37 | DCL v_chars CHARS(20); | |
| 38 | DCL v_chars_v CHARS(20) VARYING INIT := "foo bar"; | |
| 39 | ||
| 40 | SYNMODE m_bits = BOOLS(10); | |
| 41 | DCL v_bits BOOLS(10); | |
| 42 | ||
| 43 | SYNMODE m_arr = ARRAY(1:10) BYTE; | |
| 44 | DCL v_arr ARRAY(1:10) BYTE; | |
| 45 | ||
| 46 | SYNMODE m_char_arr = ARRAY (CHAR) BYTE; | |
| 47 | DCL v_char_arr ARRAY(CHAR) BYTE; | |
| 48 | ||
| 49 | SYNMODE m_bool_arr = ARRAY (BOOL) BYTE; | |
| 50 | DCL v_bool_arr ARRAY (BOOL) BYTE; | |
| 51 | ||
| 52 | SYNMODE m_int_arr = ARRAY (INT) BYTE; | |
| 53 | DCL v_int_arr ARRAY (INT) BYTE; | |
| 54 | ||
| 55 | SYNMODE m_set_arr = ARRAY (m_set) BYTE; | |
| 56 | DCL v_set_arr ARRAY (m_set) BYTE; | |
| 57 | ||
| 58 | SYNMODE m_numbered_set_arr = ARRAY (m_numbered_set) BYTE; | |
| 59 | DCL v_numbered_set_arr ARRAY (m_numbered_set) BYTE; | |
| 60 | ||
| 61 | SYNMODE m_char_range_arr = ARRAY (m_char_range) BYTE; | |
| 62 | DCL v_char_range_arr ARRAY (m_char_range) BYTE; | |
| 63 | ||
| 64 | SYNMODE m_set_range_arr = ARRAY (m_set_range) BYTE; | |
| 65 | DCL v_set_range_arr ARRAY (m_set_range) BYTE; | |
| 66 | ||
| 67 | SYNMODE m_bool_range_arr = ARRAY (m_bool_range) BYTE; | |
| 68 | DCL v_bool_range_arr ARRAY (m_bool_range) BYTE; | |
| 69 | ||
| 70 | SYNMODE m_long_range_arr = ARRAY (m_long_range) BYTE; | |
| 71 | DCL v_long_range_arr ARRAY (m_long_range) BYTE; | |
| 72 | ||
| 73 | SYNMODE m_range_arr = ARRAY (m_range) BYTE; | |
| 74 | DCL v_range_arr ARRAY (m_range) BYTE; | |
| 75 | ||
| 76 | SYNMODE m_struct = STRUCT (i LONG, | |
| 77 | c CHAR, | |
| 78 | s CHARS(30)); | |
| 79 | DCL v_struct m_struct; | |
| 80 | ||
| 81 | v_bool := TRUE; | |
| 82 | ||
| 83 | END xx; |