home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / cmd / f77 / init.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-01-10  |  4.3 KB  |  257 lines
  1. #include "defs"
  2.  
  3.  
  4. FILEP infile    = { stdin };
  5. FILEP diagfile    = { stderr };
  6.  
  7. FILEP textfile;
  8. FILEP asmfile;
  9. FILEP initfile;
  10. long int headoffset;
  11.  
  12. char token[200];
  13. int toklen;
  14. int lineno;
  15. char *infname;
  16. int needkwd;
  17. struct labelblock *thislabel    = NULL;
  18. flag nowarnflag    = NO;
  19. flag ftn66flag    = NO;
  20. flag profileflag    = NO;
  21. flag optimflag    = NO;
  22. flag shiftcase    = YES;
  23. flag undeftype    = NO;
  24. flag shortsubs    = YES;
  25. flag onetripflag    = NO;
  26. flag checksubs    = NO;
  27. flag debugflag    = NO;
  28. int nerr;
  29. int nwarn;
  30. int ndata;
  31.  
  32. flag saveall;
  33. flag substars;
  34. int parstate    = OUTSIDE;
  35. flag headerdone    = NO;
  36. int blklevel;
  37. int impltype[26];
  38. int implleng[26];
  39. int implstg[26];
  40.  
  41. int tyint    = TYLONG ;
  42. int tylogical    = TYLONG;
  43. ftnint typesize[NTYPES]
  44.     = { 1, SZADDR, SZSHORT, SZLONG, SZLONG, 2*SZLONG,
  45.         2*SZLONG, 4*SZLONG, SZLONG, 1, 1, 1};
  46. int typealign[NTYPES]
  47.     = { 1, ALIADDR, ALISHORT, ALILONG, ALILONG, ALIDOUBLE,
  48.         ALILONG, ALIDOUBLE, ALILONG, 1, 1, 1};
  49. int procno;
  50. int proctype    = TYUNKNOWN;
  51. char *procname;
  52. int rtvlabel[NTYPES];
  53. int fudgelabel;
  54. struct addrblock *typeaddr;
  55. struct addrblock *retslot;
  56. int cxslot    = -1;
  57. int chslot    = -1;
  58. int chlgslot    = -1;
  59. int procclass    = CLUNKNOWN;
  60. int nentry;
  61. flag multitype;
  62. ftnint procleng;
  63. int lastlabno    = 10;
  64. int lastvarno;
  65. int lastargslot;
  66. int argloc;
  67. ftnint autoleng;
  68. ftnint bssleng    = 0;
  69. int retlabel;
  70. int ret0label;
  71. struct ctlframe ctls[MAXCTL];
  72. struct ctlframe *ctlstack    = ctls-1;
  73. struct ctlframe *lastctl    = ctls+MAXCTL ;
  74.  
  75. struct nameblock *regnamep[MAXREGVAR];
  76. int highregvar;
  77. int nregvar;
  78.  
  79. struct extsym extsymtab[MAXEXT];
  80. struct extsym *nextext    = extsymtab;
  81. struct extsym *lastext    = extsymtab+MAXEXT;
  82.  
  83. struct equivblock eqvclass[MAXEQUIV];
  84. struct hashentry hashtab[MAXHASH];
  85. struct hashentry *lasthash    = hashtab+MAXHASH;
  86.  
  87. struct labelblock labeltab[MAXSTNO];
  88. struct labelblock *labtabend    = labeltab+MAXSTNO;
  89. struct labelblock *highlabtab =    labeltab;
  90. struct rplblock *rpllist    = NULL;
  91. chainp curdtp    = NULL;
  92. flag toomanyinit;
  93. ftnint curdtelt;
  94. chainp templist    = NULL;
  95. chainp holdtemps    = NULL;
  96. int dorange    = 0;
  97. struct entrypoint *entries    = NULL;
  98.  
  99. chainp chains    = NULL;
  100.  
  101. flag inioctl;
  102. struct addrblock *ioblkp;
  103. int iostmt;
  104. int nioctl;
  105. int nequiv    = 0;
  106. int nintnames    = 0;
  107. int nextnames    = 0;
  108.  
  109. struct literal litpool[MAXLITERALS];
  110. int nliterals;
  111.  
  112.  
  113.  
  114. fileinit()
  115. {
  116. procno = 0;
  117. lastlabno = 10;
  118. lastvarno = 0;
  119. nextext = extsymtab;
  120. nliterals = 0;
  121. nerr = 0;
  122. ndata = 0;
  123. }
  124.  
  125.  
  126.  
  127.  
  128.  
  129. procinit()
  130. {
  131. register struct nameblock *p;
  132. register struct dimblock *q;
  133. register struct hashentry *hp;
  134. register struct labelblock *lp;
  135. chainp cp;
  136. int i;
  137.  
  138. pruse(asmfile, USECONST);
  139. #if FAMILY == SCJ
  140.     p2pass(USETEXT);
  141. #endif
  142. parstate = OUTSIDE;
  143. headerdone = NO;
  144. blklevel = 1;
  145. saveall = NO;
  146. substars = NO;
  147. nwarn = 0;
  148. thislabel = NULL;
  149. needkwd = 0;
  150.  
  151. ++procno;
  152. proctype = TYUNKNOWN;
  153. procname = "MAIN_    ";
  154. procclass = CLUNKNOWN;
  155. nentry = 0;
  156. multitype = NO;
  157. typeaddr = NULL;
  158. retslot = NULL;
  159. cxslot = -1;
  160. chslot = -1;
  161. chlgslot = -1;
  162. procleng = 0;
  163. blklevel = 1;
  164. lastargslot = 0;
  165. #if TARGET==PDP11
  166.     autoleng = 6;
  167. #else
  168.     autoleng = 0;
  169. #endif
  170.  
  171. for(lp = labeltab ; lp < labtabend ; ++lp)
  172.     lp->stateno = 0;
  173.  
  174. for(hp = hashtab ; hp < lasthash ; ++hp)
  175.     if(p = hp->varp)
  176.         {
  177.         frexpr(p->vleng);
  178.         if(q = p->vdim)
  179.             {
  180.             for(i = 0 ; i < q->ndim ; ++i)
  181.                 {
  182.                 frexpr(q->dims[i].dimsize);
  183.                 frexpr(q->dims[i].dimexpr);
  184.                 }
  185.             frexpr(q->nelt);
  186.             frexpr(q->baseoffset);
  187.             frexpr(q->basexpr);
  188.             free(q);
  189.             }
  190.         free(p);
  191.         hp->varp = NULL;
  192.         }
  193. nintnames = 0;
  194. highlabtab = labeltab;
  195.  
  196. ctlstack = ctls - 1;
  197. for(cp = templist ; cp ; cp = cp->nextp)
  198.     free(cp->datap);
  199. frchain(&templist);
  200. holdtemps = NULL;
  201. dorange = 0;
  202. nregvar = 0;
  203. highregvar = 0;
  204. entries = NULL;
  205. rpllist = NULL;
  206. inioctl = NO;
  207. ioblkp = NULL;
  208. nequiv = 0;
  209.  
  210. for(i = 0 ; i<NTYPES ; ++i)
  211.     rtvlabel[i] = 0;
  212. fudgelabel = 0;
  213.  
  214. if(undeftype)
  215.     setimpl(TYUNKNOWN, (ftnint) 0, 'a', 'z');
  216. else
  217.     {
  218.     setimpl(TYREAL, (ftnint) 0, 'a', 'z');
  219.     setimpl(tyint,  (ftnint) 0, 'i', 'n');
  220.     }
  221. setimpl(-STGBSS, (ftnint) 0, 'a', 'z');    /* set class */
  222. setlog();
  223. }
  224.  
  225.  
  226.  
  227.  
  228. setimpl(type, length, c1, c2)
  229. int type;
  230. ftnint length;
  231. int c1, c2;
  232. {
  233. int i;
  234. char buff[100];
  235.  
  236. if(c1==0 || c2==0)
  237.     return;
  238.  
  239. if(c1 > c2)
  240.     err( sprintf(buff, "characters out of order in implicit:%c-%c", c1, c2) );
  241. else
  242.     if(type < 0)
  243.         for(i = c1 ; i<=c2 ; ++i)
  244.             implstg[i-'a'] = - type;
  245.     else
  246.         {
  247.         type = lengtype(type, (int) length);
  248.         if(type != TYCHAR)
  249.             length = 0;
  250.         for(i = c1 ; i<=c2 ; ++i)
  251.             {
  252.             impltype[i-'a'] = type;
  253.             implleng[i-'a'] = length;
  254.             }
  255.         }
  256. }
  257.