armv4-mont.pl (302408) | armv4-mont.pl (337982) |
---|---|
1#!/usr/bin/env perl 2 3# ==================================================================== 4# Written by Andy Polyakov <appro@openssl.org> for the OpenSSL 5# project. The module is, however, dual licensed under OpenSSL and 6# CRYPTOGAMS licenses depending on where you obtain it. For further 7# details see http://www.openssl.org/~appro/cryptogams/. 8# ==================================================================== --- 202 unchanged lines hidden (view full) --- 211 sbcs $tj,$tj,$nj @ tp[j]-np[j] 212 str $tj,[$rp],#4 @ rp[j]= 213 teq $tp,$num @ preserve carry 214 bne .Lsub 215 sbcs $nhi,$nhi,#0 @ upmost carry 216 mov $tp,sp @ "rewind" $tp 217 sub $rp,$rp,$aj @ "rewind" $rp 218 | 1#!/usr/bin/env perl 2 3# ==================================================================== 4# Written by Andy Polyakov <appro@openssl.org> for the OpenSSL 5# project. The module is, however, dual licensed under OpenSSL and 6# CRYPTOGAMS licenses depending on where you obtain it. For further 7# details see http://www.openssl.org/~appro/cryptogams/. 8# ==================================================================== --- 202 unchanged lines hidden (view full) --- 211 sbcs $tj,$tj,$nj @ tp[j]-np[j] 212 str $tj,[$rp],#4 @ rp[j]= 213 teq $tp,$num @ preserve carry 214 bne .Lsub 215 sbcs $nhi,$nhi,#0 @ upmost carry 216 mov $tp,sp @ "rewind" $tp 217 sub $rp,$rp,$aj @ "rewind" $rp 218 |
219 and $ap,$tp,$nhi 220 bic $np,$rp,$nhi 221 orr $ap,$ap,$np @ ap=borrow?tp:rp 222 223.Lcopy: ldr $tj,[$ap],#4 @ copy or in-place refresh | 219.Lcopy: ldr $tj,[$tp] @ conditional copy 220 ldr $aj,[$rp] |
224 str sp,[$tp],#4 @ zap tp | 221 str sp,[$tp],#4 @ zap tp |
225 str $tj,[$rp],#4 226 cmp $tp,$num | 222#ifdef __thumb2__ 223 it cc 224#endif 225 movcc $aj,$tj 226 str $aj,[$rp],#4 227 teq $tp,$num @ preserve carry |
227 bne .Lcopy 228 229 add sp,$num,#4 @ skip over tp[num+1] 230 ldmia sp!,{r4-r12,lr} @ restore registers 231 add sp,sp,#2*4 @ skip over {r0,r2} 232 mov r0,#1 233.Labrt: 234#if __ARM_ARCH__>=5 --- 442 unchanged lines hidden --- | 228 bne .Lcopy 229 230 add sp,$num,#4 @ skip over tp[num+1] 231 ldmia sp!,{r4-r12,lr} @ restore registers 232 add sp,sp,#2*4 @ skip over {r0,r2} 233 mov r0,#1 234.Labrt: 235#if __ARM_ARCH__>=5 --- 442 unchanged lines hidden --- |