diff options
Diffstat (limited to 'src/crypto/zinc/chacha20')
| -rw-r--r-- | src/crypto/zinc/chacha20/chacha20-x86_64.pl | 46 |
1 files changed, 23 insertions, 23 deletions
diff --git a/src/crypto/zinc/chacha20/chacha20-x86_64.pl b/src/crypto/zinc/chacha20/chacha20-x86_64.pl index 52cdd85..53034b0 100644 --- a/src/crypto/zinc/chacha20/chacha20-x86_64.pl +++ b/src/crypto/zinc/chacha20/chacha20-x86_64.pl @@ -103,36 +103,36 @@ ___ sub declare_variable() { my ($name, $size, $type, $payload) = @_; if($kernel) { - $code.=".section .rodata.cst${size}.L${name}, \"aM\", \@progbits, ${size}\n"; - $code.=".align ${size}\n"; - $code.=".L${name}:\n"; - $code.=".${type} ${payload}\n"; + $code.=".section .rodata.cst$size.L$name, \"aM\", \@progbits, $size\n"; + $code.=".align $size\n"; + $code.=".L$name:\n"; + $code.=".$type $payload\n"; } else { - $code.=".L${name}:\n"; - $code.=".${type} ${payload}\n"; + $code.=".L$name:\n"; + $code.=".$type $payload\n"; } } sub declare_function() { - my ($name, $align) = @_; + my ($name, $align, $nargs) = @_; if($kernel) { - $code .= ".align ${align}\n"; - $code .= "ENTRY( ${name} )\n"; # xlate thinks it's an address without the spaces between () - $code .= ".L${name}:\n"; + $code .= ".align $align\n"; + $code .= "ENTRY( $name )\n"; # xlate thinks it's an address without the spaces between () + $code .= ".L$name:\n"; } else { - $code .= ".globl ${name}\n"; - $code .= ".type ${name},\@function,5\n"; - $code .= ".align ${align}\n"; - $code .= "${name}:\n"; + $code .= ".globl $name\n"; + $code .= ".type $name,\@function,$nargs\n"; + $code .= ".align $align\n"; + $code .= "$name:\n"; } } sub end_function() { my ($name) = @_; if($kernel) { - $code .= "ENDPROC( ${name} )\n"; + $code .= "ENDPROC( $name )\n"; } else { - $code .= ".size ${name},.-${name}\n"; + $code .= ".size $name,.-$name\n"; } } @@ -273,7 +273,7 @@ my @x=map("\"$_\"",@x); ######################################################################## # Generic code path that handles all lengths on pre-SSSE3 processors. -&declare_function("chacha20_ctr32", 64); +&declare_function("chacha20_ctr32", 64, 5); $code.=<<___; .cfi_startproc cmp \$0,$len @@ -504,7 +504,7 @@ if($kernel) { } if($kernel) { -&declare_function("hchacha20_ssse3", 32); +&declare_function("hchacha20_ssse3", 32, 5); $code.=<<___; movdqa .Lsigma(%rip),$a movdqu ($len),$b @@ -541,7 +541,7 @@ ___ &end_function("hchacha20_ssse3"); } -&declare_function("chacha20_ssse3", 32); +&declare_function("chacha20_ssse3", 32, 5); $code.=<<___; .cfi_startproc lea 8(%rsp),%r10 # frame pointer @@ -1512,7 +1512,7 @@ my @x=map("\"$_\"",@xx); my $xframe = $win64 ? 0xa8 : 8; -&declare_function("chacha20_xop", 32); +&declare_function("chacha20_xop", 32, 5); $code.=<<___; .cfi_startproc .Lchacha20_4xop: @@ -2018,7 +2018,7 @@ my @x=map("\"$_\"",@xx); my $xframe = $win64 ? 0xa8 : 8; -&declare_function("chacha20_avx2"); +&declare_function("chacha20_avx2", 32, 5); $code.=<<___; .cfi_startproc .Lchacha20_8x: @@ -2584,7 +2584,7 @@ sub AVX512ROUND { # critical path is 14 "SIMD ticks" per round my $xframe = $win64 ? 32+8 : 8; -&declare_function("chacha20_avx512"); +&declare_function("chacha20_avx512", 32, 5); $code.=<<___; .cfi_startproc .Lchacha20_avx512: @@ -2779,7 +2779,7 @@ ___ map(s/%z/%y/, $a,$b,$c,$d, $a_,$b_,$c_,$d_,$fourz); -&declare_function("chacha20_avx512vl", 32); +&declare_function("chacha20_avx512vl", 32, 5); $code.=<<___; .cfi_startproc .Lchacha20_avx512vl: |