Change default version to GLIBC_2.2.
[kopensolaris-gnu/glibc.git] / sysdeps / m68k / fpu / fraiseexcpt.c
1 /* Raise given exceptions.
2    Copyright (C) 1997, 1999, 2000 Free Software Foundation, Inc.
3    This file is part of the GNU C Library.
4    Contributed by Andreas Schwab <schwab@issan.informatik.uni-dortmund.de>
5
6    The GNU C Library is free software; you can redistribute it and/or
7    modify it under the terms of the GNU Library General Public License as
8    published by the Free Software Foundation; either version 2 of the
9    License, or (at your option) any later version.
10
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    Library General Public License for more details.
15
16    You should have received a copy of the GNU Library General Public
17    License along with the GNU C Library; see the file COPYING.LIB.  If not,
18    write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19    Boston, MA 02111-1307, USA.  */
20
21 #include <fenv.h>
22 #include <math.h>
23
24 int
25 __feraiseexcept (int excepts)
26 {
27   /* Raise exceptions represented by EXCEPTS.  But we must raise only one
28      signal at a time.  It is important that if the overflow/underflow
29      exception and the divide by zero exception are given at the same
30      time, the overflow/underflow exception follows the divide by zero
31      exception.  */
32
33   /* First: invalid exception.  */
34   if (excepts & FE_INVALID)
35     {
36       /* One example of a invalid operation is 0 * Infinity.  */
37       double d = HUGE_VAL;
38       __asm__ __volatile__ ("fmul%.s %#0r0,%0; fnop" : "=f" (d) : "0" (d));
39     }
40
41   /* Next: division by zero.  */
42   if (excepts & FE_DIVBYZERO)
43     {
44       double d = 1.0;
45       __asm__ __volatile__ ("fdiv%.s %#0r0,%0; fnop" : "=f" (d) : "0" (d));
46     }
47
48   /* Next: overflow.  */
49   if (excepts & FE_OVERFLOW)
50     {
51       long double d = LDBL_MAX;
52
53       __asm__ __volatile__ ("fmul%.x %0,%0; fnop" : "=f" (d) : "0" (d));
54     }
55
56   /* Next: underflow.  */
57   if (excepts & FE_UNDERFLOW)
58     {
59       long double d = -LDBL_MAX;
60
61       __asm__ __volatile__ ("fetox%.x %0; fnop" : "=f" (d) : "0" (d));
62     }
63
64   /* Last: inexact.  */
65   if (excepts & FE_INEXACT)
66     {
67       long double d = 1.0;
68       __asm__ __volatile__ ("fdiv%.s %#0r3,%0; fnop" : "=f" (d) : "0" (d));
69     }
70
71   /* Success.  */
72   return 0;
73 }
74 strong_alias (__feraiseexcept, __old_feraiseexcept)
75 symbol_version (__old_feraiseexcept, feraiseexcept, GLIBC_2.1);
76 default_symbol_version (__feraiseexcept, feraiseexcept, GLIBC_2.2);