summaryrefslogtreecommitdiff
path: root/support
diff options
context:
space:
mode:
authorOri Bernstein <ori@eigenstate.org>2017-03-19 23:42:17 -0700
committerOri Bernstein <ori@eigenstate.org>2017-03-19 23:42:17 -0700
commit5cf18de659c44f4287c103dd81298c5f6b7e0951 (patch)
treed6d545c14aa340a6b405ff16b7b35a8972ee6add /support
parent0eae465b2ba82f8a0e49c869bddd37b85ec2e5ae (diff)
downloadmc-5cf18de659c44f4287c103dd81298c5f6b7e0951.tar.gz
Add acid debug file for Myrddin
Diffstat (limited to 'support')
-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;
+ }
+}