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

[openssl.git] / crypto / perlasm / s390x.pm

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 {
-       confess(err("ARGNUM")) if ($#_!=1);
+       confess(err("ARGNUM")) if ($#_<1||$#_>2);
        VRX(0xe706,@_);
 }
 
@@ -345,7 +345,7 @@ sub vllezg {
 }
 
 sub vlm {
-       confess(err("ARGNUM")) if ($#_!=2);
+       confess(err("ARGNUM")) if ($#_<2||$#_>3);
        VRSa(0xe736,@_);
 }
 
@@ -548,7 +548,7 @@ sub vsegf {
 }
 
 sub vst {
-       confess(err("ARGNUM")) if ($#_!=1);
+       confess(err("ARGNUM")) if ($#_<1||$#_>2);
        VRX(0xe70e,@_);
 }
 
@@ -570,7 +570,7 @@ sub vsteg {
 }
 
 sub vstm {
-       confess(err("ARGNUM")) if ($#_!=2);
+       confess(err("ARGNUM")) if ($#_<2||$#_>3);
        VRSa(0xe73e,@_);
 }