FPControl.cxx

Go to the documentation of this file.

/*
 * Copyright (C) 2002-2021 CERN for the benefit of the ATLAS collaboration.
 */
#include "CxxUtils/FPControl.h"
#include "CxxUtils/features.h"
 
 
namespace CxxUtils {
 
 
FPControl::FPControl()
{
  fegetenv (&m_env);
}
 
 
FPControl::~FPControl()
{
  if (m_masked) {
    feclearexcept (m_masked);
  }
  feupdateenv (&m_env);
}
 
 
void FPControl::holdExceptions()
{
  fenv_t tmp;
  feholdexcept (&tmp);
  m_masked |= FE_ALL_EXCEPT;
}
 
 
void FPControl::enable ([[maybe_unused]] Exc exc)
{
#if HAVE_FEENABLEEXCEPT
  int mask = excToMask (exc);
  feenableexcept (mask);
  m_masked &= ~mask;
#endif
}
 
 
void FPControl::disable ([[maybe_unused]] Exc exc)
{
#if HAVE_FEENABLEEXCEPT
  int mask = excToMask (exc);
  fedisableexcept (mask);
  m_masked |= mask;
#endif
}
 
 
int FPControl::excToMask (Exc exc)
{
  // A platform isn't required to define all of these...
#ifdef FE_ALL_EXCEPT
  if (CxxUtils::test (exc, Exc::all))
    return FE_ALL_EXCEPT;
#endif
  int mask = 0;
#ifdef FE_DIVBYZERO
  if (CxxUtils::test (exc, Exc::divbyzero)) mask |= FE_DIVBYZERO;
#endif
#ifdef FE_INEXACT
  if (CxxUtils::test (exc, Exc::inexact))   mask |= FE_INEXACT;
#endif
#ifdef FE_INVALID
  if (CxxUtils::test (exc, Exc::invalid))   mask |= FE_INVALID;
#endif
#ifdef FE_OVERFLOW
  if (CxxUtils::test (exc, Exc::overflow))  mask |= FE_OVERFLOW;
#endif
#ifdef FE_UNDERFLOW
  if (CxxUtils::test (exc, Exc::underflow)) mask |= FE_UNDERFLOW;
#endif
  return mask;
}
 
 
} // namespace CxxUtils