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 copy_temp: proc(pt) returns(ptr) ;
17 
18 dcl       (pt,p) ptr;
19 
20 %include pl1_tree_areas;
21 %include reference;
22 
23           allocate reference in (xeq_tree_area) set(p);
24           p -> reference = pt -> reference;
25 
26           p -> reference.shared,
27           p -> reference.aliasable,
28           p -> reference.defined_ref,
29           p -> reference.allocated,
30           p -> reference.hit_zero,
31           p -> reference.fo_in_qual,
32           p -> reference.hard_to_load,
33           string(p -> reference.info) = "0"b;
34 
35           p -> reference.temp_ref,
36           p -> reference.allocate = "1"b;
37 
38           p -> reference.ref_count = 1;
39 
40           return(p);
41           end;