1221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom#!/usr/bin/env perl 2221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 3221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# ==================================================================== 4221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# Written by Andy Polyakov <appro@fy.chalmers.se> for the OpenSSL 5221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# project. The module is, however, dual licensed under OpenSSL and 6221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# CRYPTOGAMS licenses depending on where you obtain it. For further 7221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# details see http://www.openssl.org/~appro/cryptogams/. 8221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# ==================================================================== 9221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 10221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# January 2009 11221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# 12221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# Provided that UltraSPARC VIS instructions are pipe-lined(*) and 13221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# pairable(*) with IALU ones, offloading of Xupdate to the UltraSPARC 14221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# Graphic Unit would make it possible to achieve higher instruction- 15221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# level parallelism, ILP, and thus higher performance. It should be 16221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# explicitly noted that ILP is the keyword, and it means that this 17221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# code would be unsuitable for cores like UltraSPARC-Tx. The idea is 18221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# not really novel, Sun had VIS-powered implementation for a while. 19221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# Unlike Sun's implementation this one can process multiple unaligned 20221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# input blocks, and as such works as drop-in replacement for OpenSSL 21221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# sha1_block_data_order. Performance improvement was measured to be 22221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# 40% over pure IALU sha1-sparcv9.pl on UltraSPARC-IIi, but 12% on 23221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# UltraSPARC-III. See below for discussion... 24221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# 25221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# The module does not present direct interest for OpenSSL, because 26221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# it doesn't provide better performance on contemporary SPARCv9 CPUs, 27221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# UltraSPARC-Tx and SPARC64-V[II] to be specific. Those who feel they 28221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# absolutely must score on UltraSPARC-I-IV can simply replace 29221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# crypto/sha/asm/sha1-sparcv9.pl with this module. 30221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# 31221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# (*) "Pipe-lined" means that even if it takes several cycles to 32221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# complete, next instruction using same functional unit [but not 33221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# depending on the result of the current instruction] can start 34221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# execution without having to wait for the unit. "Pairable" 35221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# means that two [or more] independent instructions can be 36221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# issued at the very same time. 37221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 38221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$bits=32; 39221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstromfor (@ARGV) { $bits=64 if (/\-m64/ || /\-xarch\=v9/); } 40221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstromif ($bits==64) { $bias=2047; $frame=192; } 41221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstromelse { $bias=0; $frame=112; } 42221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 43221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$output=shift; 44221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstromopen STDOUT,">$output"; 45221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 46221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$ctx="%i0"; 47221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$inp="%i1"; 48221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$len="%i2"; 49221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$tmp0="%i3"; 50221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$tmp1="%i4"; 51221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$tmp2="%i5"; 52221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$tmp3="%g5"; 53221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 54221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$base="%g1"; 55221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$align="%g4"; 56221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$Xfer="%o5"; 57221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$nXfer=$tmp3; 58221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$Xi="%o7"; 59221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 60221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$A="%l0"; 61221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$B="%l1"; 62221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$C="%l2"; 63221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$D="%l3"; 64221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$E="%l4"; 65221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom@V=($A,$B,$C,$D,$E); 66221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 67221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$Actx="%o0"; 68221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$Bctx="%o1"; 69221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$Cctx="%o2"; 70221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$Dctx="%o3"; 71221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$Ectx="%o4"; 72221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 73221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$fmul="%f32"; 74221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$VK_00_19="%f34"; 75221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$VK_20_39="%f36"; 76221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$VK_40_59="%f38"; 77221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$VK_60_79="%f40"; 78221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom@VK=($VK_00_19,$VK_20_39,$VK_40_59,$VK_60_79); 79221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom@X=("%f0", "%f1", "%f2", "%f3", "%f4", "%f5", "%f6", "%f7", 80221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom "%f8", "%f9","%f10","%f11","%f12","%f13","%f14","%f15","%f16"); 81221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 82221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# This is reference 2x-parallelized VIS-powered Xupdate procedure. It 83221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# covers even K_NN_MM addition... 84221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstromsub Xupdate { 85221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrommy ($i)=@_; 86221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrommy $K=@VK[($i+16)/20]; 87221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrommy $j=($i+16)%16; 88221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 89221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# [ provided that GSR.alignaddr_offset is 5, $mul contains 90221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# 0x100ULL<<32|0x100 value and K_NN_MM are pre-loaded to 91221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# chosen registers... ] 92221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$code.=<<___; 93221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fxors @X[($j+13)%16],@X[$j],@X[$j] !-1/-1/-1:X[0]^=X[13] 94221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fxors @X[($j+14)%16],@X[$j+1],@X[$j+1]! 0/ 0/ 0:X[1]^=X[14] 95221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fxor @X[($j+2)%16],@X[($j+8)%16],%f18! 1/ 1/ 1:Tmp=X[2,3]^X[8,9] 96221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fxor %f18,@X[$j],@X[$j] ! 2/ 4/ 3:X[0,1]^=X[2,3]^X[8,9] 97221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom faligndata @X[$j],@X[$j],%f18 ! 3/ 7/ 5:Tmp=X[0,1]>>>24 98221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fpadd32 @X[$j],@X[$j],@X[$j] ! 4/ 8/ 6:X[0,1]<<=1 99221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fmul8ulx16 %f18,$fmul,%f18 ! 5/10/ 7:Tmp>>=7, Tmp&=1 100221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ![fxors %f15,%f2,%f2] 101221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom for %f18,@X[$j],@X[$j] ! 8/14/10:X[0,1]|=Tmp 102221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ![fxors %f0,%f3,%f3] !10/17/12:X[0] dependency 103221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fpadd32 $K,@X[$j],%f20 104221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom std %f20,[$Xfer+`4*$j`] 105221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom___ 106221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# The numbers delimited with slash are the earliest possible dispatch 107221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# cycles for given instruction assuming 1 cycle latency for simple VIS 108221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# instructions, such as on UltraSPARC-I&II, 3 cycles latency, such as 109221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# on UltraSPARC-III&IV, and 2 cycles latency(*), respectively. Being 110221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# 2x-parallelized the procedure is "worth" 5, 8.5 or 6 ticks per SHA1 111221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# round. As [long as] FPU/VIS instructions are perfectly pairable with 112221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# IALU ones, the round timing is defined by the maximum between VIS 113221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# and IALU timings. The latter varies from round to round and averages 114221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# out at 6.25 ticks. This means that USI&II should operate at IALU 115221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# rate, while USIII&IV - at VIS rate. This explains why performance 116221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# improvement varies among processors. Well, given that pure IALU 117221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# sha1-sparcv9.pl module exhibits virtually uniform performance of 118221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# ~9.3 cycles per SHA1 round. Timings mentioned above are theoretical 119221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# lower limits. Real-life performance was measured to be 6.6 cycles 120221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# per SHA1 round on USIIi and 8.3 on USIII. The latter is lower than 121221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# half-round VIS timing, because there are 16 Xupdate-free rounds, 122221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# which "push down" average theoretical timing to 8 cycles... 123221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 124221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# (*) SPARC64-V[II] was originally believed to have 2 cycles VIS 125221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# latency. Well, it might have, but it doesn't have dedicated 126221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# VIS-unit. Instead, VIS instructions are executed by other 127221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# functional units, ones used here - by IALU. This doesn't 128221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# improve effective ILP... 129221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom} 130221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 131221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# The reference Xupdate procedure is then "strained" over *pairs* of 132221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# BODY_NN_MM and kind of modulo-scheduled in respect to X[n]^=X[n+13] 133221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# and K_NN_MM addition. It's "running" 15 rounds ahead, which leaves 134221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# plenty of room to amortize for read-after-write hazard, as well as 135221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# to fetch and align input for the next spin. The VIS instructions are 136221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# scheduled for latency of 2 cycles, because there are not enough IALU 137221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# instructions to schedule for latency of 3, while scheduling for 1 138221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# would give no gain on USI&II anyway. 139221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 140221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstromsub BODY_00_19 { 141221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrommy ($i,$a,$b,$c,$d,$e)=@_; 142221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrommy $j=$i&~1; 143221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrommy $k=($j+16+2)%16; # ahead reference 144221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrommy $l=($j+16-2)%16; # behind reference 145221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrommy $K=@VK[($j+16-2)/20]; 146221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 147221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$j=($j+16)%16; 148221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 149221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$code.=<<___ if (!($i&1)); 150221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom sll $a,5,$tmp0 !! $i 151221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom and $c,$b,$tmp3 152221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ld [$Xfer+`4*($i%16)`],$Xi 153221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fxors @X[($j+14)%16],@X[$j+1],@X[$j+1]! 0/ 0/ 0:X[1]^=X[14] 154221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom srl $a,27,$tmp1 155221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $tmp0,$e,$e 156221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fxor @X[($j+2)%16],@X[($j+8)%16],%f18! 1/ 1/ 1:Tmp=X[2,3]^X[8,9] 157221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom sll $b,30,$tmp2 158221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $tmp1,$e,$e 159221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom andn $d,$b,$tmp1 160221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $Xi,$e,$e 161221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fxor %f18,@X[$j],@X[$j] ! 2/ 4/ 3:X[0,1]^=X[2,3]^X[8,9] 162221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom srl $b,2,$b 163221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom or $tmp1,$tmp3,$tmp1 164221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom or $tmp2,$b,$b 165221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $tmp1,$e,$e 166221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom faligndata @X[$j],@X[$j],%f18 ! 3/ 7/ 5:Tmp=X[0,1]>>>24 167221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom___ 168221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$code.=<<___ if ($i&1); 169221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom sll $a,5,$tmp0 !! $i 170221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom and $c,$b,$tmp3 171221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ld [$Xfer+`4*($i%16)`],$Xi 172221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fpadd32 @X[$j],@X[$j],@X[$j] ! 4/ 8/ 6:X[0,1]<<=1 173221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom srl $a,27,$tmp1 174221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $tmp0,$e,$e 175221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fmul8ulx16 %f18,$fmul,%f18 ! 5/10/ 7:Tmp>>=7, Tmp&=1 176221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom sll $b,30,$tmp2 177221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $tmp1,$e,$e 178221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fpadd32 $K,@X[$l],%f20 ! 179221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom andn $d,$b,$tmp1 180221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $Xi,$e,$e 181221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fxors @X[($k+13)%16],@X[$k],@X[$k] !-1/-1/-1:X[0]^=X[13] 182221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom srl $b,2,$b 183221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom or $tmp1,$tmp3,$tmp1 184221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fxor %f18,@X[$j],@X[$j] ! 8/14/10:X[0,1]|=Tmp 185221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom or $tmp2,$b,$b 186221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $tmp1,$e,$e 187221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom___ 188221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$code.=<<___ if ($i&1 && $i>=2); 189221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom std %f20,[$Xfer+`4*$l`] ! 190221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom___ 191221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom} 192221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 193221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstromsub BODY_20_39 { 194221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrommy ($i,$a,$b,$c,$d,$e)=@_; 195221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrommy $j=$i&~1; 196221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrommy $k=($j+16+2)%16; # ahead reference 197221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrommy $l=($j+16-2)%16; # behind reference 198221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrommy $K=@VK[($j+16-2)/20]; 199221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 200221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$j=($j+16)%16; 201221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 202221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$code.=<<___ if (!($i&1) && $i<64); 203221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom sll $a,5,$tmp0 !! $i 204221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ld [$Xfer+`4*($i%16)`],$Xi 205221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fxors @X[($j+14)%16],@X[$j+1],@X[$j+1]! 0/ 0/ 0:X[1]^=X[14] 206221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom srl $a,27,$tmp1 207221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $tmp0,$e,$e 208221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fxor @X[($j+2)%16],@X[($j+8)%16],%f18! 1/ 1/ 1:Tmp=X[2,3]^X[8,9] 209221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom xor $c,$b,$tmp0 210221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $tmp1,$e,$e 211221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom sll $b,30,$tmp2 212221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom xor $d,$tmp0,$tmp1 213221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fxor %f18,@X[$j],@X[$j] ! 2/ 4/ 3:X[0,1]^=X[2,3]^X[8,9] 214221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom srl $b,2,$b 215221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $tmp1,$e,$e 216221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom or $tmp2,$b,$b 217221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $Xi,$e,$e 218221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom faligndata @X[$j],@X[$j],%f18 ! 3/ 7/ 5:Tmp=X[0,1]>>>24 219221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom___ 220221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$code.=<<___ if ($i&1 && $i<64); 221221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom sll $a,5,$tmp0 !! $i 222221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ld [$Xfer+`4*($i%16)`],$Xi 223221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fpadd32 @X[$j],@X[$j],@X[$j] ! 4/ 8/ 6:X[0,1]<<=1 224221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom srl $a,27,$tmp1 225221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $tmp0,$e,$e 226221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fmul8ulx16 %f18,$fmul,%f18 ! 5/10/ 7:Tmp>>=7, Tmp&=1 227221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom xor $c,$b,$tmp0 228221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $tmp1,$e,$e 229221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fpadd32 $K,@X[$l],%f20 ! 230221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom sll $b,30,$tmp2 231221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom xor $d,$tmp0,$tmp1 232221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fxors @X[($k+13)%16],@X[$k],@X[$k] !-1/-1/-1:X[0]^=X[13] 233221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom srl $b,2,$b 234221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $tmp1,$e,$e 235221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fxor %f18,@X[$j],@X[$j] ! 8/14/10:X[0,1]|=Tmp 236221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom or $tmp2,$b,$b 237221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $Xi,$e,$e 238221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom std %f20,[$Xfer+`4*$l`] ! 239221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom___ 240221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$code.=<<___ if ($i==64); 241221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom sll $a,5,$tmp0 !! $i 242221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ld [$Xfer+`4*($i%16)`],$Xi 243221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fpadd32 $K,@X[$l],%f20 244221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom srl $a,27,$tmp1 245221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $tmp0,$e,$e 246221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom xor $c,$b,$tmp0 247221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $tmp1,$e,$e 248221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom sll $b,30,$tmp2 249221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom xor $d,$tmp0,$tmp1 250221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom std %f20,[$Xfer+`4*$l`] 251221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom srl $b,2,$b 252221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $tmp1,$e,$e 253221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom or $tmp2,$b,$b 254221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $Xi,$e,$e 255221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom___ 256221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$code.=<<___ if ($i>64); 257221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom sll $a,5,$tmp0 !! $i 258221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ld [$Xfer+`4*($i%16)`],$Xi 259221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom srl $a,27,$tmp1 260221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $tmp0,$e,$e 261221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom xor $c,$b,$tmp0 262221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $tmp1,$e,$e 263221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom sll $b,30,$tmp2 264221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom xor $d,$tmp0,$tmp1 265221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom srl $b,2,$b 266221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $tmp1,$e,$e 267221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom or $tmp2,$b,$b 268221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $Xi,$e,$e 269221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom___ 270221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom} 271221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 272221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstromsub BODY_40_59 { 273221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrommy ($i,$a,$b,$c,$d,$e)=@_; 274221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrommy $j=$i&~1; 275221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrommy $k=($j+16+2)%16; # ahead reference 276221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrommy $l=($j+16-2)%16; # behind reference 277221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrommy $K=@VK[($j+16-2)/20]; 278221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 279221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$j=($j+16)%16; 280221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 281221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$code.=<<___ if (!($i&1)); 282221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom sll $a,5,$tmp0 !! $i 283221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ld [$Xfer+`4*($i%16)`],$Xi 284221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fxors @X[($j+14)%16],@X[$j+1],@X[$j+1]! 0/ 0/ 0:X[1]^=X[14] 285221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom srl $a,27,$tmp1 286221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $tmp0,$e,$e 287221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fxor @X[($j+2)%16],@X[($j+8)%16],%f18! 1/ 1/ 1:Tmp=X[2,3]^X[8,9] 288221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom and $c,$b,$tmp0 289221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $tmp1,$e,$e 290221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom sll $b,30,$tmp2 291221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom or $c,$b,$tmp1 292221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fxor %f18,@X[$j],@X[$j] ! 2/ 4/ 3:X[0,1]^=X[2,3]^X[8,9] 293221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom srl $b,2,$b 294221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom and $d,$tmp1,$tmp1 295221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $Xi,$e,$e 296221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom or $tmp1,$tmp0,$tmp1 297221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom faligndata @X[$j],@X[$j],%f18 ! 3/ 7/ 5:Tmp=X[0,1]>>>24 298221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom or $tmp2,$b,$b 299221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $tmp1,$e,$e 300221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fpadd32 @X[$j],@X[$j],@X[$j] ! 4/ 8/ 6:X[0,1]<<=1 301221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom___ 302221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$code.=<<___ if ($i&1); 303221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom sll $a,5,$tmp0 !! $i 304221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ld [$Xfer+`4*($i%16)`],$Xi 305221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom srl $a,27,$tmp1 306221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $tmp0,$e,$e 307221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fmul8ulx16 %f18,$fmul,%f18 ! 5/10/ 7:Tmp>>=7, Tmp&=1 308221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom and $c,$b,$tmp0 309221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $tmp1,$e,$e 310221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fpadd32 $K,@X[$l],%f20 ! 311221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom sll $b,30,$tmp2 312221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom or $c,$b,$tmp1 313221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fxors @X[($k+13)%16],@X[$k],@X[$k] !-1/-1/-1:X[0]^=X[13] 314221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom srl $b,2,$b 315221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom and $d,$tmp1,$tmp1 316221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fxor %f18,@X[$j],@X[$j] ! 8/14/10:X[0,1]|=Tmp 317221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $Xi,$e,$e 318221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom or $tmp1,$tmp0,$tmp1 319221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom or $tmp2,$b,$b 320221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $tmp1,$e,$e 321221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom std %f20,[$Xfer+`4*$l`] ! 322221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom___ 323221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom} 324221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 325221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# If there is more data to process, then we pre-fetch the data for 326221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# next iteration in last ten rounds... 327221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstromsub BODY_70_79 { 328221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrommy ($i,$a,$b,$c,$d,$e)=@_; 329221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrommy $j=$i&~1; 330221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrommy $m=($i%8)*2; 331221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 332221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$j=($j+16)%16; 333221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 334221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$code.=<<___ if ($i==70); 335221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom sll $a,5,$tmp0 !! $i 336221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ld [$Xfer+`4*($i%16)`],$Xi 337221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom srl $a,27,$tmp1 338221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $tmp0,$e,$e 339221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ldd [$inp+64],@X[0] 340221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom xor $c,$b,$tmp0 341221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $tmp1,$e,$e 342221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom sll $b,30,$tmp2 343221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom xor $d,$tmp0,$tmp1 344221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom srl $b,2,$b 345221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $tmp1,$e,$e 346221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom or $tmp2,$b,$b 347221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $Xi,$e,$e 348221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 349221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom and $inp,-64,$nXfer 350221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom inc 64,$inp 351221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom and $nXfer,255,$nXfer 352221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom alignaddr %g0,$align,%g0 353221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $base,$nXfer,$nXfer 354221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom___ 355221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$code.=<<___ if ($i==71); 356221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom sll $a,5,$tmp0 !! $i 357221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ld [$Xfer+`4*($i%16)`],$Xi 358221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom srl $a,27,$tmp1 359221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $tmp0,$e,$e 360221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom xor $c,$b,$tmp0 361221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $tmp1,$e,$e 362221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom sll $b,30,$tmp2 363221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom xor $d,$tmp0,$tmp1 364221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom srl $b,2,$b 365221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $tmp1,$e,$e 366221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom or $tmp2,$b,$b 367221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $Xi,$e,$e 368221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom___ 369221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$code.=<<___ if ($i>=72); 370221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom faligndata @X[$m],@X[$m+2],@X[$m] 371221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom sll $a,5,$tmp0 !! $i 372221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ld [$Xfer+`4*($i%16)`],$Xi 373221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom srl $a,27,$tmp1 374221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $tmp0,$e,$e 375221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom xor $c,$b,$tmp0 376221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $tmp1,$e,$e 377221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fpadd32 $VK_00_19,@X[$m],%f20 378221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom sll $b,30,$tmp2 379221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom xor $d,$tmp0,$tmp1 380221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom srl $b,2,$b 381221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $tmp1,$e,$e 382221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom or $tmp2,$b,$b 383221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $Xi,$e,$e 384221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom___ 385221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$code.=<<___ if ($i<77); 386221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ldd [$inp+`8*($i+1-70)`],@X[2*($i+1-70)] 387221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom___ 388221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$code.=<<___ if ($i==77); # redundant if $inp was aligned 389221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $align,63,$tmp0 390221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom and $tmp0,-8,$tmp0 391221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ldd [$inp+$tmp0],@X[16] 392221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom___ 393221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$code.=<<___ if ($i>=72); 394221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom std %f20,[$nXfer+`4*$m`] 395221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom___ 396221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom} 397221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 398221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$code.=<<___; 399221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom.section ".text",#alloc,#execinstr 400221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 401221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom.align 64 402221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstromvis_const: 403221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom.long 0x5a827999,0x5a827999 ! K_00_19 404221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom.long 0x6ed9eba1,0x6ed9eba1 ! K_20_39 405221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom.long 0x8f1bbcdc,0x8f1bbcdc ! K_40_59 406221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom.long 0xca62c1d6,0xca62c1d6 ! K_60_79 407221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom.long 0x00000100,0x00000100 408221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom.align 64 409221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom.type vis_const,#object 410221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom.size vis_const,(.-vis_const) 411221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 412221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom.globl sha1_block_data_order 413221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstromsha1_block_data_order: 414221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom save %sp,-$frame,%sp 415221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add %fp,$bias-256,$base 416221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 417221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom1: call .+8 418221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add %o7,vis_const-1b,$tmp0 419221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 420221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ldd [$tmp0+0],$VK_00_19 421221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ldd [$tmp0+8],$VK_20_39 422221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ldd [$tmp0+16],$VK_40_59 423221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ldd [$tmp0+24],$VK_60_79 424221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ldd [$tmp0+32],$fmul 425221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 426221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ld [$ctx+0],$Actx 427221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom and $base,-256,$base 428221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ld [$ctx+4],$Bctx 429221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom sub $base,$bias+$frame,%sp 430221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ld [$ctx+8],$Cctx 431221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom and $inp,7,$align 432221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ld [$ctx+12],$Dctx 433221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom and $inp,-8,$inp 434221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ld [$ctx+16],$Ectx 435221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 436221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ! X[16] is maintained in FP register bank 437221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom alignaddr %g0,$align,%g0 438221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ldd [$inp+0],@X[0] 439221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom sub $inp,-64,$Xfer 440221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ldd [$inp+8],@X[2] 441221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom and $Xfer,-64,$Xfer 442221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ldd [$inp+16],@X[4] 443221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom and $Xfer,255,$Xfer 444221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ldd [$inp+24],@X[6] 445221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $base,$Xfer,$Xfer 446221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ldd [$inp+32],@X[8] 447221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ldd [$inp+40],@X[10] 448221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ldd [$inp+48],@X[12] 449221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom brz,pt $align,.Laligned 450221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ldd [$inp+56],@X[14] 451221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 452221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ldd [$inp+64],@X[16] 453221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom faligndata @X[0],@X[2],@X[0] 454221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom faligndata @X[2],@X[4],@X[2] 455221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom faligndata @X[4],@X[6],@X[4] 456221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom faligndata @X[6],@X[8],@X[6] 457221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom faligndata @X[8],@X[10],@X[8] 458221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom faligndata @X[10],@X[12],@X[10] 459221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom faligndata @X[12],@X[14],@X[12] 460221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom faligndata @X[14],@X[16],@X[14] 461221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 462221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom.Laligned: 463221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom mov 5,$tmp0 464221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom dec 1,$len 465221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom alignaddr %g0,$tmp0,%g0 466221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fpadd32 $VK_00_19,@X[0],%f16 467221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fpadd32 $VK_00_19,@X[2],%f18 468221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fpadd32 $VK_00_19,@X[4],%f20 469221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fpadd32 $VK_00_19,@X[6],%f22 470221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fpadd32 $VK_00_19,@X[8],%f24 471221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fpadd32 $VK_00_19,@X[10],%f26 472221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fpadd32 $VK_00_19,@X[12],%f28 473221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fpadd32 $VK_00_19,@X[14],%f30 474221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom std %f16,[$Xfer+0] 475221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom mov $Actx,$A 476221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom std %f18,[$Xfer+8] 477221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom mov $Bctx,$B 478221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom std %f20,[$Xfer+16] 479221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom mov $Cctx,$C 480221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom std %f22,[$Xfer+24] 481221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom mov $Dctx,$D 482221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom std %f24,[$Xfer+32] 483221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom mov $Ectx,$E 484221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom std %f26,[$Xfer+40] 485221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fxors @X[13],@X[0],@X[0] 486221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom std %f28,[$Xfer+48] 487221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ba .Loop 488221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom std %f30,[$Xfer+56] 489221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom.align 32 490221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom.Loop: 491221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom___ 492221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstromfor ($i=0;$i<20;$i++) { &BODY_00_19($i,@V); unshift(@V,pop(@V)); } 493221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstromfor (;$i<40;$i++) { &BODY_20_39($i,@V); unshift(@V,pop(@V)); } 494221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstromfor (;$i<60;$i++) { &BODY_40_59($i,@V); unshift(@V,pop(@V)); } 495221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstromfor (;$i<70;$i++) { &BODY_20_39($i,@V); unshift(@V,pop(@V)); } 496221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$code.=<<___; 497221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom tst $len 498221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom bz,pn `$bits==32?"%icc":"%xcc"`,.Ltail 499221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom nop 500221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom___ 501221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstromfor (;$i<80;$i++) { &BODY_70_79($i,@V); unshift(@V,pop(@V)); } 502221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$code.=<<___; 503221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $A,$Actx,$Actx 504221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $B,$Bctx,$Bctx 505221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $C,$Cctx,$Cctx 506221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $D,$Dctx,$Dctx 507221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $E,$Ectx,$Ectx 508221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom mov 5,$tmp0 509221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom fxors @X[13],@X[0],@X[0] 510221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom mov $Actx,$A 511221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom mov $Bctx,$B 512221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom mov $Cctx,$C 513221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom mov $Dctx,$D 514221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom mov $Ectx,$E 515221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom alignaddr %g0,$tmp0,%g0 516221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom dec 1,$len 517221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ba .Loop 518221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom mov $nXfer,$Xfer 519221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 520221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom.align 32 521221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom.Ltail: 522221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom___ 523221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstromfor($i=70;$i<80;$i++) { &BODY_20_39($i,@V); unshift(@V,pop(@V)); } 524221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$code.=<<___; 525221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $A,$Actx,$Actx 526221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $B,$Bctx,$Bctx 527221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $C,$Cctx,$Cctx 528221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $D,$Dctx,$Dctx 529221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom add $E,$Ectx,$Ectx 530221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 531221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom st $Actx,[$ctx+0] 532221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom st $Bctx,[$ctx+4] 533221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom st $Cctx,[$ctx+8] 534221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom st $Dctx,[$ctx+12] 535221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom st $Ectx,[$ctx+16] 536221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 537221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom ret 538221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom restore 539221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom.type sha1_block_data_order,#function 540221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom.size sha1_block_data_order,(.-sha1_block_data_order) 541221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom.asciz "SHA1 block transform for SPARCv9a, CRYPTOGAMS by <appro\@openssl.org>" 54243c12e3d4f9bbbbd4a8ba7b149686437514bc6b6Brian Carlstrom.align 4 543221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom___ 544221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 545221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# Purpose of these subroutines is to explicitly encode VIS instructions, 546221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# so that one can compile the module without having to specify VIS 547221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# extentions on compiler command line, e.g. -xarch=v9 vs. -xarch=v9a. 548221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# Idea is to reserve for option to produce "universal" binary and let 549221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom# programmer detect if current CPU is VIS capable at run-time. 550221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstromsub unvis { 551221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrommy ($mnemonic,$rs1,$rs2,$rd)=@_; 55204ef91b390dfcc6125913e2f2af502d23d7a5112Brian Carlstrommy ($ref,$opf); 553221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrommy %visopf = ( "fmul8ulx16" => 0x037, 554221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom "faligndata" => 0x048, 555221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom "fpadd32" => 0x052, 556221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom "fxor" => 0x06c, 557221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom "fxors" => 0x06d ); 558221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 559221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom $ref = "$mnemonic\t$rs1,$rs2,$rd"; 560221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 561221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom if ($opf=$visopf{$mnemonic}) { 562221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom foreach ($rs1,$rs2,$rd) { 563221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom return $ref if (!/%f([0-9]{1,2})/); 564221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom $_=$1; 565221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom if ($1>=32) { 566221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom return $ref if ($1&1); 567221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom # re-encode for upper double register addressing 568221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom $_=($1|$1>>5)&31; 569221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom } 570221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom } 571221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 572221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom return sprintf ".word\t0x%08x !%s", 573221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 0x81b00000|$rd<<25|$rs1<<14|$opf<<5|$rs2, 574221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom $ref; 575221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom } else { 576221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom return $ref; 577221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom } 578221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom} 579221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstromsub unalignaddr { 580221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrommy ($mnemonic,$rs1,$rs2,$rd)=@_; 581221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrommy %bias = ( "g" => 0, "o" => 8, "l" => 16, "i" => 24 ); 582221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrommy $ref="$mnemonic\t$rs1,$rs2,$rd"; 583221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 584221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom foreach ($rs1,$rs2,$rd) { 585221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom if (/%([goli])([0-7])/) { $_=$bias{$1}+$2; } 586221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom else { return $ref; } 587221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom } 588221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom return sprintf ".word\t0x%08x !%s", 589221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 0x81b00300|$rd<<25|$rs1<<14|$rs2, 590221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom $ref; 591221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom} 592221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom 593221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$code =~ s/\`([^\`]*)\`/eval $1/gem; 594221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$code =~ s/\b(f[^\s]*)\s+(%f[0-9]{1,2}),(%f[0-9]{1,2}),(%f[0-9]{1,2})/ 595221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom &unvis($1,$2,$3,$4) 596221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom /gem; 597221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom$code =~ s/\b(alignaddr)\s+(%[goli][0-7]),(%[goli][0-7]),(%[goli][0-7])/ 598221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom &unalignaddr($1,$2,$3,$4) 599221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom /gem; 600221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstromprint $code; 601221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstromclose STDOUT; 602