VMS: turning off CALL_DEBUG isn't possible on Alpha

Reviewed-by: Rich Salz <rsalz@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/2962)

diff --git a/Configurations/descrip.mms.tmpl b/Configurations/descrip.mms.tmpl
index 166c6c6a40d1cf34d7416ceb5f67f6f9bbc1b24f..b6eb94a580a3b7f091aed8a27550e9fcaf83b425 100644 (file)
--- a/Configurations/descrip.mms.tmpl
+++ b/Configurations/descrip.mms.tmpl
@@ -661,7 +661,7 @@ EOF
                              $x =~ s|(\.OLB)|$1/LIB|;
                              "WRITE OPT_FILE \"$x\"" } @deps)
           || "\@ !";
                              $x =~ s|(\.OLB)|$1/LIB|;
                              "WRITE OPT_FILE \"$x\"" } @deps)
           || "\@ !";

-      return <<"EOF";
+      return <<"EOF"

 $shlib.EXE : $lib.OLB $deps $ordinalsfile
         \$(PERL) $mkdef_pl "$mkdef_key" "VMS" > $shlib.SYMVEC-tmp
         \$(PERL) $translatesyms_pl \$(BLDDIR)CXX\$DEMANGLER_DB. < $shlib.SYMVEC-tmp > $shlib.SYMVEC
 $shlib.EXE : $lib.OLB $deps $ordinalsfile
         \$(PERL) $mkdef_pl "$mkdef_key" "VMS" > $shlib.SYMVEC-tmp
         \$(PERL) $translatesyms_pl \$(BLDDIR)CXX\$DEMANGLER_DB. < $shlib.SYMVEC-tmp > $shlib.SYMVEC


@@ -673,10 +673,13 @@ $shlib.EXE : $lib.OLB $deps $ordinalsfile
         $write_opt
         CLOSE OPT_FILE
         LINK \$(LDFLAGS)/SHARE=\$\@ $shlib.OPT/OPT \$(EX_LIBS)
         $write_opt
         CLOSE OPT_FILE
         LINK \$(LDFLAGS)/SHARE=\$\@ $shlib.OPT/OPT \$(EX_LIBS)

-        SET IMAGE/FLAGS=(NOCALL_DEBUG) \$\@

         DELETE $shlib.SYMVEC;*
         PURGE $shlib.EXE,$shlib.OPT,$shlib.MAP
 EOF
         DELETE $shlib.SYMVEC;*
         PURGE $shlib.EXE,$shlib.OPT,$shlib.MAP
 EOF

+        . ($config{target} =~ m|alpha| ? "" : <<"EOF"
+        SET IMAGE/FLAGS=(NOCALL_DEBUG) \$\@
+EOF
+        );

   }
   sub obj2dso {
       my %args = @_;
   }
   sub obj2dso {
       my %args = @_;


@@ -705,7 +708,7 @@ EOF
                              $x =~ s|(\.OLB)|$1/LIB|;
                              "WRITE OPT_FILE \"$x\"" } @deps)
           || "\@ !";
                              $x =~ s|(\.OLB)|$1/LIB|;
                              "WRITE OPT_FILE \"$x\"" } @deps)
           || "\@ !";

-      return <<"EOF";
+      return <<"EOF"

 $lib.EXE : $deps
         OPEN/WRITE/SHARE=READ OPT_FILE $lib.OPT
         TYPE $engine_opt /OUTPUT=OPT_FILE:
 $lib.EXE : $deps
         OPEN/WRITE/SHARE=READ OPT_FILE $lib.OPT
         TYPE $engine_opt /OUTPUT=OPT_FILE:


@@ -713,9 +716,12 @@ $lib.EXE : $deps
         $write_opt2
         CLOSE OPT_FILE
         LINK \$(LDFLAGS)/SHARE=\$\@ $lib.OPT/OPT \$(EX_LIBS)
         $write_opt2
         CLOSE OPT_FILE
         LINK \$(LDFLAGS)/SHARE=\$\@ $lib.OPT/OPT \$(EX_LIBS)

-        SET IMAGE/FLAGS=(NOCALL_DEBUG) \$\@

         - PURGE $lib.EXE,$lib.OPT,$lib.MAP
 EOF
         - PURGE $lib.EXE,$lib.OPT,$lib.MAP
 EOF

+        . ($config{target} =~ m|alpha| ? "" : <<"EOF"
+        SET IMAGE/FLAGS=(NOCALL_DEBUG) \$\@
+EOF
+        );

   }
   sub obj2lib {
       my %args = @_;
   }
   sub obj2lib {
       my %args = @_;


@@ -770,7 +776,7 @@ EOF
       # by default), and so someone building doesn't have to worry where it
       # isn't necessary.  If there are other warnings, however, we show them
       # and let it break the build.
       # by default), and so someone building doesn't have to worry where it
       # isn't necessary.  If there are other warnings, however, we show them
       # and let it break the build.

-      return <<"EOF";
+      return <<"EOF"

 $bin.EXE : $deps
         OPEN/WRITE/SHARE=READ OPT_FILE $bin.OPT
         $write_opt1
 $bin.EXE : $deps
         OPEN/WRITE/SHARE=READ OPT_FILE $bin.OPT
         $write_opt1


@@ -795,9 +801,12 @@ $bin.EXE : $deps
         -@ IF .NOT. link_severity THEN TYPE $bin.LINKLOG
         -@ DELETE $bin.LINKLOG;*
         @ IF .NOT. link_severity THEN SPAWN/WAIT/NOLOG EXIT 'link_status'
         -@ IF .NOT. link_severity THEN TYPE $bin.LINKLOG
         -@ DELETE $bin.LINKLOG;*
         @ IF .NOT. link_severity THEN SPAWN/WAIT/NOLOG EXIT 'link_status'

-        SET IMAGE/FLAGS=(NOCALL_DEBUG) $bin.EXE

         - PURGE $bin.EXE,$bin.OPT
 EOF
         - PURGE $bin.EXE,$bin.OPT
 EOF

+        . ($config{target} =~ m|alpha| ? "" : <<"EOF"
+        SET IMAGE/FLAGS=(NOCALL_DEBUG) \$\@
+EOF
+        );

   }
   sub in2script {
       my %args = @_;
   }
   sub in2script {
       my %args = @_;

diff --git a/NOTES.VMS b/NOTES.VMS
index 48743720f60dd0450ebdfa85afcc10b253612e23..384d5dc5c7f997c5da797a830d3f041a27f4204f 100644 (file)
--- a/NOTES.VMS
+++ b/NOTES.VMS
@@ -64,13 +64,19 @@
  prompt.  Unfortunately, this disrupts all other uses, such as running
  test programs in the test framework.
 
  prompt.  Unfortunately, this disrupts all other uses, such as running
  test programs in the test framework.
 

+ Generally speaking, if you build for debugging, only use the programs
+ directly for debugging.  Do not try to use them from a script, such
+ as running the test suite.
+
+ *The following is not available on Alpha*
+

  As a compromise, we're turning off the flag that makes the debugger
  start automatically.  If there is a program that you need to debug,
  you need to turn that flag back on first, for example:
 
     $ set image /flag=call_debug [.test]evp_test.exe
 
  As a compromise, we're turning off the flag that makes the debugger
  start automatically.  If there is a program that you need to debug,
  you need to turn that flag back on first, for example:
 
     $ set image /flag=call_debug [.test]evp_test.exe
 

- Then just run it and you will find yourself in a debuggin session.
+ Then just run it and you will find yourself in a debugging session.

  When done, we recomment that you turn that flag back off:
 
     $ set image /flag=nocall_debug [.test]evp_test.exe
  When done, we recomment that you turn that flag back off:
 
     $ set image /flag=nocall_debug [.test]evp_test.exe