diff options
Diffstat (limited to 'src/lib/libcrypto/bn/asm/parisc-mont.pl')
-rw-r--r-- | src/lib/libcrypto/bn/asm/parisc-mont.pl | 10 |
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 |