04124133c0
I will continue the development in new softfloat-fpu-ver4 branch Current version already implements ALL FPU instructions except FSIN, FCOS, FSINCOS, FPTAN, FPATAN, FYL2XP1, F2XM1, FYL2X I think it solved all currently reported bugs and feature requests related to FPU code. Please write your own test programms and test the implemntation in all ways you can. Thanks, Stanislav
205 lines
5.3 KiB
C++
Executable File
205 lines
5.3 KiB
C++
Executable File
/////////////////////////////////////////////////////////////////////////
|
|
// Copyright (C) 2004 MandrakeSoft S.A.
|
|
//
|
|
// MandrakeSoft S.A.
|
|
// 43, rue d'Aboukir
|
|
// 75002 Paris - France
|
|
// http://www.linux-mandrake.com/
|
|
// http://www.mandrakesoft.com/
|
|
//
|
|
// This library is free software; you can redistribute it and/or
|
|
// modify it under the terms of the GNU Lesser General Public
|
|
// License as published by the Free Software Foundation; either
|
|
// version 2 of the License, or (at your option) any later version.
|
|
//
|
|
// This library is distributed in the hope that it will be useful,
|
|
// but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
// Lesser General Public License for more details.
|
|
//
|
|
// You should have received a copy of the GNU Lesser General Public
|
|
// License along with this library; if not, write to the Free Software
|
|
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
/////////////////////////////////////////////////////////////////////////
|
|
|
|
|
|
#define NEED_CPU_REG_SHORTCUTS 1
|
|
#include "bochs.h"
|
|
#define LOG_THIS BX_CPU_THIS_PTR
|
|
|
|
|
|
#if BX_SUPPORT_FPU
|
|
|
|
#include "softfloatx80.h"
|
|
|
|
const floatx80 Const_QNaN = packFloatx80(0, floatx80_default_nan_exp, floatx80_default_nan_fraction);
|
|
const floatx80 Const_Z = packFloatx80(0, 0x0000, 0);
|
|
const floatx80 Const_1 = packFloatx80(0, 0x3fff, BX_CONST64(0x8000000000000000));
|
|
const floatx80 Const_L2T = packFloatx80(0, 0x4000, BX_CONST64(0xd49a784bcd1b8afe));
|
|
const floatx80 Const_L2E = packFloatx80(0, 0x3fff, BX_CONST64(0xb8aa3b295c17f0bc));
|
|
const floatx80 Const_PI = packFloatx80(0, 0x4000, BX_CONST64(0xc90fdaa22168c235));
|
|
const floatx80 Const_PI2 = packFloatx80(0, 0x3fff, BX_CONST64(0xc90fdaa22168c235));
|
|
const floatx80 Const_PI4 = packFloatx80(0, 0x3ffe, BX_CONST64(0xc90fdaa22168c235));
|
|
const floatx80 Const_LG2 = packFloatx80(0, 0x3ffd, BX_CONST64(0x9a209a84fbcff799));
|
|
const floatx80 Const_LN2 = packFloatx80(0, 0x3ffe, BX_CONST64(0xb17217f7d1cf79ac));
|
|
const floatx80 Const_INF = packFloatx80(0, 0x7fff, BX_CONST64(0x8000000000000000));
|
|
|
|
/* A fast way to find out whether x is one of RC_DOWN or RC_CHOP
|
|
(and not one of RC_RND or RC_UP).
|
|
*/
|
|
#define DOWN_OR_CHOP() (FPU_CONTROL_WORD & FPU_CW_RC & FPU_RC_DOWN)
|
|
|
|
BX_CPP_INLINE floatx80 FPU_round_const(const floatx80 &a, int adj)
|
|
{
|
|
floatx80 result = a;
|
|
result.fraction += adj;
|
|
return result;
|
|
}
|
|
|
|
#endif
|
|
|
|
void BX_CPU_C::FLDL2T(bxInstruction_c *i)
|
|
{
|
|
#if BX_SUPPORT_FPU
|
|
BX_CPU_THIS_PTR prepareFPU(i);
|
|
|
|
clear_C1();
|
|
|
|
if (! IS_TAG_EMPTY(-1))
|
|
{
|
|
BX_CPU_THIS_PTR FPU_stack_overflow();
|
|
return;
|
|
}
|
|
|
|
BX_CPU_THIS_PTR the_i387.FPU_push();
|
|
BX_WRITE_FPU_REGISTER_AND_TAG(FPU_round_const(Const_L2T,
|
|
(FPU_CONTROL_WORD == FPU_RC_UP) ? 1 : 0), FPU_Tag_Valid, 0);
|
|
#else
|
|
BX_INFO(("FLDL2T: required FPU, configure --enable-fpu"));
|
|
#endif
|
|
}
|
|
|
|
void BX_CPU_C::FLDL2E(bxInstruction_c *i)
|
|
{
|
|
#if BX_SUPPORT_FPU
|
|
BX_CPU_THIS_PTR prepareFPU(i);
|
|
|
|
clear_C1();
|
|
|
|
if (! IS_TAG_EMPTY(-1))
|
|
{
|
|
BX_CPU_THIS_PTR FPU_stack_overflow();
|
|
return;
|
|
}
|
|
|
|
BX_CPU_THIS_PTR the_i387.FPU_push();
|
|
BX_WRITE_FPU_REGISTER_AND_TAG(FPU_round_const(Const_L2E,
|
|
DOWN_OR_CHOP() ? -1 : 0), FPU_Tag_Valid, 0);
|
|
#else
|
|
BX_INFO(("FLDL2E: required FPU, configure --enable-fpu"));
|
|
#endif
|
|
}
|
|
|
|
void BX_CPU_C::FLDPI(bxInstruction_c *i)
|
|
{
|
|
#if BX_SUPPORT_FPU
|
|
BX_CPU_THIS_PTR prepareFPU(i);
|
|
|
|
clear_C1();
|
|
|
|
if (! IS_TAG_EMPTY(-1))
|
|
{
|
|
BX_CPU_THIS_PTR FPU_stack_overflow();
|
|
return;
|
|
}
|
|
|
|
BX_CPU_THIS_PTR the_i387.FPU_push();
|
|
BX_WRITE_FPU_REGISTER_AND_TAG(FPU_round_const(Const_PI,
|
|
DOWN_OR_CHOP() ? -1 : 0), FPU_Tag_Valid, 0);
|
|
#else
|
|
BX_INFO(("FLDPI: required FPU, configure --enable-fpu"));
|
|
#endif
|
|
}
|
|
|
|
void BX_CPU_C::FLDLG2(bxInstruction_c *i)
|
|
{
|
|
#if BX_SUPPORT_FPU
|
|
BX_CPU_THIS_PTR prepareFPU(i);
|
|
|
|
clear_C1();
|
|
|
|
if (! IS_TAG_EMPTY(-1))
|
|
{
|
|
BX_CPU_THIS_PTR FPU_stack_overflow();
|
|
return;
|
|
}
|
|
|
|
BX_CPU_THIS_PTR the_i387.FPU_push();
|
|
BX_WRITE_FPU_REGISTER_AND_TAG(FPU_round_const(Const_LG2,
|
|
DOWN_OR_CHOP() ? -1 : 0), FPU_Tag_Valid, 0);
|
|
#else
|
|
BX_INFO(("FLDLG2: required FPU, configure --enable-fpu"));
|
|
#endif
|
|
}
|
|
|
|
void BX_CPU_C::FLDLN2(bxInstruction_c *i)
|
|
{
|
|
#if BX_SUPPORT_FPU
|
|
BX_CPU_THIS_PTR prepareFPU(i);
|
|
|
|
clear_C1();
|
|
|
|
if (! IS_TAG_EMPTY(-1))
|
|
{
|
|
BX_CPU_THIS_PTR FPU_stack_overflow();
|
|
return;
|
|
}
|
|
|
|
BX_CPU_THIS_PTR the_i387.FPU_push();
|
|
BX_WRITE_FPU_REGISTER_AND_TAG(FPU_round_const(Const_LN2,
|
|
DOWN_OR_CHOP() ? -1 : 0), FPU_Tag_Valid, 0);
|
|
#else
|
|
BX_INFO(("FLDLN2: required FPU, configure --enable-fpu"));
|
|
#endif
|
|
}
|
|
|
|
void BX_CPU_C::FLD1(bxInstruction_c *i)
|
|
{
|
|
#if BX_SUPPORT_FPU
|
|
BX_CPU_THIS_PTR prepareFPU(i);
|
|
|
|
clear_C1();
|
|
|
|
if (! IS_TAG_EMPTY(-1))
|
|
{
|
|
BX_CPU_THIS_PTR FPU_stack_overflow();
|
|
return;
|
|
}
|
|
|
|
BX_CPU_THIS_PTR the_i387.FPU_push();
|
|
BX_WRITE_FPU_REGISTER_AND_TAG(Const_1, FPU_Tag_Valid, 0);
|
|
#else
|
|
BX_INFO(("FLD1: required FPU, configure --enable-fpu"));
|
|
#endif
|
|
}
|
|
|
|
void BX_CPU_C::FLDZ(bxInstruction_c *i)
|
|
{
|
|
#if BX_SUPPORT_FPU
|
|
BX_CPU_THIS_PTR prepareFPU(i);
|
|
|
|
clear_C1();
|
|
|
|
if (! IS_TAG_EMPTY(-1))
|
|
{
|
|
BX_CPU_THIS_PTR FPU_stack_overflow();
|
|
return;
|
|
}
|
|
|
|
BX_CPU_THIS_PTR the_i387.FPU_push();
|
|
BX_WRITE_FPU_REGISTER_AND_TAG(Const_Z, FPU_Tag_Zero, 0);
|
|
#else
|
|
BX_INFO(("FLDZ: required FPU, configure --enable-fpu"));
|
|
#endif
|
|
}
|