1 /* BEGIN INCLUDE FILE ... machine_state.incl.pl1 */
 2 
 3 dcl       cg_static_$m_s_p ptr ext static,
 4           m_s_p ptr init(cg_static_$m_s_p);
 5 
 6 dcl       1 machine_state     aligned based(m_s_p),
 7           2 node_type         bit(9),
 8           2 indicators        fixed bin,
 9           2 next              ptr unal,
10           2 a_reg,
11             3 variable(10)    ptr unal,
12             3 number          fixed bin(17),
13             3 size            fixed bin(8),
14             3 length          fixed bin(8),
15             3 offset          fixed bin(8),
16             3 constant        fixed bin(24),
17             3 changed         fixed bin(18),
18             3 instruction     bit(36),
19             3 locked          bit(1) aligned,
20             3 number_h_o      fixed bin,
21             3 has_offset(3)   ptr unal,
22           2 q_reg,
23             3 variable(10)    ptr unal,
24             3 number          fixed bin(17),
25             3 size            fixed bin(8),
26             3 length          fixed bin(8),
27             3 offset          fixed bin(8),
28             3 constant        fixed bin(24),
29             3 changed         fixed bin(18),
30             3 instruction     bit(36),
31             3 locked          bit(1) aligned,
32             3 number_h_o      fixed bin,
33             3 has_offset(3)   ptr unal,
34           2 string_reg,
35             3 variable        ptr unal,
36             3 size            fixed bin(8),
37             3 offset          fixed bin(8),
38           2 complex_reg,
39             3 variable        ptr unal,
40             3 size            fixed bin(8),
41             3 scale           fixed bin(8),
42           2 decimal_reg,
43             3 variable        ptr unal,
44             3 size            fixed bin(8),
45             3 scale           fixed bin(8),
46           2 index_regs(0:7),
47             3 variable        ptr unal,
48             3 constant        fixed bin,
49             3 type            fixed bin(8),
50             3 used            fixed bin(18),
51             3 changed         fixed bin(18),
52             3 instruction     bit(36),
53             3 filler          fixed bin,
54           2 base_regs(0:7),
55             3 variable        ptr unal,
56             3 constant        fixed bin,
57             3 type            fixed bin(8),
58             3 pad (12)        fixed bin,          /* future...room to make 5 element array for variable, constant, type */
59             3 number          fixed bin (17),     /* future...number of valid elements in array */
60             3 used            fixed bin(18),
61             3 changed         fixed bin(18),
62             3 instruction     bit(36),
63             3 locked          fixed bin(2),
64           2 indicators_ref(2:3) ptr unal;
65 
66 /* Permissible values for machine_state.indicators. */
67 
68 dcl (     ind_known_refs      init (-2),                    /* set by comparison of known, nonzero, references */
69           ind_invalid         init (-1),
70           ind_string_aq       init (0),                     /* logical value in storage */
71           ind_logical         init (1),                     /* logical value in A or AQ */
72           ind_arithmetic      init (2),                     /* arith value in Q, AQ, or EAQ */
73           ind_x (0:7)         init (6, 7, 8, 9, 10, 11, 12, 13),
74           ind_decimal_reg     init (14)
75           ) fixed bin internal static options (constant);
76 
77 /* END INCLUDE FILE ... machine_state.incl.pl1 */