s390x assembly pack: allow alignment hints for vector load/store

z14 introduced alignment hints to help vector load/store
performance. For its predecessors, alignment hint defaults
to 0 (no alignment indicated).

Signed-off-by: Patrick Steuer <patrick.steuer@de.ibm.com>
Reviewed-by: Paul Dale <paul.dale@oracle.com>
Reviewed-by: Richard Levitte <levitte@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/8181)

diff --git a/crypto/perlasm/s390x.pm b/crypto/perlasm/s390x.pm
index 5f3a49dd0ceafb6137cf7f9cf7004094131fb676..c00218a0cc498c3cffd1bc934d95435a41be5c4f 100644 (file)
--- a/crypto/perlasm/s390x.pm
+++ b/crypto/perlasm/s390x.pm
@@ -250,7 +250,7 @@ sub vgmg {
 }
 
 sub vl {
 }
 
 sub vl {

-       confess(err("ARGNUM")) if ($#_!=1);
+       confess(err("ARGNUM")) if ($#_<1||$#_>2);

        VRX(0xe706,@_);
 }
 
        VRX(0xe706,@_);
 }
 


@@ -345,7 +345,7 @@ sub vllezg {
 }
 
 sub vlm {
 }
 
 sub vlm {

-       confess(err("ARGNUM")) if ($#_!=2);
+       confess(err("ARGNUM")) if ($#_<2||$#_>3);

        VRSa(0xe736,@_);
 }
 
        VRSa(0xe736,@_);
 }
 


@@ -548,7 +548,7 @@ sub vsegf {
 }
 
 sub vst {
 }
 
 sub vst {

-       confess(err("ARGNUM")) if ($#_!=1);
+       confess(err("ARGNUM")) if ($#_<1||$#_>2);

        VRX(0xe70e,@_);
 }
 
        VRX(0xe70e,@_);
 }
 


@@ -570,7 +570,7 @@ sub vsteg {
 }
 
 sub vstm {
 }
 
 sub vstm {

-       confess(err("ARGNUM")) if ($#_!=2);
+       confess(err("ARGNUM")) if ($#_<2||$#_>3);

        VRSa(0xe73e,@_);
 }
 
        VRSa(0xe73e,@_);
 }