# 2.11BSD#431 - /usr/src/usr.bin/f77/init.c

##### Functions

    fileinit          X
    procinit          X
    setimpl           X

##### Variables

    argloc            X
    autoleng          X
    blklevel          X
    bssleng           X
    chains            X
    checksubs         X
    chlgslot          X
    chslot            X
    ctls              X
    ctlstack          X
    curdtelt          X
    curdtp            X
    cxslot            X
    debugflag         X
    dorange           X
    entries           X
    eqvclass          X
    extsymtab         X
    ftn66flag         X
    fudgelabel        X
    hashtab           X
    headerdone        X
    headoffset        X
    highlabtab        X
    highregvar        X
    holdtemps         X
    implleng          X
    implstg           X
    impltype          X
    infname           X
    inioctl           X
    ioblkp            X
    iostmt            X
    labeltab          X
    labtabend         X
    lastargslot       X
    lastctl           X
    lastext           X
    lasthash          X
    lastlabno         X
    lastvarno         X
    lineno            X
    litpool           X
    multitype         X
    ndata             X
    needkwd           X
    nentry            X
    nequiv            X
    nerr              X
    nextext           X
    nextnames         X
    nintnames         X
    nioctl            X
    nliterals         X
    nowarnflag        X
    nregvar           X
    nwarn             X
    onetripflag       X
    optimflag         X
    parstate          X
    procclass         X
    procleng          X
    procname          X
    procno            X
    proctype          X
    profileflag       X
    regnamep          X
    ret0label         X
    retlabel          X
    retslot           X
    rpllist           X
    rtvlabel          X
    saveall           X
    shiftcase         X
    shortsubs         X
    substars          X
    templist          X
    thislabel         X
    token             X
    toklen            X
    toomanyinit       X
    tyint             X
    tylogical         X
    typeaddr          X
    typealign         X
    typesize          X
    undeftype         X

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

#### Defined functions

fileinit defined in line 115; used 1 times

- in /usr/src/usr.bin/f77/main.c line 105

procinit defined in line 130; used 2 times

- in /usr/src/usr.bin/f77/main.c line 106
- in /usr/src/usr.bin/f77/proc.c line 43

setimpl defined in line 229; used 6 times

- in line 216-222(4)
- in /usr/src/usr.bin/f77/gram.dcl line 291-293(2)

#### Defined variables

argloc defined in line 67; used 3 times

- in /usr/src/usr.bin/f77/pdp11.c line 349-352(2), 486

autoleng defined in line 68; used 13 times

- in line 167-169(2)
- in /usr/src/usr.bin/f77/init.c line 167-169(2)
- in /usr/src/usr.bin/f77/pdp11.c line 345, 449-453(2)
- in /usr/src/usr.bin/f77/proc.c line 564(2), 575-579(4)

blklevel defined in line 37; used 18 times

- in line 145, 164
- in /usr/src/usr.bin/f77/exec.c line 84, 92, 105-111(6)
- in /usr/src/usr.bin/f77/gram.head line 88-92(5)
- in /usr/src/usr.bin/f77/init.c line 145, 164
- in /usr/src/usr.bin/f77/misc.c line 310

bssleng defined in line 69; used 7 times

- in /usr/src/usr.bin/f77/proc.c line 408-414(4), 431-434(3)

chains defined in line 100; used 6 times

- in /usr/src/usr.bin/f77/misc.c line 109-112(4), 403-404(2)

checksubs defined in line 27; used 4 times

- in /usr/src/usr.bin/f77/expr.c line 661, 1041-1046(2)
- in /usr/src/usr.bin/f77/main.c line 66

chlgslot defined in line 59; used 5 times

- in line 162
- in /usr/src/usr.bin/f77/init.c line 162
- in /usr/src/usr.bin/f77/pdp11.c line 356
- in /usr/src/usr.bin/f77/proc.c line 329-334(2)

chslot defined in line 58; used 6 times

- in line 161
- in /usr/src/usr.bin/f77/init.c line 161
- in /usr/src/usr.bin/f77/pdp11.c line 355
- in /usr/src/usr.bin/f77/proc.c line 326-332(3)

ctls defined in line 72; used 9 times

- in line 73-74(2), 197
- in /usr/src/usr.bin/f77/exec.c line 90, 460
- in /usr/src/usr.bin/f77/init.c line 73-74(2), 197
- in /usr/src/usr.bin/f77/proc.c line 28

ctlstack defined in line 73; used 85 times

- in line 197
- in /usr/src/usr.bin/f77/exec.c line 12-13(2), 21-28(7), 40-46(6), 55-64(6), 79-83(3), 90, 278-284(3), 294, 336-359(13), 367-413(22), 432-454(17), 460
- in /usr/src/usr.bin/f77/init.c line 197
- in /usr/src/usr.bin/f77/proc.c line 28

curdtelt defined in line 94; never used
curdtp defined in line 92; never used
cxslot defined in line 57; used 6 times

- in line 160
- in /usr/src/usr.bin/f77/init.c line 160
- in /usr/src/usr.bin/f77/pdp11.c line 361
- in /usr/src/usr.bin/f77/proc.c line 339-341(3)

debugflag defined in line 28; used 3 times

- in /usr/src/usr.bin/f77/error.c line 52, 108
- in /usr/src/usr.bin/f77/main.c line 58

dorange defined in line 97; used 7 times

- in line 202
- in /usr/src/usr.bin/f77/exec.c line 278, 430, 459-463(2)
- in /usr/src/usr.bin/f77/gram.head line 59
- in /usr/src/usr.bin/f77/init.c line 202

entries defined in line 98; used 9 times

- in line 205
- in /usr/src/usr.bin/f77/expr.c line 750
- in /usr/src/usr.bin/f77/init.c line 205
- in /usr/src/usr.bin/f77/pdp11.c line 465
- in /usr/src/usr.bin/f77/proc.c line 58, 81, 147(2), 271

eqvclass defined in line 84; used 8 times

- in /usr/src/usr.bin/f77/equiv.c line 25, 117, 179-180(2), 212-213(2)
- in /usr/src/usr.bin/f77/proc.c line 429(2)

extsymtab defined in line 80; used 18 times

- in line 81-82(2), 120
- in /usr/src/usr.bin/f77/equiv.c line 153-159(3)
- in /usr/src/usr.bin/f77/expr.c line 707, 1133
- in /usr/src/usr.bin/f77/init.c line 81-82(2), 120
- in /usr/src/usr.bin/f77/misc.c line 342, 387
- in /usr/src/usr.bin/f77/pdp11.c line 237
- in /usr/src/usr.bin/f77/proc.c line 445, 481, 496, 520

ftn66flag defined in line 20; used 3 times

- in /usr/src/usr.bin/f77/equiv.c line 38
- in /usr/src/usr.bin/f77/expr.c line 713
- in /usr/src/usr.bin/f77/main.c line 27

fudgelabel defined in line 54; used 5 times

- in line 213
- in /usr/src/usr.bin/f77/init.c line 213
- in /usr/src/usr.bin/f77/proc.c line 267-268(2)
- in /usr/src/usr.bin/f77/putdmr.c line 42

hashtab defined in line 85; used 8 times

- in line 86, 175
- in /usr/src/usr.bin/f77/init.c line 86, 175
- in /usr/src/usr.bin/f77/misc.c line 275-280(2)
- in /usr/src/usr.bin/f77/pdp11.c line 481
- in /usr/src/usr.bin/f77/proc.c line 399

headerdone defined in line 36; used 5 times

- in line 144
- in /usr/src/usr.bin/f77/gram.head line 82
- in /usr/src/usr.bin/f77/init.c line 144
- in /usr/src/usr.bin/f77/putdmr.c line 20, 38

headoffset defined in line 11; never used
highlabtab defined in line 90; used 5 times

- in line 195
- in /usr/src/usr.bin/f77/exec.c line 101
- in /usr/src/usr.bin/f77/init.c line 195
- in /usr/src/usr.bin/f77/misc.c line 301-305(2)

highregvar defined in line 77; used 6 times

- in line 204
- in /usr/src/usr.bin/f77/expr.c line 989-990(2)
- in /usr/src/usr.bin/f77/init.c line 204
- in /usr/src/usr.bin/f77/pdp11.c line 448-453(2)

holdtemps defined in line 96; used 6 times

- in line 201
- in /usr/src/usr.bin/f77/init.c line 201
- in /usr/src/usr.bin/f77/proc.c line 541(2)
- in /usr/src/usr.bin/f77/put.c line 63-64(2)

implleng defined in line 39; used 3 times

- in line 254
- in /usr/src/usr.bin/f77/expr.c line 1282
- in /usr/src/usr.bin/f77/init.c line 254

implstg defined in line 40; used 3 times

- in line 245
- in /usr/src/usr.bin/f77/expr.c line 1240
- in /usr/src/usr.bin/f77/init.c line 245

impltype defined in line 38; used 3 times

- in line 253
- in /usr/src/usr.bin/f77/expr.c line 1281
- in /usr/src/usr.bin/f77/init.c line 253

infname defined in line 16; used 12 times

- in /usr/src/usr.bin/f77/error.c line 31, 39, 49, 57, 89, 97, 107, 113
- in /usr/src/usr.bin/f77/gram.head line 6
- in /usr/src/usr.bin/f77/lex.c line 126, 147, 157

inioctl defined in line 102; used 6 times

- in line 207
- in /usr/src/usr.bin/f77/gram.head line 73
- in /usr/src/usr.bin/f77/init.c line 207
- in /usr/src/usr.bin/f77/io.c line 221, 244
- in /usr/src/usr.bin/f77/lex.c line 712

ioblkp defined in line 103; used 10 times

- in line 208
- in /usr/src/usr.bin/f77/init.c line 208
- in /usr/src/usr.bin/f77/io.c line 245-246(2), 673, 707, 719, 753, 766, 780

iostmt defined in line 104; used 8 times

- in /usr/src/usr.bin/f77/io.c line 112(2), 322, 347, 362, 398, 473, 668

labeltab defined in line 88; used 11 times

- in line 89-90(2), 172, 195
- in /usr/src/usr.bin/f77/exec.c line 101
- in /usr/src/usr.bin/f77/init.c line 89-90(2), 172, 195
- in /usr/src/usr.bin/f77/misc.c line 301
- in /usr/src/usr.bin/f77/proc.c line 30

labtabend defined in line 89; used 4 times

- in line 172
- in /usr/src/usr.bin/f77/init.c line 172
- in /usr/src/usr.bin/f77/misc.c line 305
- in /usr/src/usr.bin/f77/proc.c line 30

lastargslot defined in line 66; used 7 times

- in line 165
- in /usr/src/usr.bin/f77/init.c line 165
- in /usr/src/usr.bin/f77/proc.c line 256-259(3), 380-381(2)

lastctl defined in line 74; used 1 times

- in /usr/src/usr.bin/f77/exec.c line 79

lastext defined in line 82; used 1 times

- in /usr/src/usr.bin/f77/misc.c line 346

lasthash defined in line 86; used 5 times

- in line 175
- in /usr/src/usr.bin/f77/init.c line 175
- in /usr/src/usr.bin/f77/misc.c line 279
- in /usr/src/usr.bin/f77/pdp11.c line 481
- in /usr/src/usr.bin/f77/proc.c line 399

lastlabno defined in line 64; used 3 times

- in line 118
- in /usr/src/usr.bin/f77/init.c line 118
- in /usr/src/usr.bin/f77/misc.c line 321

lastvarno defined in line 65; used 3 times

- in line 119
- in /usr/src/usr.bin/f77/expr.c line 1245
- in /usr/src/usr.bin/f77/init.c line 119

lineno defined in line 15; used 17 times

- in /usr/src/usr.bin/f77/error.c line 31, 39, 49, 57, 89, 97, 107, 113
- in /usr/src/usr.bin/f77/expr.c line 1102
- in /usr/src/usr.bin/f77/gram.head line 6
- in /usr/src/usr.bin/f77/lex.c line 243, 265, 357
- in /usr/src/usr.bin/f77/putdmr.c line 69, 92, 157, 179

litpool defined in line 110; used 2 times

- in /usr/src/usr.bin/f77/put.c line 174-175(2)

multitype defined in line 62; used 4 times

- in line 157
- in /usr/src/usr.bin/f77/init.c line 157
- in /usr/src/usr.bin/f77/proc.c line 186, 319

ndata defined in line 31; used 2 times

- in line 123
- in /usr/src/usr.bin/f77/init.c line 123

needkwd defined in line 17; used 5 times

- in line 150
- in /usr/src/usr.bin/f77/gram.head line 73
- in /usr/src/usr.bin/f77/init.c line 150
- in /usr/src/usr.bin/f77/lex.c line 660-662(2)

nentry defined in line 61; used 7 times

- in line 156
- in /usr/src/usr.bin/f77/init.c line 156
- in /usr/src/usr.bin/f77/proc.c line 258, 294, 345, 364-367(2)

nequiv defined in line 106; used 5 times

- in line 209
- in /usr/src/usr.bin/f77/equiv.c line 23, 115
- in /usr/src/usr.bin/f77/init.c line 209
- in /usr/src/usr.bin/f77/proc.c line 428

nerr defined in line 29; used 8 times

- in line 122
- in /usr/src/usr.bin/f77/error.c line 40, 59, 98, 115
- in /usr/src/usr.bin/f77/gram.head line 6
- in /usr/src/usr.bin/f77/init.c line 122
- in /usr/src/usr.bin/f77/main.c line 112

nextext defined in line 81; used 15 times

- in line 120
- in /usr/src/usr.bin/f77/init.c line 120
- in /usr/src/usr.bin/f77/misc.c line 342-356(10)
- in /usr/src/usr.bin/f77/proc.c line 445, 481, 520

nextnames defined in line 108; never used
nintnames defined in line 107; used 3 times

- in line 194
- in /usr/src/usr.bin/f77/init.c line 194
- in /usr/src/usr.bin/f77/misc.c line 282

nioctl defined in line 105; used 4 times

- in /usr/src/usr.bin/f77/io.c line 222, 382-392(3)

nliterals defined in line 111; used 5 times

- in line 121
- in /usr/src/usr.bin/f77/init.c line 121
- in /usr/src/usr.bin/f77/put.c line 174, 200-202(2)

nowarnflag defined in line 19; used 3 times

- in /usr/src/usr.bin/f77/error.c line 29, 87
- in /usr/src/usr.bin/f77/main.c line 31

nregvar defined in line 78; used 11 times

- in line 203
- in /usr/src/usr.bin/f77/expr.c line 937-939(3), 969, 983-990(4)
- in /usr/src/usr.bin/f77/init.c line 203
- in /usr/src/usr.bin/f77/putdmr.c line 52

nwarn defined in line 30; used 4 times

- in line 148
- in /usr/src/usr.bin/f77/error.c line 32, 90
- in /usr/src/usr.bin/f77/init.c line 148

onetripflag defined in line 26; used 6 times

- in /usr/src/usr.bin/f77/exec.c line 362, 376, 392-396(2), 402
- in /usr/src/usr.bin/f77/main.c line 70

optimflag defined in line 22; used 1 times

- in /usr/src/usr.bin/f77/main.c line 43

parstate defined in line 35; used 11 times

- in line 143
- in /usr/src/usr.bin/f77/exec.c line 144, 151
- in /usr/src/usr.bin/f77/gram.head line 113
- in /usr/src/usr.bin/f77/init.c line 143
- in /usr/src/usr.bin/f77/main.c line 114
- in /usr/src/usr.bin/f77/proc.c line 8, 14, 26, 54, 164

procclass defined in line 60; used 17 times

- in line 155
- in /usr/src/usr.bin/f77/exec.c line 529-531(2)
- in /usr/src/usr.bin/f77/gram.head line 83, 113-114(2)
- in /usr/src/usr.bin/f77/init.c line 155
- in /usr/src/usr.bin/f77/pdp11.c line 312, 322, 467
- in /usr/src/usr.bin/f77/proc.c line 15, 83, 137, 174, 202, 295-300(2)

procleng defined in line 63; used 6 times

- in line 163
- in /usr/src/usr.bin/f77/init.c line 163
- in /usr/src/usr.bin/f77/proc.c line 139, 307, 313, 333

procname defined in line 52; used 5 times

- in line 154
- in /usr/src/usr.bin/f77/expr.c line 1102
- in /usr/src/usr.bin/f77/init.c line 154
- in /usr/src/usr.bin/f77/proc.c line 87, 127

procno defined in line 50; used 8 times

- in line 117, 152
- in /usr/src/usr.bin/f77/init.c line 117, 152
- in /usr/src/usr.bin/f77/pdp11.c line 337, 448-452(2)
- in /usr/src/usr.bin/f77/proc.c line 275

proctype defined in line 51; used 14 times

- in line 153
- in /usr/src/usr.bin/f77/exec.c line 531, 543
- in /usr/src/usr.bin/f77/init.c line 153
- in /usr/src/usr.bin/f77/pdp11.c line 353, 359
- in /usr/src/usr.bin/f77/proc.c line 138, 156, 176, 198, 305-309(3), 318

profileflag defined in line 21; used 4 times

- in /usr/src/usr.bin/f77/main.c line 62
- in /usr/src/usr.bin/f77/pdp11.c line 324-329(2), 341

regnamep defined in line 76; used 3 times

- in /usr/src/usr.bin/f77/expr.c line 937, 970, 988

ret0label defined in line 71; used 3 times

- in /usr/src/usr.bin/f77/exec.c line 543
- in /usr/src/usr.bin/f77/proc.c line 143, 178

retlabel defined in line 70; used 7 times

- in /usr/src/usr.bin/f77/exec.c line 540-543(2)
- in /usr/src/usr.bin/f77/proc.c line 84, 141, 181-185(2), 204

retslot defined in line 56; used 6 times

- in line 159
- in /usr/src/usr.bin/f77/init.c line 159
- in /usr/src/usr.bin/f77/proc.c line 229, 236, 346-348(2)

rpllist defined in line 91; used 15 times

- in line 206
- in /usr/src/usr.bin/f77/expr.c line 832(2), 838-843(6), 870
- in /usr/src/usr.bin/f77/init.c line 206
- in /usr/src/usr.bin/f77/misc.c line 483-487(4)

rtvlabel defined in line 53; used 7 times

- in line 212
- in /usr/src/usr.bin/f77/init.c line 212
- in /usr/src/usr.bin/f77/proc.c line 191-193(2), 320-322(3)

saveall defined in line 33; used 2 times

- in line 146
- in /usr/src/usr.bin/f77/init.c line 146

shiftcase defined in line 23; used 2 times

- in /usr/src/usr.bin/f77/lex.c line 477
- in /usr/src/usr.bin/f77/main.c line 35

shortsubs defined in line 25; used 3 times

- in /usr/src/usr.bin/f77/main.c line 78-82(2)
- in /usr/src/usr.bin/f77/putdmr.c line 1289

substars defined in line 34; used 4 times

- in line 147
- in /usr/src/usr.bin/f77/gram.head line 153
- in /usr/src/usr.bin/f77/init.c line 147
- in /usr/src/usr.bin/f77/proc.c line 179

templist defined in line 95; used 7 times

- in line 198-200(2)
- in /usr/src/usr.bin/f77/init.c line 198-200(2)
- in /usr/src/usr.bin/f77/proc.c line 605
- in /usr/src/usr.bin/f77/put.c line 63(2)

thislabel defined in line 18; used 21 times

- in line 149
- in /usr/src/usr.bin/f77/gram.head line 55-70(7), 81-98(12)
- in /usr/src/usr.bin/f77/init.c line 149

token defined in line 13; used 16 times

- in /usr/src/usr.bin/f77/gram.head line 129, 161
- in /usr/src/usr.bin/f77/io.c line 364, 371
- in /usr/src/usr.bin/f77/lex.c line 607-611(2), 704, 710, 717, 725-731(3), 745, 752, 793-797(2)

toklen defined in line 14; used 16 times

- in /usr/src/usr.bin/f77/gram.head line 129, 161-162(2)
- in /usr/src/usr.bin/f77/io.c line 364(2), 371
- in /usr/src/usr.bin/f77/lex.c line 192, 611, 710, 717-729(5), 752, 797

toomanyinit defined in line 93; never used
tyint defined in line 42; used 18 times

- in line 220
- in /usr/src/usr.bin/f77/expr.c line 628, 1774, 2152
- in /usr/src/usr.bin/f77/init.c line 220
- in /usr/src/usr.bin/f77/intr.c line 395, 425, 457, 496, 567
- in /usr/src/usr.bin/f77/main.c line 75-79(2), 85
- in /usr/src/usr.bin/f77/proc.c line 743, 854, 882
- in /usr/src/usr.bin/f77/putdmr.c line 618, 1065

tylogical defined in line 43; used 8 times

- in /usr/src/usr.bin/f77/main.c line 85
- in /usr/src/usr.bin/f77/proc.c line 225
- in /usr/src/usr.bin/f77/put.c line 55, 168
- in /usr/src/usr.bin/f77/putdmr.c line 207, 454-458(2), 1045

typeaddr defined in line 55; used 6 times

- in line 158
- in /usr/src/usr.bin/f77/init.c line 158
- in /usr/src/usr.bin/f77/pdp11.c line 397-398(2)
- in /usr/src/usr.bin/f77/proc.c line 188-189(2)

typealign defined in line 47; used 6 times

- in /usr/src/usr.bin/f77/equiv.c line 124
- in /usr/src/usr.bin/f77/proc.c line 407, 490-493(2), 564
- in /usr/src/usr.bin/f77/put.c line 227

typesize defined in line 44; used 12 times

- in /usr/src/usr.bin/f77/expr.c line 452-454(4), 665, 1050
- in /usr/src/usr.bin/f77/io.c line 516
- in /usr/src/usr.bin/f77/proc.c line 381, 457, 499, 563
- in /usr/src/usr.bin/f77/put.c line 125

undeftype defined in line 24; used 3 times

- in line 215
- in /usr/src/usr.bin/f77/init.c line 215
- in /usr/src/usr.bin/f77/main.c line 39

Last modified: 1988-06-13 Generated: 2016-12-26 | Generated by src2html V0.67 page hit count: 1798 |