Send no_renegotiation alert as required by spec.

[oweals/openssl.git] / fips / install.com

diff --git a/fips/install.com b/fips/install.com
index a2d22d387ff91a8274ed11a8e2187c796511fd58..48ad12de8d4170b4daddb60e43cfa256eb7e9b12 100644 (file)
--- a/fips/install.com
+++ b/fips/install.com
@@ -12,6 +12,14 @@ $        WRITE SYS$OUTPUT "Should be the directory where you want things installed.
 $          EXIT
 $      ENDIF
 $
+$      IF (F$GETSYI("CPU").LT.128)
+$      THEN
+$          ARCH := VAX
+$      ELSE
+$          ARCH = F$EDIT( F$GETSYI( "ARCH_NAME"), "UPCASE")
+$          IF (ARCH .EQS. "") THEN ARCH = "UNK"
+$      ENDIF
+$
 $      ROOT = F$PARSE(P1,"[]A.;0",,,"SYNTAX_ONLY,NO_CONCEAL") - "A.;0"
 $      ROOT_DEV = F$PARSE(ROOT,,,"DEVICE","SYNTAX_ONLY")
 $      ROOT_DIR = F$PARSE(ROOT,,,"DIRECTORY","SYNTAX_ONLY") -