Commit | Line | Data |
---|---|---|
2a70a0a1 BB |
1 | #include <stdio.h> |
2 | #include "1.defs.h" | |
3 | #include "1.incl.h" | |
4 | #include "def.h" | |
5 | ||
6 | ||
7 | prog_init() | |
8 | { | |
9 | endline = endcom = 0; endchar = -1; | |
10 | comchar = -1; | |
11 | graph = challoc(sizeof(*graph) * maxnode); | |
12 | } | |
13 | ||
14 | routinit() | |
15 | { | |
16 | graf_init(); | |
17 | progtype = !sub; | |
18 | routbeg = endline + 1; | |
19 | rtnbeg = endchar + 1; | |
20 | nameline = 0; | |
21 | stflag = UNDEFINED; | |
22 | } | |
23 | line_init() | |
24 | { | |
25 | struct lablist *makelab(); | |
26 | freelabs(); | |
27 | newlab = linelabs = makelab(0L); | |
28 | flag = counter = nlabs = lswnum = swptr = p1 = 0; | |
29 | p3 = 5; | |
30 | endcom = endline; | |
31 | comchar = endchar; | |
32 | begline = endline + 1; begchar = endchar + 1; | |
33 | reflab = endlab = errlab = 0; | |
34 | r1 = r2 = 0; | |
35 | } | |
36 | graf_init() | |
37 | { | |
38 | int arctype[3]; long arclab[3]; | |
39 | nodenum = 0; | |
40 | doptr = UNDEFINED; | |
41 | retvert = stopvert = UNDEFINED; | |
42 | ENTLST = FMTLST = 0; | |
43 | ||
44 | ||
45 | arctype[0] = -2; arclab[0] = implicit; | |
46 | START = makenode(DUMVX,FALSE,FALSE,implicit,1,arctype,arclab); | |
47 | } | |
48 |