From 98014aa54361143450d0d9869369b6e3cb715f28 Mon Sep 17 00:00:00 2001
From: rsc <devnull@localhost>
Date: Fri, 3 Oct 2003 15:33:45 +0000
Subject: Macintosh.

---
 src/lib9/getcallerpc-PowerMacintosh.s |  5 +++++
 src/lib9/tas-PowerMacintosh.c         | 42 +++++++++++++++++++++++++++++++++++
 2 files changed, 47 insertions(+)
 create mode 100644 src/lib9/getcallerpc-PowerMacintosh.s
 create mode 100644 src/lib9/tas-PowerMacintosh.c

(limited to 'src/lib9')

diff --git a/src/lib9/getcallerpc-PowerMacintosh.s b/src/lib9/getcallerpc-PowerMacintosh.s
new file mode 100644
index 00000000..3571b744
--- /dev/null
+++ b/src/lib9/getcallerpc-PowerMacintosh.s
@@ -0,0 +1,5 @@
+.text
+.globl _getcallerpc
+_getcallerpc:
+	mflr	r3
+	blr
diff --git a/src/lib9/tas-PowerMacintosh.c b/src/lib9/tas-PowerMacintosh.c
new file mode 100644
index 00000000..29928ce0
--- /dev/null
+++ b/src/lib9/tas-PowerMacintosh.c
@@ -0,0 +1,42 @@
+#include "u.h"
+#include "libc.h"
+
+/*
+ * first argument (l) is in r3 at entry.
+ * r3 contains return value upon return.
+ */
+int
+_tas(void *x)
+{
+	int     v;
+	/*
+	 * this __asm__ works with gcc 2.95.2 (mac os x 10.1).
+	 * this assembly language destroys r0 (0), some other register (v),
+	 * r4 (x) and r5 (temp).
+	 */
+	__asm__("\n	sync\n"
+	"	li	r0,0\n"
+	"	mr	r4,%1		/* &l->val */\n"
+	"	lis	r5,0xdead	/* assemble constant 0xdeaddead */\n"
+	"	ori	r5,r5,0xdead	/* \" */\n"
+	"tas1:\n"
+	"	dcbf	r4,r0	/* cache flush; \"fix for 603x bug\" */\n"
+	"	lwarx	%0,r4,r0	/* v = l->val with reservation */\n"
+	"	cmp	cr0,0,%0,r0	/* v == 0 */\n"
+	"	bne	tas0\n"
+	"	stwcx.	r5,r4,r0   /* if (l->val same) l->val = 0xdeaddead */\n"
+	"	bne	tas1\n"
+	"tas0:\n"
+	"	sync\n"
+	"	isync\n"
+	: "=r" (v)
+	: "r"  (x)
+	: "cc", "memory", "r0", "r4", "r5"
+	);
+	switch(v) {
+	case 0:		return 0;
+	case 0xdeaddead: return 1;
+	default:	print("tas: corrupted 0x%lux\n", v);
+	}
+	return 0;
+}
-- 
cgit v1.2.3