1 84114f06 2004-04-19 devnull /*
  2 84114f06 2004-04-19 devnull  * init routines
  3 84114f06 2004-04-19 devnull  */
  4 84114f06 2004-04-19 devnull #include "defs.h"
  5 84114f06 2004-04-19 devnull #include "fns.h"
  6 84114f06 2004-04-19 devnull 
  7 84114f06 2004-04-19 devnull char	*symfil;
  8 84114f06 2004-04-19 devnull char	*corfil;
  9 84114f06 2004-04-19 devnull 
 10 84114f06 2004-04-19 devnull Map	*symmap;
 11 84114f06 2004-04-19 devnull Map	*cormap;
 12 84114f06 2004-04-19 devnull Regs	*correg;
 13 84114f06 2004-04-19 devnull Map	*dotmap;
 14 84114f06 2004-04-19 devnull 
 15 84114f06 2004-04-19 devnull void
 16 84114f06 2004-04-19 devnull setsym(void)
 17 84114f06 2004-04-19 devnull {
 18 84114f06 2004-04-19 devnull 	if(symhdr && syminit(symhdr) < 0)
 19 84114f06 2004-04-19 devnull 		dprint("syminit: %r\n");
 20 84114f06 2004-04-19 devnull /*
 21 84114f06 2004-04-19 devnull 	Symbol s;
 22 84114f06 2004-04-19 devnull 	if (mach->sbreg && lookup(0, mach->sbreg, &s) < 0)
 23 84114f06 2004-04-19 devnull 		mach->sb = s.loc.addr;
 24 84114f06 2004-04-19 devnull */
 25 84114f06 2004-04-19 devnull }
 26 84114f06 2004-04-19 devnull 
 27 84114f06 2004-04-19 devnull void
 28 84114f06 2004-04-19 devnull setcor(void)
 29 84114f06 2004-04-19 devnull {
 30 84114f06 2004-04-19 devnull 	unmapproc(cormap);
 31 84114f06 2004-04-19 devnull 	unmapfile(corhdr, cormap);
 32 84114f06 2004-04-19 devnull 	free(correg);
 33 84114f06 2004-04-19 devnull 	correg = nil;
 34 84114f06 2004-04-19 devnull 
 35 84114f06 2004-04-19 devnull 	if (pid > 0) {
 36 84114f06 2004-04-19 devnull 		if (mapproc(pid, cormap, &correg) < 0)
 37 84114f06 2004-04-19 devnull 			dprint("mapproc %d: %r\n", pid);
 38 84114f06 2004-04-19 devnull 	} else {
 39 84114f06 2004-04-19 devnull 		if (corhdr) {
 40 84114f06 2004-04-19 devnull 			if (mapfile(corhdr, 0, cormap, &correg) < 0)
 41 84114f06 2004-04-19 devnull 				dprint("mapfile %s: %r\n", corfil);
 42 84114f06 2004-04-19 devnull 		} else
 43 84114f06 2004-04-19 devnull 			dprint("no core image\n");
 44 84114f06 2004-04-19 devnull 	}
 45 84114f06 2004-04-19 devnull 	kmsys();
 46 84114f06 2004-04-19 devnull 	return;
 47 84114f06 2004-04-19 devnull }
 48 84114f06 2004-04-19 devnull 
 49 84114f06 2004-04-19 devnull Map*
 50 84114f06 2004-04-19 devnull dumbmap(int fd)
 51 84114f06 2004-04-19 devnull {
 52 84114f06 2004-04-19 devnull 	Map *dumb;
 53 84114f06 2004-04-19 devnull 	Seg s;
 54 84114f06 2004-04-19 devnull 
 55 84114f06 2004-04-19 devnull 	dumb = allocmap();
 56 84114f06 2004-04-19 devnull 	memset(&s, 0, sizeof s);
 57 84114f06 2004-04-19 devnull 	s.fd = fd;
 58 84114f06 2004-04-19 devnull 	s.base = 0;
 59 84114f06 2004-04-19 devnull 	s.offset = 0;
 60 84114f06 2004-04-19 devnull 	s.size = 0xFFFFFFFF;
 61 84114f06 2004-04-19 devnull 	s.name = "data";
 62 84114f06 2004-04-19 devnull 	s.file = "<dumb>";
 63 84114f06 2004-04-19 devnull 	if(addseg(dumb, s) < 0){
 64 84114f06 2004-04-19 devnull 		freemap(dumb);
 65 84114f06 2004-04-19 devnull 		return nil;
 66 84114f06 2004-04-19 devnull 	}
 67 84114f06 2004-04-19 devnull 	if(mach == nil)
 68 84114f06 2004-04-19 devnull 		mach = machcpu;
 69 84114f06 2004-04-19 devnull 	return dumb;
 70 84114f06 2004-04-19 devnull }
 71 84114f06 2004-04-19 devnull 
 72 84114f06 2004-04-19 devnull /*
 73 84114f06 2004-04-19 devnull  * set up maps for a direct process image (/proc)
 74 84114f06 2004-04-19 devnull  */
 75 84114f06 2004-04-19 devnull void
 76 84114f06 2004-04-19 devnull cmdmap(Map *map)
 77 84114f06 2004-04-19 devnull {
 78 84114f06 2004-04-19 devnull 	int i;
 79 84114f06 2004-04-19 devnull 	char name[MAXSYM];
 80 84114f06 2004-04-19 devnull 
 81 84114f06 2004-04-19 devnull 	rdc();
 82 84114f06 2004-04-19 devnull 	readsym(name);
 83 84114f06 2004-04-19 devnull 	i = findseg(map, name, nil);
 84 84114f06 2004-04-19 devnull 	if (i < 0)	/* not found */
 85 84114f06 2004-04-19 devnull 		error("Invalid map name");
 86 84114f06 2004-04-19 devnull 
 87 84114f06 2004-04-19 devnull 	if (expr(0)) {
 88 84114f06 2004-04-19 devnull 	//	if (strcmp(name, "text") == 0)
 89 84114f06 2004-04-19 devnull 	//		textseg(expv, &fhdr);
 90 84114f06 2004-04-19 devnull 		map->seg[i].base = expv;
 91 84114f06 2004-04-19 devnull 	} else
 92 84114f06 2004-04-19 devnull 		error("Invalid base address"); 
 93 84114f06 2004-04-19 devnull 	if (expr(0))
 94 84114f06 2004-04-19 devnull 		map->seg[i].size = expv - map->seg[i].base;
 95 84114f06 2004-04-19 devnull 	else
 96 84114f06 2004-04-19 devnull 		error("Invalid end address"); 
 97 84114f06 2004-04-19 devnull 	if (expr(0))
 98 84114f06 2004-04-19 devnull 		map->seg[i].offset = expv; 
 99 84114f06 2004-04-19 devnull 	else
100 84114f06 2004-04-19 devnull 		error("Invalid file offset"); 
101 84114f06 2004-04-19 devnull /*
102 84114f06 2004-04-19 devnull 	if (rdc()=='?' && map == cormap) {
103 84114f06 2004-04-19 devnull 		if (fcor)
104 84114f06 2004-04-19 devnull 			close(fcor);
105 84114f06 2004-04-19 devnull 		fcor=fsym;
106 84114f06 2004-04-19 devnull 		corfil = symfil;
107 84114f06 2004-04-19 devnull 		cormap = symmap;
108 84114f06 2004-04-19 devnull 	} else if (lastc == '/' && map == symmap) {
109 84114f06 2004-04-19 devnull 		if (fsym)
110 84114f06 2004-04-19 devnull 			close(fsym);
111 84114f06 2004-04-19 devnull 		fsym=fcor;
112 84114f06 2004-04-19 devnull 		symfil=corfil;
113 84114f06 2004-04-19 devnull 		symmap=cormap;
114 84114f06 2004-04-19 devnull 	} else
115 84114f06 2004-04-19 devnull 		reread();
116 84114f06 2004-04-19 devnull */
117 84114f06 2004-04-19 devnull }
118 84114f06 2004-04-19 devnull 
119 84114f06 2004-04-19 devnull void
120 84114f06 2004-04-19 devnull kmsys(void)
121 84114f06 2004-04-19 devnull {
122 84114f06 2004-04-19 devnull 	int i;
123 84114f06 2004-04-19 devnull 
124 84114f06 2004-04-19 devnull 	i = findseg(symmap, "text", symfil);
125 84114f06 2004-04-19 devnull 	if (i >= 0) {
126 84114f06 2004-04-19 devnull 		symmap->seg[i].base = symmap->seg[i].base&~mach->ktmask;
127 84114f06 2004-04-19 devnull 		symmap->seg[i].size = -symmap->seg[i].base;
128 84114f06 2004-04-19 devnull 	}
129 84114f06 2004-04-19 devnull 	i = findseg(symmap, "data", symfil);
130 84114f06 2004-04-19 devnull 	if (i >= 0) {
131 84114f06 2004-04-19 devnull 		symmap->seg[i].base = symmap->seg[i].base&~mach->ktmask;
132 84114f06 2004-04-19 devnull 		symmap->seg[i].size = -symmap->seg[i].base;
133 84114f06 2004-04-19 devnull 	}
134 84114f06 2004-04-19 devnull }
135 84114f06 2004-04-19 devnull 
136 84114f06 2004-04-19 devnull void
137 84114f06 2004-04-19 devnull attachprocess(void)
138 84114f06 2004-04-19 devnull {
139 84114f06 2004-04-19 devnull 	if (!adrflg) {
140 84114f06 2004-04-19 devnull 		dprint("used pid$a\n");
141 84114f06 2004-04-19 devnull 		return;
142 84114f06 2004-04-19 devnull 	}
143 84114f06 2004-04-19 devnull 	pid = adrval;
144 84114f06 2004-04-19 devnull 	setcor();
145 84114f06 2004-04-19 devnull }