![[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] / researchv10no / cmd / adb / 68v|
Return to setup.c CVS log | Up to [Research Unix] / researchv10no / cmd / adb / 68v |
1.1 ! root 1: /* ! 2: * adb - routines to read a.out+core at startup ! 3: * things in struct exec are in vax (!!) byte order ! 4: */ ! 5: #include "defs.h" ! 6: #include "space.h" ! 7: #include "map.h" ! 8: #include "a.out.h" ! 9: #include "machine.h" ! 10: ! 11: char *symfil = "2.out"; ! 12: char *corfil = "core"; ! 13: ! 14: MAP symmap[NMAP]; ! 15: MAP cormap[NMAP]; ! 16: ! 17: int fsym, fcor; ! 18: ! 19: static ADDR datbase; ! 20: ADDR txtsize, datsize, stksize; ! 21: static ADDR entry; ! 22: static int magic; ! 23: ! 24: setsym() ! 25: { ! 26: struct exec hdr; ! 27: register MAP *mp; ! 28: char *malloc(); ! 29: ! 30: fsym = getfile(symfil, 1); ! 31: mp = symmap; ! 32: if (read(fsym, (char *)&hdr, sizeof hdr) != sizeof hdr || ! 33: swal(hdr.a_magic) != A_MAGIC) { ! 34: mp->f = mp->b = 0; ! 35: mp->e = MAXFILE; ! 36: mp->sp = DATASP; ! 37: mp->flag = MPINUSE; ! 38: mp++; ! 39: mp->flag = 0; ! 40: return; ! 41: } ! 42: magic = swal(hdr.a_magic); ! 43: entry = swal(hdr.a_entry); ! 44: mp->b = PGSIZE; ! 45: txtsize = swal(hdr.a_text)+sizeof(hdr); ! 46: mp->e = txtsize + mp->b; ! 47: mp->f = 0; ! 48: mp->sp = INSTSP; ! 49: mp->flag = MPINUSE; ! 50: mp++; ! 51: datbase = round((WORD)swal(hdr.a_text)+sizeof(hdr), (WORD)PGSIZE) + PGSIZE; ! 52: mp->b = datbase; ! 53: mp->e = datsize = datbase + swal(hdr.a_data); ! 54: mp->f = sizeof(hdr) + swal(hdr.a_text); ! 55: mp->sp = DATASP; ! 56: mp->flag = MPINUSE; ! 57: mp++; ! 58: mp->flag = 0; ! 59: syminit(&hdr); ! 60: } ! 61: ! 62: setcor() ! 63: { ! 64: register MAP *mp; ! 65: ! 66: fcor = getfile(corfil,2); ! 67: #if NOTDEF ! 68: if (fcor < 0 ! 69: || (mapimage() == 0 && mapcore() == 0)) { ! 70: #endif ! 71: /* not a core image */ ! 72: ! 73: mp = cormap; ! 74: mp->b = 0; ! 75: mp->e = MAXFILE; ! 76: mp->f = 0; ! 77: mp->sp = DATASP; ! 78: mp->flag = MPINUSE; ! 79: mp++; ! 80: mp->flag = 0; ! 81: return; ! 82: #if NOTDEF ! 83: } ! 84: #endif ! 85: } ! 86: ! 87: mapcore() ! 88: { ! 89: #if NOTDEF ! 90: struct user u; ! 91: register MAP *mp; ! 92: ! 93: lseek(fcor, (off_t)0, 0); ! 94: if (read(fcor, (char *)&u, sizeof(u)) != sizeof(u) ! 95: || badmagic(u.u_exdata.ux_mag)) ! 96: return (0); ! 97: if (magic && magic != u.u_exdata.ux_mag) ! 98: printf("%s: not from %s\n", corfil, symfil); ! 99: magic = u.u_exdata.ux_mag; ! 100: signo = u.u_arg[0]; ! 101: sigcode = u.u_code; ! 102: txtsize = ctob(u.u_tsize); ! 103: datsize = ctob(u.u_dsize); ! 104: stksize = ctob(u.u_ssize); ! 105: mp = cormap; ! 106: switch (magic) { ! 107: ! 108: case OMAGIC: ! 109: mp->b = 0; ! 110: mp->e = txtsize + datsize; ! 111: mp->f = ctob(UPAGES); ! 112: mp->sp = DATASP; ! 113: mp->flag = MPINUSE; ! 114: mp++; ! 115: mp->b = MAXSTOR - stksize; ! 116: mp->e = MAXSTOR; ! 117: mp->f = txtsize + datsize + ctob(UPAGES); ! 118: mp->sp = DATASP; ! 119: mp->flag = MPINUSE; ! 120: break; ! 121: ! 122: case NMAGIC: ! 123: case ZMAGIC: ! 124: mp->b = txtsize; ! 125: mp->e = mp->b + datsize; ! 126: mp->f = ctob(UPAGES); ! 127: mp->sp = DATASP; ! 128: mp->flag = MPINUSE; ! 129: mp++; ! 130: mp->b = MAXSTOR - stksize; ! 131: mp->e = MAXSTOR; ! 132: mp->f = datsize + ctob(UPAGES); ! 133: mp->sp = DATASP; ! 134: mp->flag = MPINUSE; ! 135: break; ! 136: } ! 137: mp++; ! 138: mp->b = 0; ! 139: mp->e = ctob(UPAGES); ! 140: mp->f = 0; ! 141: mp->sp = UBLKSP; ! 142: mp->flag = MPINUSE; ! 143: mp++; ! 144: mp->flag = 0; ! 145: rsnarf(); ! 146: return (1); ! 147: #endif ! 148: } ! 149: ! 150: cmdmap(itype, star) ! 151: register int star, itype; ! 152: { ! 153: register MAP *mp; ! 154: extern char lastc; ! 155: ! 156: if (itype & SYMF) ! 157: mp = symmap; ! 158: else ! 159: mp = cormap; ! 160: if (star) /* UGH */ ! 161: mp++; ! 162: if (expr(0)) ! 163: mp->b = expv; ! 164: if (expr(0)) ! 165: mp->e = expv; ! 166: if (expr(0)) ! 167: mp->f = expv; ! 168: mp->flag |= MPINUSE; ! 169: if (rdc()=='?' && (itype&SYMF) == 0) { ! 170: if (fcor) ! 171: close(fcor); ! 172: fcor=fsym; ! 173: corfil=symfil; ! 174: } else if (lastc == '/' && itype&SYMF) { ! 175: if (fsym) ! 176: close(fsym); ! 177: fsym=fcor; ! 178: symfil=corfil; ! 179: } else ! 180: reread(); ! 181: } ! 182: ! 183: create(f) ! 184: char *f; ! 185: { ! 186: register int fd; ! 187: ! 188: fd = creat(f, 0666); ! 189: if (fd < 0) ! 190: return (-1); ! 191: close(fd); ! 192: return (open(f, wtflag)); ! 193: } ! 194: ! 195: getfile(filnam, cnt) ! 196: char *filnam; ! 197: { ! 198: register int fsym; ! 199: ! 200: if (strcmp(filnam, "-") == 0) ! 201: return (-1); ! 202: fsym = open(filnam, wtflag); ! 203: if (fsym < 0 && xargc > cnt) { ! 204: if (wtflag) ! 205: fsym = create(filnam); ! 206: if (fsym < 0) ! 207: printf("cannot open `%s'\n", filnam); ! 208: } ! 209: return (fsym); ! 210: } ! 211: ! 212: setvar() ! 213: { ! 214: ! 215: var[varchk('b')] = datbase; ! 216: var[varchk('d')] = datsize; ! 217: var[varchk('e')] = entry; ! 218: var[varchk('m')] = magic; ! 219: var[varchk('s')] = stksize; ! 220: var[varchk('t')] = txtsize; ! 221: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.