mirror of
https://github.com/reactos/reactos.git
synced 2024-11-01 04:11:30 +00:00
123 lines
2.7 KiB
C
123 lines
2.7 KiB
C
#pragma once
|
|
|
|
C_ASSERT(sizeof(FIX) == sizeof(LONG));
|
|
#define FIX2LONG(x) (((x) + 8) >> 4)
|
|
#define LONG2FIX(x) ((x) << 4)
|
|
|
|
#if defined(_M_IX86)
|
|
|
|
FORCEINLINE
|
|
BOOL
|
|
_FLOATOBJ_Equal(FLOATOBJ *pf1, FLOATOBJ *pf2)
|
|
{
|
|
EFLOAT_S *pef1 = (EFLOAT_S*)pf1;
|
|
EFLOAT_S *pef2 = (EFLOAT_S*)pf2;
|
|
return (pef1->lMant == pef2->lMant && pef1->lExp == pef2->lExp);
|
|
}
|
|
#define FLOATOBJ_Equal _FLOATOBJ_Equal
|
|
|
|
FORCEINLINE
|
|
LONG
|
|
_FLOATOBJ_GetLong(FLOATOBJ *pf)
|
|
{
|
|
EFLOAT_S *pef = (EFLOAT_S*)pf;
|
|
return pef->lMant >> (32 - pef->lExp);
|
|
}
|
|
#define FLOATOBJ_GetLong _FLOATOBJ_GetLong
|
|
|
|
/*!
|
|
* \brief Converts a FLOATOBJ into a LONG by truncating the value to integer
|
|
*
|
|
* \param pf - Pointer to a FLOATOBJ containing the value to convert
|
|
*
|
|
* \param pl - Pointer to a variable that receives the result
|
|
*
|
|
* \return TRUE if the function succeeded, FALSE if the result would overflow
|
|
* a LONG.
|
|
*/
|
|
FORCEINLINE
|
|
BOOL
|
|
FASTCALL
|
|
FLOATOBJ_bConvertToLong(FLOATOBJ *pf, PLONG pl)
|
|
{
|
|
EFLOAT_S *pef = (EFLOAT_S*)pf;
|
|
LONG lShift = 32 - pef->lExp;
|
|
if (lShift < 0)
|
|
{
|
|
return FALSE;
|
|
}
|
|
*pl = pef->lMant >> lShift;
|
|
return TRUE;
|
|
}
|
|
|
|
FORCEINLINE
|
|
LONG
|
|
FLOATOBJ_GetFix(FLOATOBJ *pf)
|
|
{
|
|
EFLOAT_S *pef = (EFLOAT_S*)pf;
|
|
LONG Shift = (28 - pef->lExp);
|
|
return (Shift >= 0 ? pef->lMant >> Shift : pef->lMant << -Shift);
|
|
}
|
|
|
|
FORCEINLINE
|
|
BOOL
|
|
FLOATOBJ_IsLong(FLOATOBJ *pf)
|
|
{
|
|
EFLOAT_S *pef = (EFLOAT_S*)pf;
|
|
ULONG ulShift = pef->lExp;
|
|
if (ulShift < 32)
|
|
return ((pef->lMant << ulShift) == 0);
|
|
else
|
|
return (ulShift == 32);
|
|
}
|
|
|
|
FORCEINLINE
|
|
BOOL
|
|
FLOATOBJ_Equal0(FLOATOBJ *pf)
|
|
{
|
|
EFLOAT_S *pef = (EFLOAT_S*)pf;
|
|
return (pef->lMant == 0 && pef->lExp == 0);
|
|
}
|
|
|
|
FORCEINLINE
|
|
BOOL
|
|
FLOATOBJ_Equal1(FLOATOBJ *pf)
|
|
{
|
|
EFLOAT_S *pef = (EFLOAT_S*)pf;
|
|
return (pef->lMant == 0x40000000 && pef->lExp == 2);
|
|
}
|
|
|
|
extern const FLOATOBJ gef0;
|
|
extern const FLOATOBJ gef1;
|
|
extern const FLOATOBJ gef16;
|
|
|
|
#define FLOATOBJ_0 {0x00000000, 0x00000000}
|
|
#define FLOATOBJ_1 {0x40000000, 0x00000002}
|
|
#define FLOATOBJ_16 {0x40000000, 0x00000006}
|
|
#define FLOATOBJ_1_16 {0x40000000, 0xfffffffe}
|
|
|
|
#define FLOATOBJ_Set0(fo) do { (fo)->ul1 = 0; (fo)->ul2 = 0; } while (0)
|
|
#define FLOATOBJ_Set1(fo) do { (fo)->ul1 = 0x40000000; (fo)->ul2 = 2; } while (0)
|
|
|
|
#else
|
|
|
|
#define FLOATOBJ_bConvertToLong(pf, pl) (*pl = (LONG)*pf, TRUE)
|
|
#define FLOATOBJ_IsLong(pf) ((FLOAT)((LONG)*(pf)) == *(pf))
|
|
#define FLOATOBJ_Equal0(pf) (*(pf) == 0.)
|
|
#define FLOATOBJ_Equal1(pf) (*(pf) == 1.)
|
|
#define FLOATOBJ_GetFix(pf) ((LONG)(*(pf) * 16.))
|
|
|
|
#define FLOATOBJ_0 0.
|
|
#define FLOATOBJ_1 1.
|
|
#define FLOATOBJ_16 16.
|
|
#define FLOATOBJ_1_16 (1./16.)
|
|
|
|
static const FLOATOBJ gef0 = 0.;
|
|
static const FLOATOBJ gef1 = 1.;
|
|
static const FLOATOBJ gef16 = 16.;
|
|
|
|
#define FLOATOBJ_Set0(fo) *(fo) = 0;
|
|
#define FLOATOBJ_Set1(fo) *(fo) = 1;
|
|
|
|
#endif
|