crypto/weakcrypto/source/bigint/rinteger.cpp
author hgs
Thu, 24 Jun 2010 15:39:07 +0530
changeset 72 de46a57f75fb
permissions -rw-r--r--
201023_02
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
72
de46a57f75fb 201023_02
hgs
parents:
diff changeset
     1
/*
de46a57f75fb 201023_02
hgs
parents:
diff changeset
     2
* Copyright (c) 2003-2009 Nokia Corporation and/or its subsidiary(-ies).
de46a57f75fb 201023_02
hgs
parents:
diff changeset
     3
* All rights reserved.
de46a57f75fb 201023_02
hgs
parents:
diff changeset
     4
* This component and the accompanying materials are made available
de46a57f75fb 201023_02
hgs
parents:
diff changeset
     5
* under the terms of the License "Eclipse Public License v1.0"
de46a57f75fb 201023_02
hgs
parents:
diff changeset
     6
* which accompanies this distribution, and is available
de46a57f75fb 201023_02
hgs
parents:
diff changeset
     7
* at the URL "http://www.eclipse.org/legal/epl-v10.html".
de46a57f75fb 201023_02
hgs
parents:
diff changeset
     8
*
de46a57f75fb 201023_02
hgs
parents:
diff changeset
     9
* Initial Contributors:
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    10
* Nokia Corporation - initial contribution.
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    11
*
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    12
* Contributors:
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    13
*
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    14
* Description: 
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    15
*
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    16
*/
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    17
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    18
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    19
#include <bigint.h>
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    20
#include <e32std.h>
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    21
#include <random.h>
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    22
#include "../common/inlines.h"
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    23
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    24
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    25
/** 
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    26
 * Copy constructor
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    27
 *
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    28
 * This function performs a shallow copy, 
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    29
 * i.e. the memory holding the integer is not copied.
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    30
 */
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    31
EXPORT_C RInteger::RInteger(const RInteger& aInteger)
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    32
	{
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    33
	*this = aInteger;
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    34
	}
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    35
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    36
/** 
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    37
 * Assignment operator
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    38
 * 
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    39
 * This function performs a shallow copy, 
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    40
 * i.e. the memory holding the integer is not copied.
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    41
 */
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    42
EXPORT_C RInteger& RInteger::operator=(const RInteger& aInteger)
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    43
	{
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    44
	iSize = aInteger.iSize;
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    45
	iPtr = aInteger.iPtr;
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    46
	return *this;
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    47
	}
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    48
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    49
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    50
/** 
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    51
 * Creates a new integer representing 0.
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    52
 * 
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    53
 * @return	An RInteger by value.
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    54
 */
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    55
EXPORT_C RInteger RInteger::NewL(void)
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    56
	{
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    57
	return NewL(TInteger::Zero());
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    58
	}
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    59
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    60
/** 
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    61
 * Creates a new integer object representing a specified value.
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    62
 * 
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    63
 * @param aValue	A descriptor containing the big-endian binary
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    64
 * 					representation of the value.
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    65
 * @return			An RInteger object representing the value.
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    66
 */
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    67
EXPORT_C RInteger RInteger::NewL(const TDesC8& aValue)
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    68
	{
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    69
	RInteger self;
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    70
	//Construct zero's memory beyond the size of aValue after construction
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    71
	self.CreateNewL(BytesToWords(aValue.Size()));
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    72
	self.Construct(aValue);
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    73
	return self;
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    74
	}
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    75
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    76
/** 
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    77
 * Creates an exact copy of an \c aInteger object.
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    78
 * 
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    79
 * @param aInteger	The integer you wish to copy
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    80
 * @return			An RInteger object representing an exact copy of 
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    81
 *					aInteger by value.
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    82
 */
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    83
EXPORT_C RInteger RInteger::NewL(const TInteger& aInteger)
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    84
	{
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    85
	RInteger self;
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    86
	//don't need to CleanNewL as we'll copy straight from aInteger
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    87
	self.CreateNewL(aInteger.Size());
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    88
	self.Construct(aInteger);
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    89
	return self;
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    90
	}
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    91
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    92
/** 
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    93
 * Creates a random integer uniformly distributed over [0, 2^aBits].
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    94
 * 
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    95
 * @param aBits	The number of bits you wish to randomly select.
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    96
 * @param aAttr	Enum specifying whether specific bits in the random number should
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    97
 *				be set.  See TRandomAttribute for more information.
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    98
 * @return		A random RInteger object in the range specified.
de46a57f75fb 201023_02
hgs
parents:
diff changeset
    99
 */
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   100
EXPORT_C RInteger RInteger::NewRandomL(TUint aBits, TRandomAttribute aAttr)
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   101
	{
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   102
	RInteger self;
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   103
	self.CleanNewL(BitsToWords(aBits));
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   104
	CleanupStack::PushL(self);
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   105
	self.RandomizeL(aBits, aAttr);
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   106
	CleanupStack::Pop(&self); 
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   107
	return self;
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   108
	}
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   109
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   110
/** 
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   111
 * Creates a random integer uniformly distributed over [x | min <= x <= max].
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   112
 * 
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   113
 * @param aMin	The smallest possible value for the random integer (inclusive).
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   114
 * @param aMax	The largest possible value for the random integer (inclusive).
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   115
 * @return		A random RInteger object in the range specified.
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   116
 */
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   117
EXPORT_C RInteger RInteger::NewRandomL(const TInteger& aMin,
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   118
	const TInteger& aMax)
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   119
	{
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   120
	RInteger self;
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   121
	self.CleanNewL(aMax.Size());
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   122
	CleanupStack::PushL(self);
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   123
	self.RandomizeL(aMin, aMax);
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   124
	CleanupStack::Pop(&self);
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   125
	return self;
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   126
	}
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   127
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   128
/** 
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   129
 * Finds a random prime integer in the range of [2, 2^aBits].
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   130
 *
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   131
 * This is done by picking a random integer and using that as a starting point
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   132
 * for a sequential search for a prime.  To verify the primality of number, 
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   133
 * this algorithm uses a probablistic primality test.  This means that it is
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   134
 * possible, although extremely improbable, that the number returned is a pseudoprime.
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   135
 *
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   136
 * @param aBits	The number of bits you wish to randomly select your prime from.
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   137
 * @param aAttr	Enum specifying whether specific bits in the random number should
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   138
 *				be set.  See TRandomAttribute for more information.
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   139
 * @return		A random RInteger representing a probable prime (with very high
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   140
 *				probablity) in the range specified.
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   141
 */
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   142
EXPORT_C RInteger RInteger::NewPrimeL(TUint aBits, TRandomAttribute aAttr)
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   143
	{
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   144
	RInteger self;
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   145
	self.CleanNewL(BitsToWords(aBits));
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   146
	CleanupStack::PushL(self);
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   147
	self.PrimeRandomizeL(aBits, aAttr);
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   148
	CleanupStack::Pop(&self);
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   149
	return self;
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   150
	}
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   151
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   152
/** 
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   153
 * Creates a new integer from the value represented by \c aInteger.
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   154
 * 
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   155
 * @param aInteger	A signed word sized integer.
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   156
 * @return			An RInteger representation of aInteger by value.
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   157
 */
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   158
EXPORT_C RInteger RInteger::NewL(TInt aInteger)
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   159
	{
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   160
	RInteger self;
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   161
	self.CreateNewL(2);
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   162
	self.Construct(aInteger);
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   163
	return self;
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   164
	}
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   165
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   166
/** 
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   167
 * Creates a new integer from the value represented by \c aInteger.
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   168
 *
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   169
 * @param aInteger	An unsigned word sized integer.
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   170
 * @return			An RInteger representation of aInteger by value.
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   171
 */
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   172
EXPORT_C RInteger RInteger::NewL(TUint aInteger)
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   173
	{
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   174
	RInteger self;
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   175
	self.CreateNewL(2);
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   176
	self.Construct(aInteger);
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   177
	return self;
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   178
	}
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   179
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   180
/** 
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   181
 * Creates a new integer with a preallocated internal storage of \c aNumWords all
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   182
 * initialised to zero.
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   183
 *
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   184
 * The resulting RInteger object is logically equivalent to RInteger::NewL(0).
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   185
 * The only difference is that the internal storage requirements have been 
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   186
 * specified to be larger than the default. This is useful if you are about 
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   187
 * to perform an operation on this integer, that you know the resulting size
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   188
 * requirements of, and wish to avoid a heap resize.
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   189
 *
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   190
 * @param aNumWords	The number of words for to preallocated and zero fill.
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   191
 * @return			An RInteger object representing 0 with a preallocated 
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   192
 *					zero-filled internal storage of aNumWords.
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   193
 */
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   194
EXPORT_C RInteger RInteger::NewEmptyL(TUint aNumWords)
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   195
	{
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   196
	RInteger self;
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   197
	self.CleanNewL(aNumWords);
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   198
	//There's no construct as there isn't anything to do
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   199
	return self;
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   200
	}
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   201
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   202
/**
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   203
 * Creates an RInteger object with no associated internal (heap) storage.
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   204
 * 
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   205
 * All data members are initialised to zero.  It is safe (although not strictly necessary)
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   206
 * to push such an RInteger object onto the CleanupStack.  This is useful, for example, if
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   207
 * you want to pass an RInteger object by reference into a function and have it create
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   208
 * the representation of the actual integer for you.  
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   209
 *
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   210
 * Note that performing any operation on such an RInteger object other than the default
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   211
 * assignment operator or copy constructor will panic your code.
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   212
 * 
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   213
 * @return	A stack based class that has no associated internal storage and thus
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   214
 *			does not represent any number.
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   215
 */
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   216
EXPORT_C RInteger::RInteger(void)  
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   217
	{
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   218
	}
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   219
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   220
/** 
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   221
 * An overloaded TCleanupItem() allowing the RIntegers to be pushed,
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   222
 * popped, and destroyed via the CleanupStack like any other CBase derived object.
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   223
 */
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   224
EXPORT_C RInteger::operator TCleanupItem(void)
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   225
	{
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   226
	return TCleanupItem(&RInteger::CallClose, this);
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   227
	}
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   228
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   229
/** 
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   230
 * Helper function registered with the cleanup stack that just calls Close() for
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   231
 * this RInteger object.
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   232
 * 
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   233
 * @param aPtr	A pointer to the object for which clean-up is to be performed. 
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   234
 */
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   235
EXPORT_C void RInteger::CallClose(TAny* aPtr)
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   236
	{
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   237
	((RInteger*)aPtr)->Close();	
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   238
	}
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   239
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   240
/** 
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   241
 * Zeros and then frees any memory owned by this RInteger object.
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   242
 *  
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   243
 * An RInteger object that has been closed can safely fall off the stack.
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   244
 */
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   245
EXPORT_C void RInteger::Close(void)
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   246
	{
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   247
	if (iPtr)
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   248
		{
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   249
		Mem::FillZ(Ptr(), Size()*4);
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   250
		User::Free(Ptr());
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   251
		iSize = 0;
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   252
		iPtr = NULL;
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   253
		}
de46a57f75fb 201023_02
hgs
parents:
diff changeset
   254
	}