better symbols

This commit is contained in:
rsc 2006-02-14 19:38:04 +00:00
parent 469e5e5196
commit a4b2187729

View file

@ -603,13 +603,17 @@ defn mem(addr, fmt)
defn symbols(pattern)
{
local l, s;
local l, s, name;
l = symbols;
while l do {
s = head l;
if regexp(pattern, s[0]) then
print(s[0], "\t", s[1], "\t", s[2], "\t", s[3], "\n");
if regexp(pattern, s[0]) then {
name = s[4];
if name == {} then
name = "";
print(s[0], "\t", s[1], "\t", s[2], "\t", s[3], "\t", name, "\n");
}
l = tail l;
}
}