generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Minor sha1-ppc.pl update.

Browse Source
This commit is contained in:
Andy Polyakov 2006-06-05 09:35:50 +00:00
parent 061d774b99
commit 4dca00cec8
1 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
crypto/sha/asm/sha1-ppc.pl
View File

@ -6,27 +6,28 @@
# forms are granted according to the OpenSSL license. # forms are granted according to the OpenSSL license.
# ==================================================================== # ====================================================================
# I let hardware handle unaligned input, except on page boundaries # I let hardware handle unaligned input(*), except on page boundaries
# (see below for details). Otherwise straightforward implementation # (see below for details). Otherwise straightforward implementation
# with X vector in register bank. The module is big-endian [which is # with X vector in register bank. The module is big-endian [which is
# not big deal as there're no little-endian targets left around]. # not big deal as there're no little-endian targets left around].
#
# (*) this means that this module is inappropriate for PPC403? Does
# anybody know if pre-POWER3 can sustain unaligned load?
# gcc-4.0.0 -m64 -m32 # -m64 -m32
# -------------------------- # ----------------------------------
# sha1 +76% +59% # PPC970,gcc-4.0.0 +76% +59%
$output = shift; $output = shift;
if ($output =~ /64\.s/) { if ($output =~ /64\.s/) {
$SIZE_T =8; $SIZE_T =8;
$RZONE =288;
$UCMP ="cmpld"; $UCMP ="cmpld";
$STU ="stdu"; $STU ="stdu";
$POP ="ld"; $POP ="ld";
$PUSH ="std"; $PUSH ="std";
} elsif ($output =~ /32\.s/) { } elsif ($output =~ /32\.s/) {
$SIZE_T =4; $SIZE_T =4;
$RZONE =224;
$UCMP ="cmplw"; $UCMP ="cmplw";
$STU ="stwu"; $STU ="stwu";
$POP ="lwz"; $POP ="lwz";
@ -149,14 +150,13 @@ ___
} }
$code=<<___; $code=<<___;
.machine "any"
.text .text
.globl .sha1_block_asm_data_order .globl .sha1_block_asm_data_order
.align 4 .align 4
.sha1_block_asm_data_order: .sha1_block_asm_data_order:
mflr r0 mflr r0
$STU $sp,`-($FRAME+64+$RZONE)`($sp) $STU $sp,`-($FRAME+64)`($sp)
$PUSH r0,`$FRAME-$SIZE_T*18`($sp) $PUSH r0,`$FRAME-$SIZE_T*18`($sp)
$PUSH r15,`$FRAME-$SIZE_T*17`($sp) $PUSH r15,`$FRAME-$SIZE_T*17`($sp)
$PUSH r16,`$FRAME-$SIZE_T*16`($sp) $PUSH r16,`$FRAME-$SIZE_T*16`($sp)
@ -205,7 +205,7 @@ Ldone:
$POP r30,`$FRAME-$SIZE_T*2`($sp) $POP r30,`$FRAME-$SIZE_T*2`($sp)
$POP r31,`$FRAME-$SIZE_T*1`($sp) $POP r31,`$FRAME-$SIZE_T*1`($sp)
mtlr r0 mtlr r0
addi $sp,$sp,`$FRAME+64+$RZONE` addi $sp,$sp,`$FRAME+64`
blr blr
___ ___
@ -218,15 +218,14 @@ ___
$code.=<<___; $code.=<<___;
.align 4 .align 4
Lunaligned: Lunaligned:
li $t1,4096 subfic $t1,$inp,4096
subf $t1,$inp,$t1
andi. $t1,$t1,4095 ; distance to closest page boundary andi. $t1,$t1,4095 ; distance to closest page boundary
srwi. $t1,$t1,6 ; t1/=64 srwi. $t1,$t1,6 ; t1/=64
beq Lcross_page beq Lcross_page
$UCMP $num,$t1 $UCMP $num,$t1
ble- Laligned ; didn't cross the page boundary ble- Laligned ; didn't cross the page boundary
mtctr $t1 mtctr $t1
subf $num,$t1,$num subfc $num,$t1,$num
bl Lsha1_block_private bl Lsha1_block_private
Lcross_page: Lcross_page:
li $t1,16 li $t1,16