61 lines
1.3 KiB
C
61 lines
1.3 KiB
C
|
/****************************************************************
|
||
|
|
* *
|
||
|
|
* Copyright 2001, 2011 Fidelity Information Services, Inc *
|
||
|
|
* *
|
||
|
|
* This source code contains the intellectual property *
|
||
|
|
* of its copyright holder(s), and is made available *
|
||
|
|
* under a license. If you do not know the terms of *
|
||
|
|
* the license, please stop and do not read further. *
|
||
|
|
* *
|
||
|
|
****************************************************************/
|
||
|
|
|
||
|
|
#include "mdef.h"
|
||
|
|
#include "arit.h"
|
||
|
|
#include "promodemo.h"
|
||
|
|
|
||
|
|
LITREF int4 ten_pwr[NUM_DEC_DG_1L+1];
|
||
|
|
LITREF mval literal_zero;
|
||
|
|
|
||
|
|
void promote(mval *v)
|
||
|
|
{
|
||
|
|
int exp ;
|
||
|
|
int m1;
|
||
|
|
int4 *pwr;
|
||
|
|
|
||
|
|
m1 = v->m[1];
|
||
|
|
if (0 < m1)
|
||
|
|
v->sgn = 0 ;
|
||
|
|
else if (0 > m1)
|
||
|
|
{
|
||
|
|
v->sgn = 1 ;
|
||
|
|
m1 = -m1;
|
||
|
|
} else
|
||
|
|
{
|
||
|
|
*v = literal_zero ;
|
||
|
|
return ;
|
||
|
|
}
|
||
|
|
v->m[0] = exp = 0 ;
|
||
|
|
pwr = (int4 *)&ten_pwr[0];
|
||
|
|
while (m1 >= *pwr)
|
||
|
|
{
|
||
|
|
exp++;
|
||
|
|
pwr++;
|
||
|
|
assert(pwr < ARRAYTOP(ten_pwr));
|
||
|
|
}
|
||
|
|
v->m[1] = m1 * ten_pwr[NUM_DEC_DG_1L - exp] ;
|
||
|
|
v->mvtype = MV_NM ;
|
||
|
|
v->e = EXP_INT_UNDERF + exp ;
|
||
|
|
}
|
||
|
|
|
||
|
|
void demote(mval *v, int exp, int sign)
|
||
|
|
{
|
||
|
|
assert((0 == exp) || ((EXP_INT_UNDERF < exp) && (EXP_INT_OVERF > exp) && ((EXP_INT_OVERF - 1 - exp) < ARRAYSIZE(ten_pwr))));
|
||
|
|
if (0 == exp)
|
||
|
|
assert(0 == v->m[1]);
|
||
|
|
else if (sign==0)
|
||
|
|
v->m[1] /= ten_pwr[EXP_INT_OVERF - 1 - exp] ;
|
||
|
|
else
|
||
|
|
v->m[1] /= -ten_pwr[EXP_INT_OVERF - 1 - exp] ;
|
||
|
|
v->mvtype = MV_NM | MV_INT ;
|
||
|
|
}
|