s390xcpuid.pl: fix comment

Signed-off-by: Patrick Steuer <patrick.steuer@de.ibm.com>
Reviewed-by: Richard Levitte <levitte@openssl.org>
Reviewed-by: Shane Lontis <shane.lontis@oracle.com>
(Merged from https://github.com/openssl/openssl/pull/9348)

diff --git a/crypto/s390xcpuid.pl b/crypto/s390xcpuid.pl
index 2678b21ea1ccf0c8d25ae3ce7ecdc1bab1fc7d51..0bb1004245ef19808d8f807add3c001ecf1cb06f 100755 (executable)
--- a/crypto/s390xcpuid.pl
+++ b/crypto/s390xcpuid.pl
@@ -443,7 +443,7 @@ ___
 }
 
 ################
 }
 
 ################

-# void s390x_pcc(unsigned int fc, void *param)
+# int s390x_pcc(unsigned int fc, void *param)

 {
 my ($fc,$param) = map("%r$_",(2..3));
 $code.=<<___;
 {
 my ($fc,$param) = map("%r$_",(2..3));
 $code.=<<___;


@@ -468,8 +468,8 @@ ___
 }
 
 ################
 }
 
 ################

-# void s390x_kdsa(unsigned int fc, void *param,
-#                 const unsigned char *in, size_t len)
+# int s390x_kdsa(unsigned int fc, void *param,
+#                const unsigned char *in, size_t len)

 {
 my ($fc,$param,$in,$len) = map("%r$_",(2..5));
 $code.=<<___;
 {
 my ($fc,$param,$in,$len) = map("%r$_",(2..5));
 $code.=<<___;