From 8ecef24a6607fef55101bdc06bddf1fe2a2e4c51 Mon Sep 17 00:00:00 2001
From: Richard Levitte <levitte@openssl.org>
Date: Sun, 20 Mar 2011 13:15:33 +0000
Subject: [PATCH] * apps/openssl.c: For VMS, take care of copying argv if
 needed much earlier,   directly in main().  'if needed' also includes when
 argv is a 32 bit   pointer in an otherwise 64 bit environment. *
 apps/makeapps.com: When using /POINTER_SIZE=64, try to use the additional  
 =ARGV, but only if it's supported.  Fortunately, DCL is very helpful  
 telling us in this case.

---
 apps/makeapps.com | 22 ++++++++++++-
 apps/openssl.c    | 84 +++++++++++++++++++++++++++++++----------------
 2 files changed, 77 insertions(+), 29 deletions(-)

diff --git a/apps/makeapps.com b/apps/makeapps.com
index 4b33f68af0..9611a48bb1 100644
--- a/apps/makeapps.com
+++ b/apps/makeapps.com
@@ -599,7 +599,27 @@ $     POINTER_SIZE = "/POINTER_SIZE=32"
 $   ELSE
 $     IF (P6 .EQS. "64")
 $     THEN
-$       POINTER_SIZE = "/POINTER_SIZE=64=ARGV"
+$       POINTER_SIZE = "/POINTER_SIZE=64"
+$	SET NOON
+$	DEFINE /USER SYS$OUTPUT NL:
+$	DEFINE /USER SYS$ERROR NL:
+$	CC /POINTER_SIZE=64=ARGV NL:
+$	IF ($STATUS .AND. %X0FFF0000) .EQ. %X00030000
+$	THEN
+$	  ! If we got here, it means DCL complained like this:
+$	  ! %DCL-W-NOVALU, value not allowed - remove value specification
+$	  !  \64=\
+$	  !
+$	  ! If the compiler was run, logicals defined in /USER would
+$	  ! have been deassigned automatically.  However, when DCL
+$	  ! complains, they aren't, so we do it here (it might be
+$	  ! unnecessary, but just in case there will be another error
+$	  ! message further on that we don't want to miss)
+$	  DEASSIGN/USER SYS$ERROR
+$	  DEASSIGN/USER SYS$OUTPUT
+$	ELSE
+$	  POINTER_SIZE = POINTER_SIZE + "=ARGV"
+$	ENDIF
 $       ARCHD = ARCH+ "_64"
 $       LIB32 = ""
 $     ELSE
diff --git a/apps/openssl.c b/apps/openssl.c
index 7dbb7ac32a..950c9c8bf2 100644
--- a/apps/openssl.c
+++ b/apps/openssl.c
@@ -213,7 +213,7 @@ static void lock_dbg_cb(int mode, int type, const char *file, int line)
 	}
 
 
-int main(int Argc, char *Argv[])
+int main(int Argc, char *_Argv[])
 	{
 	ARGS arg;
 #define PROG_NAME_SIZE	39
@@ -227,7 +227,54 @@ int main(int Argc, char *Argv[])
 	char **argv,*p;
 	LHASH_OF(FUNCTION) *prog=NULL;
 	long errline;
- 
+
+#if defined( OPENSSL_SYS_VMS) && !defined( VMS_TRUST_ARGV)
+	/* 2011-03-08 SMS.
+	 * "HP C V7.3-009 on OpenVMS Alpha V8.3" with 64-bit
+	 * pointers (at least) may not NULL-terminate argv[]
+	 * as expected.  If necessary, use a (properly)
+	 * NULL-terminated duplicate of argv[].
+	 */
+	/* 2011-03-20 RL.
+	 * Additionally, when the argument vector is full of
+	 * 32-bit pointers and we have a 64-bit pointer size
+	 * everywhere else, we need to make a copy of it using
+	 * 64-bit pointers.  Hence the odd conditinal.
+	 */
+	char **Argv = NULL;
+	int free_Argv = 0;
+
+	if (_Argv[ Argc] != NULL
+# if defined(__INITIAL_POINTER_SIZE)
+		|| sizeof(_Argv) < (__INITIAL_POINTER_SIZE / 8)
+# endif
+		)
+		{
+		int i;
+		Argv = OPENSSL_malloc( (Argc+ 1)* sizeof( char *));
+		if (Argv == NULL)
+			{ ret = -1; goto end; }
+		for(i = 0; i < Argc; i++)
+			Argv[i] = _Argv[i];
+		Argv[ Argc] = NULL;
+		free_Argv = 1;
+		}
+	else
+		{
+		/* 2011-03-20 RL.
+		 * If we didn't copy the argument vector, then simply
+		 * assign our variable.  This will never happen when
+		 * the argument vector pointer size was smaller than
+		 * the initial pointer size, so even if the case might
+		 * look unsafe, it isn't, it's just there to shut the
+		 * compiler up.
+		 */
+		Argv = (char **)_Argv;
+		}
+#else
+	char **Argv = _Argv;
+#endif
+
 	arg.data=NULL;
 	arg.count=0;
 
@@ -373,6 +420,13 @@ end:
 		BIO_free(bio_err);
 		bio_err=NULL;
 		}
+#if defined( OPENSSL_SYS_VMS) && !defined( VMS_TRUST_ARGV)
+	/* Free any duplicate Argv[] storage. */
+	if (free_Argv)
+		{
+		OPENSSL_free(Argv);
+		}
+#endif
 	OPENSSL_EXIT(ret);
 	}
 
@@ -410,33 +464,7 @@ static int do_cmd(LHASH_OF(FUNCTION) *prog, int argc, char *argv[])
 		}
 	if (fp != NULL)
 		{
-#if defined( OPENSSL_SYS_VMS) && !defined( VMS_TRUST_ARGV)
-		/* 2011-03-08 SMS.
-		 * "HP C V7.3-009 on OpenVMS Alpha V8.3" with 64-bit
-		 * pointers (at least) may not NULL-terminate argv[]
-		 * as expected.  If necessary, use a (properly)
-		 * NULL-terminated duplicate of argv[].
-		 */
-		char **argv2 = NULL;
-
-		if (argv[ argc] != NULL)
-			{
-			argv2 = OPENSSL_malloc( (argc+ 1)* sizeof( char *));
-			if (argv2 == NULL)
-				{ ret = -1; goto end; }
-			memcpy( argv2, argv, (argc* sizeof( char *)));
-			argv2[ argc] = NULL;
-			argv = argv2;
-			}
-#endif
 		ret=fp->func(argc,argv);
-#if defined( OPENSSL_SYS_VMS) && !defined( VMS_TRUST_ARGV)
-		/* Free any duplicate argv[] storage. */
-		if (argv2 != NULL)
-			{
-			OPENSSL_free( argv2);
-			}
-#endif
 		}
 	else if ((strncmp(argv[0],"no-",3)) == 0)
 		{
-- 
GitLab