1 /* ***********************************************************
 2    *                                                         *
 3    * Copyright, (C) Honeywell Information Systems Inc., 1982 *
 4    *                                                         *
 5    *********************************************************** */
 6 %;
 7 /* ******************************************************
 8    *                                                    *
 9    *                                                    *
10    * Copyright (c) 1972 by Massachusetts Institute of   *
11    * Technology and Honeywell Information Systems, Inc. *
12    *                                                    *
13    *                                                    *
14    ****************************************************** */
15 
16 create_bound: proc returns(ptr) ;
17 /*        Modified on:        April 1977 by RHS for new allocation methods */
18 
19 dcl       1 pl1_nodes_template_$bound_template external like bound aligned;
20 
21 dcl       p ptr,
22           null builtin;
23 dcl       pl1_stat_$node_uses(32) fixed bin ext;
24 
25 %include pl1_tree_areas;
26 %include nodes;
27 %include array;
28 
29                               /*   ^L   */
30 
31           pl1_stat_$node_uses(9) = pl1_stat_$node_uses(9) + 1;
32 
33           allocate bound in(tree_area) set(p);
34 
35           p->bound = pl1_nodes_template_$bound_template;
36 
37           return(p);
38 
39           end create_bound;