summaryrefslogtreecommitdiff
path: root/support/acid/myr
diff options
context:
space:
mode:
Diffstat (limited to 'support/acid/myr')
-rw-r--r--support/acid/myr16
1 files changed, 16 insertions, 0 deletions
diff --git a/support/acid/myr b/support/acid/myr
new file mode 100644
index 0000000..daaea06
--- /dev/null
+++ b/support/acid/myr
@@ -0,0 +1,16 @@
+// acid support for Myrddin.
+
+// Myrddin doesn't use the Plan 9 ABI, so we
+// define our own stack function.
+defn myrstk()
+{
+ local b
+ 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;
+ }
+}