Blame

Date:
Message:
more pthread
Actions:
History | Blob | Raw File
  1 564ca709 2004-04-19 devnull #include <u.h>

  2 564ca709 2004-04-19 devnull #include <libc.h>

  3 564ca709 2004-04-19 devnull #include <bio.h>

  4 564ca709 2004-04-19 devnull #include <ctype.h>

  5 564ca709 2004-04-19 devnull #include <mach.h>

  6 564ca709 2004-04-19 devnull #define Extern extern

  7 564ca709 2004-04-19 devnull #include "acid.h"

  8 564ca709 2004-04-19 devnull #include "y.tab.h"

  9 564ca709 2004-04-19 devnull 

 10 564ca709 2004-04-19 devnull static int syren;

 11 564ca709 2004-04-19 devnull 

 12 564ca709 2004-04-19 devnull Lsym*

 13 564ca709 2004-04-19 devnull unique(char *buf, Symbol *s)

 14 564ca709 2004-04-19 devnull {

 15 564ca709 2004-04-19 devnull 	Lsym *l;

 16 564ca709 2004-04-19 devnull 	int i, renamed;

 17 564ca709 2004-04-19 devnull 

 18 564ca709 2004-04-19 devnull 	renamed = 0;

 19 564ca709 2004-04-19 devnull 	strcpy(buf, s->name);

 20 564ca709 2004-04-19 devnull 	for(;;) {

 21 564ca709 2004-04-19 devnull 		l = look(buf);

 22 564ca709 2004-04-19 devnull 		if(l == 0 || (l->lexval == Tid && l->v->set == 0))

 23 564ca709 2004-04-19 devnull 			break;

 24 564ca709 2004-04-19 devnull 

 25 564ca709 2004-04-19 devnull 		if(syren == 0 && !quiet) {

 26 564ca709 2004-04-19 devnull 			print("Symbol renames:\n");

 27 564ca709 2004-04-19 devnull 			syren = 1;

 28 564ca709 2004-04-19 devnull 		}

 29 564ca709 2004-04-19 devnull 		i = strlen(buf)+1;

 30 564ca709 2004-04-19 devnull 		memmove(buf+1, buf, i);

 31 564ca709 2004-04-19 devnull 		buf[0] = '$';

 32 564ca709 2004-04-19 devnull 		renamed++;

 33 564ca709 2004-04-19 devnull 		if(renamed > 5 && !quiet) {

 34 564ca709 2004-04-19 devnull 			print("Too many renames; must be X source!\n");

 35 564ca709 2004-04-19 devnull 			break;

 36 564ca709 2004-04-19 devnull 		}

 37 564ca709 2004-04-19 devnull 	}

 38 564ca709 2004-04-19 devnull 	if(renamed && !quiet)

 39 a8c15b08 2004-04-21 devnull 		print("\t%s=%s %c/%L\n", s->name, buf, s->type, s->loc);

 40 564ca709 2004-04-19 devnull 	if(l == 0)

 41 564ca709 2004-04-19 devnull 		l = enter(buf, Tid);

 42 564ca709 2004-04-19 devnull 	return l;	

 43 564ca709 2004-04-19 devnull }

 44 564ca709 2004-04-19 devnull 

 45 564ca709 2004-04-19 devnull void

 46 564ca709 2004-04-19 devnull varsym(void)

 47 564ca709 2004-04-19 devnull {

 48 564ca709 2004-04-19 devnull 	Lsym *l;

 49 564ca709 2004-04-19 devnull 	Fhdr *fp;

 50 564ca709 2004-04-19 devnull 

 51 564ca709 2004-04-19 devnull 	l = mkvar("symbols");

 52 564ca709 2004-04-19 devnull 	if(l->v->set)

 53 564ca709 2004-04-19 devnull 		return;

 54 564ca709 2004-04-19 devnull 

 55 564ca709 2004-04-19 devnull 	l->v->set = 1;

 56 564ca709 2004-04-19 devnull 	l->v->type = TLIST;

 57 564ca709 2004-04-19 devnull 	l->v->store.u.l = nil;

 58 564ca709 2004-04-19 devnull 

 59 564ca709 2004-04-19 devnull 	for(fp=fhdrlist; fp; fp=fp->next){

 60 564ca709 2004-04-19 devnull 		if(fp->ftype == FCORE)

 61 564ca709 2004-04-19 devnull 			continue;

 62 564ca709 2004-04-19 devnull 		addvarsym(fp);

 63 564ca709 2004-04-19 devnull 	}

 64 564ca709 2004-04-19 devnull 	if(l->v->store.u.l == nil)

 65 564ca709 2004-04-19 devnull 		print("no debugging symbols\n");

 66 564ca709 2004-04-19 devnull }

 67 564ca709 2004-04-19 devnull 

 68 564ca709 2004-04-19 devnull void

 69 564ca709 2004-04-19 devnull addvarsym(Fhdr *fp)

 70 564ca709 2004-04-19 devnull {

 71 564ca709 2004-04-19 devnull 	int i;

 72 564ca709 2004-04-19 devnull 	Symbol s;

 73 564ca709 2004-04-19 devnull 	Lsym *l;

 74 564ca709 2004-04-19 devnull 	String *file;

 75 564ca709 2004-04-19 devnull 	ulong v;

 76 564ca709 2004-04-19 devnull 	char buf[1024];

 77 564ca709 2004-04-19 devnull 	List *list, **tail, *tl;

 78 564ca709 2004-04-19 devnull 

 79 564ca709 2004-04-19 devnull 	if(fp == nil)

 80 564ca709 2004-04-19 devnull 		return;

 81 564ca709 2004-04-19 devnull 

 82 564ca709 2004-04-19 devnull 	l = look("symbols");

 83 564ca709 2004-04-19 devnull 	if(l == nil)

 84 564ca709 2004-04-19 devnull 		return;

 85 564ca709 2004-04-19 devnull 

 86 564ca709 2004-04-19 devnull 	l->v->set = 1;

 87 564ca709 2004-04-19 devnull 	l->v->type = TLIST;

 88 564ca709 2004-04-19 devnull 	tail = &l->v->store.u.l;

 89 564ca709 2004-04-19 devnull 	while(*tail)

 90 564ca709 2004-04-19 devnull 		tail = &(*tail)->next;

 91 564ca709 2004-04-19 devnull 

 92 564ca709 2004-04-19 devnull 	file = strnode(fp->filename);

 93 564ca709 2004-04-19 devnull 	for(i=0; findexsym(fp, i, &s)>=0; i++){

 94 564ca709 2004-04-19 devnull 		switch(s.type) {

 95 564ca709 2004-04-19 devnull 		case 'T':

 96 564ca709 2004-04-19 devnull 		case 'L':

 97 564ca709 2004-04-19 devnull 		case 'D':

 98 564ca709 2004-04-19 devnull 		case 'B':

 99 564ca709 2004-04-19 devnull 		case 'b':

100 564ca709 2004-04-19 devnull 		case 'd':

101 564ca709 2004-04-19 devnull 		case 'l':

102 564ca709 2004-04-19 devnull 		case 't':

103 564ca709 2004-04-19 devnull 			if(s.name[0] == '.')

104 564ca709 2004-04-19 devnull 				continue;

105 564ca709 2004-04-19 devnull 			if(s.loc.type != LADDR)

106 564ca709 2004-04-19 devnull 				continue;

107 564ca709 2004-04-19 devnull 			v = s.loc.addr;

108 564ca709 2004-04-19 devnull 			tl = al(TLIST);

109 564ca709 2004-04-19 devnull 			*tail = tl;

110 564ca709 2004-04-19 devnull 			tail = &tl->next;

111 564ca709 2004-04-19 devnull 

112 564ca709 2004-04-19 devnull 			l = unique(buf, &s);

113 564ca709 2004-04-19 devnull 			l->v->set = 1;

114 564ca709 2004-04-19 devnull 			l->v->type = TINT;

115 564ca709 2004-04-19 devnull 			l->v->store.u.ival = v;

116 564ca709 2004-04-19 devnull 			if(l->v->store.comt == 0)

117 564ca709 2004-04-19 devnull 				l->v->store.fmt = 'X';

118 564ca709 2004-04-19 devnull 

119 564ca709 2004-04-19 devnull 			/* Enter as list of { name, type, value, file } */

120 564ca709 2004-04-19 devnull 			list = al(TSTRING);

121 564ca709 2004-04-19 devnull 			tl->store.u.l = list;

122 564ca709 2004-04-19 devnull 			list->store.u.string = strnode(buf);

123 564ca709 2004-04-19 devnull 			list->store.fmt = 's';

124 564ca709 2004-04-19 devnull 			list->next = al(TINT);

125 564ca709 2004-04-19 devnull 			list = list->next;

126 564ca709 2004-04-19 devnull 			list->store.fmt = 'c';

127 564ca709 2004-04-19 devnull 			list->store.u.ival = s.type;

128 564ca709 2004-04-19 devnull 			list->next = al(TINT);

129 564ca709 2004-04-19 devnull 			list = list->next;

130 564ca709 2004-04-19 devnull 			list->store.fmt = 'X';

131 564ca709 2004-04-19 devnull 			list->store.u.ival = v;

132 564ca709 2004-04-19 devnull 			list->next = al(TSTRING);

133 564ca709 2004-04-19 devnull 			list = list->next;

134 564ca709 2004-04-19 devnull 			list->store.fmt = 's';

135 564ca709 2004-04-19 devnull 			list->store.u.string = file;

136 564ca709 2004-04-19 devnull 		}

137 564ca709 2004-04-19 devnull 	}

138 564ca709 2004-04-19 devnull 	*tail = nil;

139 564ca709 2004-04-19 devnull }

140 564ca709 2004-04-19 devnull 

141 564ca709 2004-04-19 devnull static int

142 564ca709 2004-04-19 devnull infile(List *list, char *file, char **name)

143 564ca709 2004-04-19 devnull {

144 564ca709 2004-04-19 devnull 	/* name */

145 564ca709 2004-04-19 devnull 	if(list->type != TSTRING)

146 564ca709 2004-04-19 devnull 		return 0;

147 564ca709 2004-04-19 devnull 	*name = list->store.u.string->string;

148 564ca709 2004-04-19 devnull 	if(list->next == nil)

149 564ca709 2004-04-19 devnull 		return 0;

150 564ca709 2004-04-19 devnull 	list = list->next;

151 564ca709 2004-04-19 devnull 

152 564ca709 2004-04-19 devnull 	/* type character */

153 564ca709 2004-04-19 devnull 	if(list->next == nil)

154 564ca709 2004-04-19 devnull 		return 0;

155 564ca709 2004-04-19 devnull 	list = list->next;

156 564ca709 2004-04-19 devnull 

157 564ca709 2004-04-19 devnull 	/* address */

158 564ca709 2004-04-19 devnull 	if(list->next == nil)

159 564ca709 2004-04-19 devnull 		return 0;

160 564ca709 2004-04-19 devnull 	list = list->next;

161 564ca709 2004-04-19 devnull 

162 564ca709 2004-04-19 devnull 	/* file */

163 564ca709 2004-04-19 devnull 	if(list->type != TSTRING)

164 564ca709 2004-04-19 devnull 		return 0;

165 564ca709 2004-04-19 devnull 	return strcmp(list->store.u.string->string, file) == 0;

166 564ca709 2004-04-19 devnull }

167 564ca709 2004-04-19 devnull 

168 564ca709 2004-04-19 devnull void

169 564ca709 2004-04-19 devnull delvarsym(char *file)

170 564ca709 2004-04-19 devnull {

171 564ca709 2004-04-19 devnull 	char *name;

172 564ca709 2004-04-19 devnull 	Lsym *l;

173 564ca709 2004-04-19 devnull 	List **lp, *p;

174 564ca709 2004-04-19 devnull 

175 564ca709 2004-04-19 devnull 	l = look("symbols");

176 564ca709 2004-04-19 devnull 	if(l == nil)

177 564ca709 2004-04-19 devnull 		return;

178 564ca709 2004-04-19 devnull 

179 564ca709 2004-04-19 devnull 	if(l->v->type != TLIST)

180 564ca709 2004-04-19 devnull 		return;

181 564ca709 2004-04-19 devnull 

182 564ca709 2004-04-19 devnull 	for(lp=&l->v->store.u.l; *lp; lp=&(*lp)->next){

183 564ca709 2004-04-19 devnull 		while(*lp){

184 564ca709 2004-04-19 devnull 			p = *lp;

185 564ca709 2004-04-19 devnull 			if(p->type != TLIST)

186 564ca709 2004-04-19 devnull 				break;

187 564ca709 2004-04-19 devnull 			if(!infile(p->store.u.l, file, &name))

188 564ca709 2004-04-19 devnull 				break;

189 564ca709 2004-04-19 devnull 			*lp = p->next;

190 564ca709 2004-04-19 devnull 			/* XXX remove from hash tables */

191 564ca709 2004-04-19 devnull 		}

192 564ca709 2004-04-19 devnull 		if(*lp == nil)

193 564ca709 2004-04-19 devnull 			break;

194 564ca709 2004-04-19 devnull 	}

195 564ca709 2004-04-19 devnull }

196 564ca709 2004-04-19 devnull 

197 564ca709 2004-04-19 devnull void

198 564ca709 2004-04-19 devnull varreg(void)

199 564ca709 2004-04-19 devnull {

200 564ca709 2004-04-19 devnull 	Lsym *l;

201 564ca709 2004-04-19 devnull 	Value *v;

202 564ca709 2004-04-19 devnull 	Regdesc *r;

203 564ca709 2004-04-19 devnull 	List **tail, *li;

204 564ca709 2004-04-19 devnull 

205 564ca709 2004-04-19 devnull 	l = mkvar("registers");

206 564ca709 2004-04-19 devnull 	v = l->v;

207 564ca709 2004-04-19 devnull 	v->set = 1;

208 564ca709 2004-04-19 devnull 	v->type = TLIST;

209 564ca709 2004-04-19 devnull 	v->store.u.l = 0;

210 564ca709 2004-04-19 devnull 	tail = &v->store.u.l;

211 564ca709 2004-04-19 devnull 

212 564ca709 2004-04-19 devnull 	if(mach == nil)

213 564ca709 2004-04-19 devnull 		return;

214 564ca709 2004-04-19 devnull 

215 564ca709 2004-04-19 devnull 	for(r = mach->reglist; r->name; r++) {

216 564ca709 2004-04-19 devnull 		l = mkvar(r->name);

217 564ca709 2004-04-19 devnull 		v = l->v;

218 564ca709 2004-04-19 devnull 		v->set = 1;

219 281c90a5 2005-02-11 devnull 		v->store.u.reg.name = r->name;

220 281c90a5 2005-02-11 devnull 		v->store.u.reg.thread = 0;

221 564ca709 2004-04-19 devnull 		v->store.fmt = r->format;

222 4f2ac1b7 2005-01-23 devnull 		v->type = TREG;

223 564ca709 2004-04-19 devnull 

224 564ca709 2004-04-19 devnull 		li = al(TSTRING);

225 564ca709 2004-04-19 devnull 		li->store.u.string = strnode(r->name);

226 564ca709 2004-04-19 devnull 		li->store.fmt = 's';

227 564ca709 2004-04-19 devnull 		*tail = li;

228 564ca709 2004-04-19 devnull 		tail = &li->next;

229 564ca709 2004-04-19 devnull 	}

230 564ca709 2004-04-19 devnull 

231 564ca709 2004-04-19 devnull 	l = mkvar("bpinst");	/* Breakpoint text */

232 564ca709 2004-04-19 devnull 	v = l->v;

233 564ca709 2004-04-19 devnull 	v->type = TSTRING;

234 564ca709 2004-04-19 devnull 	v->store.fmt = 's';

235 564ca709 2004-04-19 devnull 	v->set = 1;

236 564ca709 2004-04-19 devnull 	v->store.u.string = gmalloc(sizeof(String));

237 564ca709 2004-04-19 devnull 	v->store.u.string->len = mach->bpsize;

238 564ca709 2004-04-19 devnull 	v->store.u.string->string = gmalloc(mach->bpsize);

239 564ca709 2004-04-19 devnull 	memmove(v->store.u.string->string, mach->bpinst, mach->bpsize);

240 564ca709 2004-04-19 devnull }

241 564ca709 2004-04-19 devnull 

242 564ca709 2004-04-19 devnull void

243 564ca709 2004-04-19 devnull loadvars(void)

244 564ca709 2004-04-19 devnull {

245 564ca709 2004-04-19 devnull 	Lsym *l;

246 564ca709 2004-04-19 devnull 	Value *v;

247 564ca709 2004-04-19 devnull 

248 564ca709 2004-04-19 devnull 	l =  mkvar("proc");

249 564ca709 2004-04-19 devnull 	v = l->v;

250 564ca709 2004-04-19 devnull 	v->type = TINT;

251 564ca709 2004-04-19 devnull 	v->store.fmt = 'X';

252 564ca709 2004-04-19 devnull 	v->set = 1;

253 564ca709 2004-04-19 devnull 	v->store.u.ival = 0;

254 564ca709 2004-04-19 devnull 

255 564ca709 2004-04-19 devnull 	l = mkvar("pid");		/* Current process */

256 564ca709 2004-04-19 devnull 	v = l->v;

257 564ca709 2004-04-19 devnull 	v->type = TINT;

258 564ca709 2004-04-19 devnull 	v->store.fmt = 'D';

259 564ca709 2004-04-19 devnull 	v->set = 1;

260 564ca709 2004-04-19 devnull 	v->store.u.ival = 0;

261 564ca709 2004-04-19 devnull 

262 564ca709 2004-04-19 devnull 	mkvar("notes");			/* Pending notes */

263 564ca709 2004-04-19 devnull 

264 564ca709 2004-04-19 devnull 	l = mkvar("proclist");		/* Attached processes */

265 564ca709 2004-04-19 devnull 	l->v->type = TLIST;

266 564ca709 2004-04-19 devnull }

267 564ca709 2004-04-19 devnull 

268 564ca709 2004-04-19 devnull String*

269 564ca709 2004-04-19 devnull strnodlen(char *name, int len)

270 564ca709 2004-04-19 devnull {

271 564ca709 2004-04-19 devnull 	String *s;

272 564ca709 2004-04-19 devnull 

273 564ca709 2004-04-19 devnull 	s = gmalloc(sizeof(String)+len+1);

274 564ca709 2004-04-19 devnull 	s->string = (char*)s+sizeof(String);

275 564ca709 2004-04-19 devnull 	s->len = len;

276 564ca709 2004-04-19 devnull 	if(name != 0)

277 564ca709 2004-04-19 devnull 		memmove(s->string, name, len);

278 564ca709 2004-04-19 devnull 	s->string[len] = '\0';

279 564ca709 2004-04-19 devnull 

280 564ca709 2004-04-19 devnull 	s->gc.gclink = gcl;

281 564ca709 2004-04-19 devnull 	gcl = (Gc*)s;

282 564ca709 2004-04-19 devnull 

283 564ca709 2004-04-19 devnull 	return s;

284 564ca709 2004-04-19 devnull }

285 564ca709 2004-04-19 devnull 

286 564ca709 2004-04-19 devnull String*

287 564ca709 2004-04-19 devnull strnode(char *name)

288 564ca709 2004-04-19 devnull {

289 564ca709 2004-04-19 devnull 	return strnodlen(name, strlen(name));

290 564ca709 2004-04-19 devnull }

291 564ca709 2004-04-19 devnull 

292 564ca709 2004-04-19 devnull String*

293 564ca709 2004-04-19 devnull runenode(Rune *name)

294 564ca709 2004-04-19 devnull {

295 564ca709 2004-04-19 devnull 	int len;

296 564ca709 2004-04-19 devnull 	Rune *p;

297 564ca709 2004-04-19 devnull 	String *s;

298 564ca709 2004-04-19 devnull 

299 564ca709 2004-04-19 devnull 	p = name;

300 564ca709 2004-04-19 devnull 	for(len = 0; *p; p++)

301 564ca709 2004-04-19 devnull 		len++;

302 564ca709 2004-04-19 devnull 

303 564ca709 2004-04-19 devnull 	len++;

304 564ca709 2004-04-19 devnull 	len *= sizeof(Rune);

305 564ca709 2004-04-19 devnull 	s = gmalloc(sizeof(String)+len);

306 564ca709 2004-04-19 devnull 	s->string = (char*)s+sizeof(String);

307 564ca709 2004-04-19 devnull 	s->len = len;

308 564ca709 2004-04-19 devnull 	memmove(s->string, name, len);

309 564ca709 2004-04-19 devnull 

310 564ca709 2004-04-19 devnull 	s->gc.gclink = gcl;

311 564ca709 2004-04-19 devnull 	gcl = (Gc*)s;

312 564ca709 2004-04-19 devnull 

313 564ca709 2004-04-19 devnull 	return s;

314 564ca709 2004-04-19 devnull }

315 564ca709 2004-04-19 devnull 

316 564ca709 2004-04-19 devnull String*

317 564ca709 2004-04-19 devnull stradd(String *l, String *r)

318 564ca709 2004-04-19 devnull {

319 564ca709 2004-04-19 devnull 	int len;

320 564ca709 2004-04-19 devnull 	String *s;

321 564ca709 2004-04-19 devnull 

322 564ca709 2004-04-19 devnull 	len = l->len+r->len;

323 564ca709 2004-04-19 devnull 	s = gmalloc(sizeof(String)+len+1);

324 564ca709 2004-04-19 devnull 	s->gc.gclink = gcl;

325 564ca709 2004-04-19 devnull 	gcl = (Gc*)s;

326 564ca709 2004-04-19 devnull 	s->len = len;

327 564ca709 2004-04-19 devnull 	s->string = (char*)s+sizeof(String);

328 564ca709 2004-04-19 devnull 	memmove(s->string, l->string, l->len);

329 564ca709 2004-04-19 devnull 	memmove(s->string+l->len, r->string, r->len);

330 564ca709 2004-04-19 devnull 	s->string[s->len] = 0;

331 564ca709 2004-04-19 devnull 	return s;

332 564ca709 2004-04-19 devnull }

333 564ca709 2004-04-19 devnull 

334 564ca709 2004-04-19 devnull int

335 564ca709 2004-04-19 devnull scmp(String *sr, String *sl)

336 564ca709 2004-04-19 devnull {

337 564ca709 2004-04-19 devnull 	if(sr->len != sl->len)

338 564ca709 2004-04-19 devnull 		return 0;

339 564ca709 2004-04-19 devnull 

340 564ca709 2004-04-19 devnull 	if(memcmp(sr->string, sl->string, sl->len))

341 564ca709 2004-04-19 devnull 		return 0;

342 564ca709 2004-04-19 devnull 

343 564ca709 2004-04-19 devnull 	return 1;

344 564ca709 2004-04-19 devnull }