divrem_2.asm
上传用户:qaz666999
上传日期:2022-08-06
资源大小:2570k
文件大小:4k
源码类别:

数学计算

开发平台:

Unix_Linux

  1. dnl  Alpha mpn_divrem_2 -- Divide an mpn number by a normalized 2-limb number.
  2. dnl  Copyright 2007, 2008 Free Software Foundation, Inc.
  3. dnl  This file is part of the GNU MP Library.
  4. dnl  The GNU MP Library is free software; you can redistribute it and/or modify
  5. dnl  it under the terms of the GNU Lesser General Public License as published
  6. dnl  by the Free Software Foundation; either version 3 of the License, or (at
  7. dnl  your option) any later version.
  8. dnl  The GNU MP Library is distributed in the hope that it will be useful, but
  9. dnl  WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
  10. dnl  or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
  11. dnl  License for more details.
  12. dnl  You should have received a copy of the GNU Lesser General Public License
  13. dnl  along with the GNU MP Library.  If not, see http://www.gnu.org/licenses/.
  14. include(`../config.m4')
  15. C norm frac
  16. C ev4
  17. C ev5 70 70
  18. C ev6 29 29
  19. C TODO
  20. C  * Perhaps inline mpn_invert_limb, that would allow us to not save/restore
  21. C    any registers (thus save ~10 cycles per call).
  22. C  * Use negated d1 and/or d0 to speed carry propagation.  Might save a cycle
  23. C    or two.
  24. C  * Check cluster delays (for ev6).  We very likely could save some cycles.
  25. C  * Use branch-free code for computing di.
  26. C  * CAVEAT: We rely on r19 not being clobbered by mpn_invert_limb call.
  27. C INPUT PARAMETERS
  28. define(`qp', `r16')
  29. define(`fn', `r17')
  30. define(`up_param', `r18')
  31. define(`un_param', `r19')
  32. define(`dp', `r20')
  33. ASM_START()
  34. PROLOGUE(mpn_divrem_2)
  35. ldgp r29, 0(r27)
  36. lda r30, -80(r30)
  37. stq r26, 0(r30)
  38. stq r9, 8(r30)
  39. stq r10, 16(r30)
  40. stq r11, 24(r30)
  41. stq r12, 32(r30)
  42. stq r13, 40(r30)
  43. C stq r14, 48(r30)
  44. stq r15, 56(r30)
  45. .prologue 1
  46. stq r16, 64(r30)
  47. bis r31, r17, r15
  48. s8addq r19, r18, r13
  49. lda r13, -24(r13)
  50. ldq r12, 8(r20)
  51. ldq r10, 0(r20)
  52. ldq r11, 16(r13)
  53. ldq r9, 8(r13)
  54. bis r31, r31, r3 C most_significant_q_limb = 0
  55. cmpult r11, r12, r1
  56. bne r1, L(L8)
  57. cmpule r11, r12, r1
  58. cmpult r9, r10, r2
  59. and r1, r2, r1
  60. bne r1, L(L8)
  61. subq r11, r12, r11
  62. subq r11, r2, r11
  63. subq r9, r10, r9
  64. lda r3, 1(r31) C most_significant_q_limb = 1
  65. L(L8): stq r3, 72(r30)
  66. addq r15, r19, r19
  67. lda r19, -3(r19)
  68. blt r19, L(L10)
  69. bis r31, r12, r16
  70. jsr r26, mpn_invert_limb
  71. ldgp r29, 0(r26)
  72. mulq r0, r12, r4 C t0 = LO(di * d1)
  73. umulh r0, r10, r2 C s1 = HI(di * d0)
  74. addq r4, r10, r4 C t0 += d0
  75. cmpule r10, r4, r7 C (t0 < d0)
  76. addq r4, r2, r4 C t0 += s1
  77. cmpult r4, r2, r1
  78. subq r1, r7, r7 C t1 (-1, 0, or 1)
  79. blt r7, L(L42)
  80. L(L22):
  81. lda r0, -1(r0) C di--
  82. cmpult r4, r12, r1 C cy for: t0 -= d1 (below)
  83. subq r7, r1, r7 C t1 -= cy
  84. subq r4, r12, r4 C t0 -= d1
  85. bge r7, L(L22)
  86. L(L42):
  87. ldq r16, 64(r30)
  88. s8addq r19, r16, r16
  89. ALIGN(16)
  90. L(loop):
  91. mulq r11, r0, r5 C q0 (early)
  92. umulh r11, r0, r6 C q  (early)
  93. addq r5, r9, r8 C q0 += n1
  94. addq r6, r11, r6 C q  += n2
  95. cmpult r8, r5, r1 C cy for: q0 += n1
  96. addq r6, r1, r6 C q  += cy
  97. unop
  98. mulq r12, r6, r1 C LO(d1 * q)
  99. umulh r10, r6, r7 C t1 = HI(d0 * q)
  100. subq r9, r1, r9 C n1 -= LO(d1 * q)
  101. mulq r10, r6, r4 C t0 = LO(d0 * q)
  102. unop
  103. cmple r15, r19, r5 C condition and n0...
  104. beq r5, L(L31)
  105. ldq r5, 0(r13)
  106. lda r13, -8(r13)
  107. L(L31): subq r9, r12, r9 C n1 -= d1
  108. cmpult r5, r10, r1 C
  109. subq r9, r1, r9 C
  110. subq r5, r10, r5 C n0 -= d0
  111. subq r9, r7, r9 C n1 -= t0
  112. cmpult r5, r4, r1 C
  113. subq r9, r1, r2 C
  114. subq r5, r4, r5 C n0 -= t1
  115. cmpult r2, r8, r1 C (n1 < q0)
  116. addq r6, r1, r6 C q += cond
  117. lda r1, -1(r1) C -(n1 >= q0)
  118. and r1, r10, r4 C
  119. addq r5, r4, r9 C n0 += mask & d0
  120. and r1, r12, r1 C
  121. cmpult r9, r5, r11 C cy for: n0 += mask & d0
  122. addq r2, r1, r1 C n1 += mask & d1
  123. addq r1, r11, r11 C n1 += cy
  124. cmpult r11, r12, r1 C
  125. beq r1, L(fix) C
  126. L(bck): stq r6, 0(r16)
  127. lda r16, -8(r16)
  128. lda r19, -1(r19)
  129. bge r19, L(loop)
  130. L(L10): stq r9, 8(r13)
  131. stq r11, 16(r13)
  132. ldq r0, 72(r30)
  133. ldq r26, 0(r30)
  134. ldq r9, 8(r30)
  135. ldq r10, 16(r30)
  136. ldq r11, 24(r30)
  137. ldq r12, 32(r30)
  138. ldq r13, 40(r30)
  139. C ldq r14, 48(r30)
  140. ldq r15, 56(r30)
  141. lda r30, 80(r30)
  142. ret r31, (r26), 1
  143. L(fix): cmpule r11, r12, r1
  144. cmpult r9, r10, r2
  145. and r1, r2, r1
  146. bne r1, L(bck)
  147. subq r11, r12, r11
  148. subq r11, r2, r11
  149. subq r9, r10, r9
  150. lda r6, 1(r6)
  151. br L(bck)
  152. EPILOGUE()
  153. ASM_END()