diff options
author | Richard Levitte <levitte@openssl.org> | 2011-03-20 14:01:49 +0000 |
---|---|---|
committer | Richard Levitte <levitte@openssl.org> | 2011-03-20 14:01:49 +0000 |
commit | 64d30d7adcec8a6e02568095b38776ef0915be64 (patch) | |
tree | 92d841da7b08ccc6e0e2e1a5f87d967013caafef /test/maketests.com | |
parent | 7062cb56a943c8edee87eeb52dc5746ab29fac9e (diff) |
* apps/makeapps.com: Forgot to end the check for /POINTER_SIZE=64=ARGV
with turning trapping back on.
* test/maketests.com: Do the same check for /POINTER_SIZE=64=ARGV
here.
* test/clean-test.com: A new script for cleaning up.
Diffstat (limited to 'test/maketests.com')
-rw-r--r-- | test/maketests.com | 23 |
1 files changed, 22 insertions, 1 deletions
diff --git a/test/maketests.com b/test/maketests.com index e4e5d33495..83325a0322 100644 --- a/test/maketests.com +++ b/test/maketests.com @@ -538,7 +538,28 @@ $ POINTER_SIZE = "/POINTER_SIZE=32" $ ELSE $ IF (P5 .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 +$ SET ON $ ARCHD = ARCH+ "_64" $ LIB32 = "" $ ELSE |