Home Esplora Aiuto
Accedi
RISCI_ATOM
/
harvey
mirror da https://github.com/Harvey-OS/harvey.git
1
0
Forka 0
File Problemi 0 Wiki
Albero (Tree): d69bb730cf
Rami (Branch) Tag
harvey
/
sys
/
src
/
libc
/
power
/
atom.s

atom.s 1.1 KB
Cronologia Originale

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465 
  1. TEXT	ainc(SB),$0	/* long ainc(long *); */
    2. 

  2. 	MOVW	R3, R4
    3. 

  3. xincloop:
    4. 

  4. 	LWAR	(R4), R3
    5. 

  5. 	ADD	$1, R3
    6. 

  6. 	DCBT	(R4)				/* fix 405 errata cpu_210 */
    7. 

  7. 	STWCCC	R3, (R4)
    8. 

  8. 	BNE	xincloop
    9. 

  9. 	RETURN
    10. 

  10. 

  11. TEXT	adec(SB),$0	/* long adec(long *); */
    12. 

  12. 	MOVW	R3, R4
    13. 

  13. xdecloop:
    14. 

  14. 	LWAR	(R4), R3
    15. 

  15. 	ADD	$-1, R3
    16. 

  16. 	DCBT	(R4)				/* fix 405 errata cpu_210 */
    17. 

  17. 	STWCCC	R3, (R4)
    18. 

  18. 	BNE	xdecloop
    19. 

  19. 	RETURN
    20. 

  20. 

  21. TEXT	loadlink(SB), $0
    22. 

  22. 

  23. 	LWAR	(R3), R3
    24. 

  24. 	RETURN
    25. 

  25. 

  26. TEXT	storecond(SB), $0
    27. 

  27. 

  28. 	MOVW	val+4(FP), R4
    29. 

  29. 	DCBT	(R3)				/* fix 405 errata cpu_210 */
    30. 

  30. 	STWCCC	R4, (R3)
    31. 

  31. 	BNE	storecondfail
    32. 

  32. 	MOVW	$1, R3
    33. 

  33. 	RETURN
    34. 

  34. storecondfail:
    35. 

  35. 	MOVW	$0, R3
    36. 

  36. 	RETURN
    37. 

  37. 

  38. /*
    39. 

  39.  * int cas32(u32int *p, u32int ov, u32int nv);
    40. 

  40.  * int cas(uint *p, int ov, int nv);
    41. 

  41.  * int casp(void **p, void *ov, void *nv);
    42. 

  42.  * int casl(ulong *p, ulong ov, ulong nv);
    43. 

  43.  */
    44. 

  44. 

  45. TEXT	cas32+0(SB),0,$0
    46. 

  46. TEXT	cas+0(SB),0,$0
    47. 

  47. TEXT	casp+0(SB),0,$0
    48. 

  48. TEXT	casl+0(SB),0,$0
    49. 

  49. 	MOVW	ov+4(FP),R4
    50. 

  50. 	MOVW	nv+8(FP),R8
    51. 

  51. 	LWAR	(R3),R5
    52. 

  52. 	CMP	R5,R4
    53. 

  53. 	BNE	fail
    54. 

  54. 	DCBT	(R3)				/* fix 405 errata cpu_210 */
    55. 

  55. 	STWCCC	R8,(R3)
    56. 

  56. 	BNE	fail1
    57. 

  57. 	MOVW	$1,R3
    58. 

  58. 	RETURN
    59. 

  59. fail:
    60. 

  60. 	DCBT	(R3)				/* fix 405 errata cpu_210 */
    61. 

  61. 	STWCCC	R5,(R3)	/* give up exclusive access */
    62. 

  62. fail1:
    63. 

  63. 	MOVW	R0,R3
    64. 

  64. 	RETURN
    65. 

  65. 	END
    66.