1c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org/* crypto/bn/bn_word.c */ 2c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com) 3c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * All rights reserved. 4c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * 5c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * This package is an SSL implementation written 6c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * by Eric Young (eay@cryptsoft.com). 7c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * The implementation was written so as to conform with Netscapes SSL. 8c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * 9c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * This library is free for commercial and non-commercial use as long as 10c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * the following conditions are aheared to. The following conditions 11c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * apply to all code found in this distribution, be it the RC4, RSA, 12c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * lhash, DES, etc., code; not just the SSL code. The SSL documentation 13c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * included with this distribution is covered by the same copyright terms 14c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * except that the holder is Tim Hudson (tjh@cryptsoft.com). 15c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * 16c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * Copyright remains Eric Young's, and as such any Copyright notices in 17c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * the code are not to be removed. 18c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * If this package is used in a product, Eric Young should be given attribution 19c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * as the author of the parts of the library used. 20c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * This can be in the form of a textual message at program startup or 21c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * in documentation (online or textual) provided with the package. 22c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * 23c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * Redistribution and use in source and binary forms, with or without 24c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * modification, are permitted provided that the following conditions 25c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * are met: 26c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * 1. Redistributions of source code must retain the copyright 27c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * notice, this list of conditions and the following disclaimer. 28c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * 2. Redistributions in binary form must reproduce the above copyright 29c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * notice, this list of conditions and the following disclaimer in the 30c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * documentation and/or other materials provided with the distribution. 31c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * 3. All advertising materials mentioning features or use of this software 32c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * must display the following acknowledgement: 33c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * "This product includes cryptographic software written by 34c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * Eric Young (eay@cryptsoft.com)" 35c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * The word 'cryptographic' can be left out if the rouines from the library 36c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * being used are not cryptographic related :-). 37c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * 4. If you include any Windows specific code (or a derivative thereof) from 38c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * the apps directory (application code) you must include an acknowledgement: 39c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)" 40c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * 41c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND 42c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 43c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 44c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 45c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 46c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 47c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 48c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 49c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 50c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 51c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * SUCH DAMAGE. 52c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * 53c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * The licence and distribution terms for any publically available version or 54c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * derivative of this code cannot be changed. i.e. this code cannot simply be 55c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * copied and put under another distribution licence 56c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org * [including the GNU Public Licence.] 57c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org */ 58c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org 59c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org#include <stdio.h> 60c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org#include "cryptlib.h" 61c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org#include "bn_lcl.h" 62c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org 63c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.orgBN_ULONG BN_mod_word(const BIGNUM *a, BN_ULONG w) 64c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org { 65c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org#ifndef BN_LLONG 66c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org BN_ULONG ret=0; 67c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org#else 68c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org BN_ULLONG ret=0; 69c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org#endif 70c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org int i; 71c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org 72c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org if (w == 0) 73c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org return (BN_ULONG)-1; 74c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org 75c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org bn_check_top(a); 76c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org w&=BN_MASK2; 77c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org for (i=a->top-1; i>=0; i--) 78c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org { 79c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org#ifndef BN_LLONG 80c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org ret=((ret<<BN_BITS4)|((a->d[i]>>BN_BITS4)&BN_MASK2l))%w; 81c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org ret=((ret<<BN_BITS4)|(a->d[i]&BN_MASK2l))%w; 82c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org#else 83c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org ret=(BN_ULLONG)(((ret<<(BN_ULLONG)BN_BITS2)|a->d[i])% 84c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org (BN_ULLONG)w); 85c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org#endif 86c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org } 87c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org return((BN_ULONG)ret); 88c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org } 89c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org 90c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.orgBN_ULONG BN_div_word(BIGNUM *a, BN_ULONG w) 91c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org { 92c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org BN_ULONG ret = 0; 93c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org int i, j; 94c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org 95c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org bn_check_top(a); 96c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org w &= BN_MASK2; 97c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org 98c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org if (!w) 99c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org /* actually this an error (division by zero) */ 100c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org return (BN_ULONG)-1; 101c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org if (a->top == 0) 102c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org return 0; 103c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org 104c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org /* normalize input (so bn_div_words doesn't complain) */ 105c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org j = BN_BITS2 - BN_num_bits_word(w); 106c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org w <<= j; 107c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org if (!BN_lshift(a, a, j)) 108c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org return (BN_ULONG)-1; 109c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org 110c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org for (i=a->top-1; i>=0; i--) 111c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org { 112c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org BN_ULONG l,d; 113c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org 114c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org l=a->d[i]; 115c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org d=bn_div_words(ret,l,w); 116c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org ret=(l-((d*w)&BN_MASK2))&BN_MASK2; 117c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org a->d[i]=d; 118c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org } 119c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org if ((a->top > 0) && (a->d[a->top-1] == 0)) 120c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org a->top--; 121c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org ret >>= j; 122c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org bn_check_top(a); 123c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org return(ret); 124c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org } 125c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org 126c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.orgint BN_add_word(BIGNUM *a, BN_ULONG w) 127c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org { 128c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org BN_ULONG l; 129c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org int i; 130c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org 131c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org bn_check_top(a); 132c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org w &= BN_MASK2; 133c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org 134c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org /* degenerate case: w is zero */ 135c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org if (!w) return 1; 136c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org /* degenerate case: a is zero */ 137c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org if(BN_is_zero(a)) return BN_set_word(a, w); 138c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org /* handle 'a' when negative */ 139c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org if (a->neg) 140c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org { 141c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org a->neg=0; 142c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org i=BN_sub_word(a,w); 143c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org if (!BN_is_zero(a)) 144c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org a->neg=!(a->neg); 145c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org return(i); 146c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org } 1477453c6c0666947e06d87565404f4397a4b387f91digit@chromium.org for (i=0;w!=0 && i<a->top;i++) 148c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org { 1497453c6c0666947e06d87565404f4397a4b387f91digit@chromium.org a->d[i] = l = (a->d[i]+w)&BN_MASK2; 1507453c6c0666947e06d87565404f4397a4b387f91digit@chromium.org w = (w>l)?1:0; 151c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org } 1527453c6c0666947e06d87565404f4397a4b387f91digit@chromium.org if (w && i==a->top) 1537453c6c0666947e06d87565404f4397a4b387f91digit@chromium.org { 1547453c6c0666947e06d87565404f4397a4b387f91digit@chromium.org if (bn_wexpand(a,a->top+1) == NULL) return 0; 155c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org a->top++; 1567453c6c0666947e06d87565404f4397a4b387f91digit@chromium.org a->d[i]=w; 1577453c6c0666947e06d87565404f4397a4b387f91digit@chromium.org } 158c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org bn_check_top(a); 159c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org return(1); 160c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org } 161c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org 162c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.orgint BN_sub_word(BIGNUM *a, BN_ULONG w) 163c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org { 164c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org int i; 165c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org 166c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org bn_check_top(a); 167c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org w &= BN_MASK2; 168c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org 169c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org /* degenerate case: w is zero */ 170c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org if (!w) return 1; 171c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org /* degenerate case: a is zero */ 172c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org if(BN_is_zero(a)) 173c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org { 174c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org i = BN_set_word(a,w); 175c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org if (i != 0) 176c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org BN_set_negative(a, 1); 177c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org return i; 178c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org } 179c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org /* handle 'a' when negative */ 180c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org if (a->neg) 181c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org { 182c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org a->neg=0; 183c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org i=BN_add_word(a,w); 184c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org a->neg=1; 185c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org return(i); 186c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org } 187c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org 188c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org if ((a->top == 1) && (a->d[0] < w)) 189c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org { 190c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org a->d[0]=w-a->d[0]; 191c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org a->neg=1; 192c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org return(1); 193c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org } 194c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org i=0; 195c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org for (;;) 196c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org { 197c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org if (a->d[i] >= w) 198c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org { 199c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org a->d[i]-=w; 200c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org break; 201c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org } 202c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org else 203c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org { 204c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org a->d[i]=(a->d[i]-w)&BN_MASK2; 205c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org i++; 206c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org w=1; 207c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org } 208c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org } 209c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org if ((a->d[i] == 0) && (i == (a->top-1))) 210c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org a->top--; 211c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org bn_check_top(a); 212c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org return(1); 213c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org } 214c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org 215c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.orgint BN_mul_word(BIGNUM *a, BN_ULONG w) 216c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org { 217c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org BN_ULONG ll; 218c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org 219c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org bn_check_top(a); 220c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org w&=BN_MASK2; 221c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org if (a->top) 222c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org { 223c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org if (w == 0) 224c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org BN_zero(a); 225c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org else 226c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org { 227c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org ll=bn_mul_words(a->d,a->d,a->top,w); 228c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org if (ll) 229c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org { 230c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org if (bn_wexpand(a,a->top+1) == NULL) return(0); 231c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org a->d[a->top++]=ll; 232c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org } 233c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org } 234c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org } 235c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org bn_check_top(a); 236c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org return(1); 237c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org } 238c9490d33b98b7affb729b5f1db13cb0a348471aagl@chromium.org 239