1 /* ---------------- BEGIN include file ge_data_structures.incl.pl1 ---------------- */
 2 
 3 dcl  my_area area (261120) based (areap);
 4 
 5 dcl (max_frames, max_symbols, max_macros, cur_elements) fixed bin;
 6 
 7 dcl 1 symbols aligned based (sym_p),
 8     2 n_symbols initial (0) fixed bin,
 9     2 cur_max_symbols fixed bin,
10     2 symbol (max_symbols refer (cur_max_symbols)) aligned,
11       3 name char (32) varying,
12       3 node_value fixed bin (18);
13 
14 dcl 1 macros aligned based (mac_p),
15     2 n_macros initial (0) fixed bin,
16     2 cur_max_macros fixed bin,
17     2 macro (max_macros refer (cur_max_macros)) aligned like symbols.symbol;
18 
19 dcl  tuple_p pointer;
20 
21 dcl 1 tuple aligned based (tuple_p),
22     2 n_elements fixed bin,
23     2 element (cur_elements refer (n_elements)) aligned,
24       3 name char (32) varying,
25       3 type fixed bin,
26       3 lvalue fixed bin (18),
27       3 offset fixed bin,
28       3 rvalue fixed bin (18),
29       3 table_idx fixed bin;
30 
31 dcl 1 assembly_tuple aligned based (at_ptr),
32     2 element (4094) like tuple.element aligned;
33 
34 dcl 1 stack aligned based (stack_p),
35     2 level fixed bin,
36     2 cur_max_frames fixed bin,
37     2 tuple_ptr (max_frames refer (cur_max_frames)) pointer;
38 
39 /* ----------------- END include file ge_data_structures.incl.pl1 ----------------- */