![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to setup.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv9 / cmd / adb / sun|
Return to setup.c CVS log | Up to [Research Unix] / researchv9 / cmd / adb / sun |
1.1 ! root 1: /* ! 2: * adb - routines to read a.out+core at startup ! 3: * stuff in here is pretty vax dependent ! 4: */ ! 5: #include <a.out.h> ! 6: #include <sys/types.h> ! 7: #include <sys/dir.h> ! 8: #include <sys/user.h> ! 9: #include <sys/param.h> ! 10: #include "defs.h" ! 11: #include "space.h" ! 12: #include "map.h" ! 13: #include "machine.h" ! 14: #include "base.h" ! 15: ! 16: char *symfil = "a.out"; ! 17: char *corfil = "core"; ! 18: ! 19: MAP symmap[NMAP]; ! 20: MAP cormap[NMAP]; ! 21: ! 22: int fsym, fcor; ! 23: ! 24: static ADDR datbase; ! 25: ADDR txtsize, datsize, stksize; ! 26: static ADDR entry; ! 27: static int magic; ! 28: ! 29: setsym() ! 30: { ! 31: ADDR loc; ! 32: struct exec hdr; ! 33: register MAP *mp; ! 34: char *malloc(); ! 35: ! 36: fsym = getfile(symfil, 1); ! 37: mp = symmap; ! 38: if (read(fsym, (char *)&hdr, sizeof hdr) != sizeof hdr || ! 39: badmagic((int)hdr.a_magic)) { ! 40: mp->f = mp->b = 0; ! 41: mp->e = MAXFILE; ! 42: mp->sp = DATASP; ! 43: mp->flag = MPINUSE; ! 44: mp++; ! 45: mp->flag = 0; ! 46: return; ! 47: } ! 48: magic = hdr.a_magic; ! 49: entry = hdr.a_entry; ! 50: loc = hdr.a_text+hdr.a_data; ! 51: switch (magic) { ! 52: ! 53: case OMAGIC: ! 54: txtsize = 0; ! 55: datbase = 0; ! 56: datsize = loc; ! 57: mp->b = entry; ! 58: mp->e = mp->b + loc; ! 59: mp->f = N_TXTOFF(hdr); ! 60: mp->sp = DATASP; ! 61: mp->flag = MPINUSE; ! 62: break; ! 63: ! 64: case ZMAGIC: ! 65: case NMAGIC: ! 66: txtsize = hdr.a_text; ! 67: mp->b = N_PAGSIZ(hdr); ! 68: mp->e = hdr.a_text + mp->b; ! 69: mp->f = N_TXTOFF(hdr); ! 70: mp->sp = INSTSP; ! 71: mp->flag = MPINUSE; ! 72: mp++; ! 73: mp->b = datbase = round((WORD)(hdr.a_text + N_PAGSIZ(hdr)), ! 74: (WORD)N_SEGSIZ(hdr)); ! 75: mp->e = datsize = datbase + hdr.a_data; ! 76: mp->f = N_TXTOFF(hdr) + hdr.a_text; ! 77: mp->sp = DATASP; ! 78: mp->flag = MPINUSE; ! 79: break; ! 80: } ! 81: mp++; ! 82: mp->flag = 0; ! 83: syminit(&hdr); ! 84: } ! 85: ! 86: setcor() ! 87: { ! 88: register MAP *mp; ! 89: ! 90: fcor = getfile(corfil,2); ! 91: if (fcor < 0 ! 92: || (mapimage() == 0 && mapcore() == 0)) { ! 93: /* not a core image */ ! 94: mp = cormap; ! 95: mp->b = 0; ! 96: mp->e = MAXFILE; ! 97: mp->f = 0; ! 98: mp->sp = DATASP; ! 99: mp->flag = MPINUSE; ! 100: mp++; ! 101: mp->flag = 0; ! 102: return; ! 103: } ! 104: } ! 105: ! 106: /* ! 107: * set up maps for a direct process image (/proc) ! 108: */ ! 109: ! 110: #define UOFF(x) (ADDR)(&((struct user *)0)->x) ! 111: ! 112: int ! 113: mapimage() ! 114: { ! 115: register MAP *mp; ! 116: ! 117: if (trcimage() == 0) ! 118: return (0); ! 119: sigcode = trcunab(UOFF(u_code)); ! 120: txtsize = ctob(trcunab(UOFF(u_tsize))); ! 121: datsize = ctob(trcunab(UOFF(u_dsize))); ! 122: stksize = ctob(trcunab(UOFF(u_ssize))); ! 123: #if NOTDEF /* no ID separation on VAX */ ! 124: if (magic == IMAGIC) ! 125: datbase = 0; ! 126: else ! 127: #endif ! 128: datbase = txtsize; ! 129: mp = cormap; ! 130: if (txtsize) { ! 131: mp->b = ctob(1); ! 132: mp->e = mp->b + txtsize; ! 133: mp->f = TXTBASE + mp->b; ! 134: mp->flag = MPINUSE; ! 135: #if NOTDEF /* no ID separation on VAX */ ! 136: if (magic == IMAGIC) ! 137: mp->sp = INSTSP; ! 138: else ! 139: #endif ! 140: mp->sp = DATASP; ! 141: mp++; ! 142: } ! 143: mp->b = ctob(stoc(ctos(btoc(txtsize) + 1))); ! 144: mp->e = mp->b + datsize; ! 145: mp->f = DATBASE + mp->b; ! 146: mp->sp = DATASP; ! 147: mp->flag = MPINUSE; ! 148: mp++; ! 149: mp->b = MAXSTOR - stksize; ! 150: mp->e = MAXSTOR; ! 151: mp->f = DATBASE + mp->b; ! 152: mp->sp = DATASP; ! 153: mp->flag = MPINUSE; ! 154: mp++; ! 155: mp->b = 0; ! 156: mp->e = ctob(UPAGES); ! 157: mp->f = UBASE; ! 158: mp->sp = UBLKSP; ! 159: mp->flag = MPINUSE; ! 160: mp++; ! 161: mp->flag = 0; ! 162: rsnarf(); ! 163: return (1); ! 164: } ! 165: ! 166: mapcore() ! 167: { ! 168: struct user u; ! 169: register MAP *mp; ! 170: ! 171: lseek(fcor, (off_t)0, 0); ! 172: if (read(fcor, (char *)&u, sizeof(u)) != sizeof(u) ! 173: || badmagic(u.u_exdata.ux_mag)) ! 174: return (0); ! 175: if (magic && magic != u.u_exdata.ux_mag) ! 176: printf("%s: not from %s\n", corfil, symfil); ! 177: magic = u.u_exdata.ux_mag; ! 178: signo = u.u_arg[0]; ! 179: sigcode = u.u_code; ! 180: txtsize = ctob(u.u_tsize); ! 181: datsize = ctob(u.u_dsize); ! 182: stksize = ctob(u.u_ssize); ! 183: mp = cormap; ! 184: switch (magic) { ! 185: ! 186: case OMAGIC: ! 187: mp->b = ctob(1); ! 188: mp->e = mp->b + txtsize + datsize; ! 189: mp->f = ctob(UPAGES); ! 190: mp->sp = DATASP; ! 191: mp->flag = MPINUSE; ! 192: mp++; ! 193: mp->b = MAXSTOR - stksize; ! 194: mp->e = MAXSTOR; ! 195: mp->f = txtsize + datsize + ctob(UPAGES); ! 196: mp->sp = DATASP; ! 197: mp->flag = MPINUSE; ! 198: break; ! 199: ! 200: case NMAGIC: ! 201: case ZMAGIC: ! 202: mp->b = ctob(stoc(ctos(u.u_tsize + 1))); ! 203: mp->e = mp->b + datsize; ! 204: mp->f = ctob(UPAGES); ! 205: mp->sp = DATASP; ! 206: mp->flag = MPINUSE; ! 207: mp++; ! 208: mp->b = MAXSTOR - stksize; ! 209: mp->e = MAXSTOR; ! 210: mp->f = datsize + ctob(UPAGES); ! 211: mp->sp = DATASP; ! 212: mp->flag = MPINUSE; ! 213: break; ! 214: } ! 215: mp++; ! 216: mp->b = 0; ! 217: mp->e = ctob(UPAGES); ! 218: mp->f = 0; ! 219: mp->sp = UBLKSP; ! 220: mp->flag = MPINUSE; ! 221: mp++; ! 222: mp->flag = 0; ! 223: rsnarf(); ! 224: return (1); ! 225: } ! 226: ! 227: badmagic(num) ! 228: int num; ! 229: { ! 230: ! 231: switch (num) { ! 232: case OMAGIC: ! 233: case NMAGIC: ! 234: case ZMAGIC: ! 235: return (0); ! 236: ! 237: default: ! 238: return (1); ! 239: } ! 240: } ! 241: ! 242: cmdmap(itype, star) ! 243: register int star, itype; ! 244: { ! 245: register MAP *mp; ! 246: extern char lastc; ! 247: ! 248: if (itype & SYMF) ! 249: mp = symmap; ! 250: else ! 251: mp = cormap; ! 252: if (star) /* UGH */ ! 253: mp++; ! 254: if (expr(0)) ! 255: mp->b = expv; ! 256: if (expr(0)) ! 257: mp->e = expv; ! 258: if (expr(0)) ! 259: mp->f = expv; ! 260: mp->flag |= MPINUSE; ! 261: if (rdc()=='?' && (itype&SYMF) == 0) { ! 262: if (fcor) ! 263: close(fcor); ! 264: fcor=fsym; ! 265: corfil=symfil; ! 266: } else if (lastc == '/' && itype&SYMF) { ! 267: if (fsym) ! 268: close(fsym); ! 269: fsym=fcor; ! 270: symfil=corfil; ! 271: } else ! 272: reread(); ! 273: } ! 274: ! 275: create(f) ! 276: char *f; ! 277: { ! 278: register int fd; ! 279: ! 280: fd = creat(f, 0666); ! 281: if (fd < 0) ! 282: return (-1); ! 283: close(fd); ! 284: return (open(f, wtflag)); ! 285: } ! 286: ! 287: getfile(filnam, cnt) ! 288: char *filnam; ! 289: { ! 290: register int fsym; ! 291: ! 292: if (strcmp(filnam, "-") == 0) ! 293: return (-1); ! 294: fsym = open(filnam, wtflag); ! 295: if (fsym < 0 && xargc > cnt) { ! 296: if (wtflag) ! 297: fsym = create(filnam); ! 298: if (fsym < 0) ! 299: printf("cannot open `%s'\n", filnam); ! 300: } ! 301: return (fsym); ! 302: } ! 303: ! 304: setvar() ! 305: { ! 306: ! 307: var[varchk('b')] = datbase; ! 308: var[varchk('d')] = datsize; ! 309: var[varchk('e')] = entry; ! 310: var[varchk('m')] = magic; ! 311: var[varchk('s')] = stksize; ! 312: var[varchk('t')] = txtsize; ! 313: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.