PA-RISC assembler pack: switch to bve in 64-bit builds.

[openssl.git] / crypto / bn / asm / sparcv9a-mont.pl

diff --git a/crypto/bn/asm/sparcv9a-mont.pl b/crypto/bn/asm/sparcv9a-mont.pl
index 02847fdc0828db5f07e3635df0d764949db02e44..a14205f2f006f111557cf9366ebdffe814f39846 100755 (executable)
--- a/crypto/bn/asm/sparcv9a-mont.pl
+++ b/crypto/bn/asm/sparcv9a-mont.pl
@@ -353,7 +353,7 @@ $fname:
        bz,pn   %icc,.L1stskip
        std     $nlod,[%sp+$bias+$frame+24]
 \f
-.align 32,0x1000000
+.align 32                      ! incidentally already aligned !
 .L1st:
        add     $ap,$j,%o4
        add     $np,$j,%o5
@@ -798,15 +798,13 @@ $fname:
        bnz     %icc,.Louter
        nop
 \f
-       ld      [$np-4],%o1
-       subcc   %g0,%g0,%g0             ! clear %icc.c
        add     $tp,8,$tp               ! adjust tp to point at the end
-       srl     %o1,30,%o1              ! boundary condition...
        orn     %g0,%g0,%g4
-       brz,pn  %o1,.Lcopy              ! ... is met
        sub     %g0,$num,%o7            ! n=-num
-       
-.align 32,0x1000000
+       ba      .Lsub
+       subcc   %g0,%g0,%g0             ! clear %icc.c
+
+.align 32
 .Lsub:
        ldx     [$tp+%o7],%o0
        add     $np,%o7,%g1
@@ -822,8 +820,10 @@ $fname:
        st      %o3,[%g1+4]
        subc    $carry,0,%g4
        sub     %g0,$num,%o7            ! n=-num
+       ba      .Lcopy
+       nop
 
-.align 32,0x1000000
+.align 32
 .Lcopy:
        ldx     [$tp+%o7],%o0
        add     $rp,%o7,%g1
@@ -842,7 +842,6 @@ $fname:
        st      %o1,[%g1+4]
        sub     %g0,$num,%o7            ! n=-num
 
-.align 32,0x1000000
 .Lzap:
        stx     %g0,[$ap_l+%o7]
        stx     %g0,[$ap_h+%o7]
@@ -862,6 +861,7 @@ $fname:
 .type   $fname,#function
 .size  $fname,(.-$fname)
 .asciz "Montgomery Multipltication for UltraSPARC, CRYPTOGAMS by <appro\@openssl.org>"
+.align 32
 ___
 
 $code =~ s/\`([^\`]*)\`/eval($1)/gem;