1
2
3
4
5
6 %;
7
8
9
10
11
12
13
14
15
16 create_array: proc returns(ptr) ;
17
18
19
20 dcl 1 pl1_nodes_template_$array_template external like array aligned;
21
22 dcl p ptr;
23 dcl null builtin;
24 dcl pl1_stat_$node_uses(32) fixed bin ext;
25
26 %include pl1_tree_areas;
27 %include nodes;
28 %include array;
29
30
31
32
33 pl1_stat_$node_uses(8) = pl1_stat_$node_uses(8) + 1;
34
35 allocate array in(tree_area) set(p);
36
37 p->array = pl1_nodes_template_$array_template;
38
39 return(p);
40
41 end create_array;