Function fxNumberToBigInt

xs/sources/xsBigInt.c:724–751

}

txBigInt* fxNumberToBigInt(txMachine* the, txSlot* slot)
{
	txBigInt* bigint = &slot->value.bigint;
	txNumber number = slot->value.number;
	txNumber limit = 4294967296;
	txU1 sign = 0;
	txU2 size = 1;
	if (number < 0) {
		number = -number;
		sign = 1;
	}
	while (number >= limit) {
		size++;
		number /= limit;
	}
	bigint->data = fxNewChunk(the, fxMultiplyChunkSizes(the, size, sizeof(txU4)));
	bigint->size = size;
	while (size > 0) {
		txU4 part = (txU4)number;
		number -= part;
		size--;
		bigint->data[size] = part;
		number *= limit;
	}
	bigint->sign = sign;
	slot->kind = XS_BIGINT_KIND;
	return bigint;
}

txBigInt* fxStringToBigInt(txMachine* the, txSlot* slot, txFlag whole)
{