forked from OSchip/llvm-project
28 lines
717 B
C++
28 lines
717 B
C++
#ifndef FORTRAN_TEST_EVALUATE_FP_TESTING_H_
|
|
#define FORTRAN_TEST_EVALUATE_FP_TESTING_H_
|
|
|
|
#include "flang/Evaluate/common.h"
|
|
#include <fenv.h>
|
|
|
|
using Fortran::common::RoundingMode;
|
|
using Fortran::evaluate::RealFlags;
|
|
using Fortran::evaluate::Rounding;
|
|
|
|
class ScopedHostFloatingPointEnvironment {
|
|
public:
|
|
ScopedHostFloatingPointEnvironment(bool treatSubnormalOperandsAsZero = false,
|
|
bool flushSubnormalResultsToZero = false);
|
|
~ScopedHostFloatingPointEnvironment();
|
|
void ClearFlags() const;
|
|
static RealFlags CurrentFlags();
|
|
static void SetRounding(Rounding rounding);
|
|
|
|
private:
|
|
fenv_t originalFenv_;
|
|
#if __x86_64__
|
|
unsigned int originalMxcsr;
|
|
#endif
|
|
};
|
|
|
|
#endif // FORTRAN_TEST_EVALUATE_FP_TESTING_H_
|