|
|
1.1 ! root 1: #ifndef lint ! 2: static char sccsid[] = "@(#)0.extr.c 4.1 (Berkeley) 2/11/83"; ! 3: #endif not lint ! 4: ! 5: #include <stdio.h> ! 6: #include "def.h" ! 7: struct lablist {long labelt; struct lablist *nxtlab; }; ! 8: struct lablist *endlab, *errlab, *reflab, *linelabs, *newlab; ! 9: ! 10: int nameline; /* line number of function/subroutine st., if any */ ! 11: int stflag; /* determines whether at beginning or middle of block of straight line code */ ! 12: ! 13: ! 14: ! 15: int nlabs, lswnum, swptr, flag, ! 16: counter, p1, p3, begline, endline, r1,r2, endcom; ! 17: long begchar, endchar, comchar; ! 18: ! 19: ! 20: char *pred, *inc, *prerw, *postrw, *exp, *stcode; ! 21: ! 22: #define maxdo 20 /* max nesting of do loops */ ! 23: long dostack[maxdo]; /* labels of do nodes */ ! 24: int doloc[maxdo]; /* loc of do node */ ! 25: int doptr; ! 26: ! 27: ! 28: struct list *FMTLST; /* list of FMTVX's generated */ ! 29: struct list *ENTLST; /* list of STLNVX nodes corresponding to entry statements */ ! 30: long rtnbeg; /* number of chars up to beginning of current routine */
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.