117 lines
3.3 KiB
C
117 lines
3.3 KiB
C
|
/*---------------------------------------------------------------------------+
|
||
|
|
| reg_constant.c |
|
||
|
|
| |
|
||
|
|
| All of the constant FPU_REGs |
|
||
|
|
| |
|
||
|
|
| Copyright (C) 1992,1993,1994 |
|
||
|
|
| W. Metzenthen, 22 Parker St, Ormond, Vic 3163, |
|
||
|
|
| Australia. E-mail billm@vaxc.cc.monash.edu.au |
|
||
|
|
| |
|
||
|
|
| |
|
||
|
|
+---------------------------------------------------------------------------*/
|
||
|
|
|
||
|
|
#include "fpu_system.h"
|
||
|
|
#include "fpu_emu.h"
|
||
|
|
#include "status_w.h"
|
||
|
|
#include "reg_constant.h"
|
||
|
|
|
||
|
|
|
||
|
|
FPU_REG const CONST_1 = { SIGN_POS, TW_Valid, EXP_BIAS,
|
||
|
|
0x00000000, 0x80000000 };
|
||
|
|
FPU_REG const CONST_2 = { SIGN_POS, TW_Valid, EXP_BIAS+1,
|
||
|
|
0x00000000, 0x80000000 };
|
||
|
|
FPU_REG const CONST_HALF = { SIGN_POS, TW_Valid, EXP_BIAS-1,
|
||
|
|
0x00000000, 0x80000000 };
|
||
|
|
FPU_REG const CONST_L2T = { SIGN_POS, TW_Valid, EXP_BIAS+1,
|
||
|
|
0xcd1b8afe, 0xd49a784b };
|
||
|
|
FPU_REG const CONST_L2E = { SIGN_POS, TW_Valid, EXP_BIAS,
|
||
|
|
0x5c17f0bc, 0xb8aa3b29 };
|
||
|
|
FPU_REG const CONST_PI = { SIGN_POS, TW_Valid, EXP_BIAS+1,
|
||
|
|
0x2168c235, 0xc90fdaa2 };
|
||
|
|
FPU_REG const CONST_PI2 = { SIGN_POS, TW_Valid, EXP_BIAS,
|
||
|
|
0x2168c235, 0xc90fdaa2 };
|
||
|
|
FPU_REG const CONST_PI4 = { SIGN_POS, TW_Valid, EXP_BIAS-1,
|
||
|
|
0x2168c235, 0xc90fdaa2 };
|
||
|
|
FPU_REG const CONST_LG2 = { SIGN_POS, TW_Valid, EXP_BIAS-2,
|
||
|
|
0xfbcff799, 0x9a209a84 };
|
||
|
|
FPU_REG const CONST_LN2 = { SIGN_POS, TW_Valid, EXP_BIAS-1,
|
||
|
|
0xd1cf79ac, 0xb17217f7 };
|
||
|
|
|
||
|
|
/* Extra bits to take pi/2 to more than 128 bits precision. */
|
||
|
|
FPU_REG const CONST_PI2extra = { SIGN_NEG, TW_Valid, EXP_BIAS-66,
|
||
|
|
0xfc8f8cbb, 0xece675d1 };
|
||
|
|
|
||
|
|
/* Only the sign (and tag) is used in internal zeroes */
|
||
|
|
FPU_REG const CONST_Z = { SIGN_POS, TW_Zero, EXP_UNDER, 0x0, 0x0 };
|
||
|
|
|
||
|
|
/* Only the sign and significand (and tag) are used in internal NaNs */
|
||
|
|
/* The 80486 never generates one of these
|
||
|
|
FPU_REG const CONST_SNAN = { SIGN_POS, TW_NaN, EXP_OVER, 0x00000001, 0x80000000 };
|
||
|
|
*/
|
||
|
|
/* This is the real indefinite QNaN */
|
||
|
|
FPU_REG const CONST_QNaN = { SIGN_NEG, TW_NaN, EXP_OVER, 0x00000000, 0xC0000000 };
|
||
|
|
|
||
|
|
/* Only the sign (and tag) is used in internal infinities */
|
||
|
|
FPU_REG const CONST_INF = { SIGN_POS, TW_Infinity, EXP_OVER, 0x00000000, 0x80000000 };
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
static void fld_const(FPU_REG const *c)
|
||
|
|
{
|
||
|
|
FPU_REG *st_new_ptr;
|
||
|
|
|
||
|
|
if ( STACK_OVERFLOW )
|
||
|
|
{
|
||
|
|
stack_overflow();
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
push();
|
||
|
|
reg_move(c, FPU_st0_ptr);
|
||
|
|
clear_C1();
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
static void fld1(void)
|
||
|
|
{
|
||
|
|
fld_const(&CONST_1);
|
||
|
|
}
|
||
|
|
|
||
|
|
static void fldl2t(void)
|
||
|
|
{
|
||
|
|
fld_const(&CONST_L2T);
|
||
|
|
}
|
||
|
|
|
||
|
|
static void fldl2e(void)
|
||
|
|
{
|
||
|
|
fld_const(&CONST_L2E);
|
||
|
|
}
|
||
|
|
|
||
|
|
static void fldpi(void)
|
||
|
|
{
|
||
|
|
fld_const(&CONST_PI);
|
||
|
|
}
|
||
|
|
|
||
|
|
static void fldlg2(void)
|
||
|
|
{
|
||
|
|
fld_const(&CONST_LG2);
|
||
|
|
}
|
||
|
|
|
||
|
|
static void fldln2(void)
|
||
|
|
{
|
||
|
|
fld_const(&CONST_LN2);
|
||
|
|
}
|
||
|
|
|
||
|
|
static void fldz(void)
|
||
|
|
{
|
||
|
|
fld_const(&CONST_Z);
|
||
|
|
}
|
||
|
|
|
||
|
|
static FUNC constants_table[] = {
|
||
|
|
fld1, fldl2t, fldl2e, fldpi, fldlg2, fldln2, fldz, FPU_illegal
|
||
|
|
};
|
||
|
|
|
||
|
|
void fconst(void)
|
||
|
|
{
|
||
|
|
(constants_table[FPU_rm])();
|
||
|
|
}
|