![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to runpcs.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 40BSD / cmd / sdb|
Return to runpcs.c CVS log | Up to [CSRG BSD Unix] / 40BSD / cmd / sdb |
1.1 ! root 1: static char sccsid[] = "@(#)runpcs.c 4.1 10/9/80"; ! 2: # ! 3: /* ! 4: * ! 5: * UNIX debugger ! 6: * ! 7: */ ! 8: ! 9: #include "head.h" ! 10: #include <a.out.h> ! 11: #include <stab.h> ! 12: struct user u; ! 13: #include <stdio.h> ! 14: ! 15: #ifndef SIGTRAP ! 16: #define SIGTRAP SIGTRC ! 17: #endif ! 18: ! 19: MSG NOFORK; ! 20: MSG ENDPCS; ! 21: MSG BADWAIT; ! 22: ! 23: ADDR sigint; ! 24: ADDR sigqit; ! 25: ADDR userpc; ! 26: ! 27: /* breakpoints */ ! 28: BKPTR bkpthead; ! 29: ! 30: CHAR lastc; ! 31: ! 32: INT fcor; ! 33: INT fsym; ! 34: STRING errflg; ! 35: int errno; ! 36: INT signo; ! 37: ! 38: L_INT dot; ! 39: STRING symfil; ! 40: INT wtflag; ! 41: INT pid; ! 42: INT adrflg; ! 43: L_INT loopcnt; ! 44: ! 45: ! 46: ! 47: ! 48: ! 49: ! 50: getsig(sig) ! 51: { return(sig); ! 52: } ! 53: ! 54: runpcs(runmode,execsig) ! 55: { ! 56: REG BKPTR bkpt; ! 57: IF adrflg THEN userpc=dot; FI ! 58: WHILE --loopcnt>=0 ! 59: DO ! 60: if (debug) printf("\ncontinue %x %d\n",userpc,execsig); ! 61: IF runmode==SINGLE ! 62: THEN delbp(); /* hardware handles single-stepping */ ! 63: ELSE /* continuing from a breakpoint is hard */ ! 64: IF bkpt=scanbkpt(userpc) ! 65: THEN execbkpt(bkpt,execsig); execsig=0; ! 66: FI ! 67: setbp(); ! 68: FI ! 69: ptrace(runmode,pid,userpc,execsig); ! 70: bpwait(); chkerr(); execsig=0; delbp(); readregs(); ! 71: ! 72: loop1: IF (signo==0) ANDF (bkpt=scanbkpt(userpc)) ! 73: THEN /* stopped by BPT instruction */ ! 74: if (debug) printf("\n BPT code; '%s'%o'%o'%d", ! 75: bkpt->comm,bkpt->comm[0],EOR,bkpt->flag); ! 76: dot=bkpt->loc; ! 77: IF bkpt->comm[0] != EOR ! 78: THEN acommand(bkpt->comm); ! 79: FI ! 80: IF bkpt->flag==BKPTEXEC ! 81: ORF ((bkpt->flag=BKPTEXEC) ! 82: ANDF bkpt->comm[0]!=EOR) ! 83: THEN execbkpt(bkpt,execsig); execsig=0; loopcnt++; ! 84: goto loop1; ! 85: ELSE bkpt->flag=BKPTSET; bkpt->count=bkpt->initcnt; ! 86: FI ! 87: ELSE execsig=signo; ! 88: if (execsig) break; ! 89: FI ! 90: OD ! 91: if (debug) printf("Returning from runpcs\n"); ! 92: } ! 93: ! 94: #define BPOUT 0 ! 95: #define BPIN 1 ! 96: INT bpstate; ! 97: ! 98: endpcs() ! 99: { ! 100: REG BKPTR bkptr; ! 101: if (debug) printf("Entering endpcs with pid=%d\n"); ! 102: IF pid ! 103: THEN ptrace(EXIT,pid,0,0); pid=0; userpc=1; ! 104: FOR bkptr=bkpthead; bkptr; bkptr=bkptr->nxtbkpt ! 105: DO IF bkptr->flag ! 106: THEN bkptr->flag=BKPTSET; ! 107: FI ! 108: OD ! 109: FI ! 110: bpstate=BPOUT; ! 111: } ! 112: ! 113: #ifdef VFORK ! 114: nullsig() ! 115: { ! 116: ! 117: } ! 118: #endif ! 119: ! 120: setup() ! 121: { ! 122: close(fsym); fsym = -1; ! 123: #ifdef VFORK ! 124: IF (pid = vfork()) == 0 ! 125: #else ! 126: IF (pid = fork()) == 0 ! 127: #endif ! 128: THEN ptrace(SETTRC,0,0,0); ! 129: signal(SIGINT,sigint); signal(SIGQUIT,sigqit); ! 130: #ifdef VFORK ! 131: signal(SIGTRAP,nullsig); ! 132: #endif ! 133: if (debug) printf("About to doexec pid=%d\n",pid); ! 134: doexec(); _exit(0); ! 135: ELIF pid == -1 ! 136: THEN error(NOFORK); ! 137: ELSE bpwait(); readregs(); ! 138: if (debug) printf("About to open symfil = %s\n", symfil); ! 139: fsym=open(symfil,wtflag); ! 140: IF errflg ! 141: THEN printf("%s: cannot execute\n",symfil); ! 142: if (debug) printf("%d %s\n", errflg, errflg); ! 143: endpcs(); ! 144: FI ! 145: FI ! 146: bpstate=BPOUT; ! 147: } ! 148: ! 149: execbkpt(bkptr,execsig) ! 150: BKPTR bkptr; ! 151: { ! 152: if (debug) printf("exbkpt: %d\n",bkptr->count); ! 153: delbp(); ! 154: ptrace(SINGLE,pid,bkptr->loc,execsig); ! 155: bkptr->flag=BKPTSET; ! 156: bpwait(); chkerr(); readregs(); ! 157: } ! 158: ! 159: extern STRING environ; ! 160: ! 161: doexec() ! 162: { ! 163: char *argl[MAXARG], args[LINSIZ]; ! 164: register char c, redchar, *argsp, **arglp, *filnam; ! 165: ! 166: arglp = argl; ! 167: argsp = args; ! 168: *arglp++ = symfil; ! 169: c = ' '; ! 170: ! 171: do { ! 172: while (eqany(c, " \t")) { ! 173: c = rdc(); ! 174: } ! 175: if (eqany(c, "<>")) { ! 176: redchar = c; ! 177: do { ! 178: c = rdc(); ! 179: } while (eqany(c, " \t")); ! 180: filnam = argsp; ! 181: do { ! 182: *argsp++ = c; ! 183: c = rdc(); ! 184: } while (!eqany(c, " <>\t\n")); ! 185: *argsp++ = '\0'; ! 186: if (redchar == '<') { ! 187: close(0); ! 188: if (open(filnam,0) < 0) { ! 189: printf("%s: cannot open\n",filnam); ! 190: fflush(stdout); ! 191: _exit(0); ! 192: } ! 193: } else { ! 194: close(1); ! 195: if (creat(filnam,0666) < 0) { ! 196: printf("%s: cannot create\n",filnam); ! 197: fflush(stdout); ! 198: _exit(0); ! 199: } ! 200: } ! 201: } else if (c != '\n') { ! 202: *arglp++ = argsp; ! 203: do { ! 204: *argsp++ = c; ! 205: c = rdc(); ! 206: } while(!eqany(c, " <>\t\n")); ! 207: *argsp++ = '\0'; ! 208: } ! 209: } while (c != '\n'); ! 210: *arglp = (char *) 0; ! 211: if (debug) { ! 212: char **dap; ! 213: printf("About to exect(%s, %d, %d)\n",symfil,argl,environ); ! 214: for (dap = argl; *dap; dap++) { ! 215: printf("%s, ", *dap); ! 216: } ! 217: } ! 218: exect(symfil, argl, environ); ! 219: perror("Returned from exect"); ! 220: } ! 221: ! 222: BKPTR scanbkpt(adr) ! 223: ADDR adr; ! 224: { ! 225: REG BKPTR bkptr; ! 226: FOR bkptr=bkpthead; bkptr; bkptr=bkptr->nxtbkpt ! 227: DO IF bkptr->flag ANDF bkptr->loc==adr ! 228: THEN break; ! 229: FI ! 230: OD ! 231: return(bkptr); ! 232: } ! 233: ! 234: delbp() ! 235: { ! 236: REG ADDR a; ! 237: REG BKPTR bkptr; ! 238: IF bpstate!=BPOUT ! 239: THEN ! 240: FOR bkptr=bkpthead; bkptr; bkptr=bkptr->nxtbkpt ! 241: DO IF bkptr->flag ! 242: THEN a=bkptr->loc; ! 243: ptrace(WIUSER,pid,a, ! 244: (bkptr->ins&0xFF)|(ptrace(RIUSER,pid,a,0)&~0xFF)); ! 245: FI ! 246: OD ! 247: bpstate=BPOUT; ! 248: FI ! 249: } ! 250: ! 251: setbp() ! 252: { ! 253: REG ADDR a; ! 254: REG BKPTR bkptr; ! 255: ! 256: IF bpstate!=BPIN ! 257: THEN ! 258: FOR bkptr=bkpthead; bkptr; bkptr=bkptr->nxtbkpt ! 259: DO IF bkptr->flag ! 260: THEN a = bkptr->loc; ! 261: bkptr->ins = ptrace(RIUSER, pid, a, 0); ! 262: ptrace(WIUSER, pid, a, BPT | (bkptr->ins&~0xFF)); ! 263: IF errno ! 264: THEN error("cannot set breakpoint: "); ! 265: printf("%s:%d @ %d\n", adrtoprocp(dot)->pname, ! 266: adrtolineno(dot), dot); ! 267: FI ! 268: FI ! 269: OD ! 270: bpstate=BPIN; ! 271: FI ! 272: } ! 273: ! 274: bpwait() ! 275: { ! 276: REG ADDR w; ! 277: ADDR stat; ! 278: ! 279: signal(SIGINT, 1); ! 280: if (debug) printf("Waiting for pid %d\n",pid); ! 281: WHILE (w = wait(&stat))!=pid ANDF w != -1 DONE ! 282: if (debug) printf("Ending wait\n"); ! 283: if (debug) printf("w = %d; pid = %d; stat = %o;\n", w,pid,stat); ! 284: signal(SIGINT,sigint); ! 285: IF w == -1 ! 286: THEN pid=0; ! 287: errflg=BADWAIT; ! 288: ELIF (stat & 0177) != 0177 ! 289: THEN IF signo = stat&0177 ! 290: THEN sigprint(); ! 291: FI ! 292: IF stat&0200 ! 293: THEN error(" - core dumped"); ! 294: close(fcor); ! 295: setcor(); ! 296: FI ! 297: pid=0; ! 298: errflg=ENDPCS; ! 299: ELSE signo = stat>>8; ! 300: if (debug) printf("PC = %d, dbsubn = %d\n", ! 301: ptrace(RUREGS, pid, PC, 0), extaddr("_dbsubn")); ! 302: IF signo!=SIGTRAP ANDF ! 303: ptrace(RUREGS, pid, PC, 0) != extaddr("_dbsubn") ! 304: THEN sigprint(); ! 305: ELSE signo=0; ! 306: FI ! 307: FI ! 308: } ! 309: ! 310: REGLIST reglist[]; ! 311: readregs() ! 312: { ! 313: /*get REG values from pcs*/ ! 314: REG i; ! 315: FOR i=24; --i>=0; ! 316: DO *(ADDR *)(((ADDR)&u)+reglist[i].roffs) = ! 317: ptrace(RUREGS, pid, reglist[i].roffs, 0); ! 318: OD ! 319: userpc= *(ADDR *)(((ADDR)&u)+PC); ! 320: } ! 321: ! 322: char ! 323: readchar() { ! 324: lastc = *argsp++; ! 325: if (lastc == '\0') lastc = '\n'; ! 326: return(lastc); ! 327: } ! 328: ! 329: char ! 330: rdc() ! 331: { ! 332: register char c; ! 333: ! 334: c = *argsp++; ! 335: return(c == '\0' ? '\n' : c); ! 336: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.