1 0a61c07d 2004-04-19 devnull // portable acid for all architectures
3 0a61c07d 2004-04-19 devnull defn pfl(addr)
5 0a61c07d 2004-04-19 devnull print(pcfile(addr), ":", pcline(addr), "\n");
9 0a61c07d 2004-04-19 devnull notestk(addr)
11 0a61c07d 2004-04-19 devnull local pc, sp;
12 0a61c07d 2004-04-19 devnull complex Ureg addr;
14 0a61c07d 2004-04-19 devnull pc = addr.pc\X;
15 0a61c07d 2004-04-19 devnull sp = addr.sp\X;
17 0a61c07d 2004-04-19 devnull print("Note pc:", pc, " sp:", sp, " ", fmt(pc, 'a'), " ");
19 0a61c07d 2004-04-19 devnull _stk({"PC", pc, "SP", sp, linkreg(addr)}, 1);
23 0a61c07d 2004-04-19 devnull notelstk(addr)
25 0a61c07d 2004-04-19 devnull local pc, sp;
26 0a61c07d 2004-04-19 devnull complex Ureg addr;
28 0a61c07d 2004-04-19 devnull pc = addr.pc\X;
29 0a61c07d 2004-04-19 devnull sp = addr.sp\X;
31 0a61c07d 2004-04-19 devnull print("Note pc:", pc, " sp:", sp, " ", fmt(pc, 'a'), " ");
33 0a61c07d 2004-04-19 devnull _stk({"PC", pc, "SP", sp, linkreg(addr)}, 1);
36 0a61c07d 2004-04-19 devnull defn params(param)
38 0a61c07d 2004-04-19 devnull while param do {
39 0a61c07d 2004-04-19 devnull sym = head param;
40 029e5020 2005-03-18 devnull print(sym[0], "=", itoa(sym[1], "%#ux"));
41 0a61c07d 2004-04-19 devnull param = tail param;
42 0a61c07d 2004-04-19 devnull if param then
43 0a61c07d 2004-04-19 devnull print (",");
47 0a61c07d 2004-04-19 devnull stkprefix = "";
48 0a61c07d 2004-04-19 devnull stkignore = {};
49 0a61c07d 2004-04-19 devnull stkend = 0;
51 0a61c07d 2004-04-19 devnull defn locals(l)
53 0a61c07d 2004-04-19 devnull local sym;
55 0a61c07d 2004-04-19 devnull while l do {
56 0a61c07d 2004-04-19 devnull sym = head l;
57 029e5020 2005-03-18 devnull print(stkprefix, "\t", sym[0], "=", itoa(sym[1], "%#ux"), "\n");
58 0a61c07d 2004-04-19 devnull l = tail l;
62 7284df18 2004-04-19 devnull defn _stkign(frame)
64 7284df18 2004-04-19 devnull local file;
66 7284df18 2004-04-19 devnull file = pcfile(frame[0]);
67 0a61c07d 2004-04-19 devnull s = stkignore;
68 0a61c07d 2004-04-19 devnull while s do {
69 0a61c07d 2004-04-19 devnull if regexp(head s, file) then
70 0a61c07d 2004-04-19 devnull return 1;
71 0a61c07d 2004-04-19 devnull s = tail s;
73 0a61c07d 2004-04-19 devnull return 0;
76 0a61c07d 2004-04-19 devnull // print a stack trace
78 0a61c07d 2004-04-19 devnull // in a run of leading frames in files matched by regexps in stkignore,
79 0a61c07d 2004-04-19 devnull // only print the last one.
80 0a61c07d 2004-04-19 devnull defn _stk(regs, dolocals)
82 08ddcb74 2005-02-11 devnull local stk, frame, pc, fn, done, callerpc, paramlist, locallist;
84 0a61c07d 2004-04-19 devnull stk = strace(regs);
85 0a61c07d 2004-04-19 devnull if stkignore then {
86 7284df18 2004-04-19 devnull while stk && tail stk && _stkign(head tail stk) do
87 0a61c07d 2004-04-19 devnull stk = tail stk;
90 0a61c07d 2004-04-19 devnull callerpc = 0;
91 d89ce51a 2005-02-11 devnull done = 0;
92 d89ce51a 2005-02-11 devnull while stk && !done do {
93 0a61c07d 2004-04-19 devnull frame = head stk;
94 0a61c07d 2004-04-19 devnull stk = tail stk;
95 0a61c07d 2004-04-19 devnull fn = frame[0];
96 0a61c07d 2004-04-19 devnull pc = frame[1];
97 0a61c07d 2004-04-19 devnull callerpc = frame[2];
98 0a61c07d 2004-04-19 devnull paramlist = frame[3];
99 0a61c07d 2004-04-19 devnull locallist = frame[4];
101 0a61c07d 2004-04-19 devnull print(stkprefix, fmt(fn, 'a'), "(");
102 0a61c07d 2004-04-19 devnull params(paramlist);
103 0a61c07d 2004-04-19 devnull print(")");
104 0a61c07d 2004-04-19 devnull if pc != fn then
105 029e5020 2005-03-18 devnull print("+", itoa(pc-fn, "%#ux"));
106 0a61c07d 2004-04-19 devnull print(" ");
107 0a61c07d 2004-04-19 devnull pfl(pc);
108 0a61c07d 2004-04-19 devnull if dolocals then
109 0a61c07d 2004-04-19 devnull locals(locallist);
110 d89ce51a 2005-02-11 devnull if fn == var("threadmain") || fn == var("p9main") then
112 d89ce51a 2005-02-11 devnull if fn == var("threadstart") || fn == var("scheduler") then
114 d89ce51a 2005-02-11 devnull if callerpc == 0 then
117 d89ce51a 2005-02-11 devnull if callerpc && !done then {
118 0a61c07d 2004-04-19 devnull print(stkprefix, fmt(callerpc, 'a'), " ");
119 0a61c07d 2004-04-19 devnull pfl(callerpc);
123 0a61c07d 2004-04-19 devnull defn findsrc(file)
125 0a61c07d 2004-04-19 devnull local lst, src;
127 0a61c07d 2004-04-19 devnull if file[0] == '/' then {
128 0a61c07d 2004-04-19 devnull src = file(file);
129 0a61c07d 2004-04-19 devnull if src != {} then {
130 0a61c07d 2004-04-19 devnull srcfiles = append srcfiles, file;
131 0a61c07d 2004-04-19 devnull srctext = append srctext, src;
132 0a61c07d 2004-04-19 devnull return src;
134 0a61c07d 2004-04-19 devnull return {};
137 0a61c07d 2004-04-19 devnull lst = srcpath;
138 0a61c07d 2004-04-19 devnull while head lst do {
139 0a61c07d 2004-04-19 devnull src = file(head lst+file);
140 0a61c07d 2004-04-19 devnull if src != {} then {
141 0a61c07d 2004-04-19 devnull srcfiles = append srcfiles, file;
142 0a61c07d 2004-04-19 devnull srctext = append srctext, src;
143 0a61c07d 2004-04-19 devnull return src;
145 0a61c07d 2004-04-19 devnull lst = tail lst;
149 0a61c07d 2004-04-19 devnull defn line(addr)
151 0a61c07d 2004-04-19 devnull local src, file;
153 0a61c07d 2004-04-19 devnull file = pcfile(addr);
154 0a61c07d 2004-04-19 devnull src = match(file, srcfiles);
156 0a61c07d 2004-04-19 devnull if src >= 0 then
157 0a61c07d 2004-04-19 devnull src = srctext[src];
159 0a61c07d 2004-04-19 devnull src = findsrc(file);
161 0a61c07d 2004-04-19 devnull if src == {} then {
162 0a61c07d 2004-04-19 devnull print("no source for ", file, "\n");
163 0a61c07d 2004-04-19 devnull return {};
165 0a61c07d 2004-04-19 devnull line = pcline(addr)-1;
166 0a61c07d 2004-04-19 devnull print(file, ":", src[line], "\n");
169 0a61c07d 2004-04-19 devnull defn addsrcdir(dir)
171 0a61c07d 2004-04-19 devnull dir = dir+"/";
173 0a61c07d 2004-04-19 devnull if match(dir, srcpath) >= 0 then {
174 0a61c07d 2004-04-19 devnull print("already in srcpath\n");
175 0a61c07d 2004-04-19 devnull return {};
178 0a61c07d 2004-04-19 devnull srcpath = {dir}+srcpath;
181 0a61c07d 2004-04-19 devnull defn source()
183 0a61c07d 2004-04-19 devnull local l;
185 0a61c07d 2004-04-19 devnull l = srcpath;
186 0a61c07d 2004-04-19 devnull while l do {
187 0a61c07d 2004-04-19 devnull print(head l, "\n");
188 0a61c07d 2004-04-19 devnull l = tail l;
190 0a61c07d 2004-04-19 devnull l = srcfiles;
192 0a61c07d 2004-04-19 devnull while l do {
193 0a61c07d 2004-04-19 devnull print("\t", head l, "\n");
194 0a61c07d 2004-04-19 devnull l = tail l;
198 0a61c07d 2004-04-19 devnull defn Bsrc(addr)
200 0a61c07d 2004-04-19 devnull local lst;
202 0a61c07d 2004-04-19 devnull lst = srcpath;
203 0a61c07d 2004-04-19 devnull file = pcfile(addr);
204 0a61c07d 2004-04-19 devnull if file[0] == '/' && access(file) then {
205 0a61c07d 2004-04-19 devnull rc("B "+file+":"+itoa(pcline(addr)));
206 0a61c07d 2004-04-19 devnull return {};
208 0a61c07d 2004-04-19 devnull while head lst do {
209 0a61c07d 2004-04-19 devnull name = head lst+file;
210 0a61c07d 2004-04-19 devnull if access(name) then {
211 0a61c07d 2004-04-19 devnull rc("B "+name+":"+itoa(pcline(addr)));
212 0a61c07d 2004-04-19 devnull return {};
214 0a61c07d 2004-04-19 devnull lst = tail lst;
216 0a61c07d 2004-04-19 devnull print("no source for ", file, "\n");
219 0a61c07d 2004-04-19 devnull defn srcline(addr)
221 0a61c07d 2004-04-19 devnull local text, cline, line, file, src;
222 0a61c07d 2004-04-19 devnull file = pcfile(addr);
223 0a61c07d 2004-04-19 devnull src = match(file,srcfiles);
224 0a61c07d 2004-04-19 devnull if (src>=0) then
225 0a61c07d 2004-04-19 devnull src = srctext[src];
227 0a61c07d 2004-04-19 devnull src = findsrc(file);
228 0a61c07d 2004-04-19 devnull if (src=={}) then
230 0a61c07d 2004-04-19 devnull return "(no source)";
232 0a61c07d 2004-04-19 devnull return src[pcline(addr)-1];
235 0a61c07d 2004-04-19 devnull defn src(addr)
237 0a61c07d 2004-04-19 devnull local src, file, line, cline, text;
239 0a61c07d 2004-04-19 devnull file = pcfile(addr);
240 0a61c07d 2004-04-19 devnull src = match(file, srcfiles);
242 0a61c07d 2004-04-19 devnull if src >= 0 then
243 0a61c07d 2004-04-19 devnull src = srctext[src];
245 0a61c07d 2004-04-19 devnull src = findsrc(file);
247 0a61c07d 2004-04-19 devnull if src == {} then {
248 0a61c07d 2004-04-19 devnull print("no source for ", file, "\n");
249 0a61c07d 2004-04-19 devnull return {};
252 0a61c07d 2004-04-19 devnull cline = pcline(addr)-1;
253 0a61c07d 2004-04-19 devnull print(file, ":", cline+1, "\n");
254 0a61c07d 2004-04-19 devnull line = cline-5;
255 0a61c07d 2004-04-19 devnull loop 0,10 do {
256 0a61c07d 2004-04-19 devnull if line >= 0 then {
257 0a61c07d 2004-04-19 devnull if line == cline then
258 0a61c07d 2004-04-19 devnull print(">");
260 0a61c07d 2004-04-19 devnull print(" ");
261 0a61c07d 2004-04-19 devnull text = src[line];
262 0a61c07d 2004-04-19 devnull if text == {} then
263 0a61c07d 2004-04-19 devnull return {};
264 0a61c07d 2004-04-19 devnull print(line+1, "\t", text, "\n");
266 0a61c07d 2004-04-19 devnull line = line+1;
270 0a61c07d 2004-04-19 devnull defn step() // single step the process
272 0a61c07d 2004-04-19 devnull local lst, lpl, addr, bput;
274 0a61c07d 2004-04-19 devnull bput = 0;
275 0a61c07d 2004-04-19 devnull if match(*PC, bplist) >= 0 then { // Sitting on a breakpoint
276 0a61c07d 2004-04-19 devnull bput = fmt(*PC, bpfmt);
277 0a61c07d 2004-04-19 devnull *bput = @bput;
280 0a61c07d 2004-04-19 devnull lst = follow(*PC);
282 0a61c07d 2004-04-19 devnull lpl = lst;
283 0a61c07d 2004-04-19 devnull while lpl do { // place break points
284 0a61c07d 2004-04-19 devnull *(head lpl) = bpinst;
285 0a61c07d 2004-04-19 devnull lpl = tail lpl;
288 0a61c07d 2004-04-19 devnull startstop(pid); // do the step
290 0a61c07d 2004-04-19 devnull while lst do { // remove the breakpoints
291 0a61c07d 2004-04-19 devnull addr = fmt(head lst, bpfmt);
292 0a61c07d 2004-04-19 devnull *addr = @addr;
293 0a61c07d 2004-04-19 devnull lst = tail lst;
295 0a61c07d 2004-04-19 devnull if bput != 0 then
296 0a61c07d 2004-04-19 devnull *bput = bpinst;
299 0a61c07d 2004-04-19 devnull defn bpset(addr) // set a breakpoint
301 0a61c07d 2004-04-19 devnull if status(pid) != "Stopped" then {
302 0a61c07d 2004-04-19 devnull print("Waiting...\n");
303 0a61c07d 2004-04-19 devnull stop(pid);
305 0a61c07d 2004-04-19 devnull if match(addr, bplist) >= 0 then
306 0a61c07d 2004-04-19 devnull print("breakpoint already set at ", fmt(addr, 'a'), "\n");
308 0a61c07d 2004-04-19 devnull *fmt(addr, bpfmt) = bpinst;
309 0a61c07d 2004-04-19 devnull bplist = append bplist, addr;
313 0a61c07d 2004-04-19 devnull defn bptab() // print a table of breakpoints
315 0a61c07d 2004-04-19 devnull local lst, addr;
317 0a61c07d 2004-04-19 devnull lst = bplist;
318 0a61c07d 2004-04-19 devnull while lst do {
319 0a61c07d 2004-04-19 devnull addr = head lst;
320 0a61c07d 2004-04-19 devnull print("\t", fmt(addr, 'X'), " ", fmt(addr, 'a'), " ", fmt(addr, 'i'), "\n");
321 0a61c07d 2004-04-19 devnull lst = tail lst;
325 0a61c07d 2004-04-19 devnull defn bpdel(addr) // delete a breakpoint
327 0a61c07d 2004-04-19 devnull local n, pc, nbplist;
329 74685416 2005-11-28 devnull if addr == 0 then {
330 74685416 2005-11-28 devnull while bplist do {
331 74685416 2005-11-28 devnull pc = head bplist;
332 74685416 2005-11-28 devnull pc = fmt(pc, bpfmt);
333 74685416 2005-11-28 devnull *pc = @pc;
334 74685416 2005-11-28 devnull bplist = tail bplist;
336 74685416 2005-11-28 devnull return {};
339 0a61c07d 2004-04-19 devnull n = match(addr, bplist);
340 0a61c07d 2004-04-19 devnull if n < 0 then {
341 0a61c07d 2004-04-19 devnull print("no breakpoint at ", fmt(addr, 'a'), "\n");
342 0a61c07d 2004-04-19 devnull return {};
345 0a61c07d 2004-04-19 devnull addr = fmt(addr, bpfmt);
346 0a61c07d 2004-04-19 devnull *addr = @addr;
348 0a61c07d 2004-04-19 devnull nbplist = {}; // delete from list
349 0a61c07d 2004-04-19 devnull while bplist do {
350 0a61c07d 2004-04-19 devnull pc = head bplist;
351 0a61c07d 2004-04-19 devnull if pc != addr then
352 0a61c07d 2004-04-19 devnull nbplist = append nbplist, pc;
353 0a61c07d 2004-04-19 devnull bplist = tail bplist;
355 0a61c07d 2004-04-19 devnull bplist = nbplist; // delete from memory
358 0a61c07d 2004-04-19 devnull defn cont() // continue execution
360 0a61c07d 2004-04-19 devnull local addr;
362 0a61c07d 2004-04-19 devnull addr = fmt(*PC, bpfmt);
363 0a61c07d 2004-04-19 devnull if match(addr, bplist) >= 0 then { // Sitting on a breakpoint
364 0a61c07d 2004-04-19 devnull *addr = @addr;
365 0a61c07d 2004-04-19 devnull step(); // Step over
366 0a61c07d 2004-04-19 devnull *addr = bpinst;
368 0a61c07d 2004-04-19 devnull startstop(pid); // Run
371 0a61c07d 2004-04-19 devnull defn stopped(pid) // called from acid when a process changes state
373 74685416 2005-11-28 devnull pfixstop(pid);
374 0a61c07d 2004-04-19 devnull pstop(pid); // stub so this is easy to replace
377 0a61c07d 2004-04-19 devnull defn procs() // print status of processes
379 0a61c07d 2004-04-19 devnull local c, lst, cpid;
381 0a61c07d 2004-04-19 devnull cpid = pid;
382 0a61c07d 2004-04-19 devnull lst = proclist;
383 0a61c07d 2004-04-19 devnull while lst do {
384 0a61c07d 2004-04-19 devnull np = head lst;
385 0a61c07d 2004-04-19 devnull setproc(np);
386 0a61c07d 2004-04-19 devnull if np == cpid then
387 0a61c07d 2004-04-19 devnull c = '>';
389 0a61c07d 2004-04-19 devnull c = ' ';
390 0a61c07d 2004-04-19 devnull print(fmt(c, 'c'), np, ": ", status(np), " at ", fmt(*PC, 'a'), " setproc(", np, ")\n");
391 0a61c07d 2004-04-19 devnull lst = tail lst;
393 0a61c07d 2004-04-19 devnull pid = cpid;
394 0a61c07d 2004-04-19 devnull if pid != 0 then
395 0a61c07d 2004-04-19 devnull setproc(pid);
398 0a61c07d 2004-04-19 devnull _asmlines = 30;
400 0a61c07d 2004-04-19 devnull defn asm(addr)
402 0a61c07d 2004-04-19 devnull local bound;
404 0a61c07d 2004-04-19 devnull bound = fnbound(addr);
406 0a61c07d 2004-04-19 devnull addr = fmt(addr, 'i');
407 0a61c07d 2004-04-19 devnull loop 1,_asmlines do {
408 0a61c07d 2004-04-19 devnull print(fmt(addr, 'a'), " ", fmt(addr, 'X'));
409 0a61c07d 2004-04-19 devnull print("\t", @addr++, "\n");
410 0a61c07d 2004-04-19 devnull if bound != {} && addr > bound[1] then {
411 0a61c07d 2004-04-19 devnull lasmaddr = addr;
412 0a61c07d 2004-04-19 devnull return {};
415 0a61c07d 2004-04-19 devnull lasmaddr = addr;
418 0a61c07d 2004-04-19 devnull defn casm()
420 0a61c07d 2004-04-19 devnull asm(lasmaddr);
423 95f5b525 2005-01-23 devnull defn xasm(addr)
425 95f5b525 2005-01-23 devnull local bound;
427 95f5b525 2005-01-23 devnull bound = fnbound(addr);
429 95f5b525 2005-01-23 devnull addr = fmt(addr, 'i');
430 95f5b525 2005-01-23 devnull loop 1,_asmlines do {
431 95f5b525 2005-01-23 devnull print(fmt(addr, 'a'), " ", fmt(addr, 'X'));
432 95f5b525 2005-01-23 devnull print("\t", *addr++, "\n");
433 95f5b525 2005-01-23 devnull if bound != {} && addr > bound[1] then {
434 95f5b525 2005-01-23 devnull lasmaddr = addr;
435 95f5b525 2005-01-23 devnull return {};
438 95f5b525 2005-01-23 devnull lasmaddr = addr;
441 95f5b525 2005-01-23 devnull defn xcasm()
443 95f5b525 2005-01-23 devnull xasm(lasmaddr);
446 0a61c07d 2004-04-19 devnull defn win()
448 0a61c07d 2004-04-19 devnull local npid, estr;
450 0a61c07d 2004-04-19 devnull bplist = {};
451 0a61c07d 2004-04-19 devnull notes = {};
453 0a61c07d 2004-04-19 devnull estr = "/sys/lib/acid/window '0 0 600 400' "+textfile;
454 0a61c07d 2004-04-19 devnull if progargs != "" then
455 0a61c07d 2004-04-19 devnull estr = estr+" "+progargs;
457 0a61c07d 2004-04-19 devnull npid = rc(estr);
458 0a61c07d 2004-04-19 devnull npid = atoi(npid);
459 0a61c07d 2004-04-19 devnull if npid == 0 then
460 0a61c07d 2004-04-19 devnull error("win failed to create process");
462 0a61c07d 2004-04-19 devnull setproc(npid);
463 0a61c07d 2004-04-19 devnull stopped(npid);
466 0a61c07d 2004-04-19 devnull defn win2()
468 0a61c07d 2004-04-19 devnull local npid, estr;
470 0a61c07d 2004-04-19 devnull bplist = {};
471 0a61c07d 2004-04-19 devnull notes = {};
473 0a61c07d 2004-04-19 devnull estr = "/sys/lib/acid/transcript '0 0 600 400' '100 100 700 500' "+textfile;
474 0a61c07d 2004-04-19 devnull if progargs != "" then
475 0a61c07d 2004-04-19 devnull estr = estr+" "+progargs;
477 0a61c07d 2004-04-19 devnull npid = rc(estr);
478 0a61c07d 2004-04-19 devnull npid = atoi(npid);
479 0a61c07d 2004-04-19 devnull if npid == 0 then
480 0a61c07d 2004-04-19 devnull error("win failed to create process");
482 0a61c07d 2004-04-19 devnull setproc(npid);
483 0a61c07d 2004-04-19 devnull stopped(npid);
486 74685416 2005-11-28 devnull printstopped = 1;
487 0a61c07d 2004-04-19 devnull defn new()
489 74685416 2005-11-28 devnull local a;
491 0a61c07d 2004-04-19 devnull bplist = {};
492 0a61c07d 2004-04-19 devnull newproc(progargs);
493 74685416 2005-11-28 devnull a = var("p9main");
494 74685416 2005-11-28 devnull if a == {} then
495 74685416 2005-11-28 devnull a = var("main");
496 74685416 2005-11-28 devnull if a == {} then
497 74685416 2005-11-28 devnull return {};
498 74685416 2005-11-28 devnull bpset(a);
499 74685416 2005-11-28 devnull while *PC != a do
501 74685416 2005-11-28 devnull bpdel(a);
504 0a61c07d 2004-04-19 devnull defn stmnt() // step one statement
506 0a61c07d 2004-04-19 devnull local line;
508 0a61c07d 2004-04-19 devnull line = pcline(*PC);
509 0a61c07d 2004-04-19 devnull while 1 do {
511 0a61c07d 2004-04-19 devnull if line != pcline(*PC) then {
512 0a61c07d 2004-04-19 devnull src(*PC);
513 0a61c07d 2004-04-19 devnull return {};
518 0a61c07d 2004-04-19 devnull defn func() // step until we leave the current function
520 0a61c07d 2004-04-19 devnull local bound, end, start, pc;
522 0a61c07d 2004-04-19 devnull bound = fnbound(*PC);
523 0a61c07d 2004-04-19 devnull if bound == {} then {
524 0a61c07d 2004-04-19 devnull print("cannot locate text symbol\n");
525 0a61c07d 2004-04-19 devnull return {};
528 0a61c07d 2004-04-19 devnull pc = *PC;
529 0a61c07d 2004-04-19 devnull start = bound[0];
530 0a61c07d 2004-04-19 devnull end = bound[1];
531 0a61c07d 2004-04-19 devnull while pc >= start && pc < end do {
533 0a61c07d 2004-04-19 devnull pc = *PC;
537 0a61c07d 2004-04-19 devnull defn next()
539 74685416 2005-11-28 devnull local sp, bound, pc;
541 0a61c07d 2004-04-19 devnull sp = *SP;
542 0a61c07d 2004-04-19 devnull bound = fnbound(*PC);
543 74685416 2005-11-28 devnull if bound == {} then {
544 74685416 2005-11-28 devnull print("cannot locate text symbol\n");
545 74685416 2005-11-28 devnull return {};
547 0a61c07d 2004-04-19 devnull stmnt();
548 0a61c07d 2004-04-19 devnull pc = *PC;
549 0a61c07d 2004-04-19 devnull if pc >= bound[0] && pc < bound[1] then
550 0a61c07d 2004-04-19 devnull return {};
552 0a61c07d 2004-04-19 devnull while (pc < bound[0] || pc > bound[1]) && sp >= *SP do {
554 0a61c07d 2004-04-19 devnull pc = *PC;
556 0a61c07d 2004-04-19 devnull src(*PC);
559 0a61c07d 2004-04-19 devnull defn maps()
561 0a61c07d 2004-04-19 devnull local m, mm;
563 0a61c07d 2004-04-19 devnull m = map();
564 0a61c07d 2004-04-19 devnull while m != {} do {
565 0a61c07d 2004-04-19 devnull mm = head m;
566 0a61c07d 2004-04-19 devnull m = tail m;
567 0a61c07d 2004-04-19 devnull print(mm[2]\X, " ", mm[3]\X, " ", mm[4]\X, " ", mm[0], " ", mm[1], "\n");
571 0a61c07d 2004-04-19 devnull defn dump(addr, n, fmt)
573 0a61c07d 2004-04-19 devnull loop 0, n do {
574 0a61c07d 2004-04-19 devnull print(fmt(addr, 'X'), ": ");
575 0a61c07d 2004-04-19 devnull addr = mem(addr, fmt);
579 0a61c07d 2004-04-19 devnull defn mem(addr, fmt)
582 0a61c07d 2004-04-19 devnull local i, c, n;
585 0a61c07d 2004-04-19 devnull while fmt[i] != 0 do {
586 0a61c07d 2004-04-19 devnull c = fmt[i];
588 0a61c07d 2004-04-19 devnull while '0' <= fmt[i] && fmt[i] <= '9' do {
589 0a61c07d 2004-04-19 devnull n = 10*n + fmt[i]-'0';
590 0a61c07d 2004-04-19 devnull i = i+1;
592 0a61c07d 2004-04-19 devnull if n <= 0 then n = 1;
593 0a61c07d 2004-04-19 devnull addr = fmt(addr, fmt[i]);
594 0a61c07d 2004-04-19 devnull while n > 0 do {
595 0a61c07d 2004-04-19 devnull print(*addr++, " ");
596 0a61c07d 2004-04-19 devnull n = n-1;
598 0a61c07d 2004-04-19 devnull i = i+1;
600 0a61c07d 2004-04-19 devnull print("\n");
601 0a61c07d 2004-04-19 devnull return addr;
604 0a61c07d 2004-04-19 devnull defn symbols(pattern)
606 a4b21877 2006-02-14 devnull local l, s, name;
608 0a61c07d 2004-04-19 devnull l = symbols;
609 0a61c07d 2004-04-19 devnull while l do {
610 0a61c07d 2004-04-19 devnull s = head l;
611 a4b21877 2006-02-14 devnull if regexp(pattern, s[0]) then {
612 a4b21877 2006-02-14 devnull name = s[4];
613 a4b21877 2006-02-14 devnull if name == {} then
614 a4b21877 2006-02-14 devnull name = "";
615 a4b21877 2006-02-14 devnull print(s[0], "\t", s[1], "\t", s[2], "\t", s[3], "\t", name, "\n");
617 0a61c07d 2004-04-19 devnull l = tail l;
621 0a61c07d 2004-04-19 devnull defn havesymbol(name)
623 0a61c07d 2004-04-19 devnull local l, s;
625 0a61c07d 2004-04-19 devnull l = symbols;
626 0a61c07d 2004-04-19 devnull while l do {
627 0a61c07d 2004-04-19 devnull s = head l;
628 0a61c07d 2004-04-19 devnull l = tail l;
629 0a61c07d 2004-04-19 devnull if s[0] == name then
630 0a61c07d 2004-04-19 devnull return 1;
632 0a61c07d 2004-04-19 devnull return 0;
635 0a61c07d 2004-04-19 devnull defn spsrch(len)
637 0a61c07d 2004-04-19 devnull local addr, a, s, e;
639 0a61c07d 2004-04-19 devnull addr = *SP;
640 0a61c07d 2004-04-19 devnull s = origin & 0x7fffffff;
641 0a61c07d 2004-04-19 devnull e = etext & 0x7fffffff;
642 0a61c07d 2004-04-19 devnull loop 1, len do {
643 0a61c07d 2004-04-19 devnull a = *addr++;
644 0a61c07d 2004-04-19 devnull c = a & 0x7fffffff;
645 0a61c07d 2004-04-19 devnull if c > s && c < e then {
646 0a61c07d 2004-04-19 devnull print("src(", a, ")\n");
652 7284df18 2004-04-19 devnull defn acidtypes()
654 7284df18 2004-04-19 devnull local syms;
655 7284df18 2004-04-19 devnull local l;
657 7284df18 2004-04-19 devnull l = textfile();
658 7284df18 2004-04-19 devnull if l != {} then {
659 7284df18 2004-04-19 devnull syms = "acidtypes";
660 7284df18 2004-04-19 devnull while l != {} do {
661 7284df18 2004-04-19 devnull syms = syms + " " + ((head l)[0]);
662 7284df18 2004-04-19 devnull l = tail l;
664 7284df18 2004-04-19 devnull includepipe(syms);
668 95f5b525 2005-01-23 devnull defn getregs()
670 95f5b525 2005-01-23 devnull local regs, l;
672 95f5b525 2005-01-23 devnull regs = {};
673 95f5b525 2005-01-23 devnull l = registers;
674 95f5b525 2005-01-23 devnull while l != {} do {
675 95f5b525 2005-01-23 devnull regs = append regs, var(l[0]);
676 95f5b525 2005-01-23 devnull l = tail l;
678 95f5b525 2005-01-23 devnull return regs;
681 95f5b525 2005-01-23 devnull defn setregs(regs)
683 95f5b525 2005-01-23 devnull local l;
685 95f5b525 2005-01-23 devnull l = registers;
686 95f5b525 2005-01-23 devnull while l != {} do {
687 95f5b525 2005-01-23 devnull var(l[0]) = regs[0];
688 95f5b525 2005-01-23 devnull l = tail l;
689 95f5b525 2005-01-23 devnull regs = tail regs;
691 95f5b525 2005-01-23 devnull return regs;
694 95f5b525 2005-01-23 devnull defn resetregs()
696 95f5b525 2005-01-23 devnull local l;
698 95f5b525 2005-01-23 devnull l = registers;
699 95f5b525 2005-01-23 devnull while l != {} do {
700 95f5b525 2005-01-23 devnull var(l[0]) = register(l[0]);
701 95f5b525 2005-01-23 devnull l = tail l;
705 95f5b525 2005-01-23 devnull defn clearregs()
707 95f5b525 2005-01-23 devnull local l;
709 95f5b525 2005-01-23 devnull l = registers;
710 95f5b525 2005-01-23 devnull while l != {} do {
711 95f5b525 2005-01-23 devnull var(l[0]) = refconst(~0);
712 95f5b525 2005-01-23 devnull l = tail l;
716 0a61c07d 2004-04-19 devnull progargs="";
717 0a61c07d 2004-04-19 devnull print(acidfile);