[urcu.git] / urcu / uatomic_arch_sparc64.h

#ifndef _URCU_ARCH_UATOMIC_SPARC64_H
#define _URCU_ARCH_UATOMIC_SPARC64_H

/* 
 * Copyright (c) 1991-1994 by Xerox Corporation.  All rights reserved.
 * Copyright (c) 1996-1999 by Silicon Graphics.  All rights reserved.
 * Copyright (c) 1999-2003 by Hewlett-Packard Company. All rights reserved.
 * Copyright (c) 2009      Mathieu Desnoyers
 *
 * THIS MATERIAL IS PROVIDED AS IS, WITH ABSOLUTELY NO WARRANTY EXPRESSED
 * OR IMPLIED.  ANY USE IS AT YOUR OWN RISK.
 *
 * Permission is hereby granted to use or copy this program
 * for any purpose,  provided the above notices are retained on all copies.
 * Permission to modify the code and to distribute modified code is granted,
 * provided the above notices are retained, and a notice that the code was
 * modified is included with the above copyright notice.
 *
 * Code inspired from libuatomic_ops-1.2, inherited in part from the
 * Boehm-Demers-Weiser conservative garbage collector.
 */

#include <urcu/compiler.h>
#include <urcu/system.h>

#ifdef __cplusplus
extern "C" {
#endif 

#ifndef __SIZEOF_LONG__
#ifdef __LP64__
#define __SIZEOF_LONG__ 8
#else
#define __SIZEOF_LONG__ 4
#endif
#endif

#ifndef BITS_PER_LONG
#define BITS_PER_LONG	(__SIZEOF_LONG__ * 8)
#endif

/* cmpxchg */

static inline __attribute__((always_inline))
unsigned long _uatomic_cmpxchg(void *addr, unsigned long old,
			      unsigned long _new, int len)
{
	switch (len) {
	case 4:
	{
		__asm__ __volatile__ (
			"membar #StoreLoad | #LoadLoad\n\t"
                        "cas [%1],%2,%0\n\t"
                        "membar #StoreLoad | #StoreStore\n\t"
                        : "+&r" (_new)
                        : "r" (addr), "r" (old)
                        : "memory");

		return _new;
	}
#if (BITS_PER_LONG == 64)
	case 8:
	{
		__asm__ __volatile__ (
			"membar #StoreLoad | #LoadLoad\n\t"
                        "casx [%1],%2,%0\n\t"
                        "membar #StoreLoad | #StoreStore\n\t"
                        : "+&r" (_new)
                        : "r" (addr), "r" (old)
                        : "memory");

		return _new;
	}
#endif
	}
	__builtin_trap();
	return 0;
}


#define uatomic_cmpxchg(addr, old, _new)				    \
	((__typeof__(*(addr))) _uatomic_cmpxchg((addr), (unsigned long)(old),\
						(unsigned long)(_new), 	    \
						sizeof(*(addr))))

/* xchg */

static inline __attribute__((always_inline))
unsigned long _uatomic_exchange(void *addr, unsigned long val, int len)
{
	switch (len) {
	case 4:
	{
		unsigned int old, oldt;

		oldt = uatomic_read((unsigned int *)addr);
		do {
			old = oldt;
			oldt = _uatomic_cmpxchg(addr, old, val, 4);
		} while (oldt != old);

		return old;
	}
#if (BITS_PER_LONG == 64)
	case 8:
	{
		unsigned long old, oldt;

		oldt = uatomic_read((unsigned long *)addr);
		do {
			old = oldt;
			oldt = _uatomic_cmpxchg(addr, old, val, 8);
		} while (oldt != old);

		return old;
	}
#endif
	}
	__builtin_trap();
	return 0;
}

#define uatomic_xchg(addr, v)						    \
	((__typeof__(*(addr))) _uatomic_exchange((addr), (unsigned long)(v), \
						sizeof(*(addr))))

/* uatomic_add_return */

static inline __attribute__((always_inline))
unsigned long _uatomic_add_return(void *addr, unsigned long val, int len)
{
	switch (len) {
	case 4:
	{
		unsigned int old, oldt;

		oldt = uatomic_read((unsigned int *)addr);
		do {
			old = oldt;
			oldt = _uatomic_cmpxchg(addr, old, old + val, 4);
		} while (oldt != old);

		return old + val;
	}
#if (BITS_PER_LONG == 64)
	case 8:
	{
		unsigned long old, oldt;

		oldt = uatomic_read((unsigned long *)addr);
		do {
			old = oldt;
			oldt = _uatomic_cmpxchg(addr, old, old + val, 8);
		} while (oldt != old);

		return old + val;
	}
#endif
	}
	__builtin_trap();
	return 0;
}

#define uatomic_add_return(addr, v)					\
	((__typeof__(*(addr))) _uatomic_add_return((addr),		\
						  (unsigned long)(v),	\
						  sizeof(*(addr))))

#ifdef __cplusplus 
}
#endif

#include <urcu/uatomic_generic.h>

#endif /* _URCU_ARCH_UATOMIC_PPC_H */
Commit	Line	Data
58de5a4b MD	1	#ifndef _URCU_ARCH_UATOMIC_SPARC64_H
	2	#define _URCU_ARCH_UATOMIC_SPARC64_H
	3
	4	/*
	5	* Copyright (c) 1991-1994 by Xerox Corporation. All rights reserved.
	6	* Copyright (c) 1996-1999 by Silicon Graphics. All rights reserved.
	7	* Copyright (c) 1999-2003 by Hewlett-Packard Company. All rights reserved.
	8	* Copyright (c) 2009 Mathieu Desnoyers
	9	*
	10	* THIS MATERIAL IS PROVIDED AS IS, WITH ABSOLUTELY NO WARRANTY EXPRESSED
	11	* OR IMPLIED. ANY USE IS AT YOUR OWN RISK.
	12	*
	13	* Permission is hereby granted to use or copy this program
	14	* for any purpose, provided the above notices are retained on all copies.
	15	* Permission to modify the code and to distribute modified code is granted,
	16	* provided the above notices are retained, and a notice that the code was
	17	* modified is included with the above copyright notice.
	18	*
	19	* Code inspired from libuatomic_ops-1.2, inherited in part from the
	20	* Boehm-Demers-Weiser conservative garbage collector.
	21	*/
	22
	23	#include <urcu/compiler.h>
	24	#include <urcu/system.h>
	25
36bc70a8 MD	26	#ifdef __cplusplus
	27	extern "C" {
	28	#endif
	29
58de5a4b	30	#ifndef __SIZEOF_LONG__
795d506a	31	#ifdef __LP64__
58de5a4b MD	32	#define __SIZEOF_LONG__ 8
	33	#else
	34	#define __SIZEOF_LONG__ 4
	35	#endif
	36	#endif
	37
	38	#ifndef BITS_PER_LONG
	39	#define BITS_PER_LONG (__SIZEOF_LONG__ * 8)
	40	#endif
	41
58de5a4b MD	42	/* cmpxchg */
	43
	44	static inline __attribute__((always_inline))
	45	unsigned long _uatomic_cmpxchg(void *addr, unsigned long old,
	46	unsigned long _new, int len)
	47	{
	48	switch (len) {
	49	case 4:
	50	{
	51	__asm__ __volatile__ (
	52	"membar #StoreLoad \| #LoadLoad\n\t"
	53	"cas [%1],%2,%0\n\t"
	54	"membar #StoreLoad \| #StoreStore\n\t"
	55	: "+&r" (_new)
	56	: "r" (addr), "r" (old)
	57	: "memory");
	58
	59	return _new;
	60	}
	61	#if (BITS_PER_LONG == 64)
	62	case 8:
	63	{
	64	__asm__ __volatile__ (
	65	"membar #StoreLoad \| #LoadLoad\n\t"
	66	"casx [%1],%2,%0\n\t"
	67	"membar #StoreLoad \| #StoreStore\n\t"
	68	: "+&r" (_new)
	69	: "r" (addr), "r" (old)
	70	: "memory");
	71
	72	return _new;
	73	}
	74	#endif
	75	}
	76	__builtin_trap();
	77	return 0;
	78	}
	79
	80
	81	#define uatomic_cmpxchg(addr, old, _new) \
	82	((__typeof__(*(addr))) _uatomic_cmpxchg((addr), (unsigned long)(old),\
	83	(unsigned long)(_new), \
	84	sizeof(*(addr))))
	85
	86	/* xchg */
	87
	88	static inline __attribute__((always_inline))
	89	unsigned long _uatomic_exchange(void *addr, unsigned long val, int len)
	90	{
	91	switch (len) {
	92	case 4:
	93	{
c0a68bfa	94	unsigned int old, oldt;
58de5a4b	95
c0a68bfa	96	oldt = uatomic_read((unsigned int *)addr);
58de5a4b MD	97	do {
	98	old = oldt;
	99	oldt = _uatomic_cmpxchg(addr, old, val, 4);
	100	} while (oldt != old);
	101
	102	return old;
	103	}
	104	#if (BITS_PER_LONG == 64)
	105	case 8:
	106	{
c0a68bfa	107	unsigned long old, oldt;
58de5a4b	108
c0a68bfa	109	oldt = uatomic_read((unsigned long *)addr);
58de5a4b MD	110	do {
	111	old = oldt;
	112	oldt = _uatomic_cmpxchg(addr, old, val, 8);
	113	} while (oldt != old);
	114
	115	return old;
	116	}
	117	#endif
	118	}
	119	__builtin_trap();
	120	return 0;
	121	}
	122
	123	#define uatomic_xchg(addr, v) \
	124	((__typeof__(*(addr))) _uatomic_exchange((addr), (unsigned long)(v), \
	125	sizeof(*(addr))))
	126
	127	/* uatomic_add_return */
	128
	129	static inline __attribute__((always_inline))
9c697e4d	130	unsigned long _uatomic_add_return(void *addr, unsigned long val, int len)
58de5a4b MD	131	{
	132	switch (len) {
	133	case 4:
	134	{
c0a68bfa	135	unsigned int old, oldt;
58de5a4b	136
c0a68bfa	137	oldt = uatomic_read((unsigned int *)addr);
58de5a4b MD	138	do {
	139	old = oldt;
	140	oldt = _uatomic_cmpxchg(addr, old, old + val, 4);
	141	} while (oldt != old);
	142
	143	return old + val;
	144	}
	145	#if (BITS_PER_LONG == 64)
	146	case 8:
	147	{
c0a68bfa	148	unsigned long old, oldt;
58de5a4b	149
c0a68bfa	150	oldt = uatomic_read((unsigned long *)addr);
58de5a4b MD	151	do {
	152	old = oldt;
	153	oldt = _uatomic_cmpxchg(addr, old, old + val, 8);
	154	} while (oldt != old);
	155
	156	return old + val;
	157	}
	158	#endif
	159	}
	160	__builtin_trap();
	161	return 0;
	162	}
	163
	164	#define uatomic_add_return(addr, v) \
	165	((__typeof__(*(addr))) _uatomic_add_return((addr), \
	166	(unsigned long)(v), \
	167	sizeof(*(addr))))
	168
36bc70a8 MD	169	#ifdef __cplusplus
	170	}
	171	#endif
	172
8760d94e PB	173	#include <urcu/uatomic_generic.h>
8760d94e PB	174
58de5a4b	175	#endif /* _URCU_ARCH_UATOMIC_PPC_H */