]>
git.ipfire.org Git - thirdparty/glibc.git/blob - sysdeps/ia64/fpu/fraiseexcpt.c
b8af0a580b1a759d429bfb761f7c35cfd2f1eeda
1 /* Raise given exceptions.
2 Copyright (C) 1997-2019 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
4 Contributed by Jes Sorensen <Jes.Sorensen@cern.ch>, 2000.
6 The GNU C Library is free software; you can redistribute it and/or
7 modify it under the terms of the GNU Lesser General Public
8 License as published by the Free Software Foundation; either
9 version 2.1 of the License, or (at your option) any later version.
11 The GNU C Library is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 Lesser General Public License for more details.
16 You should have received a copy of the GNU Lesser General Public
17 License along with the GNU C Library; if not, see
18 <https://www.gnu.org/licenses/>. */
27 __feraiseexcept (int excepts
)
32 /* Raise exceptions represented by EXPECTS. But we must raise only
33 one signal at a time. It is important the if the overflow/underflow
34 exception and the inexact exception are given at the same time,
35 the overflow/underflow exception precedes the inexact exception. */
37 /* We do these bits in assembly to be certain GCC doesn't optimize
38 away something important. */
40 /* First: invalid exception. */
41 if (FE_INVALID
& excepts
)
43 /* One example of an invalid operation is 0 * Infinity. */
45 __asm__
__volatile__ ("frcpa.s0 %0,p1=f0,f0" : "=f" (tmp
) : : "p1" );
48 /* Next: division by zero. */
49 if (FE_DIVBYZERO
& excepts
)
50 __asm__
__volatile__ ("frcpa.s0 %0,p1=f1,f0" : "=f" (tmp
) : : "p1" );
53 if (FE_OVERFLOW
& excepts
)
57 __asm__
__volatile__ ("fadd.d.s0 %0=%1,%1" : "=f" (dummy
) : "0" (dummy
));
60 /* Next: underflow. */
61 if (FE_UNDERFLOW
& excepts
)
65 __asm__
__volatile__ ("fnma.d.s0 %0=%1,%1,f0" : "=f" (tmp
) : "f" (dummy
));
69 if (FE_INEXACT
& excepts
)
72 __asm__
__volatile__ ("fsub.d.s0 %0=%1,f1" : "=f" (dummy
) : "0" (dummy
));
78 libm_hidden_def (__feraiseexcept
)
79 weak_alias (__feraiseexcept
, feraiseexcept
)
80 libm_hidden_weak (feraiseexcept
)