From 1f78a92b123f82cc8951eb08431b27872b85de32 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Axel=20D=C3=B6rfler?= <axeld@pinc-software.de>
Date: Sun, 11 May 2003 02:17:54 +0000
Subject: [PATCH] Implemented the atomic functions to get in touch with PPC
 assembly.

git-svn-id: file:///srv/svn/repos/haiku/trunk/current@3196 a95241bf-73f2-0310-859d-f6bbb57e9c96
---
 src/kernel/libroot/os/arch/ppc/Jamfile  |  5 +-
 src/kernel/libroot/os/arch/ppc/atomic.S | 63 +++++++++++++++++++++++++
 2 files changed, 65 insertions(+), 3 deletions(-)
 create mode 100644 src/kernel/libroot/os/arch/ppc/atomic.S

diff --git a/src/kernel/libroot/os/arch/ppc/Jamfile b/src/kernel/libroot/os/arch/ppc/Jamfile
index 5b89a982d9..380fead788 100644
--- a/src/kernel/libroot/os/arch/ppc/Jamfile
+++ b/src/kernel/libroot/os/arch/ppc/Jamfile
@@ -1,7 +1,7 @@
 SubDir OBOS_TOP src kernel libroot os arch ppc ;
 
 KernelMergeObject os_arch_$(OBOS_ARCH).o :
-#	<$(SOURCE_GRIST)>atomic.S
+	<$(SOURCE_GRIST)>atomic.S
 #	<$(SOURCE_GRIST)>cpuid.S
 #	<$(SOURCE_GRIST)>systeminfo.c
 #	<$(SOURCE_GRIST)>thread.c
@@ -11,7 +11,6 @@ KernelMergeObject os_arch_$(OBOS_ARCH).o :
 	;
 
 MergeObjectFromObjects kernel_os_arch_$(OBOS_ARCH).o :
-	# ToDo: remove atomic_xxx() functions from the kernel's libx86.a
-	#<$(SOURCE_GRIST)>atomic.o
+	<$(SOURCE_GRIST)>atomic.o
 	#<$(SOURCE_GRIST)>cpuid.o
 	;
diff --git a/src/kernel/libroot/os/arch/ppc/atomic.S b/src/kernel/libroot/os/arch/ppc/atomic.S
new file mode 100644
index 0000000000..c122361061
--- /dev/null
+++ b/src/kernel/libroot/os/arch/ppc/atomic.S
@@ -0,0 +1,63 @@
+/*
+** Copyright 2003, Axel Dörfler, axeld@pinc-software.de. All rights reserved.
+** Distributed under the terms of the OpenBeOS License.
+*/
+
+#define FUNCTION(x) .global x; .type x,@function; x
+
+.text
+
+/* int atomic_add(int *value, int increment)
+ *                r3          r4
+ */
+FUNCTION(atomic_add):
+lost1:	lwarx	%r5, 0, %r3		// reserve memory address located in "r3"
+		add		%r0, %r5, %r4	// (contents are stored in "r5")
+		stwcx.	%r0, 0, %r3
+		bne-	lost1			// try again if reservation was lost
+		mr		%r3, %r5		// return old value (was in "r5")
+		blr
+
+/* int atomic_and(int *value, int andValue)
+ *                r3          r4
+ */
+FUNCTION(atomic_and):
+lost2:	lwarx	%r5, 0, %r3
+		and		%r0, %r5, %r4
+		stwcx.	%r0, 0, %r3
+		bne-	lost2
+		mr		%r3, %r5
+		blr
+
+/* int atomic_or(int *value, int orValue)
+ *               r3          r4
+ */
+FUNCTION(atomic_or):
+lost3:	lwarx	%r5, 0, %r3
+		or		%r0, %r5, %r4
+		stwcx.	%r0, 0, %r3
+		bne-	lost3
+		mr		%r3, %r5
+		blr
+
+/* int atomic_set(int *value, int setTo)
+ *                r3          r4
+ */
+FUNCTION(atomic_set):
+lost4:	lwarx	%r5, 0, %r3
+		stwcx.	%r4, 0, %r3
+		bne-	lost4
+		mr		%r3, %r5
+		blr
+
+/* int test_and_set(int *value, int setTo, int testValue) 
+ *                  r3          r4         r5
+ */
+FUNCTION(test_and_set):
+lost5:	lwarx	%r6, 0, %r3
+		cmpw	%r6, %r5
+		bne		out5
+		stwcx.	%r4, 0, %r3
+out5:	mr		%r3, %r6
+		blr
+