o5r/plan9port
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

bring them up-to-speed for current system.

Browse source
This commit is contained in:
rsc 2004-04-19 18:52:34 +00:00
parent d9c2aa3a33
commit 7284df18a8
3 changed files with 66 additions and 54 deletions
Download patch file Download diff file Expand all files Collapse all files

31
acid/port
View file

@ -33,10 +33,10 @@ notelstk(addr)
_stk({"PC", pc, "SP", sp, linkreg(addr)}, 1);
}
defn labstk(l) // trace from a label
{
_stk({"PC", *(l+4), "SP", *l, linkreg(0)}, 0);
}
// defn labstk(l) // trace from a label
// {
// _stk({"PC", *(l+4), "SP", *l, linkreg(0)}, 0);
// }
defn params(param)
{
@ -64,8 +64,11 @@ defn locals(l)
}
}
defn _stkign(file)
defn _stkign(frame)
{
local file;
file = pcfile(frame[0]);
s = stkignore;
while s do {
if regexp(head s, file) then
@ -85,7 +88,7 @@ defn _stk(regs, dolocals)
stk = strace(regs);
if stkignore then {
while stk && tail stk && _stkign((head tail stk)[1]) do
while stk && tail stk && _stkign(head tail stk) do
stk = tail stk;
}
@ -595,5 +598,21 @@ defn spsrch(len)
}
}
defn acidtypes()
{
local syms;
local l;
l = textfile();
if l != {} then {
syms = "acidtypes";
while l != {} do {
syms = syms + " " + ((head l)[0]);
l = tail l;
}
includepipe(syms);
}
}
progargs="";
print(acidfile);