Make sure that BN_from_montgomery keeps the BIGNUMS in proper format

diff --git a/crypto/bn/bn_mont.c b/crypto/bn/bn_mont.c
index 58175384794bc85973b509ee794bc6643c3b7bfe..dcee538d84764b03b45efaf007328dc2efca4101 100644 (file)
--- a/crypto/bn/bn_mont.c
+++ b/crypto/bn/bn_mont.c
@@ -297,6 +297,8 @@ static int BN_from_montgomery_word(BIGNUM *ret, BIGNUM *r, BN_MONT_CTX *mont)
                }
        for (ri+=4; i<ri; i++)
                rp[i]=nrp[i], ap[i]=0;
+       bn_correct_top(r);
+       bn_correct_top(ret);
 #else
        if (bn_wexpand(ret,al) == NULL) return(0);
        ret->top=al;