Access to VRSAVE have a high cost in performance. Since ABI was update we don't need to save what vector register we are using. Removing VRSAVE access can improve a bit more our performance.
Signed-off-by: Leonidas S. Barbosa <leosi...@linux.vnet.ibm.com> Signed-off-by: Paulo Flabiano Smorigo <pfsmor...@linux.vnet.ibm.com> --- crypto/aes/asm/aesp8-ppc.pl | 20 -------------------- crypto/modes/asm/ghashp8-ppc.pl | 11 ----------- 2 files changed, 31 deletions(-) diff --git a/crypto/aes/asm/aesp8-ppc.pl b/crypto/aes/asm/aesp8-ppc.pl index a1891cc..35f36ef 100755 --- a/crypto/aes/asm/aesp8-ppc.pl +++ b/crypto/aes/asm/aesp8-ppc.pl @@ -104,10 +104,6 @@ Lset_encrypt_key: andi. r0,$bits,0x3f bne- Lenc_key_abort - lis r0,0xfff0 - mfspr $vrsave,256 - mtspr 256,r0 - bl Lconsts mtlr r11 @@ -336,7 +332,6 @@ Ldone: vsel $in1,$outhead,$in1,$outmask stvx $in1,0,$inp li $ptr,0 - mtspr 256,$vrsave stw $rounds,0($out) Lenc_key_abort: @@ -408,10 +403,7 @@ $code.=<<___; .align 5 .${prefix}_${dir}crypt: lwz $rounds,240($key) - lis r0,0xfc00 - mfspr $vrsave,256 li $idx,15 # 15 is not typo - mtspr 256,r0 lvx v0,0,$inp neg r11,$out @@ -465,7 +457,6 @@ Loop_${dir}c: vsel v0,v0,v4,v2 stvx v0,$idx,$out - mtspr 256,$vrsave blr .long 0 .byte 0,12,0x14,0,0,0,3,0 @@ -490,9 +481,6 @@ $code.=<<___; bltlr- cmpwi $enc,0 # test direction - lis r0,0xffe0 - mfspr $vrsave,256 - mtspr 256,r0 li $idx,15 vxor $rndkey0,$rndkey0,$rndkey0 @@ -638,7 +626,6 @@ Lcbc_done: vsel $inout,$ivec,$inptail,$outmask stvx $inout,$idx,$ivp - mtspr 256,$vrsave blr .long 0 .byte 0,12,0x14,0,0,0,6,0 @@ -1196,7 +1183,6 @@ Lcbc_dec8x_done: stvx $inpperm,r11,$sp addi r11,r11,32 - mtspr 256,$vrsave lvx v20,r10,$sp # ABI says so addi r10,r10,32 lvx v21,r11,$sp @@ -1249,10 +1235,6 @@ $code.=<<___; ${UCMP}i $len,1 bltlr- - lis r0,0xfff0 - mfspr $vrsave,256 - mtspr 256,r0 - li $idx,15 vxor $rndkey0,$rndkey0,$rndkey0 le?vspltisb $tmp,0x0f @@ -1344,7 +1326,6 @@ Loop_ctr32_enc: vsel $inout,$outhead,$inout,$outmask stvx $inout,0,$out - mtspr 256,$vrsave blr .long 0 .byte 0,12,0x14,0,0,0,6,0 @@ -1849,7 +1830,6 @@ Lctr32_enc8x_done: stvx $inpperm,r11,$sp addi r11,r11,32 - mtspr 256,$vrsave lvx v20,r10,$sp # ABI says so addi r10,r10,32 lvx v21,r11,$sp diff --git a/crypto/modes/asm/ghashp8-ppc.pl b/crypto/modes/asm/ghashp8-ppc.pl index e76a58c..63e46fa 100755 --- a/crypto/modes/asm/ghashp8-ppc.pl +++ b/crypto/modes/asm/ghashp8-ppc.pl @@ -46,7 +46,6 @@ my ($Xip,$Htbl,$inp,$len)=map("r$_",(3..6)); # argument block my ($Xl,$Xm,$Xh,$IN)=map("v$_",(0..3)); my ($zero,$t0,$t1,$t2,$xC2,$H,$Hh,$Hl,$lemask)=map("v$_",(4..12)); -my $vrsave="r12"; $code=<<___; .machine "any" @@ -56,11 +55,8 @@ $code=<<___; .globl .gcm_init_p8 .align 5 .gcm_init_p8: - lis r0,0xfff0 li r8,0x10 - mfspr $vrsave,256 li r9,0x20 - mtspr 256,r0 li r10,0x30 lvx_u $H,0,r4 # load H @@ -90,7 +86,6 @@ $code=<<___; stvx_u $H, r9,r3 stvx_u $Hh,r10,r3 - mtspr 256,$vrsave blr .long 0 .byte 0,12,0x14,0,0,0,2,0 @@ -102,9 +97,7 @@ $code=<<___; .gcm_gmult_p8: lis r0,0xfff8 li r8,0x10 - mfspr $vrsave,256 li r9,0x20 - mtspr 256,r0 li r10,0x30 lvx_u $IN,0,$Xip # load Xi @@ -140,7 +133,6 @@ $code=<<___; le?vperm $Xl,$Xl,$Xl,$lemask stvx_u $Xl,0,$Xip # write out Xi - mtspr 256,$vrsave blr .long 0 .byte 0,12,0x14,0,0,0,2,0 @@ -152,9 +144,7 @@ $code=<<___; .gcm_ghash_p8: lis r0,0xfff8 li r8,0x10 - mfspr $vrsave,256 li r9,0x20 - mtspr 256,r0 li r10,0x30 lvx_u $Xl,0,$Xip # load Xi @@ -209,7 +199,6 @@ Loop: le?vperm $Xl,$Xl,$Xl,$lemask stvx_u $Xl,0,$Xip # write out Xi - mtspr 256,$vrsave blr .long 0 .byte 0,12,0x14,0,0,0,4,0 -- 2.5.0 _______________________________________________ openssl-bugs-mod mailing list openssl-bugs-...@openssl.org https://mta.openssl.org/mailman/listinfo/openssl-bugs-mod _______________________________________________ openssl-dev mailing list To unsubscribe: https://mta.openssl.org/mailman/listinfo/openssl-dev