| Index: openssl/crypto/bn/asm/armv4-mont.S
|
| diff --git a/openssl/crypto/bn/asm/armv4-mont.S b/openssl/crypto/bn/asm/armv4-mont.S
|
| deleted file mode 100644
|
| index 64c220b56f2a8dcfdee770f53dfef4f9bb2a1505..0000000000000000000000000000000000000000
|
| --- a/openssl/crypto/bn/asm/armv4-mont.S
|
| +++ /dev/null
|
| @@ -1,145 +0,0 @@
|
| -.text
|
| -
|
| -.global bn_mul_mont
|
| -.type bn_mul_mont,%function
|
| -
|
| -.align 2
|
| -bn_mul_mont:
|
| - stmdb sp!,{r0,r2} @ sp points at argument block
|
| - ldr r0,[sp,#3*4] @ load num
|
| - cmp r0,#2
|
| - movlt r0,#0
|
| - addlt sp,sp,#2*4
|
| - blt .Labrt
|
| -
|
| - stmdb sp!,{r4-r12,lr} @ save 10 registers
|
| -
|
| - mov r0,r0,lsl#2 @ rescale r0 for byte count
|
| - sub sp,sp,r0 @ alloca(4*num)
|
| - sub sp,sp,#4 @ +extra dword
|
| - sub r0,r0,#4 @ "num=num-1"
|
| - add r4,r2,r0 @ &bp[num-1]
|
| -
|
| - add r0,sp,r0 @ r0 to point at &tp[num-1]
|
| - ldr r8,[r0,#14*4] @ &n0
|
| - ldr r2,[r2] @ bp[0]
|
| - ldr r5,[r1],#4 @ ap[0],ap++
|
| - ldr r6,[r3],#4 @ np[0],np++
|
| - ldr r8,[r8] @ *n0
|
| - str r4,[r0,#15*4] @ save &bp[num]
|
| -
|
| - umull r10,r11,r5,r2 @ ap[0]*bp[0]
|
| - str r8,[r0,#14*4] @ save n0 value
|
| - mul r8,r10,r8 @ "tp[0]"*n0
|
| - mov r12,#0
|
| - umlal r10,r12,r6,r8 @ np[0]*n0+"t[0]"
|
| - mov r4,sp
|
| -
|
| -.L1st:
|
| - ldr r5,[r1],#4 @ ap[j],ap++
|
| - mov r10,r11
|
| - ldr r6,[r3],#4 @ np[j],np++
|
| - mov r11,#0
|
| - umlal r10,r11,r5,r2 @ ap[j]*bp[0]
|
| - mov r14,#0
|
| - umlal r12,r14,r6,r8 @ np[j]*n0
|
| - adds r12,r12,r10
|
| - str r12,[r4],#4 @ tp[j-1]=,tp++
|
| - adc r12,r14,#0
|
| - cmp r4,r0
|
| - bne .L1st
|
| -
|
| - adds r12,r12,r11
|
| - ldr r4,[r0,#13*4] @ restore bp
|
| - mov r14,#0
|
| - ldr r8,[r0,#14*4] @ restore n0
|
| - adc r14,r14,#0
|
| - str r12,[r0] @ tp[num-1]=
|
| - str r14,[r0,#4] @ tp[num]=
|
| -
|
| -.Louter:
|
| - sub r7,r0,sp @ "original" r0-1 value
|
| - sub r1,r1,r7 @ "rewind" ap to &ap[1]
|
| - ldr r2,[r4,#4]! @ *(++bp)
|
| - sub r3,r3,r7 @ "rewind" np to &np[1]
|
| - ldr r5,[r1,#-4] @ ap[0]
|
| - ldr r10,[sp] @ tp[0]
|
| - ldr r6,[r3,#-4] @ np[0]
|
| - ldr r7,[sp,#4] @ tp[1]
|
| -
|
| - mov r11,#0
|
| - umlal r10,r11,r5,r2 @ ap[0]*bp[i]+tp[0]
|
| - str r4,[r0,#13*4] @ save bp
|
| - mul r8,r10,r8
|
| - mov r12,#0
|
| - umlal r10,r12,r6,r8 @ np[0]*n0+"tp[0]"
|
| - mov r4,sp
|
| -
|
| -.Linner:
|
| - ldr r5,[r1],#4 @ ap[j],ap++
|
| - adds r10,r11,r7 @ +=tp[j]
|
| - ldr r6,[r3],#4 @ np[j],np++
|
| - mov r11,#0
|
| - umlal r10,r11,r5,r2 @ ap[j]*bp[i]
|
| - mov r14,#0
|
| - umlal r12,r14,r6,r8 @ np[j]*n0
|
| - adc r11,r11,#0
|
| - ldr r7,[r4,#8] @ tp[j+1]
|
| - adds r12,r12,r10
|
| - str r12,[r4],#4 @ tp[j-1]=,tp++
|
| - adc r12,r14,#0
|
| - cmp r4,r0
|
| - bne .Linner
|
| -
|
| - adds r12,r12,r11
|
| - mov r14,#0
|
| - ldr r4,[r0,#13*4] @ restore bp
|
| - adc r14,r14,#0
|
| - ldr r8,[r0,#14*4] @ restore n0
|
| - adds r12,r12,r7
|
| - ldr r7,[r0,#15*4] @ restore &bp[num]
|
| - adc r14,r14,#0
|
| - str r12,[r0] @ tp[num-1]=
|
| - str r14,[r0,#4] @ tp[num]=
|
| -
|
| - cmp r4,r7
|
| - bne .Louter
|
| -
|
| - ldr r2,[r0,#12*4] @ pull rp
|
| - add r0,r0,#4 @ r0 to point at &tp[num]
|
| - sub r5,r0,sp @ "original" num value
|
| - mov r4,sp @ "rewind" r4
|
| - mov r1,r4 @ "borrow" r1
|
| - sub r3,r3,r5 @ "rewind" r3 to &np[0]
|
| -
|
| - subs r7,r7,r7 @ "clear" carry flag
|
| -.Lsub: ldr r7,[r4],#4
|
| - ldr r6,[r3],#4
|
| - sbcs r7,r7,r6 @ tp[j]-np[j]
|
| - str r7,[r2],#4 @ rp[j]=
|
| - teq r4,r0 @ preserve carry
|
| - bne .Lsub
|
| - sbcs r14,r14,#0 @ upmost carry
|
| - mov r4,sp @ "rewind" r4
|
| - sub r2,r2,r5 @ "rewind" r2
|
| -
|
| - and r1,r4,r14
|
| - bic r3,r2,r14
|
| - orr r1,r1,r3 @ ap=borrow?tp:rp
|
| -
|
| -.Lcopy: ldr r7,[r1],#4 @ copy or in-place refresh
|
| - str sp,[r4],#4 @ zap tp
|
| - str r7,[r2],#4
|
| - cmp r4,r0
|
| - bne .Lcopy
|
| -
|
| - add sp,r0,#4 @ skip over tp[num+1]
|
| - ldmia sp!,{r4-r12,lr} @ restore registers
|
| - add sp,sp,#2*4 @ skip over {r0,r2}
|
| - mov r0,#1
|
| -.Labrt: tst lr,#1
|
| - moveq pc,lr @ be binary compatible with V4, yet
|
| - .word 0xe12fff1e @ interoperable with Thumb ISA:-)
|
| -.size bn_mul_mont,.-bn_mul_mont
|
| -.asciz "Montgomery multiplication for ARMv4, CRYPTOGAMS by <appro@openssl.org>"
|
| -.align 2
|
|
|