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_integer:    proc(cur_block) returns(ptr);
17 
18 declare   (cur_block,s) pointer;
19 declare   null builtin;
20 %include language_utility;
21 %include boundary;
22 %include declare_type;
23 %include symbol;
24 %include system;
25 
26 
27           s = create_symbol(cur_block,(null),by_compiler);
28 
29           substr (string (s -> symbol.attributes), 1, 36) = integer_type;
30 
31           s->symbol.auto  ,
32           s->symbol.allocate = "1"b;
33 
34           s->symbol.boundary=word_;
35           s->symbol.c_word_size=1;
36           s->symbol.c_bit_size=bits_per_word;
37           s->symbol.c_dcl_size=default_fix_bin_p;
38 
39           return(s->symbol.reference);
40 
41           end declare_integer;