1
2
3
4
5
6 %;
7
8
9
10
11
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;