| Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 1 | /* atomic-ops.S: kernel atomic operations | 
 | 2 |  * | 
 | 3 |  * For an explanation of how atomic ops work in this arch, see: | 
| Adrian Bunk | 0868ff7 | 2008-02-03 15:54:28 +0200 | [diff] [blame] | 4 |  *   Documentation/frv/atomic-ops.txt | 
| Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 5 |  * | 
 | 6 |  * Copyright (C) 2004 Red Hat, Inc. All Rights Reserved. | 
 | 7 |  * Written by David Howells (dhowells@redhat.com) | 
 | 8 |  * | 
 | 9 |  * This program is free software; you can redistribute it and/or | 
 | 10 |  * modify it under the terms of the GNU General Public License | 
 | 11 |  * as published by the Free Software Foundation; either version | 
 | 12 |  * 2 of the License, or (at your option) any later version. | 
 | 13 |  */ | 
 | 14 |  | 
 | 15 | #include <asm/spr-regs.h> | 
 | 16 |  | 
 | 17 | 	.text | 
 | 18 | 	.balign 4 | 
 | 19 |  | 
 | 20 | ############################################################################### | 
 | 21 | # | 
 | 22 | # unsigned long atomic_test_and_ANDNOT_mask(unsigned long mask, volatile unsigned long *v); | 
 | 23 | # | 
 | 24 | ############################################################################### | 
 | 25 | 	.globl		atomic_test_and_ANDNOT_mask | 
 | 26 |         .type		atomic_test_and_ANDNOT_mask,@function | 
 | 27 | atomic_test_and_ANDNOT_mask: | 
 | 28 | 	not.p		gr8,gr10 | 
 | 29 | 0: | 
 | 30 | 	orcc		gr0,gr0,gr0,icc3		/* set ICC3.Z */ | 
 | 31 | 	ckeq		icc3,cc7 | 
 | 32 | 	ld.p		@(gr9,gr0),gr8			/* LD.P/ORCR must be atomic */ | 
 | 33 | 	orcr		cc7,cc7,cc3			/* set CC3 to true */ | 
 | 34 | 	and		gr8,gr10,gr11 | 
 | 35 | 	cst.p		gr11,@(gr9,gr0)		,cc3,#1 | 
 | 36 | 	corcc		gr29,gr29,gr0		,cc3,#1	/* clear ICC3.Z if store happens */ | 
 | 37 | 	beq		icc3,#0,0b | 
 | 38 | 	bralr | 
 | 39 |  | 
 | 40 | 	.size		atomic_test_and_ANDNOT_mask, .-atomic_test_and_ANDNOT_mask | 
 | 41 |  | 
 | 42 | ############################################################################### | 
 | 43 | # | 
 | 44 | # unsigned long atomic_test_and_OR_mask(unsigned long mask, volatile unsigned long *v); | 
 | 45 | # | 
 | 46 | ############################################################################### | 
 | 47 | 	.globl		atomic_test_and_OR_mask | 
 | 48 |         .type		atomic_test_and_OR_mask,@function | 
 | 49 | atomic_test_and_OR_mask: | 
 | 50 | 	or.p		gr8,gr8,gr10 | 
 | 51 | 0: | 
 | 52 | 	orcc		gr0,gr0,gr0,icc3		/* set ICC3.Z */ | 
 | 53 | 	ckeq		icc3,cc7 | 
 | 54 | 	ld.p		@(gr9,gr0),gr8			/* LD.P/ORCR must be atomic */ | 
 | 55 | 	orcr		cc7,cc7,cc3			/* set CC3 to true */ | 
 | 56 | 	or		gr8,gr10,gr11 | 
 | 57 | 	cst.p		gr11,@(gr9,gr0)		,cc3,#1 | 
 | 58 | 	corcc		gr29,gr29,gr0		,cc3,#1	/* clear ICC3.Z if store happens */ | 
 | 59 | 	beq		icc3,#0,0b | 
 | 60 | 	bralr | 
 | 61 |  | 
 | 62 | 	.size		atomic_test_and_OR_mask, .-atomic_test_and_OR_mask | 
 | 63 |  | 
 | 64 | ############################################################################### | 
 | 65 | # | 
 | 66 | # unsigned long atomic_test_and_XOR_mask(unsigned long mask, volatile unsigned long *v); | 
 | 67 | # | 
 | 68 | ############################################################################### | 
 | 69 | 	.globl		atomic_test_and_XOR_mask | 
 | 70 |         .type		atomic_test_and_XOR_mask,@function | 
 | 71 | atomic_test_and_XOR_mask: | 
 | 72 | 	or.p		gr8,gr8,gr10 | 
 | 73 | 0: | 
 | 74 | 	orcc		gr0,gr0,gr0,icc3		/* set ICC3.Z */ | 
 | 75 | 	ckeq		icc3,cc7 | 
 | 76 | 	ld.p		@(gr9,gr0),gr8			/* LD.P/ORCR must be atomic */ | 
 | 77 | 	orcr		cc7,cc7,cc3			/* set CC3 to true */ | 
 | 78 | 	xor		gr8,gr10,gr11 | 
 | 79 | 	cst.p		gr11,@(gr9,gr0)		,cc3,#1 | 
 | 80 | 	corcc		gr29,gr29,gr0		,cc3,#1	/* clear ICC3.Z if store happens */ | 
 | 81 | 	beq		icc3,#0,0b | 
 | 82 | 	bralr | 
 | 83 |  | 
 | 84 | 	.size		atomic_test_and_XOR_mask, .-atomic_test_and_XOR_mask | 
 | 85 |  | 
 | 86 | ############################################################################### | 
 | 87 | # | 
 | 88 | # int atomic_add_return(int i, atomic_t *v) | 
 | 89 | # | 
 | 90 | ############################################################################### | 
 | 91 | 	.globl		atomic_add_return | 
 | 92 |         .type		atomic_add_return,@function | 
 | 93 | atomic_add_return: | 
 | 94 | 	or.p		gr8,gr8,gr10 | 
 | 95 | 0: | 
 | 96 | 	orcc		gr0,gr0,gr0,icc3		/* set ICC3.Z */ | 
 | 97 | 	ckeq		icc3,cc7 | 
 | 98 | 	ld.p		@(gr9,gr0),gr8			/* LD.P/ORCR must be atomic */ | 
 | 99 | 	orcr		cc7,cc7,cc3			/* set CC3 to true */ | 
 | 100 | 	add		gr8,gr10,gr8 | 
 | 101 | 	cst.p		gr8,@(gr9,gr0)		,cc3,#1 | 
 | 102 | 	corcc		gr29,gr29,gr0		,cc3,#1	/* clear ICC3.Z if store happens */ | 
 | 103 | 	beq		icc3,#0,0b | 
 | 104 | 	bralr | 
 | 105 |  | 
 | 106 | 	.size		atomic_add_return, .-atomic_add_return | 
 | 107 |  | 
 | 108 | ############################################################################### | 
 | 109 | # | 
 | 110 | # int atomic_sub_return(int i, atomic_t *v) | 
 | 111 | # | 
 | 112 | ############################################################################### | 
 | 113 | 	.globl		atomic_sub_return | 
 | 114 |         .type		atomic_sub_return,@function | 
 | 115 | atomic_sub_return: | 
 | 116 | 	or.p		gr8,gr8,gr10 | 
 | 117 | 0: | 
 | 118 | 	orcc		gr0,gr0,gr0,icc3		/* set ICC3.Z */ | 
 | 119 | 	ckeq		icc3,cc7 | 
 | 120 | 	ld.p		@(gr9,gr0),gr8			/* LD.P/ORCR must be atomic */ | 
 | 121 | 	orcr		cc7,cc7,cc3			/* set CC3 to true */ | 
 | 122 | 	sub		gr8,gr10,gr8 | 
 | 123 | 	cst.p		gr8,@(gr9,gr0)		,cc3,#1 | 
 | 124 | 	corcc		gr29,gr29,gr0		,cc3,#1	/* clear ICC3.Z if store happens */ | 
 | 125 | 	beq		icc3,#0,0b | 
 | 126 | 	bralr | 
 | 127 |  | 
 | 128 | 	.size		atomic_sub_return, .-atomic_sub_return | 
 | 129 |  | 
 | 130 | ############################################################################### | 
 | 131 | # | 
| Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 132 | # uint32_t __xchg_32(uint32_t i, uint32_t *v) | 
 | 133 | # | 
 | 134 | ############################################################################### | 
 | 135 | 	.globl		__xchg_32 | 
 | 136 |         .type		__xchg_32,@function | 
 | 137 | __xchg_32: | 
 | 138 | 	or.p		gr8,gr8,gr10 | 
 | 139 | 0: | 
 | 140 | 	orcc		gr0,gr0,gr0,icc3		/* set ICC3.Z */ | 
 | 141 | 	ckeq		icc3,cc7 | 
 | 142 | 	ld.p		@(gr9,gr0),gr8			/* LD.P/ORCR must be atomic */ | 
 | 143 | 	orcr		cc7,cc7,cc3			/* set CC3 to true */ | 
 | 144 | 	cst.p		gr10,@(gr9,gr0)		,cc3,#1 | 
 | 145 | 	corcc		gr29,gr29,gr0		,cc3,#1	/* clear ICC3.Z if store happens */ | 
 | 146 | 	beq		icc3,#0,0b | 
 | 147 | 	bralr | 
 | 148 |  | 
 | 149 | 	.size		__xchg_32, .-__xchg_32 | 
 | 150 |  | 
 | 151 | ############################################################################### | 
 | 152 | # | 
| Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 153 | # uint32_t __cmpxchg_32(uint32_t *v, uint32_t test, uint32_t new) | 
 | 154 | # | 
 | 155 | ############################################################################### | 
 | 156 | 	.globl		__cmpxchg_32 | 
 | 157 |         .type		__cmpxchg_32,@function | 
 | 158 | __cmpxchg_32: | 
 | 159 | 	or.p		gr8,gr8,gr11 | 
 | 160 | 0: | 
 | 161 | 	orcc		gr0,gr0,gr0,icc3 | 
 | 162 | 	ckeq		icc3,cc7 | 
 | 163 | 	ld.p		@(gr11,gr0),gr8 | 
 | 164 | 	orcr		cc7,cc7,cc3 | 
 | 165 | 	subcc		gr8,gr9,gr7,icc0 | 
| David Howells | 00460f4 | 2009-07-02 00:46:16 +0100 | [diff] [blame] | 166 | 	bnelr		icc0,#0 | 
| Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 167 | 	cst.p		gr10,@(gr11,gr0)	,cc3,#1 | 
 | 168 | 	corcc		gr29,gr29,gr0		,cc3,#1 | 
 | 169 | 	beq		icc3,#0,0b | 
| Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 170 | 	bralr | 
 | 171 |  | 
 | 172 | 	.size		__cmpxchg_32, .-__cmpxchg_32 |