summaryrefslogtreecommitdiff
path: root/src/lib/libcrypto/bn/asm/parisc-mont.pl
diff options
context:
space:
mode:
Diffstat (limited to 'src/lib/libcrypto/bn/asm/parisc-mont.pl')
-rw-r--r--src/lib/libcrypto/bn/asm/parisc-mont.pl10
1 files changed, 1 insertions, 9 deletions
diff --git a/src/lib/libcrypto/bn/asm/parisc-mont.pl b/src/lib/libcrypto/bn/asm/parisc-mont.pl
index 6da9574adf..0c7aff93b9 100644
--- a/src/lib/libcrypto/bn/asm/parisc-mont.pl
+++ b/src/lib/libcrypto/bn/asm/parisc-mont.pl
@@ -126,12 +126,7 @@ $fni="%fr9"; $fnm0="%fr10"; $fnm1="%fr11";
126 126
127$code=<<___; 127$code=<<___;
128 .LEVEL $LEVEL 128 .LEVEL $LEVEL
129#if 0
130 .SPACE \$TEXT\$
131 .SUBSPA \$CODE\$,QUAD=0,ALIGN=8,ACCESS=0x2C,CODE_ONLY
132#else
133 .text 129 .text
134#endif
135 130
136 .EXPORT bn_mul_mont,ENTRY,ARGW0=GR,ARGW1=GR,ARGW2=GR,ARGW3=GR 131 .EXPORT bn_mul_mont,ENTRY,ARGW0=GR,ARGW1=GR,ARGW2=GR,ARGW3=GR
137 .ALIGN 64 132 .ALIGN 64
@@ -214,7 +209,7 @@ $code.=<<___;
214 flddx $idx($np),${fni} ; np[2,3] 209 flddx $idx($np),${fni} ; np[2,3]
215___ 210___
216$code.=<<___ if ($BN_SZ==4); 211$code.=<<___ if ($BN_SZ==4);
217#ifndef __OpenBSD__ 212#ifdef __LP64__
218 mtctl $hi0,%cr11 ; $hi0 still holds 31 213 mtctl $hi0,%cr11 ; $hi0 still holds 31
219 extrd,u,*= $hi0,%sar,1,$hi0 ; executes on PA-RISC 1.0 214 extrd,u,*= $hi0,%sar,1,$hi0 ; executes on PA-RISC 1.0
220 b L\$parisc11 215 b L\$parisc11
@@ -881,9 +876,6 @@ L\$abort
881 .EXIT 876 .EXIT
882 $POPMB -$FRAME(%sp),%r3 877 $POPMB -$FRAME(%sp),%r3
883 .PROCEND 878 .PROCEND
884
885 .data
886 .STRINGZ "Montgomery Multiplication for PA-RISC, CRYPTOGAMS by <appro\@openssl.org>"
887___ 879___
888 880
889# Explicitly encode PA-RISC 2.0 instructions used in this module, so 881# Explicitly encode PA-RISC 2.0 instructions used in this module, so