diff options
Diffstat (limited to 'crypto/perlasm/f')
-rw-r--r-- | crypto/perlasm/f | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/crypto/perlasm/f b/crypto/perlasm/f new file mode 100644 index 0000000000..80da809107 --- /dev/null +++ b/crypto/perlasm/f @@ -0,0 +1,19 @@ +sub out3 + { + local($name,$p1,$p2,$p3)=@_; + + push(@out,"\t$name\t"); + $l=length($p1)+1; + push(@out,$p1.","); + $ll=4-($l+9)/8; + $tmp1=sprintf("\t" x $ll); + push(@out,$tmp1); + + $l=length($p2)+1; + push(@out,$p2.","); + $ll=4-($l+9)/8; + $tmp1=sprintf("\t" x $ll); + push(@out,$tmp1); + + push(@out,&conv($p3)."\n"); + } |