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 declare_pointer:    proc(cur_block) returns(ptr);
17 
18 dcl       (cur_block,s) ptr;
19 dcl       null builtin;
20 
21 %include language_utility;
22 %include boundary;
23 %include declare_type;
24 %include symbol;
25 %include system;
26 
27 
28           s=create_symbol(cur_block,(null),by_compiler);
29 
30           s->symbol.ptr  ,
31           s->symbol.auto  ,
32           s->symbol.allocate = "1"b;
33 
34           s->symbol.boundary=mod2_;
35           s->symbol.c_word_size=2;
36           s->symbol.c_bit_size=bits_per_word+bits_per_word;
37 
38           return(s->symbol.reference);
39 
40           end declare_pointer;