Function EVL_make_value

src/jrd/evl.cpp:467–609

void EVL_make_value(thread_db* tdbb, const dsc* desc, impure_value* value, MemoryPool* pool)
{
/**************************************
 *
 *      E V L _ m a k e _ v a l u e
 *
 **************************************
 *
 * Functional description
 *      Make a value block reflect the value of a descriptor.
 *
 **************************************/
	SET_TDBB(tdbb);

	// Handle the fixed length data types first.  They're easy.

	const dsc from = *desc;
	value->vlu_desc = *desc;
	value->vlu_desc.dsc_address = (UCHAR*) &value->vlu_misc;

	switch (from.dsc_dtype)
	{
	case dtype_short:
		value->vlu_misc.vlu_short = *((SSHORT*) from.dsc_address);
		return;

	case dtype_long:
	case dtype_real:
		value->vlu_misc.vlu_long = *((SLONG*) from.dsc_address);
		return;

	case dtype_int64:
		value->vlu_misc.vlu_int64 = *((SINT64*) from.dsc_address);
		return;

	case dtype_double:
		value->vlu_misc.vlu_double = *((double*) from.dsc_address);
		return;

	case dtype_dec64:
		value->vlu_misc.vlu_dec64 = *((Decimal64*) from.dsc_address);
		return;

	case dtype_dec128:
		value->vlu_misc.vlu_dec128 = *((Decimal128*) from.dsc_address);
		return;

	case dtype_int128:
		value->vlu_misc.vlu_int128 = *((Int128*) from.dsc_address);
		return;

	case dtype_sql_time:
		value->vlu_misc.vlu_sql_time = *(GDS_TIME*) from.dsc_address;
		return;

	case dtype_ex_time_tz:
	case dtype_sql_time_tz:
		value->vlu_misc.vlu_sql_time_tz = *(ISC_TIME_TZ*) from.dsc_address;