big2exp.c revision 65c4736d9c0ebc6d9b1d991593b55566909da9cd
75b8de87879ad017c9cd2ffc328e5d2391d16e99Evan Hunt/* Copyright (C) RSA Data Security, Inc. created 1986, 1996. This is an
75b8de87879ad017c9cd2ffc328e5d2391d16e99Evan Hunt unpublished work protected as such under copyright law. This work
45c5f403619029a363cf089e0a4b1bb44425dd84Tinderbox User contains proprietary, confidential, and trade secret information of
bf8267aa453e5d2a735ed732a043b77a0b355b20Mark Andrews RSA Data Security, Inc. Use, disclosure or reproduction without the
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews express written authorization of RSA Data Security, Inc. is
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews prohibited.
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews */
75b8de87879ad017c9cd2ffc328e5d2391d16e99Evan Hunt
75b8de87879ad017c9cd2ffc328e5d2391d16e99Evan Hunt#include "global.h"
75b8de87879ad017c9cd2ffc328e5d2391d16e99Evan Hunt#include "bigmath.h"
75b8de87879ad017c9cd2ffc328e5d2391d16e99Evan Hunt
75b8de87879ad017c9cd2ffc328e5d2391d16e99Evan Hunt/* Big2Exp (a, v, n) -- a = 2**v, where v is nonnegative int.
75b8de87879ad017c9cd2ffc328e5d2391d16e99Evan Hunt Sets a to be 2**v.
75b8de87879ad017c9cd2ffc328e5d2391d16e99Evan Hunt */
75b8de87879ad017c9cd2ffc328e5d2391d16e99Evan Huntvoid Big2Exp (a, v, n)
75b8de87879ad017c9cd2ffc328e5d2391d16e99Evan HuntUINT2 *a;
0245f7725c40fd29637fbc83ee25bd84be25bfd2Evan Huntunsigned v;
0245f7725c40fd29637fbc83ee25bd84be25bfd2Evan Huntunsigned int n;
0245f7725c40fd29637fbc83ee25bd84be25bfd2Evan Hunt{
0245f7725c40fd29637fbc83ee25bd84be25bfd2Evan Hunt register unsigned int i;
0245f7725c40fd29637fbc83ee25bd84be25bfd2Evan Hunt
1c95f672323b7ac176af4225a36d33daa442542cMark Andrews for (i = 0; i < n; i++)
0245f7725c40fd29637fbc83ee25bd84be25bfd2Evan Hunt a[i] = 0;
0245f7725c40fd29637fbc83ee25bd84be25bfd2Evan Hunt a[v/16] = 1 << (v % 16);
0245f7725c40fd29637fbc83ee25bd84be25bfd2Evan Hunt}
0245f7725c40fd29637fbc83ee25bd84be25bfd2Evan Hunt