Blame libdecnumber/decExcept.c

Packit Service 706eca
/* Temporary library support for decimal floating point.
Packit Service 706eca
   Copyright (C) 2005-2018 Free Software Foundation, Inc.
Packit Service 706eca
Packit Service 706eca
   This file is part of GCC.
Packit Service 706eca
Packit Service 706eca
   GCC is free software; you can redistribute it and/or modify it
Packit Service 706eca
   under the terms of the GNU General Public License as published by
Packit Service 706eca
   the Free Software Foundation; either version 3, or (at your option)
Packit Service 706eca
   any later version.
Packit Service 706eca
Packit Service 706eca
   GCC is distributed in the hope that it will be useful, but WITHOUT
Packit Service 706eca
   ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
Packit Service 706eca
   or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
Packit Service 706eca
   License for more details.
Packit Service 706eca
Packit Service 706eca
Under Section 7 of GPL version 3, you are granted additional
Packit Service 706eca
permissions described in the GCC Runtime Library Exception, version
Packit Service 706eca
3.1, as published by the Free Software Foundation.
Packit Service 706eca
Packit Service 706eca
You should have received a copy of the GNU General Public License and
Packit Service 706eca
a copy of the GCC Runtime Library Exception along with this program;
Packit Service 706eca
see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
Packit Service 706eca
<http://www.gnu.org/licenses/>.  */
Packit Service 706eca
Packit Service 706eca
#include <fenv.h>
Packit Service 706eca
#include "dconfig.h"
Packit Service 706eca
#include "decContext.h"
Packit Service 706eca
#include "decExcept.h"
Packit Service 706eca
Packit Service 706eca
/* Internal, non-documented functions for testing libgcc functions.
Packit Service 706eca
   This support is not sufficient for real use.  */
Packit Service 706eca
Packit Service 706eca
static int __dfp_except_flags = 0;
Packit Service 706eca
Packit Service 706eca
/* Clear the dummy exception flags.  */
Packit Service 706eca
void
Packit Service 706eca
__dfp_clear_except (void)
Packit Service 706eca
{
Packit Service 706eca
  __dfp_except_flags = 0;
Packit Service 706eca
}
Packit Service 706eca
Packit Service 706eca
/* Return the dummy exception flags corresponding to the mask.  */
Packit Service 706eca
int
Packit Service 706eca
__dfp_test_except (int mask)
Packit Service 706eca
{
Packit Service 706eca
  return __dfp_except_flags & mask;
Packit Service 706eca
}
Packit Service 706eca
Packit Service 706eca
/* Set dummy exception flags.  */
Packit Service 706eca
void
Packit Service 706eca
__dfp_raise_except (int flags)
Packit Service 706eca
{
Packit Service 706eca
  __dfp_except_flags |= flags;
Packit Service 706eca
}