shithub: gefs

ref: d6bb5f62edae3b7a311ed3a0a27f8f0273693ca0
dir: /atomic-power64.s/

View raw version
/*  get variants */
TEXT agetl+0(SB),1,$0
	SYNC
	// See ISA 3.0B section B.2.3, "Safe Fetch"
	MOVWZ	0(R3), R3
	CMPW	R3, R3, CR7
	BC	4, 30, 1(PC) // bne- cr7,0x4
	ISYNC
	MOVW	R3, ret+8(FP)
	RETURN

TEXT agetv+0(SB),1,$0
TEXT agetp+0(SB),1,$0
	SYNC
	// See ISA 3.0B section B.2.3, "Safe Fetch"
	MOVD	0(R3), R3
	CMP	R3, R3, CR7
	BC	4, 30, 1(PC) // bne- cr7,0x4
	ISYNC
	MOVD	R3, ret+8(FP)
	RETURN

/*  set variants */
TEXT asetl+0(SB),1,$0
	MOVW	val+8(FP), R4
	SYNC
	MOVW	R4, 0(R3)
	RETURN

TEXT asetv+0(SB),1,$0
TEXT asetp+0(SB),1,$0
	MOVD	val+8(FP), R4
	SYNC
	MOVD	R4, 0(R3)
	RETURN

/*  inc variants */
TEXT aincl+0(SB),1,$0
	MOVD	R3, R4
	MOVW	delta+8(FP), R5
	LWSYNC
	LWAR	(R4), R3
	ADD	R5, R3
	STWCCC	R3, (R4)
	BNE	-3(PC)
	MOVW	R3, ret+16(FP)
	RETURN

TEXT aincv+0(SB),1,$0
TEXT aincp+0(SB),1,$0
	MOVD	delta+8(FP), R5
	LWSYNC
	LDAR	(R3), R4
	ADD	R5, R4
	STDCCC	R4, (R3)
	BNE	-3(PC)
	MOVD	R4, ret+16(FP)
	RETURN

/*  cas variants */
TEXT acasl+0(SB),1,$0
	MOVWZ	old+8(FP), R4
	MOVWZ	new+12(FP), R5
	LWSYNC
casagain:
	LWAR	(R3), R6
	CMPW	R6, R4
	BNE	casfail
	STWCCC	R5, (R3)
	BNE	casagain
	MOVD	$1, R3
	LWSYNC
	MOVB	R3, ret+16(FP)
	RETURN
casfail:
	LWSYNC
	MOVB	R0, ret+16(FP)
	RETURN

TEXT acasv+0(SB),1,$0
TEXT acasp+0(SB),1,$0
	MOVD	old+8(FP), R4
	MOVD	new+16(FP), R5
	LWSYNC
cas64again:
	LDAR	(R3), R6
	CMP	R6, R4
	BNE	cas64fail
	STDCCC	R5, (R3)
	BNE	cas64again
	MOVD	$1, R3
	LWSYNC
	MOVB	R3, ret+24(FP)
	RETURN
cas64fail:
	LWSYNC
	MOVB	R0, ret+24(FP)
	RETURN

/* barriers */
TEXT coherence+0(SB),1,$0
	// LWSYNC is the "export" barrier recommended by Power ISA
	// v2.07 book II, appendix B.2.2.2.
	// LWSYNC is a load/load, load/store, and store/store barrier.
	LWSYNC
	RETURN