ref: 69d83a1be81a97e50f1b83a2cf327f96064f1152
dir: /support/acid/myr/
// acid support for Myrddin.
// Myrddin doesn't use the Plan 9 ABI, so we
// define our own stack function.
defn myrstk()
{
local b
line = pcline(*SP);
file = pcfile(*SP);
func = fmt(*(*BP + 8), 'a');
print(file, ":", line, ":\t", func, "\n");
b = *BP;
while *b do {
line = pcline(*(b + 8));
file = pcfile(*(b + 8));
func = fmt(*(b + 8), 'a');
print(file, ":", line, ":\t", func, "\n");
b = *b;
}
}