vis3-mont.pl (302408) | vis3-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# ==================================================================== --- 285 unchanged lines hidden (view full) --- 294 brnz,pt $cnt, .Lsub 295 sub $cnt, 8, $cnt 296 297 sub $anp, $num, $anp ! rewind 298 sub $tp, $num, $tp 299 sub $anp, $num, $anp 300 sub $rp, $num, $rp 301 | 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# ==================================================================== --- 285 unchanged lines hidden (view full) --- 294 brnz,pt $cnt, .Lsub 295 sub $cnt, 8, $cnt 296 297 sub $anp, $num, $anp ! rewind 298 sub $tp, $num, $tp 299 sub $anp, $num, $anp 300 sub $rp, $num, $rp 301 |
302 subc $ovf, %g0, $ovf ! handle upmost overflow bit 303 and $tp, $ovf, $ap 304 andn $rp, $ovf, $np 305 or $np, $ap, $ap ! ap=borrow?tp:rp | 302 subccc $ovf, %g0, $ovf ! handle upmost overflow bit |
306 ba .Lcopy 307 sub $num, 8, $cnt 308 309.align 16 | 303 ba .Lcopy 304 sub $num, 8, $cnt 305 306.align 16 |
310.Lcopy: ! copy or in-place refresh 311 ld [$ap+0], $t2 312 ld [$ap+4], $t3 313 add $ap, 8, $ap | 307.Lcopy: ! conditional copy 308 ld [$tp+0], $t0 309 ld [$tp+4], $t1 310 ld [$rp+0], $t2 311 ld [$rp+4], $t3 |
314 stx %g0, [$tp] ! zap 315 add $tp, 8, $tp 316 stx %g0, [$anp] ! zap 317 stx %g0, [$anp+8] 318 add $anp, 16, $anp | 312 stx %g0, [$tp] ! zap 313 add $tp, 8, $tp 314 stx %g0, [$anp] ! zap 315 stx %g0, [$anp+8] 316 add $anp, 16, $anp |
317 movcs %icc, $t0, $t2 318 movcs %icc, $t1, $t3 |
|
319 st $t3, [$rp+0] ! flip order 320 st $t2, [$rp+4] 321 add $rp, 8, $rp 322 brnz $cnt, .Lcopy 323 sub $cnt, 8, $cnt 324 325 mov 1, %o0 326 ret --- 47 unchanged lines hidden --- | 319 st $t3, [$rp+0] ! flip order 320 st $t2, [$rp+4] 321 add $rp, 8, $rp 322 brnz $cnt, .Lcopy 323 sub $cnt, 8, $cnt 324 325 mov 1, %o0 326 ret --- 47 unchanged lines hidden --- |