1392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom#!/usr/bin/env perl 2392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 3392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# ==================================================================== 4392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# Written by Andy Polyakov <appro@fy.chalmers.se> for the OpenSSL 5392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# project. The module is, however, dual licensed under OpenSSL and 6392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# CRYPTOGAMS licenses depending on where you obtain it. For further 7392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# details see http://www.openssl.org/~appro/cryptogams/. 8392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# ==================================================================== 9392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 10392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# SHA1 block procedure for PA-RISC. 11392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 12392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# June 2009. 13392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# 14392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# On PA-7100LC performance is >30% better than gcc 3.2 generated code 15392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# for aligned input and >50% better for unaligned. Compared to vendor 16392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# compiler on PA-8600 it's almost 60% faster in 64-bit build and just 17392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# few percent faster in 32-bit one (this for aligned input, data for 18392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# unaligned input is not available). 19392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# 20392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# Special thanks to polarhome.com for providing HP-UX account. 21392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 22392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$flavour = shift; 23392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$output = shift; 24392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstromopen STDOUT,">$output"; 25392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 26392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstromif ($flavour =~ /64/) { 27392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $LEVEL ="2.0W"; 28392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $SIZE_T =8; 29392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $FRAME_MARKER =80; 30392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $SAVED_RP =16; 31392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $PUSH ="std"; 32392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $PUSHMA ="std,ma"; 33392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $POP ="ldd"; 34392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $POPMB ="ldd,mb"; 35392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom} else { 36392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $LEVEL ="1.0"; 37392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $SIZE_T =4; 38392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $FRAME_MARKER =48; 39392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $SAVED_RP =20; 40392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $PUSH ="stw"; 41392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $PUSHMA ="stwm"; 42392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $POP ="ldw"; 43392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $POPMB ="ldwm"; 44392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom} 45392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 46392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$FRAME=14*$SIZE_T+$FRAME_MARKER;# 14 saved regs + frame marker 47392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom # [+ argument transfer] 48392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$ctx="%r26"; # arg0 49392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$inp="%r25"; # arg1 50392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$num="%r24"; # arg2 51392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 52392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$t0="%r28"; 53392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$t1="%r29"; 54392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$K="%r31"; 55392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 56392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom@X=("%r1", "%r2", "%r3", "%r4", "%r5", "%r6", "%r7", "%r8", 57392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom "%r9", "%r10","%r11","%r12","%r13","%r14","%r15","%r16",$t0); 58392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 59392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom@V=($A,$B,$C,$D,$E)=("%r19","%r20","%r21","%r22","%r23"); 60392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 61392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstromsub BODY_00_19 { 62392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrommy ($i,$a,$b,$c,$d,$e)=@_; 63392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrommy $j=$i+1; 64392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code.=<<___ if ($i<15); 65392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom addl $K,$e,$e ; $i 66392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shd $a,$a,27,$t1 67392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom addl @X[$i],$e,$e 68392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom and $c,$b,$t0 69392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom addl $t1,$e,$e 70392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom andcm $d,$b,$t1 71392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shd $b,$b,2,$b 72392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom or $t1,$t0,$t0 73392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom addl $t0,$e,$e 74392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 75392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code.=<<___ if ($i>=15); # with forward Xupdate 76392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom addl $K,$e,$e ; $i 77392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shd $a,$a,27,$t1 78392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor @X[($j+2)%16],@X[$j%16],@X[$j%16] 79392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom addl @X[$i%16],$e,$e 80392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom and $c,$b,$t0 81392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor @X[($j+8)%16],@X[$j%16],@X[$j%16] 82392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom addl $t1,$e,$e 83392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom andcm $d,$b,$t1 84392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shd $b,$b,2,$b 85392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom or $t1,$t0,$t0 86392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor @X[($j+13)%16],@X[$j%16],@X[$j%16] 87392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom add $t0,$e,$e 88392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shd @X[$j%16],@X[$j%16],31,@X[$j%16] 89392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 90392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom} 91392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 92392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstromsub BODY_20_39 { 93392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrommy ($i,$a,$b,$c,$d,$e)=@_; 94392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrommy $j=$i+1; 95392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code.=<<___ if ($i<79); 96392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor @X[($j+2)%16],@X[$j%16],@X[$j%16] ; $i 97392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom addl $K,$e,$e 98392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shd $a,$a,27,$t1 99392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor @X[($j+8)%16],@X[$j%16],@X[$j%16] 100392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom addl @X[$i%16],$e,$e 101392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $b,$c,$t0 102392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor @X[($j+13)%16],@X[$j%16],@X[$j%16] 103392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom addl $t1,$e,$e 104392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shd $b,$b,2,$b 105392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $d,$t0,$t0 106392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shd @X[$j%16],@X[$j%16],31,@X[$j%16] 107392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom addl $t0,$e,$e 108392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 109392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code.=<<___ if ($i==79); # with context load 110392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom ldw 0($ctx),@X[0] ; $i 111392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom addl $K,$e,$e 112392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shd $a,$a,27,$t1 113392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom ldw 4($ctx),@X[1] 114392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom addl @X[$i%16],$e,$e 115392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $b,$c,$t0 116392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom ldw 8($ctx),@X[2] 117392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom addl $t1,$e,$e 118392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shd $b,$b,2,$b 119392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $d,$t0,$t0 120392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom ldw 12($ctx),@X[3] 121392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom addl $t0,$e,$e 122392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom ldw 16($ctx),@X[4] 123392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 124392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom} 125392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 126392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstromsub BODY_40_59 { 127392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrommy ($i,$a,$b,$c,$d,$e)=@_; 128392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrommy $j=$i+1; 129392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code.=<<___; 130392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shd $a,$a,27,$t1 ; $i 131392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom addl $K,$e,$e 132392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor @X[($j+2)%16],@X[$j%16],@X[$j%16] 133392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $d,$c,$t0 134392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom addl @X[$i%16],$e,$e 135392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor @X[($j+8)%16],@X[$j%16],@X[$j%16] 136392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom and $b,$t0,$t0 137392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom addl $t1,$e,$e 138392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shd $b,$b,2,$b 139392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor @X[($j+13)%16],@X[$j%16],@X[$j%16] 140392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom addl $t0,$e,$e 141392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom and $d,$c,$t1 142392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shd @X[$j%16],@X[$j%16],31,@X[$j%16] 143392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom addl $t1,$e,$e 144392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 145392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom} 146392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 147392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code=<<___; 148392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom .LEVEL $LEVEL 149392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom .SPACE \$TEXT\$ 150392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom .SUBSPA \$CODE\$,QUAD=0,ALIGN=8,ACCESS=0x2C,CODE_ONLY 151392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 152392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom .EXPORT sha1_block_data_order,ENTRY,ARGW0=GR,ARGW1=GR,ARGW2=GR 153392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstromsha1_block_data_order 154392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom .PROC 155392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom .CALLINFO FRAME=`$FRAME-14*$SIZE_T`,NO_CALLS,SAVE_RP,ENTRY_GR=16 156392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom .ENTRY 157392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $PUSH %r2,-$SAVED_RP(%sp) ; standard prologue 158392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $PUSHMA %r3,$FRAME(%sp) 159392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $PUSH %r4,`-$FRAME+1*$SIZE_T`(%sp) 160392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $PUSH %r5,`-$FRAME+2*$SIZE_T`(%sp) 161392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $PUSH %r6,`-$FRAME+3*$SIZE_T`(%sp) 162392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $PUSH %r7,`-$FRAME+4*$SIZE_T`(%sp) 163392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $PUSH %r8,`-$FRAME+5*$SIZE_T`(%sp) 164392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $PUSH %r9,`-$FRAME+6*$SIZE_T`(%sp) 165392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $PUSH %r10,`-$FRAME+7*$SIZE_T`(%sp) 166392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $PUSH %r11,`-$FRAME+8*$SIZE_T`(%sp) 167392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $PUSH %r12,`-$FRAME+9*$SIZE_T`(%sp) 168392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $PUSH %r13,`-$FRAME+10*$SIZE_T`(%sp) 169392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $PUSH %r14,`-$FRAME+11*$SIZE_T`(%sp) 170392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $PUSH %r15,`-$FRAME+12*$SIZE_T`(%sp) 171392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $PUSH %r16,`-$FRAME+13*$SIZE_T`(%sp) 172392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 173392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom ldw 0($ctx),$A 174392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom ldw 4($ctx),$B 175392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom ldw 8($ctx),$C 176392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom ldw 12($ctx),$D 177392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom ldw 16($ctx),$E 178392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 179392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom extru $inp,31,2,$t0 ; t0=inp&3; 180392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom sh3addl $t0,%r0,$t0 ; t0*=8; 181392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom subi 32,$t0,$t0 ; t0=32-t0; 182392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mtctl $t0,%cr11 ; %sar=t0; 183392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 184392aa7cc7d2b122614c5393c3e357da07fd07af3Brian CarlstromL\$oop 185392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom ldi 3,$t0 186392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom andcm $inp,$t0,$t0 ; 64-bit neutral 187392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 188392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom for ($i=0;$i<15;$i++) { # load input block 189392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $code.="\tldw `4*$i`($t0),@X[$i]\n"; } 190392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code.=<<___; 191392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom cmpb,*= $inp,$t0,L\$aligned 192392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom ldw 60($t0),@X[15] 193392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom ldw 64($t0),@X[16] 194392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 195392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom for ($i=0;$i<16;$i++) { # align input 196392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $code.="\tvshd @X[$i],@X[$i+1],@X[$i]\n"; } 197392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code.=<<___; 198392aa7cc7d2b122614c5393c3e357da07fd07af3Brian CarlstromL\$aligned 199392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom ldil L'0x5a827000,$K ; K_00_19 200392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom ldo 0x999($K),$K 201392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 202392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstromfor ($i=0;$i<20;$i++) { &BODY_00_19($i,@V); unshift(@V,pop(@V)); } 203392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code.=<<___; 204392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom ldil L'0x6ed9e000,$K ; K_20_39 205392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom ldo 0xba1($K),$K 206392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 207392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 208392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstromfor (;$i<40;$i++) { &BODY_20_39($i,@V); unshift(@V,pop(@V)); } 209392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code.=<<___; 210392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom ldil L'0x8f1bb000,$K ; K_40_59 211392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom ldo 0xcdc($K),$K 212392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 213392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 214392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstromfor (;$i<60;$i++) { &BODY_40_59($i,@V); unshift(@V,pop(@V)); } 215392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code.=<<___; 216392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom ldil L'0xca62c000,$K ; K_60_79 217392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom ldo 0x1d6($K),$K 218392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 219392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstromfor (;$i<80;$i++) { &BODY_20_39($i,@V); unshift(@V,pop(@V)); } 220392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 221392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code.=<<___; 222392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom addl @X[0],$A,$A 223392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom addl @X[1],$B,$B 224392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom addl @X[2],$C,$C 225392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom addl @X[3],$D,$D 226392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom addl @X[4],$E,$E 227392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom stw $A,0($ctx) 228392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom stw $B,4($ctx) 229392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom stw $C,8($ctx) 230392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom stw $D,12($ctx) 231392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom stw $E,16($ctx) 232392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom addib,*<> -1,$num,L\$oop 233392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom ldo 64($inp),$inp 234392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 235392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $POP `-$FRAME-$SAVED_RP`(%sp),%r2 ; standard epilogue 236392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $POP `-$FRAME+1*$SIZE_T`(%sp),%r4 237392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $POP `-$FRAME+2*$SIZE_T`(%sp),%r5 238392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $POP `-$FRAME+3*$SIZE_T`(%sp),%r6 239392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $POP `-$FRAME+4*$SIZE_T`(%sp),%r7 240392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $POP `-$FRAME+5*$SIZE_T`(%sp),%r8 241392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $POP `-$FRAME+6*$SIZE_T`(%sp),%r9 242392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $POP `-$FRAME+7*$SIZE_T`(%sp),%r10 243392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $POP `-$FRAME+8*$SIZE_T`(%sp),%r11 244392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $POP `-$FRAME+9*$SIZE_T`(%sp),%r12 245392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $POP `-$FRAME+10*$SIZE_T`(%sp),%r13 246392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $POP `-$FRAME+11*$SIZE_T`(%sp),%r14 247392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $POP `-$FRAME+12*$SIZE_T`(%sp),%r15 248392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $POP `-$FRAME+13*$SIZE_T`(%sp),%r16 249392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom bv (%r2) 250392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom .EXIT 251392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $POPMB -$FRAME(%sp),%r3 252392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom .PROCEND 253392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom .STRINGZ "SHA1 block transform for PA-RISC, CRYPTOGAMS by <appro\@openssl.org>" 254392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 255392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 256392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code =~ s/\`([^\`]*)\`/eval $1/gem; 257392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code =~ s/,\*/,/gm if ($SIZE_T==4); 258392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstromprint $code; 259392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstromclose STDOUT; 260