bn/asm/ppc.pl to use ppc-xlate.pl.
authorAndy Polyakov <appro@openssl.org>
Tue, 17 Oct 2006 14:37:07 +0000 (14:37 +0000)
committerAndy Polyakov <appro@openssl.org>
Tue, 17 Oct 2006 14:37:07 +0000 (14:37 +0000)
crypto/bn/asm/ppc.pl

index 08e0053..0c0206b 100644 (file)
@@ -151,91 +151,15 @@ if ($opf =~ /32\.s/) {
        $TR=    "td";           # conditional trap
 } else { die "nonsense $opf"; }
 
-( defined shift || open STDOUT,">$opf" ) || die "can't open $opf: $!";
+$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
+( $xlate="${dir}ppc-xlate.pl" and -f $xlate ) or
+( $xlate="${dir}../../perlasm/ppc-xlate.pl" and -f $xlate) or
+die "can't locate ppc-xlate.pl";
 
-# function entry points from the AIX code
-#
-# There are other, more elegant, ways to handle this. We (IBM) chose
-# this approach as it plays well with scripts we run to 'namespace'
-# OpenSSL .i.e. we add a prefix to all the public symbols so we can
-# co-exist in the same process with other implementations of OpenSSL.
-# 'cleverer' ways of doing these substitutions tend to hide data we
-# need to be obvious.
-#
-my @items = ("bn_sqr_comba4",
-            "bn_sqr_comba8",
-            "bn_mul_comba4",
-            "bn_mul_comba8",
-            "bn_sub_words",
-            "bn_add_words",
-            "bn_div_words",
-            "bn_sqr_words",
-            "bn_mul_words",
-            "bn_mul_add_words");
+( defined shift || open STDOUT,"| $^X $xlate $opf" ) ||
+       die "can't call $xlate: $!";
 
-if    ($opf =~ /linux/)        {  do_linux();  }
-elsif ($opf =~ /aix/)  {  do_aix();    }
-elsif ($opf =~ /osx/)  {  do_osx();    }
-else                   {  do_bsd();    }
-
-sub do_linux {
-    $d=&data();
-
-    if ($BITS==64) {
-      foreach $t (@items) {
-        $d =~ s/\.$t:/\
-\t.section\t".opd","aw"\
-\t.align\t3\
-\t.globl\t$t\
-$t:\
-\t.quad\t.$t,.TOC.\@tocbase,0\
-\t.size\t$t,24\
-\t.previous\n\
-\t.type\t.$t,\@function\
-\t.globl\t.$t\
-.$t:/g;
-      }
-    }
-    else {
-      foreach $t (@items) {
-        $d=~s/\.$t/$t/g;
-      }
-    }
-    # hide internal labels to avoid pollution of name table...
-    $d=~s/Lppcasm_/.Lppcasm_/gm;
-    print $d;
-}
-
-sub do_aix {
-    # AIX assembler is smart enough to please the linker without
-    # making us do something special...
-    print &data();
-}
-
-# MacOSX 32 bit
-sub do_osx {
-    $d=&data();
-    # Change the bn symbol prefix from '.' to '_'
-    foreach $t (@items) {
-      $d=~s/\.$t/_$t/g;
-    }
-    # Change .machine to something OS X asm will accept
-    $d=~s/\.machine.*/.text/g;
-    $d=~s/\#/;/g; # change comment from '#' to ';'
-    print $d;
-}
-
-# BSD (Untested)
-sub do_bsd {
-    $d=&data();
-    foreach $t (@items) {
-      $d=~s/\.$t/_$t/g;
-    }
-    print $d;
-}
-
-sub data {
-       local($data)=<<EOF;
+$data=<<EOF;
 #--------------------------------------------------------------------
 #
 #
@@ -297,33 +221,20 @@ sub data {
 #
 #      Defines to be used in the assembly code.
 #      
-.set r0,0      # we use it as storage for value of 0
-.set SP,1      # preserved
-.set RTOC,2    # preserved 
-.set r3,3      # 1st argument/return value
-.set r4,4      # 2nd argument/volatile register
-.set r5,5      # 3rd argument/volatile register
-.set r6,6      # ...
-.set r7,7
-.set r8,8
-.set r9,9
-.set r10,10
-.set r11,11
-.set r12,12
-.set r13,13    # not used, nor any other "below" it...
-
-.set BO_IF_NOT,4
-.set BO_IF,12
-.set BO_dCTR_NZERO,16
-.set BO_dCTR_ZERO,18
-.set BO_ALWAYS,20
-.set CR0_LT,0;
-.set CR0_GT,1;
-.set CR0_EQ,2
-.set CR1_FX,4;
-.set CR1_FEX,5;
-.set CR1_VX,6
-.set LR,8
+#.set r0,0     # we use it as storage for value of 0
+#.set SP,1     # preserved
+#.set RTOC,2   # preserved 
+#.set r3,3     # 1st argument/return value
+#.set r4,4     # 2nd argument/volatile register
+#.set r5,5     # 3rd argument/volatile register
+#.set r6,6     # ...
+#.set r7,7
+#.set r8,8
+#.set r9,9
+#.set r10,10
+#.set r11,11
+#.set r12,12
+#.set r13,13   # not used, nor any other "below" it...
 
 #      Declare function names to be global
 #      NOTE:   For gcc these names MUST be changed to remove
@@ -478,7 +389,7 @@ sub data {
 
        $ST             r9,`6*$BNSZ`(r3)        #r[6]=c1
        $ST             r10,`7*$BNSZ`(r3)       #r[7]=c2
-       bclr    BO_ALWAYS,CR0_LT
+       blr
        .long   0x00000000
 
 #
@@ -903,7 +814,7 @@ sub data {
        $ST             r9, `15*$BNSZ`(r3)      #r[15]=c1;
 
 
-       bclr    BO_ALWAYS,CR0_LT
+       blr
 
        .long   0x00000000
 
@@ -1055,7 +966,7 @@ sub data {
 
        $ST     r10,`6*$BNSZ`(r3)       #r[6]=c1
        $ST     r11,`7*$BNSZ`(r3)       #r[7]=c2
-       bclr    BO_ALWAYS,CR0_LT
+       blr
        .long   0x00000000
 
 #
@@ -1591,7 +1502,7 @@ sub data {
        adde    r10,r10,r9
        $ST     r12,`14*$BNSZ`(r3)      #r[14]=c3;
        $ST     r10,`15*$BNSZ`(r3)      #r[15]=c1;
-       bclr    BO_ALWAYS,CR0_LT
+       blr
        .long   0x00000000
 
 #
@@ -1623,7 +1534,7 @@ sub data {
        subfc.  r7,r0,r6        # If r6 is 0 then result is 0.
                                # if r6 > 0 then result !=0
                                # In either case carry bit is set.
-       bc      BO_IF,CR0_EQ,Lppcasm_sub_adios
+       beq     Lppcasm_sub_adios
        addi    r4,r4,-$BNSZ
        addi    r3,r3,-$BNSZ
        addi    r5,r5,-$BNSZ
@@ -1635,11 +1546,11 @@ Lppcasm_sub_mainloop:
                                # if carry = 1 this is r7-r8. Else it
                                # is r7-r8 -1 as we need.
        $STU    r6,$BNSZ(r3)
-       bc      BO_dCTR_NZERO,CR0_EQ,Lppcasm_sub_mainloop
+       bdnz-   Lppcasm_sub_mainloop
 Lppcasm_sub_adios:     
        subfze  r3,r0           # if carry bit is set then r3 = 0 else -1
        andi.   r3,r3,1         # keep only last bit.
-       bclr    BO_ALWAYS,CR0_LT
+       blr
        .long   0x00000000
 
 
@@ -1670,7 +1581,7 @@ Lppcasm_sub_adios:
 #      check for r6 = 0. Is this needed?
 #
        addic.  r6,r6,0         #test r6 and clear carry bit.
-       bc      BO_IF,CR0_EQ,Lppcasm_add_adios
+       beq     Lppcasm_add_adios
        addi    r4,r4,-$BNSZ
        addi    r3,r3,-$BNSZ
        addi    r5,r5,-$BNSZ
@@ -1680,10 +1591,10 @@ Lppcasm_add_mainloop:
        $LDU    r8,$BNSZ(r5)
        adde    r8,r7,r8
        $STU    r8,$BNSZ(r3)
-       bc      BO_dCTR_NZERO,CR0_EQ,Lppcasm_add_mainloop
+       bdnz-   Lppcasm_add_mainloop
 Lppcasm_add_adios:     
        addze   r3,r0                   #return carry bit.
-       bclr    BO_ALWAYS,CR0_LT
+       blr
        .long   0x00000000
 
 #
@@ -1707,24 +1618,24 @@ Lppcasm_add_adios:
 #      r5 = d
        
        $UCMPI  0,r5,0                  # compare r5 and 0
-       bc      BO_IF_NOT,CR0_EQ,Lppcasm_div1   # proceed if d!=0
+       bne     Lppcasm_div1            # proceed if d!=0
        li      r3,-1                   # d=0 return -1
-       bclr    BO_ALWAYS,CR0_LT        
+       blr
 Lppcasm_div1:
        xor     r0,r0,r0                #r0=0
        li      r8,$BITS
        $CNTLZ. r7,r5                   #r7 = num leading 0s in d.
-       bc      BO_IF,CR0_EQ,Lppcasm_div2       #proceed if no leading zeros
+       beq     Lppcasm_div2            #proceed if no leading zeros
        subf    r8,r7,r8                #r8 = BN_num_bits_word(d)
        $SHR.   r9,r3,r8                #are there any bits above r8'th?
        $TR     16,r9,r0                #if there're, signal to dump core...
 Lppcasm_div2:
        $UCMP   0,r3,r5                 #h>=d?
-       bc      BO_IF,CR0_LT,Lppcasm_div3       #goto Lppcasm_div3 if not
+       blt     Lppcasm_div3            #goto Lppcasm_div3 if not
        subf    r3,r5,r3                #h-=d ; 
 Lppcasm_div3:                          #r7 = BN_BITS2-i. so r7=i
        cmpi    0,0,r7,0                # is (i == 0)?
-       bc      BO_IF,CR0_EQ,Lppcasm_div4
+       beq     Lppcasm_div4
        $SHL    r3,r3,r7                # h = (h<< i)
        $SHR    r8,r4,r8                # r8 = (l >> BN_BITS2 -i)
        $SHL    r5,r5,r7                # d<<=i
@@ -1741,7 +1652,7 @@ Lppcasm_divouterloop:
        $SHRI   r11,r4,`$BITS/2`        #r11= (l&BN_MASK2h)>>BN_BITS4
                                        # compute here for innerloop.
        $UCMP   0,r8,r9                 # is (h>>BN_BITS4)==dh
-       bc      BO_IF_NOT,CR0_EQ,Lppcasm_div5   # goto Lppcasm_div5 if not
+       bne     Lppcasm_div5            # goto Lppcasm_div5 if not
 
        li      r8,-1
        $CLRU   r8,r8,`$BITS/2`         #q = BN_MASK2l 
@@ -1762,9 +1673,9 @@ Lppcasm_divinnerloop:
                                        # the following 2 instructions do that
        $SHLI   r7,r10,`$BITS/2`        # r7 = (t<<BN_BITS4)
        or      r7,r7,r11               # r7|=((l&BN_MASK2h)>>BN_BITS4)
-       $UCMP   1,r6,r7                 # compare (tl <= r7)
-       bc      BO_IF_NOT,CR0_EQ,Lppcasm_divinnerexit
-       bc      BO_IF_NOT,CR1_FEX,Lppcasm_divinnerexit
+       $UCMP   cr1,r6,r7               # compare (tl <= r7)
+       bne     Lppcasm_divinnerexit
+       ble     cr1,Lppcasm_divinnerexit
        addi    r8,r8,-1                #q--
        subf    r12,r9,r12              #th -=dh
        $CLRU   r10,r5,`$BITS/2`        #r10=dl. t is no longer needed in loop.
@@ -1773,14 +1684,14 @@ Lppcasm_divinnerloop:
 Lppcasm_divinnerexit:
        $SHRI   r10,r6,`$BITS/2`        #t=(tl>>BN_BITS4)
        $SHLI   r11,r6,`$BITS/2`        #tl=(tl<<BN_BITS4)&BN_MASK2h;
-       $UCMP   1,r4,r11                # compare l and tl
+       $UCMP   cr1,r4,r11              # compare l and tl
        add     r12,r12,r10             # th+=t
-       bc      BO_IF_NOT,CR1_FX,Lppcasm_div7  # if (l>=tl) goto Lppcasm_div7
+       bge     cr1,Lppcasm_div7        # if (l>=tl) goto Lppcasm_div7
        addi    r12,r12,1               # th++
 Lppcasm_div7:
        subf    r11,r11,r4              #r11=l-tl
-       $UCMP   1,r3,r12                #compare h and th
-       bc      BO_IF_NOT,CR1_FX,Lppcasm_div8   #if (h>=th) goto Lppcasm_div8
+       $UCMP   cr1,r3,r12              #compare h and th
+       bge     cr1,Lppcasm_div8        #if (h>=th) goto Lppcasm_div8
        addi    r8,r8,-1                # q--
        add     r3,r5,r3                # h+=d
 Lppcasm_div8:
@@ -1791,12 +1702,12 @@ Lppcasm_div8:
                                        # the following 2 instructions will do this.
        $INSR   r11,r12,`$BITS/2`,`$BITS/2`     # r11 is the value we want rotated $BITS/2.
        $ROTL   r3,r11,`$BITS/2`        # rotate by $BITS/2 and store in r3
-       bc      BO_dCTR_ZERO,CR0_EQ,Lppcasm_div9#if (count==0) break ;
+       bdz     Lppcasm_div9            #if (count==0) break ;
        $SHLI   r0,r8,`$BITS/2`         #ret =q<<BN_BITS4
        b       Lppcasm_divouterloop
 Lppcasm_div9:
        or      r3,r8,r0
-       bclr    BO_ALWAYS,CR0_LT
+       blr
        .long   0x00000000
 
 #
@@ -1822,7 +1733,7 @@ Lppcasm_div9:
 #      No unrolling done here. Not performance critical.
 
        addic.  r5,r5,0                 #test r5.
-       bc      BO_IF,CR0_EQ,Lppcasm_sqr_adios
+       beq     Lppcasm_sqr_adios
        addi    r4,r4,-$BNSZ
        addi    r3,r3,-$BNSZ
        mtctr   r5
@@ -1833,9 +1744,9 @@ Lppcasm_sqr_mainloop:
        $UMULH  r8,r6,r6
        $STU    r7,$BNSZ(r3)
        $STU    r8,$BNSZ(r3)
-       bc      BO_dCTR_NZERO,CR0_EQ,Lppcasm_sqr_mainloop
+       bdnz-   Lppcasm_sqr_mainloop
 Lppcasm_sqr_adios:     
-       bclr    BO_ALWAYS,CR0_LT
+       blr
        .long   0x00000000
 
 
@@ -1858,7 +1769,7 @@ Lppcasm_sqr_adios:
        xor     r0,r0,r0
        xor     r12,r12,r12             # used for carry
        rlwinm. r7,r5,30,2,31           # num >> 2
-       bc      BO_IF,CR0_EQ,Lppcasm_mw_REM
+       beq     Lppcasm_mw_REM
        mtctr   r7
 Lppcasm_mw_LOOP:       
                                        #mul(rp[0],ap[0],w,c1);
@@ -1896,11 +1807,11 @@ Lppcasm_mw_LOOP:
        
        addi    r3,r3,`4*$BNSZ`
        addi    r4,r4,`4*$BNSZ`
-       bc      BO_dCTR_NZERO,CR0_EQ,Lppcasm_mw_LOOP
+       bdnz-   Lppcasm_mw_LOOP
 
 Lppcasm_mw_REM:
        andi.   r5,r5,0x3
-       bc      BO_IF,CR0_EQ,Lppcasm_mw_OVER
+       beq     Lppcasm_mw_OVER
                                        #mul(rp[0],ap[0],w,c1);
        $LD     r8,`0*$BNSZ`(r4)
        $UMULL  r9,r6,r8
@@ -1912,7 +1823,7 @@ Lppcasm_mw_REM:
        
        addi    r5,r5,-1
        cmpli   0,0,r5,0
-       bc      BO_IF,CR0_EQ,Lppcasm_mw_OVER
+       beq     Lppcasm_mw_OVER
 
        
                                        #mul(rp[1],ap[1],w,c1);
@@ -1926,7 +1837,7 @@ Lppcasm_mw_REM:
        
        addi    r5,r5,-1
        cmpli   0,0,r5,0
-       bc      BO_IF,CR0_EQ,Lppcasm_mw_OVER
+       beq     Lppcasm_mw_OVER
        
                                        #mul_add(rp[2],ap[2],w,c1);
        $LD     r8,`2*$BNSZ`(r4)
@@ -1939,7 +1850,7 @@ Lppcasm_mw_REM:
                
 Lppcasm_mw_OVER:       
        addi    r3,r12,0
-       bclr    BO_ALWAYS,CR0_LT
+       blr
        .long   0x00000000
 
 #
@@ -1964,7 +1875,7 @@ Lppcasm_mw_OVER:
        xor     r0,r0,r0                #r0 = 0
        xor     r12,r12,r12             #r12 = 0 . used for carry               
        rlwinm. r7,r5,30,2,31           # num >> 2
-       bc      BO_IF,CR0_EQ,Lppcasm_maw_leftover       # if (num < 4) go LPPCASM_maw_leftover
+       beq     Lppcasm_maw_leftover    # if (num < 4) go LPPCASM_maw_leftover
        mtctr   r7
 Lppcasm_maw_mainloop:  
                                        #mul_add(rp[0],ap[0],w,c1);
@@ -2017,11 +1928,11 @@ Lppcasm_maw_mainloop:
        $ST     r11,`3*$BNSZ`(r3)
        addi    r3,r3,`4*$BNSZ`
        addi    r4,r4,`4*$BNSZ`
-       bc      BO_dCTR_NZERO,CR0_EQ,Lppcasm_maw_mainloop
+       bdnz-   Lppcasm_maw_mainloop
        
 Lppcasm_maw_leftover:
        andi.   r5,r5,0x3
-       bc      BO_IF,CR0_EQ,Lppcasm_maw_adios
+       beq     Lppcasm_maw_adios
        addi    r3,r3,-$BNSZ
        addi    r4,r4,-$BNSZ
                                        #mul_add(rp[0],ap[0],w,c1);
@@ -2036,7 +1947,7 @@ Lppcasm_maw_leftover:
        addze   r12,r10
        $ST     r9,0(r3)
        
-       bc      BO_dCTR_ZERO,CR0_EQ,Lppcasm_maw_adios
+       bdz     Lppcasm_maw_adios
                                        #mul_add(rp[1],ap[1],w,c1);
        $LDU    r8,$BNSZ(r4)    
        $UMULL  r9,r6,r8
@@ -2048,7 +1959,7 @@ Lppcasm_maw_leftover:
        addze   r12,r10
        $ST     r9,0(r3)
        
-       bc      BO_dCTR_ZERO,CR0_EQ,Lppcasm_maw_adios
+       bdz     Lppcasm_maw_adios
                                        #mul_add(rp[2],ap[2],w,c1);
        $LDU    r8,$BNSZ(r4)
        $UMULL  r9,r6,r8
@@ -2062,17 +1973,10 @@ Lppcasm_maw_leftover:
                
 Lppcasm_maw_adios:     
        addi    r3,r12,0
-       bclr    BO_ALWAYS,CR0_LT
+       blr
        .long   0x00000000
        .align  4
 EOF
-       $data =~ s/\`([^\`]*)\`/eval $1/gem;
-
-       # if some assembler chokes on some simplified mnemonic,
-       # this is the spot to fix it up, e.g.:
-       # GNU as doesn't seem to accept cmplw, 32-bit unsigned compare
-       $data =~ s/^(\s*)cmplw(\s+)([^,]+),(.*)/$1cmpl$2$3,0,$4/gm;
-       # assembler X doesn't accept li, load immediate value
-       #$data =~ s/^(\s*)li(\s+)([^,]+),(.*)/$1addi$2$3,0,$4/gm;
-       return($data);
-}
+$data =~ s/\`([^\`]*)\`/eval $1/gem;
+print $data;
+close STDOUT;