59 lines
1.8 KiB
C
59 lines
1.8 KiB
C
/*---------------------------------------------------------------------------+
|
|
| reg_convert.c |
|
|
| $Id: reg_convert.c,v 1.2 2001-10-06 03:53:46 bdenney Exp $
|
|
| |
|
|
| Convert register representation. |
|
|
| |
|
|
| Copyright (C) 1992,1993,1994,1996,1997 |
|
|
| W. Metzenthen, 22 Parker St, Ormond, Vic 3163, Australia |
|
|
| E-mail billm@suburbia.net |
|
|
| |
|
|
| |
|
|
+---------------------------------------------------------------------------*/
|
|
|
|
#include "exception.h"
|
|
#include "fpu_emu.h"
|
|
|
|
|
|
int FPU_to_exp16(FPU_REG const *a, FPU_REG *x)
|
|
{
|
|
int sign = getsign(a);
|
|
|
|
#ifndef EMU_BIG_ENDIAN
|
|
*(s64 *)&(x->sigl) = *(const s64 *)&(a->sigl);
|
|
#else
|
|
*(s64 *)&(x->sigh) = *(const s64 *)&(a->sigh);
|
|
#endif
|
|
|
|
/* Set up the exponent as a 16 bit quantity. */
|
|
setexponent16(x, exponent(a));
|
|
|
|
if ( exponent16(x) == EXP_UNDER )
|
|
{
|
|
/* The number is a de-normal or pseudodenormal. */
|
|
/* We only deal with the significand and exponent. */
|
|
|
|
if (x->sigh & 0x80000000)
|
|
{
|
|
/* Is a pseudodenormal. */
|
|
/* This is non-80486 behaviour because the number
|
|
loses its 'denormal' identity. */
|
|
addexponent(x, 1);
|
|
}
|
|
else
|
|
{
|
|
/* Is a denormal. */
|
|
addexponent(x, 1);
|
|
FPU_normalize_nuo(x, 0);
|
|
}
|
|
}
|
|
|
|
if ( !(x->sigh & 0x80000000) )
|
|
{
|
|
EXCEPTION(EX_INTERNAL | 0x180);
|
|
}
|
|
|
|
return sign;
|
|
}
|
|
|