|
|
#include <ieeefp.h>
|
#include <ieeefp.h>
|
|
|
|
|
fp_rnd
|
fp_rnd
|
_DEFUN_VOID(fpgetround)
|
_DEFUN_VOID(fpgetround)
|
{
|
{
|
char *out;
|
char *out;
|
ieee_flags("get", "direction","", &out);
|
ieee_flags("get", "direction","", &out);
|
if (strcmp(out,"nearest") == 0) return FP_RN;
|
if (strcmp(out,"nearest") == 0) return FP_RN;
|
if (strcmp(out,"negative") == 0) return FP_RM;
|
if (strcmp(out,"negative") == 0) return FP_RM;
|
if (strcmp(out,"positive") == 0) return FP_RP;
|
if (strcmp(out,"positive") == 0) return FP_RP;
|
if (strcmp(out,"tozero") == 0) return FP_RZ;
|
if (strcmp(out,"tozero") == 0) return FP_RZ;
|
abort();
|
abort();
|
|
|
}
|
}
|
|
|
fp_rnd
|
fp_rnd
|
_DEFUN(fpsetround,(new),
|
_DEFUN(fpsetround,(new),
|
fp_rnd new)
|
fp_rnd new)
|
{
|
{
|
fp_rnd old = fpgetround();
|
fp_rnd old = fpgetround();
|
char *dummy;
|
char *dummy;
|
|
|
switch (new)
|
switch (new)
|
{
|
{
|
case FP_RN:
|
case FP_RN:
|
ieee_flags("set", "direction", "nearest", &dummy);
|
ieee_flags("set", "direction", "nearest", &dummy);
|
break;
|
break;
|
case FP_RM:
|
case FP_RM:
|
ieee_flags("set", "direction", "negative", &dummy);
|
ieee_flags("set", "direction", "negative", &dummy);
|
break;
|
break;
|
case FP_RP:
|
case FP_RP:
|
ieee_flags("set", "direction", "positive", &dummy);
|
ieee_flags("set", "direction", "positive", &dummy);
|
break;
|
break;
|
case FP_RZ:
|
case FP_RZ:
|
ieee_flags("set", "direction", "tozero", &dummy);
|
ieee_flags("set", "direction", "tozero", &dummy);
|
break;
|
break;
|
default:
|
default:
|
break;
|
break;
|
}
|
}
|
return old;
|
return old;
|
}
|
}
|
|
|
|
|
fp_except
|
fp_except
|
_DEFUN_VOID(fpgetmask)
|
_DEFUN_VOID(fpgetmask)
|
{
|
{
|
char *out;
|
char *out;
|
int r = 0;
|
int r = 0;
|
|
|
int i = ieee_flags("get","exception","",&out);
|
int i = ieee_flags("get","exception","",&out);
|
if (i & 1) r |= FP_X_IMP;
|
if (i & 1) r |= FP_X_IMP;
|
if (i & 2) r |= FP_X_DX;
|
if (i & 2) r |= FP_X_DX;
|
if (i & 4) r |= FP_X_UFL;
|
if (i & 4) r |= FP_X_UFL;
|
if (i & 8) r |= FP_X_OFL;
|
if (i & 8) r |= FP_X_OFL;
|
if (i & 16) r |= FP_X_INV;
|
if (i & 16) r |= FP_X_INV;
|
return r;
|
return r;
|
|
|
}
|
}
|
|
|
fp_except
|
fp_except
|
_DEFUN(fpsetmask,(mask),
|
_DEFUN(fpsetmask,(mask),
|
fp_except mask)
|
fp_except mask)
|
{
|
{
|
fp_except old = fpgetmask();
|
fp_except old = fpgetmask();
|
|
|
char *out;
|
char *out;
|
ieee_flags("clear","exception", "all", &out);
|
ieee_flags("clear","exception", "all", &out);
|
|
|
|
|
if (mask & FP_X_IMP)
|
if (mask & FP_X_IMP)
|
ieee_flags("set","exception","inexact", &out);
|
ieee_flags("set","exception","inexact", &out);
|
if (mask & FP_X_DX)
|
if (mask & FP_X_DX)
|
ieee_flags("set","exception","division", &out);
|
ieee_flags("set","exception","division", &out);
|
if (mask & FP_X_UFL)
|
if (mask & FP_X_UFL)
|
ieee_flags("set","exception","underflow", &out);
|
ieee_flags("set","exception","underflow", &out);
|
if (mask & FP_X_OFL)
|
if (mask & FP_X_OFL)
|
ieee_flags("set","exception","overflow", &out);
|
ieee_flags("set","exception","overflow", &out);
|
if (mask & FP_X_INV)
|
if (mask & FP_X_INV)
|
ieee_flags("set","exception","invalid", &out);
|
ieee_flags("set","exception","invalid", &out);
|
|
|
return old;
|
return old;
|
|
|
}
|
}
|
|
|
fp_except
|
fp_except
|
_DEFUN(fpsetsticky,(mask),
|
_DEFUN(fpsetsticky,(mask),
|
fp_except mask)
|
fp_except mask)
|
{
|
{
|
return fpsetmask(mask);
|
return fpsetmask(mask);
|
}
|
}
|
|
|
fp_except
|
fp_except
|
_DEFUN_VOID(fpgetsticky)
|
_DEFUN_VOID(fpgetsticky)
|
{
|
{
|
return fpgetmask();
|
return fpgetmask();
|
}
|
}
|
|
|
int
|
int
|
_DEFUN(fpsetroundtoi,(rdi_mode),
|
_DEFUN(fpsetroundtoi,(rdi_mode),
|
fp_rdi rdi_mode)
|
fp_rdi rdi_mode)
|
{
|
{
|
|
|
return 0;
|
return 0;
|
|
|
}
|
}
|
|
|
int
|
int
|
_DEFUN_VOID(fpgetroundtoi)
|
_DEFUN_VOID(fpgetroundtoi)
|
{
|
{
|
|
|
return 0;
|
return 0;
|
|
|
}
|
}
|
|
|
