![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to symt.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 42BSD / old / sdb|
Return to symt.c CVS log | Up to [CSRG BSD Unix] / 42BSD / old / sdb |
1.1 ! root 1: static char sccsid[] = "@(#)symt.c 4.3 8/17/82"; ! 2: #include "head.h" ! 3: #include <a.out.h> ! 4: #include <stab.h> ! 5: ! 6: #ifndef STABTYPES ! 7: #define STABTYPES N_STAB ! 8: #endif ! 9: #include <sys/stat.h> ! 10: ! 11: struct user u; ! 12: int compar(); ! 13: char *symfil; ! 14: ! 15: #ifdef FLEXNAMES ! 16: ! 17: struct nlist *symtab; ! 18: char nullname[] = {0,0,0,0,0,0,0,0,0}; /* a few 0 bytes */ ! 19: off_t stoff; ! 20: ! 21: stread(buff, nbytes) ! 22: struct nlist *buff; ! 23: int nbytes; ! 24: { ! 25: register int from = stoff; ! 26: ! 27: stoff += nbytes; ! 28: if (stoff >= gstart) ! 29: return (-1); ! 30: if (nbytes < 0) { ! 31: from = stoff; ! 32: buff--; ! 33: } ! 34: from = (from - ststart); ! 35: *buff = symtab[from/sizeof (struct nlist)]; ! 36: return (sizeof (struct nlist)); ! 37: } ! 38: ! 39: stseek(off, rel) ! 40: long off; ! 41: { ! 42: ! 43: if (rel == 1) ! 44: stoff += off; ! 45: else ! 46: stoff = off; ! 47: } ! 48: #define bread(a,b,c) stread(b,c) ! 49: #define blseek(a,b,c) stseek(b,c) ! 50: #endif ! 51: ! 52: /* initialize file and procedure tables */ ! 53: initfp() { ! 54: struct nlist stentry; ! 55: register struct proct *procp; ! 56: register struct filet *filep; ! 57: struct stat stbuf; ! 58: ! 59: long soffset; ! 60: int i, gflag = 0; ! 61: u_char class; ! 62: register char *p, *q; ! 63: ! 64: #ifdef FLEXNAMES ! 65: register struct nlist *sp; ! 66: int malformed = 0; ! 67: lseek(txtmap.ufd, gstart, 0); ! 68: if (read(txtmap.ufd, &ssiz, sizeof(ssiz)) != sizeof (ssiz)) { ! 69: printf("%s: no string table (old format?)\n", symfil); ! 70: exit(1); ! 71: } ! 72: strtab = (char *)malloc(ssiz); ! 73: if (strtab == 0) { ! 74: printf("no room for %d bytes of string table\n", ssiz); ! 75: exit(1); ! 76: } ! 77: ssiz -= sizeof (ssiz); ! 78: if (read(txtmap.ufd, strtab+sizeof (ssiz), ssiz) != ssiz) { ! 79: printf("%s: error reading string table\n", symfil); ! 80: exit(1); ! 81: } ! 82: i = gstart - ststart; ! 83: symtab = (struct nlist *)malloc(i); ! 84: if (symtab == 0) { ! 85: printf("no room for %d bytes of symbol table\n", i); ! 86: exit(1); ! 87: } ! 88: lseek(txtmap.ufd, ststart, 0); ! 89: if (read(txtmap.ufd, symtab, i) != i) { ! 90: printf("%s: error reading symbol table\n", symfil); ! 91: exit(1); ! 92: } ! 93: for (sp = &symtab[i/sizeof (struct nlist)]; --sp >= symtab; ) ! 94: if (sp->n_un.n_strx != 0) { ! 95: if (sp->n_un.n_strx < sizeof (ssiz) || sp->n_un.n_strx >= ssiz) { ! 96: if (malformed == 0) { ! 97: printf("danger: mangled symbol table\n"); ! 98: malformed = 1; ! 99: } ! 100: sp->n_un.n_name = nullname; ! 101: } else ! 102: sp->n_un.n_name = strtab + sp->n_un.n_strx; ! 103: } else ! 104: sp->n_un.n_name = nullname; ! 105: #endif ! 106: #ifndef VMUNIX ! 107: sbuf.fd = txtmap.ufd; ! 108: #endif ! 109: firstdata = MAXPOS; ! 110: soffset = ststart; ! 111: blseek(&sbuf,ststart,0); ! 112: filep = files = badfile = (struct filet *) sbrk(sizeof filep[0]); ! 113: procp = procs = badproc = (struct proct *) sbrk(sizeof procp[0]); ! 114: ! 115: for(;;) { ! 116: if (bread(&sbuf, &stentry, sizeof stentry) < ! 117: sizeof stentry) break; ! 118: class = stentry.n_type & STABMASK; ! 119: switch (class & STABMASK) { ! 120: case N_SO: ! 121: case N_SOL: ! 122: gflag++; ! 123: if (filep == badfile) { ! 124: p = sbrk(FILEINCR*sizeof filep[0]); ! 125: if (p < 0) { ! 126: perror("sdb"); ! 127: exit(4); ! 128: } ! 129: q = p + FILEINCR*sizeof filep[0]; ! 130: while (p > (char *) procs) ! 131: *--q = *--p; ! 132: badfile += FILEINCR; ! 133: procp = (struct proct *) ! 134: ((char *) procp + ! 135: FILEINCR*sizeof filep[0]); ! 136: procs = (struct proct *) ! 137: ((char *) procs + ! 138: FILEINCR*sizeof filep[0]); ! 139: badproc = (struct proct *) ! 140: ((char *)badproc + ! 141: FILEINCR*sizeof filep[0]); ! 142: } ! 143: filep->faddr = stentry.n_value; ! 144: filep->lineflag = (class == N_SOL); ! 145: filep->stf_offset = soffset; ! 146: #ifndef FLEXNAMES ! 147: p = filep->sfilename; ! 148: for (;;) { ! 149: for (i=0; i<8; i++) *p++ = stentry.n_un.n_name[i]; ! 150: if (*(p-1) == '\0') break; ! 151: if (bread(&sbuf, &stentry, sizeof stentry) ! 152: < sizeof stentry) ! 153: error("Bad N_SO entry (1)"); ! 154: if ((stentry.n_type & STABMASK) != class) ! 155: error("Bad N_SO entry (2)"); ! 156: soffset += sizeof stentry; ! 157: } ! 158: #else ! 159: filep->sfilename = stentry.n_un.n_name; ! 160: #endif ! 161: q = filep->sfilename; ! 162: for (p=fp; *q; *p++ = *q++) ; ! 163: *p = 0; ! 164: if (stat(filework, &stbuf) == -1) ! 165: printf("Warning: `%s' not found\n", ! 166: filep->sfilename); ! 167: else if (stbuf.st_mtime > symtime) ! 168: printf("Warning: `%s' newer than `%s'\n", ! 169: filep->sfilename, ! 170: symfil); ! 171: filep++; ! 172: break; ! 173: ! 174: case N_TEXT: ! 175: if (stentry.n_un.n_name[0] != '_') break; ! 176: case N_FUN: ! 177: case N_ENTRY: ! 178: if (procp == badproc) { ! 179: if (sbrk(PROCINCR*sizeof procp[0]) < 0) { ! 180: perror("sdb"); ! 181: exit(4); ! 182: } ! 183: badproc += PROCINCR; ! 184: } ! 185: #ifndef FLEXNAMES ! 186: for(i=0; i<8; i++) ! 187: procp->pname[i] = stentry.n_un.n_name[i]; ! 188: #else ! 189: procp->pname = stentry.n_un.n_name; ! 190: #endif ! 191: procp->paddr = stentry.n_value; ! 192: procp->st_offset = soffset; ! 193: procp->sfptr = (class != N_TEXT) ? filep - 1 : badfile; ! 194: procp->lineno = (class != N_TEXT) ? stentry.n_desc : 0; ! 195: procp->entrypt = (class & STABMASK) == N_ENTRY; ! 196: procp++; ! 197: break; ! 198: } ! 199: if (stentry.n_type & N_EXT) { ! 200: if (!extstart) ! 201: extstart = soffset; ! 202: if (stentry.n_type == N_DATA | N_EXT || ! 203: stentry.n_type == N_BSS | N_EXT || ! 204: stentry.n_value < firstdata) ! 205: firstdata = stentry.n_value; ! 206: } ! 207: soffset += sizeof stentry; ! 208: } ! 209: qsort(procs, procp-procs, sizeof procs[0], compar); ! 210: badproc->st_offset = badfile->stf_offset = soffset; ! 211: badproc->sfptr = procp->sfptr = badfile; ! 212: #ifndef FLEXNAMES ! 213: badproc->pname[0] = badfile->sfilename[0]= ! 214: procp->pname[0] = filep->sfilename[0] = '\0'; ! 215: #else ! 216: badproc->pname = badfile->sfilename= ! 217: procp->pname = filep->sfilename = nullname; ! 218: #endif ! 219: ! 220: if (!gflag) ! 221: printf("Warning: `%s' not compiled with -g\n", symfil); ! 222: setcur(1); ! 223: } ! 224: ! 225: /* returns current procedure from state (curfile, fline) */ ! 226: struct proct * ! 227: curproc() { ! 228: register ADDR addr; ! 229: ! 230: addr = getaddr("", fline ? fline : 1); ! 231: if (addr == -1) return(badproc); ! 232: return(adrtoprocp(addr)); ! 233: ! 234: } ! 235: ! 236: /* returns procedure s, uses curproc() if s == NULL */ ! 237: ! 238: struct proct * ! 239: findproc(s) ! 240: char *s; { ! 241: register struct proct *p, *altproc; ! 242: ! 243: if (s[0] == '\0') return(curproc()); ! 244: altproc = badproc; ! 245: ! 246: for (p=procs; p->pname[0]; p++) { ! 247: if (eqpat(s, p->pname)) return(p); ! 248: if (p->pname[0] == '_' && eqpatr(s, p->pname+1, 1)) ! 249: altproc = p; ! 250: } ! 251: return(altproc); ! 252: } ! 253: ! 254: /* returns file s containing filename */ ! 255: struct filet * ! 256: findfile(s) ! 257: char *s; { ! 258: register struct filet *f; ! 259: if (s == 0 || *s == 0) ! 260: return(files); /* start at beginning if no cur file */ ! 261: for (f=files; f->sfilename[0]; f++) { ! 262: if (eqpat(f->sfilename, s)) { ! 263: for( ; f->lineflag; f--) ; ! 264: if (f < files) error("Bad file array"); ! 265: return(f); ! 266: } ! 267: } ! 268: return(f); ! 269: } ! 270: ! 271: /* ! 272: * slookup(): ! 273: * looks up variable matching pat starting at (offset + sizeof stentry) ! 274: * in a.out, searching backwards, ! 275: * ignoring nested blocks to beginning to procedure. ! 276: * Returns its offset and symbol table entries decoded in sl_* ! 277: * ! 278: * If comblk == "*" then match both within and outside common blocks, ! 279: * if comblk == "" then match only outside common blocks, ! 280: * else match only within comblk. ! 281: */ ! 282: ! 283: long ! 284: slookup(pat, poffset, stelt) ! 285: long poffset; char *pat; { ! 286: slookinit(); ! 287: slooknext(pat, poffset, stelt, "*"); ! 288: } ! 289: ! 290: int clevel, level, fnameflag, comfound, incomm; ! 291: ! 292: slookinit() { ! 293: clevel = level = fnameflag = comfound = incomm = 0; ! 294: } ! 295: ! 296: long ! 297: slooknext(pat, poffset, stelt, comblk) ! 298: long poffset; char *pat, *comblk; { ! 299: register int i; ! 300: register long offset; ! 301: char *q; ! 302: u_char class; ! 303: struct nlist stentry; ! 304: struct proct *procp, *p; ! 305: ! 306: offset = poffset + sizeof stentry; ! 307: if (debug) printf("slookup(%s,%d)\n",pat,offset); ! 308: blseek(&sbuf, offset, 0); ! 309: ! 310: for (;;) { ! 311: offset -= sizeof stentry; ! 312: if (offset < ststart) break; ! 313: if (bread(&sbuf, &stentry+1, -sizeof stentry) ! 314: < sizeof stentry) break; ! 315: class = stentry.n_type & STABMASK; ! 316: switch (class & STABMASK) { ! 317: case 0: ! 318: break; ! 319: case N_FUN: ! 320: return(-1); ! 321: case N_RBRAC: ! 322: level++; ! 323: break; ! 324: case N_LBRAC: ! 325: level--; ! 326: break; ! 327: case N_ECOMM: ! 328: i = 0; ! 329: #ifndef FLEXNAMES ! 330: for (q = &stentry.n_un.n_name[7]; q>=stentry.n_un.n_name; q--) { ! 331: if (*q == '_') { ! 332: *q = '\0'; ! 333: i++; ! 334: break; ! 335: } ! 336: } ! 337: #else ! 338: for (q = stentry.n_un.n_name; *q; q++) ! 339: continue; ! 340: if (*--q == '_') ! 341: *q = 0, i++; ! 342: #endif ! 343: if (eqpat(comblk, stentry.n_un.n_name)) ! 344: comfound = 1; ! 345: if (i) ! 346: *q = '_'; ! 347: incomm = 1; ! 348: case N_ECOML: ! 349: clevel++; ! 350: break; ! 351: case N_BCOMM: ! 352: comfound = incomm = 0; ! 353: clevel--; ! 354: break; ! 355: case N_FNAME: ! 356: if (fnameflag) ! 357: break; ! 358: procp = findproc(stentry.n_un.n_name); ! 359: for (p=procs; p->pname[0]; p++) { ! 360: if (p->entrypt == 0 && ! 361: p->st_offset > procp->st_offset && ! 362: p->st_offset < offset) ! 363: offset = p->st_offset; ! 364: } ! 365: clevel = level = 0; ! 366: fnameflag++; ! 367: blseek(&sbuf, offset, 0); ! 368: break; ! 369: default: ! 370: if (level <= 0 && eqpat(pat, stentry.n_un.n_name) && ! 371: stentry.n_un.n_name[0] && class & STABTYPES && ! 372: (eqstr("*", comblk) || ! 373: (comblk[0] == '\0' && incomm == 0) || ! 374: comfound) && ! 375: (stelt == (class == N_SSYM))) { ! 376: if (class == N_LENG) { ! 377: sl_size = stentry.n_value; ! 378: offset -= sizeof stentry; ! 379: bread(&sbuf, &stentry+1, ! 380: -sizeof stentry); ! 381: if (stentry.n_type&~N_EXT == N_BSS) { ! 382: bread(&sbuf, &stentry+1, ! 383: -sizeof stentry); ! 384: offset -= sizeof stentry; ! 385: } ! 386: } ! 387: else sl_size = 0; ! 388: sl_class = stentry.n_type & STABMASK; ! 389: sl_type = stentry.n_desc; ! 390: sl_addr = stentry.n_value; ! 391: #ifndef FLEXNAMES ! 392: for (i=0; i<8; i++) sl_name[i] = ! 393: stentry.n_un.n_name[i]; ! 394: #else ! 395: sl_name = stentry.n_un.n_name; ! 396: #endif ! 397: if (clevel != 0) docomm(offset); ! 398: return(offset - sizeof stentry); ! 399: } ! 400: } ! 401: } ! 402: return(-1); ! 403: } ! 404: ! 405: /* ! 406: * Look up global variable matching pat starting at (filestart+sizeof stentry) ! 407: * Return its offset and symbol table entries decoded in sl_* ! 408: */ ! 409: long ! 410: globallookup(pat, filestart, stelt) ! 411: char *pat; long filestart; { ! 412: register int offset, i; ! 413: struct nlist stentry; ! 414: int clevel; ! 415: u_char class; ! 416: ! 417: if (debug) printf("globallookup(%s,%d)\n", pat,filestart); ! 418: blseek(&sbuf, filestart, 0); ! 419: offset = filestart - sizeof stentry; ! 420: clevel = 0; ! 421: do { ! 422: if (bread(&sbuf, &stentry, sizeof stentry) < ! 423: sizeof stentry) return(-1); ! 424: offset += sizeof stentry; ! 425: } while ((stentry.n_type & STABMASK) == N_SO); ! 426: for (;;) { ! 427: class = stentry.n_type & STABMASK; ! 428: switch (class & STABMASK) { ! 429: case N_SO: ! 430: return(-1); ! 431: case N_ECOMM: ! 432: clevel--; ! 433: break; ! 434: case N_BCOMM: ! 435: clevel++; ! 436: break; ! 437: default: ! 438: if (eqpat(pat, stentry.n_un.n_name) ! 439: && stentry.n_un.n_name[0] && class & STABTYPES) { ! 440: sl_class = stentry.n_type & STABMASK; ! 441: if (sl_class != N_GSYM && sl_class != N_SSYM && ! 442: sl_class != N_STSYM && sl_class != N_LCSYM) goto g1; ! 443: if (stelt != (sl_class == N_SSYM)) goto g1; ! 444: sl_size = 0; ! 445: sl_type = stentry.n_desc; ! 446: sl_addr = stentry.n_value; ! 447: #ifndef FLEXNAMES ! 448: for (i=0; i<8; i++) sl_name[i] = stentry.n_un.n_name[i]; ! 449: #else ! 450: sl_name = stentry.n_un.n_name; ! 451: #endif ! 452: if (clevel != 0) docomm(offset); ! 453: goto g2; ! 454: } ! 455: } ! 456: g1: if (bread(&sbuf, &stentry, sizeof stentry) < sizeof stentry) ! 457: return(-1); ! 458: offset += sizeof stentry; ! 459: } ! 460: g2: bread(&sbuf, &stentry, sizeof stentry); ! 461: if (stentry.n_type&~N_EXT==N_BSS) { ! 462: bread(&sbuf, &stentry, sizeof stentry); ! 463: offset += sizeof stentry; ! 464: } ! 465: if (((stentry.n_type & STABMASK) == N_LENG) && ! 466: (eqpat(sl_name, stentry.n_un.n_name))) ! 467: sl_size = stentry.n_value; ! 468: ! 469: if (sl_class == N_GSYM && (clevel == 0)) { ! 470: blseek(&sbuf, extstart, 0); ! 471: for(;;) { ! 472: if (bread(&sbuf, &stentry, sizeof stentry) ! 473: < sizeof stentry) ! 474: return(-1); ! 475: if (stentry.n_un.n_name[0] != '_') continue; ! 476: if (eqpatr(sl_name, stentry.n_un.n_name+1, 1)) { ! 477: sl_addr = stentry.n_value; ! 478: break; ! 479: } ! 480: } ! 481: } ! 482: return(offset + sizeof stentry); ! 483: } ! 484: ! 485: /* core address to procedure (pointer to proc array) */ ! 486: struct proct * ! 487: adrtoprocp(addr) ! 488: ADDR addr; { ! 489: register struct proct *procp, *lastproc; ! 490: lastproc = badproc; ! 491: for (procp=procs; procp->pname[0]; procp++) { ! 492: if (procp->paddr > addr) break; ! 493: if (procp->entrypt == 0) ! 494: lastproc = procp; ! 495: } ! 496: return (lastproc); ! 497: } ! 498: ! 499: ! 500: /* core address to file (pointer to file array) */ ! 501: struct filet * ! 502: adrtofilep(addr) ! 503: ADDR addr; { ! 504: register struct filet *filep; ! 505: for (filep=files; filep->sfilename[0]; filep++) { ! 506: if (filep->faddr > addr) break; ! 507: } ! 508: return (filep != files ? filep-1 : badfile); ! 509: } ! 510: ! 511: /* ! 512: * core address to linenumber ! 513: * Sets external exactaddr to addr if addr is NOT the first instruction ! 514: * of a line, set to -1 otherwise. ! 515: * Sets external lnfaddr to address of first statement in line. ! 516: */ ! 517: long lastoffset; ! 518: ! 519: adrtolineno(addr) ! 520: ADDR addr; { ! 521: register int lineno; ! 522: long offset; ! 523: struct nlist stentry; ! 524: ! 525: exactaddr = addr; ! 526: lineno = lastoffset = -1; ! 527: offset = adrtoprocp(addr)->st_offset; ! 528: blseek(&sbuf, offset, 0); ! 529: for (;;) { ! 530: if (bread(&sbuf, &stentry, sizeof stentry) ! 531: < sizeof stentry) break; ! 532: if (stentry.n_type == N_SO) ! 533: break; ! 534: if (stentry.n_type == N_SLINE) { ! 535: if (stentry.n_value > addr) ! 536: break; ! 537: lastoffset = offset; ! 538: lineno = stentry.n_desc; ! 539: lnfaddr = stentry.n_value; ! 540: if (stentry.n_value == addr) ! 541: exactaddr = -1; ! 542: } ! 543: offset += sizeof stentry; ! 544: } ! 545: return (lineno); ! 546: } ! 547: ! 548: ! 549: /* address to a.out offset */ ! 550: long ! 551: adrtostoffset(addr) ! 552: ADDR addr; { ! 553: adrtolineno(addr); ! 554: return(lastoffset); ! 555: } ! 556: ! 557: ! 558: /* ! 559: * Set (curfile, lineno) from core image. ! 560: * Returns 1 if there is a core image, 0 otherwise. ! 561: * ! 562: * Print the current line iff verbose is set. ! 563: */ ! 564: setcur(verbose) { ! 565: register struct proct *procp; ! 566: ! 567: dot = *(ADDR *) (((ADDR) &u) + PC); ! 568: ! 569: if (dot == 0) { ! 570: printf("No core image\n"); ! 571: goto setmain; ! 572: } ! 573: procp = adrtoprocp(dot); ! 574: if ((procp->sfptr) != badfile) { ! 575: finit(adrtofilep(procp->paddr)->sfilename); ! 576: ffind(adrtolineno(dot)); ! 577: if (verbose) { ! 578: if (exactaddr != -1) ! 579: printf("0x%x in ", exactaddr); ! 580: #ifndef FLEXNAMES ! 581: printf("%.8s:", procp->pname); ! 582: #else ! 583: printf("%s:", procp->pname); ! 584: #endif ! 585: fprint(); ! 586: } ! 587: return(1); ! 588: } ! 589: if (verbose) { ! 590: if (procp->pname[0] == '_') ! 591: #ifndef FLEXNAMES ! 592: printf("%.7s: address 0x%x\n", procp->pname+1, dot); ! 593: #else ! 594: printf("%s: address 0x%x\n", procp->pname+1, dot); ! 595: #endif ! 596: else ! 597: #ifndef FLEXNAMES ! 598: printf("%.8s: address %d\n", procp->pname, dot); ! 599: #else ! 600: printf("%s: address %d\n", procp->pname, dot); ! 601: #endif ! 602: } ! 603: ! 604: setmain: ! 605: procp = findproc("MAIN_"); ! 606: if ((procp->pname[0] != 'M') || (procp->sfptr == badfile)) { ! 607: procp = findproc("main"); ! 608: if ((procp->pname[0] != 'm') || (procp->sfptr == badfile)) { ! 609: /* printf("main not compiled with debug flag\n"); */ ! 610: return(0); ! 611: } ! 612: } ! 613: finit(procp->sfptr->sfilename); ! 614: ffind(procp->lineno); ! 615: return(0); ! 616: } ! 617: ! 618: compar(a, b) ! 619: struct proct *a, *b; { ! 620: if (a->paddr == b->paddr) { ! 621: if (a->pname[0] == '_') return(-1); ! 622: if (b->pname[0] == '_') return(1); ! 623: return(0); ! 624: } ! 625: return(a->paddr < b->paddr ? -1 : 1); ! 626: } ! 627: ! 628: /* gets offset of file or procedure named s */ ! 629: nametooffset(s) ! 630: char *s; { ! 631: register struct filet *f; ! 632: register struct proct *p; ! 633: ! 634: if (*s == '\0') ! 635: return(-1); ! 636: if (eqany('.', s)) { ! 637: f = findfile(s); ! 638: return(f->sfilename[0] ? f->stf_offset : -1); ! 639: } ! 640: p = findproc(s); ! 641: return(p->pname[0] ? p->st_offset : -1); ! 642: } ! 643: ! 644: /* returns s if its a filename, its file otherwise */ ! 645: char * ! 646: nametofile(s) ! 647: char *s; { ! 648: register struct proct *p; ! 649: ! 650: if (eqany('.', s)) { ! 651: return(s); ! 652: } ! 653: p = findproc(s); ! 654: return(adrtofilep(p->paddr)->sfilename); ! 655: } ! 656: ! 657: ! 658: /* line number to address, starting at offset in a.out */ ! 659: /* assumes that offset is within file */ ! 660: lntoaddr(lineno, offset, file) ! 661: long offset; char *file; { ! 662: struct nlist stentry; ! 663: register int i, ignore = 0; ! 664: register int bestln=BIGNUM; ! 665: ADDR bestaddr; ! 666: char *p; ! 667: ! 668: blseek(&sbuf, offset, 0); ! 669: ! 670: do { ! 671: if (bread(&sbuf, &stentry, sizeof stentry) < ! 672: sizeof stentry) return(-1); ! 673: } while ((stentry.n_type & STABMASK) == N_SO); ! 674: for (;;) { ! 675: switch(stentry.n_type & STABMASK) { ! 676: case N_SLINE: ! 677: if (!ignore) { ! 678: if (stentry.n_desc == lineno) ! 679: return(stentry.n_value); ! 680: if (stentry.n_desc > lineno && ! 681: stentry.n_desc < bestln) { ! 682: bestln = stentry.n_desc; ! 683: bestaddr = stentry.n_value; ! 684: } ! 685: } ! 686: break; ! 687: ! 688: case N_SO: ! 689: goto ret; ! 690: ! 691: case N_SOL: ! 692: p = file; ! 693: #ifndef FLEXNAMES ! 694: for (;;) { ! 695: for (i=0; i<8; i++) { ! 696: if (*p != stentry.n_un.n_name[i]) goto neq; ! 697: if (*p++ == '\0') break; ! 698: } ! 699: if (stentry.n_un.n_name[7] == '\0') ! 700: break; ! 701: if (bread(&sbuf, &stentry, sizeof stentry) ! 702: < sizeof stentry) ! 703: error("Bad N_SO entry (1)"); ! 704: if ((stentry.n_type & STABMASK) != (u_char)N_SOL) ! 705: error("Bad N_SO entry (2)"); ! 706: } ! 707: #else ! 708: if (strcmp(file, stentry.n_un.n_name)) ! 709: goto neq; ! 710: #endif ! 711: ignore = 0; ! 712: break; ! 713: ! 714: neq: ignore++; ! 715: break; ! 716: } ! 717: if (bread(&sbuf, &stentry, sizeof stentry) < sizeof stentry) ! 718: break; ! 719: } ! 720: ret: return(bestln == BIGNUM ? -1 : bestaddr); ! 721: } ! 722: ! 723: /* gets address of proc:number */ ! 724: getaddr(proc,integ) ! 725: char *proc; { ! 726: register long offset; ! 727: register char *s, *f; ! 728: ADDR addr; ! 729: ! 730: s = proc[0] ? proc : curfile; ! 731: if (*s == '\0') ! 732: return(-1); ! 733: offset = nametooffset(s); ! 734: f = nametofile(s); ! 735: if (debug) printf("getaddr() computed offset %d", offset); ! 736: if (offset == -1) { ! 737: addr = extaddr(proc); ! 738: if (addr != -1) addr += 2; /* MACHINE DEPENDENT */ ! 739: if (debug) printf(" extaddr computed %d\n", addr); ! 740: return(addr); ! 741: } ! 742: if (integ) ! 743: addr = lntoaddr(integ, offset, s); ! 744: else { ! 745: ADDR oldaddr; ! 746: oldaddr = findproc(proc)->paddr + 2; /* MACHINE DEPENDENT */ ! 747: addr = lntoaddr(adrtolineno(addr)+1, offset, f); ! 748: if (addr == -1) ! 749: addr = oldaddr; ! 750: } ! 751: if (debug) printf(" and addr %d\n", addr); ! 752: if (addr == -1) return(-1); ! 753: return(addr); ! 754: } ! 755: ! 756: /* returns address of external */ ! 757: ADDR ! 758: extaddr(name) ! 759: char *name; { ! 760: struct nlist stentry; ! 761: blseek(&sbuf, extstart, 0); ! 762: ! 763: for (;;) { ! 764: if (bread(&sbuf, &stentry, sizeof stentry) < sizeof stentry) ! 765: return(-1); ! 766: if (stentry.n_un.n_name[0] == '_' && ! 767: eqpatr(name, stentry.n_un.n_name+1, 1)) ! 768: return(stentry.n_value); ! 769: } ! 770: } ! 771: ! 772: ! 773: /* ! 774: * Look up external data symbol matching pat starting at ! 775: * (filestart+sizeof stentry) ! 776: * Return its address in sl_addr and name in sl_name. ! 777: */ ! 778: long ! 779: extlookup(pat, filestart) ! 780: char *pat; long filestart; { ! 781: register int offset, i; ! 782: struct nlist stentry; ! 783: ! 784: blseek(&sbuf, filestart, 0); ! 785: offset = filestart - sizeof stentry; ! 786: do { ! 787: if (bread(&sbuf, &stentry, sizeof stentry) < ! 788: sizeof stentry) return(-1); ! 789: offset += sizeof stentry; ! 790: } while ((stentry.n_type & STABMASK) == N_SO); ! 791: for (;;) { ! 792: if (stentry.n_un.n_name[0] == '_' && ! 793: stentry.n_type == (N_DATA | N_EXT) && ! 794: eqpatr(pat, stentry.n_un.n_name+1, 1)) { ! 795: sl_addr = stentry.n_value; ! 796: #ifndef FLEXNAMES ! 797: for (i=0; i<7; i++) sl_name[i] = stentry.n_un.n_name[i+1]; ! 798: #else ! 799: sl_name = stentry.n_un.n_name; ! 800: #endif ! 801: return(offset + sizeof stentry); ! 802: } ! 803: g1: if (bread(&sbuf, &stentry, sizeof stentry) < sizeof stentry) ! 804: return(-1); ! 805: offset += sizeof stentry; ! 806: } ! 807: } ! 808: ! 809: /* find enclosing common blocks and fix up addresses */ ! 810: docomm(offset) ! 811: long offset; { ! 812: struct nlist stentry; ! 813: ADDR addr; ! 814: ! 815: for (;;) { ! 816: if (bread(&sbuf, &stentry, sizeof stentry) < sizeof stentry) { ! 817: error("Bad common block"); ! 818: return; ! 819: } ! 820: sl_class = N_GSYM; ! 821: if ((stentry.n_type & STABMASK) == N_ECOMM) { ! 822: addr = extaddr(stentry.n_un.n_name); ! 823: if (addr == -1) ! 824: error("Lost common block"); ! 825: sl_addr +=addr; ! 826: blseek(&sbuf, offset, 0); ! 827: return; ! 828: } ! 829: if ((stentry.n_type & STABMASK) == N_ECOML) { ! 830: sl_addr += stentry.n_value; ! 831: blseek(&sbuf, offset, 0); ! 832: return; ! 833: } ! 834: } ! 835: } ! 836: ! 837: /* determine if class is that of a variable */ ! 838: char pctypes[] = {N_GSYM, N_STSYM, N_LCSYM, N_RSYM, N_SSYM, N_LSYM, ! 839: N_PSYM, 0}; ! 840: varclass(class) ! 841: u_char class; { ! 842: char *p; ! 843: ! 844: for (p=pctypes; *p; p++) { ! 845: if (class == *p) ! 846: return(1); ! 847: } ! 848: return(0); ! 849: } ! 850: ! 851: /* ! 852: * address to external name ! 853: * returns difference between addr and address of external ! 854: * name returned in sl_name ! 855: */ ! 856: adrtoext(addr) ! 857: ADDR addr; { ! 858: struct nlist stentry; ! 859: register int i, prevdiff = MAXPOS, diff; ! 860: ! 861: blseek(&sbuf, extstart, 0); ! 862: for (;;) { ! 863: if (bread(&sbuf, &stentry, sizeof stentry) ! 864: < sizeof stentry) ! 865: return (prevdiff!=MAXPOS ? prevdiff : -1); ! 866: if (stentry.n_type == (N_DATA | N_EXT) || ! 867: stentry.n_type == (N_BSS | N_EXT)) { ! 868: diff = addr - stentry.n_value; ! 869: if (diff >= 0 && diff < prevdiff) { ! 870: #ifndef FLEXNAMES ! 871: for (i=0; i<7; i++) ! 872: sl_name[i] = stentry.n_un.n_name[i+1]; ! 873: #else ! 874: sl_name = stentry.n_un.n_name; ! 875: #endif ! 876: if (diff == 0) ! 877: return(0); ! 878: prevdiff = diff; ! 879: } ! 880: } ! 881: } ! 882: } ! 883: ! 884: /* ! 885: * address to local name in procp ! 886: * returns difference between addr and address of local ! 887: * returned in sl_name ! 888: */ ! 889: adrtolocal(addr, procp) ! 890: ADDR addr; struct proct *procp; { ! 891: struct nlist stentry; ! 892: register int i, prevdiff = MAXPOS, diff; ! 893: ! 894: blseek(&sbuf, procp->st_offset + sizeof stentry, 0); ! 895: for (;;) { ! 896: if (bread(&sbuf, &stentry, sizeof stentry) ! 897: < sizeof stentry) ! 898: return(prevdiff!=MAXPOS ? prevdiff : -1); ! 899: if (stentry.n_type == N_FUN) ! 900: return(prevdiff!=MAXPOS ? prevdiff : -1); ! 901: if (stentry.n_type == N_LSYM) { ! 902: diff = addr - stentry.n_value; ! 903: if (diff >= 0 && diff < prevdiff) { ! 904: #ifndef FLEXNAMES ! 905: for (i=0; i<8; i++) ! 906: sl_name[i] = stentry.n_un.n_name[i]; ! 907: #else ! 908: sl_name = stentry.n_un.n_name; ! 909: #endif ! 910: if (diff == 0) ! 911: return(0); ! 912: prevdiff = diff; ! 913: } ! 914: } ! 915: } ! 916: } ! 917: ! 918: /* ! 919: * address to parameter name in procp ! 920: * returns difference between addr and address of local ! 921: * returned in sl_name ! 922: */ ! 923: adrtoparam(addr, procp) ! 924: ADDR addr; struct proct *procp; { ! 925: struct nlist stentry; ! 926: register int i, prevdiff = MAXPOS, diff; ! 927: ! 928: blseek(&sbuf, procp->st_offset + sizeof stentry, 0); ! 929: for (;;) { ! 930: if (bread(&sbuf, &stentry, sizeof stentry) ! 931: < sizeof stentry) ! 932: return(prevdiff!=MAXPOS ? prevdiff : -1); ! 933: if (stentry.n_type == N_FUN) ! 934: return(prevdiff!=MAXPOS ? prevdiff : -1); ! 935: if (stentry.n_type == N_PSYM) { ! 936: diff = addr - stentry.n_value; ! 937: if (diff >= 0 && diff < prevdiff) { ! 938: #ifndef FLEXNAMES ! 939: for (i=0; i<8; i++) ! 940: sl_name[i] = stentry.n_un.n_name[i]; ! 941: #else ! 942: sl_name = stentry.n_un.n_name; ! 943: #endif ! 944: if (diff == 0) ! 945: return(0); ! 946: prevdiff = diff; ! 947: } ! 948: } ! 949: } ! 950: } ! 951: ! 952: /* ! 953: * register number to register variable name in procp ! 954: * returned in sl_name ! 955: */ ! 956: adrtoregvar(regno, procp) ! 957: ADDR regno; struct proct *procp; { ! 958: struct nlist stentry; ! 959: register int i; ! 960: ! 961: blseek(&sbuf, procp->st_offset + sizeof stentry, 0); ! 962: for (;;) { ! 963: if (bread(&sbuf, &stentry, sizeof stentry) ! 964: < sizeof stentry) return(-1); ! 965: if (stentry.n_type == N_FUN) ! 966: return(-1); ! 967: if (stentry.n_type == N_RSYM) { ! 968: if (stentry.n_value == regno) { ! 969: #ifndef FLEXNAMES ! 970: for (i=0; i<8; i++) ! 971: sl_name[i] = stentry.n_un.n_name[i]; ! 972: #else ! 973: sl_name = stentry.n_un.n_name; ! 974: #endif ! 975: return(0); ! 976: } ! 977: } ! 978: } ! 979: } ! 980: ! 981: /* sets file map for M command */ ! 982: setmap(s) ! 983: char *s; { ! 984: union { ! 985: MAP *m; ! 986: L_INT *mp; ! 987: } amap; ! 988: int starflag = 0; ! 989: ! 990: amap.mp = 0; ! 991: for (; *s; s++) { ! 992: switch (*s) { ! 993: case '/': ! 994: amap.m = &datmap; ! 995: break; ! 996: case '?': ! 997: amap.m = &txtmap; ! 998: break; ! 999: case '*': ! 1000: starflag++; ! 1001: break; ! 1002: default: ! 1003: goto sout; ! 1004: } ! 1005: } ! 1006: ! 1007: sout: if (amap.mp == 0) { ! 1008: error("Map `?' or `/' must be specified"); ! 1009: return; ! 1010: } ! 1011: if (starflag) ! 1012: amap.mp += 3; ! 1013: for (; *s; s++) { ! 1014: if (*s >= '0' && *s <= '9') ! 1015: *(amap.mp)++ = readint(&s); ! 1016: } ! 1017: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.