strchr.S 1.9 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970
  1. /*
  2. * arch/alpha/lib/strchr.S
  3. * Contributed by Richard Henderson (rth@tamu.edu)
  4. *
  5. * Return the address of a given character within a null-terminated
  6. * string, or null if it is not found.
  7. */
  8. #include <asm/regdef.h>
  9. .set noreorder
  10. .set noat
  11. .align 3
  12. .globl strchr
  13. .ent strchr
  14. strchr:
  15. .frame sp, 0, ra
  16. .prologue 0
  17. zapnot a1, 1, a1 # e0 : zero extend the search character
  18. ldq_u t0, 0(a0) # .. e1 : load first quadword
  19. sll a1, 8, t5 # e0 : replicate the search character
  20. andnot a0, 7, v0 # .. e1 : align our loop pointer
  21. or t5, a1, a1 # e0 :
  22. lda t4, -1 # .. e1 : build garbage mask
  23. sll a1, 16, t5 # e0 :
  24. cmpbge zero, t0, t2 # .. e1 : bits set iff byte == zero
  25. mskqh t4, a0, t4 # e0 :
  26. or t5, a1, a1 # .. e1 :
  27. sll a1, 32, t5 # e0 :
  28. cmpbge zero, t4, t4 # .. e1 : bits set iff byte is garbage
  29. or t5, a1, a1 # e0 :
  30. xor t0, a1, t1 # .. e1 : make bytes == c zero
  31. cmpbge zero, t1, t3 # e0 : bits set iff byte == c
  32. or t2, t3, t0 # e1 : bits set iff char match or zero match
  33. andnot t0, t4, t0 # e0 : clear garbage bits
  34. bne t0, $found # .. e1 (zdb)
  35. $loop: ldq t0, 8(v0) # e0 :
  36. addq v0, 8, v0 # .. e1 :
  37. nop # e0 :
  38. xor t0, a1, t1 # .. e1 (ev5 data stall)
  39. cmpbge zero, t0, t2 # e0 : bits set iff byte == 0
  40. cmpbge zero, t1, t3 # .. e1 : bits set iff byte == c
  41. or t2, t3, t0 # e0 :
  42. beq t0, $loop # .. e1 (zdb)
  43. $found: negq t0, t1 # e0 : clear all but least set bit
  44. and t0, t1, t0 # e1 (stall)
  45. and t0, t3, t1 # e0 : bit set iff byte was the char
  46. beq t1, $retnull # .. e1 (zdb)
  47. and t0, 0xf0, t2 # e0 : binary search for that set bit
  48. and t0, 0xcc, t3 # .. e1 :
  49. and t0, 0xaa, t4 # e0 :
  50. cmovne t2, 4, t2 # .. e1 :
  51. cmovne t3, 2, t3 # e0 :
  52. cmovne t4, 1, t4 # .. e1 :
  53. addq t2, t3, t2 # e0 :
  54. addq v0, t4, v0 # .. e1 :
  55. addq v0, t2, v0 # e0 :
  56. ret # .. e1 :
  57. $retnull:
  58. mov zero, v0 # e0 :
  59. ret # .. e1 :
  60. .end strchr