diff options
author | Andy Polyakov <appro@openssl.org> | 2013-10-03 10:42:11 +0200 |
---|---|---|
committer | Andy Polyakov <appro@openssl.org> | 2013-10-03 10:42:11 +0200 |
commit | 6b2cae0c16631c6c1ccf61080fc2aa9bd1b5ea1b (patch) | |
tree | 69fbdad8772f9fe3fe7dd0562f0c54619de312c0 /crypto/perlasm | |
parent | a5bb5bca52f57021a4017521c55a6b3590bbba7a (diff) | |
download | openssl-6b2cae0c16631c6c1ccf61080fc2aa9bd1b5ea1b.tar.gz |
perlasm/sparcv9_modes.pl: make it work even with seasoned perl.
PR: 3130
Diffstat (limited to 'crypto/perlasm')
-rw-r--r-- | crypto/perlasm/sparcv9_modes.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/crypto/perlasm/sparcv9_modes.pl b/crypto/perlasm/sparcv9_modes.pl index 75ed1ac12b..19dc1b3058 100644 --- a/crypto/perlasm/sparcv9_modes.pl +++ b/crypto/perlasm/sparcv9_modes.pl @@ -1657,8 +1657,8 @@ sub emit_assembler { s/\b(camellia_[^s]+)\s+(%f[0-9]{1,2}),\s*(%f[0-9]{1,2}),\s*(%f[0-9]{1,2})/ &uncamellia3($1,$2,$3,$4) /geo or - s/\b(des_\w+)\s+(?<rs1>%f[0-9]{1,2}),\s*(?<rs2>[%fx0-9]+)(,\s*(?<rs3>%f[0-9]{1,2})(,\s*(?<rs4>%f[0-9]{1,2}))?)?/ - &undes($1,$+{rs1},$+{rs2},$+{rs3},$+{rs4}) + s/\b(des_\w+)\s+(%f[0-9]{1,2}),\s*([%fx0-9]+)(?:,\s*(%f[0-9]{1,2})(?:,\s*(%f[0-9]{1,2}))?)?/ + &undes($1,$2,$3,$4,$5) /geo or s/\b(mov[ds]to\w+)\s+(%f[0-9]{1,2}),\s*(%[goli][0-7])/ &unmovxtox($1,$2,$3) |