DEC C complains about bad subscript, but we know better, so let's shut it up.

diff --git a/crypto/bn/bn_nist.c b/crypto/bn/bn_nist.c
index fa453a4459da73cb55b8d01b9d81fe102fb34049..b42ad01a43ede3ba14875a0d7ab62fd21be89e00 100644 (file)
--- a/crypto/bn/bn_nist.c
+++ b/crypto/bn/bn_nist.c
@@ -282,6 +282,11 @@ int BN_nist_mod_192(BIGNUM *r, const BIGNUM *a, const BIGNUM *field,
 
        nist_cp_bn_0(buf, a_d + BN_NIST_192_TOP, top - BN_NIST_192_TOP, BN_NIST_192_TOP);
 
 
        nist_cp_bn_0(buf, a_d + BN_NIST_192_TOP, top - BN_NIST_192_TOP, BN_NIST_192_TOP);
 

+#if defined(OPENSSL_SYS_VMS) && defined(__DECC)
+# pragma save
+# pragma message disable BADSUBSCRIPT
+#endif
+

        nist_set_192(t_d, buf, 0, 3, 3);
        if (bn_add_words(r_d, r_d, t_d, BN_NIST_192_TOP))
                ++carry;
        nist_set_192(t_d, buf, 0, 3, 3);
        if (bn_add_words(r_d, r_d, t_d, BN_NIST_192_TOP))
                ++carry;


@@ -290,6 +295,10 @@ int BN_nist_mod_192(BIGNUM *r, const BIGNUM *a, const BIGNUM *field,
        if (bn_add_words(r_d, r_d, t_d, BN_NIST_192_TOP))
                ++carry;
 
        if (bn_add_words(r_d, r_d, t_d, BN_NIST_192_TOP))
                ++carry;
 

+#if defined(OPENSSL_SYS_VMS) && defined(__DECC)
+# pragma restore
+#endif
+

        nist_set_192(t_d, buf, 5, 5, 5)
        if (bn_add_words(r_d, r_d, t_d, BN_NIST_192_TOP))
                ++carry;
        nist_set_192(t_d, buf, 5, 5, 5)
        if (bn_add_words(r_d, r_d, t_d, BN_NIST_192_TOP))
                ++carry;