Commit | Line | Data |
---|---|---|
42d6e430 BJ |
1 | #define maxlsw 10 /* max number of switches and labels per statement */ |
2 | #define implicit 0L /* "label" of following line so all flow can be treated as jump to label */ | |
3 | struct lablist {long labelt; struct lablist *nxtlab; }; | |
4 | extern struct lablist *endlab, *errlab, *reflab, *linelabs, *newlab; | |
5 | extern long label(); | |
6 | ||
7 | extern int routbeg; /* line number of first line of routine */ | |
8 | extern int nameline; /* line number of function/subroutine st., if any */ | |
9 | extern int stflag; /* determines whether at beginning or middle of block of straight line code */ | |
10 | ||
11 | ||
12 | ||
13 | extern char buffer[]; | |
14 | extern int endbuf; | |
15 | ||
16 | extern int nlabs, lswnum, swptr, flag, | |
17 | counter, p1, p3, begline, endline, r1,r2, endcom; | |
18 | extern long begchar, endchar, comchar; | |
19 | ||
20 | ||
21 | /* statement types not associated with actual node types */ | |
22 | #define contst -1 | |
23 | #define ungo -2 | |
24 | #define arithif -3 | |
25 | #define readst -8 | |
26 | #define writest -9 | |
27 | #define entry -10 | |
28 | ||
29 | ||
30 | extern char *pred, *inc, *prerw, *postrw, *exp, *stcode; | |
31 | ||
32 | #define maxdo 20 /* max nesting of do loops */ | |
33 | extern long dostack[maxdo]; /* labels of do nodes */ | |
34 | extern int doloc[maxdo]; /* loc of do node */ | |
35 | extern int doptr; | |
36 | ||
37 | ||
38 | extern struct list *FMTLST; /* list of FMTVX's generated */ | |
39 | extern struct list *ENTLST; /* list of STLNVX nodes corresponding to entry statements */ |