summaryrefslogtreecommitdiff
path: root/support/acid/myr
blob: 70e635400b6ea8dcfd828fe0b16dafedbbd81e97 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
// 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);
	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;
	}
}