Subversion Repositories planix.SVN

Rev

Rev 2 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 1 
#define	CLREX		WORD	$0xf57ff01f
2 
#define	LDREX(a,r)	WORD	$(0xe<<28|0x01900f9f | (a)<<16 | (r)<<12)
3 
/* `The order of operands is from left to right in dataflow order' - asm man */
4 
#define	STREX(v,a,r)	WORD	$(0xe<<28|0x01800f90 | (a)<<16 | (r)<<12 | (v)<<0)
5 
 
6 
/*
7 
 * int cas(ulong *p, ulong ov, ulong nv);
8 
 */
9 
 
10 
TEXT	cas+0(SB),0,$0		/* r0 holds p */
11 
TEXT	casp+0(SB),0,$0		/* r0 holds p */
12 
	MOVW	ov+4(FP), R1
13 
	MOVW	nv+8(FP), R2
14 
spincas:
15 
	LDREX(0,3)	/*	LDREX	0(R0),R3	*/
16 
	CMP.S	R3, R1
17 
	BNE	fail
18 
	STREX(2,0,4)	/*	STREX	0(R0),R2,R4	*/
19 
	CMP.S	$0, R4
20 
	BNE	spincas
21 
	MOVW	$1, R0
22 
	RET
23 
fail:
24 
	CLREX
25 
	MOVW	$0, R0
26 
	RET
27 
 
28 
TEXT _xinc(SB), $0	/* void	_xinc(long *); */
29 
TEXT ainc(SB), $0	/* long ainc(long *); */
30 
spinainc:
31 
	LDREX(0,3)	/*	LDREX	0(R0),R3	*/
32 
	ADD	$1,R3
33 
	STREX(3,0,4)	/*	STREX	0(R0),R3,R4	*/
34 
	CMP.S	$0, R4
35 
	BNE	spinainc
36 
	MOVW	R3, R0
37 
	RET
38 
 
39 
TEXT _xdec(SB), $0	/* long _xdec(long *); */
40 
TEXT adec(SB), $0	/* long adec(long *); */
41 
spinadec:
42 
	LDREX(0,3)	/*	LDREX	0(R0),R3	*/
43 
	SUB	$1,R3
44 
	STREX(3,0,4)	/*	STREX	0(R0),R3,R4	*/
45 
	CMP.S	$0, R4
46 
	BNE	spinadec
47 
	MOVW	R3, R0
48 
	RET
49 
 
50 
TEXT loadlinked(SB), $0	/* long loadlinked(long *); */
51 
	LDREX(0,0)	/*	LDREX	0(R0),R0	*/
52 
	RET
53 
 
54 
TEXT storecond(SB), $0	/* int storecond(long *, long); */
55 
	MOVW	ov+4(FP), R3
56 
	STREX(3,0,0)	/*	STREX	0(R0),R3,R0	*/
57 
	RSB	$1, R0
58 
	RET