(ELF_MACHINE_START_ADDRESS): Define.
[kopensolaris-gnu/glibc.git] / sysdeps / hppa / fpu / feholdexcpt.c
1 /* Store current floating-point environment and clear exceptions.
2    Copyright (C) 2000 Free Software Foundation, Inc.
3    This file is part of the GNU C Library.
4    Contributed by David Huggins-Daines <dhd@debian.org>, 2000
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 <string.h>
23
24 int
25 feholdexcept (fenv_t *envp)
26 {
27   fenv_t clear;
28
29   /* Store the environment.  */
30   {
31     fenv_t * _regs = envp;
32     __asm__ (
33              "fstd %%fr0,0(%2)\n"
34              "fstd,ma %%fr1,8(%2)\n"
35              "fstd,ma %%fr2,8(%2)\n"
36              "fstd %%fr3,0(%2)\n"
37              : "=m" (*_regs), "=r" (_regs) : "1" (_regs));
38     memcpy (&clear, envp, sizeof (clear));
39   }
40
41   /* Now clear all exceptions.  */
42   clear.__status_word &= ~(FE_ALL_EXCEPT << 27);
43   memset (clear.__exception, 0, sizeof (clear.__exception));
44
45   /* And set all exceptions to non-stop.  */
46   clear.__status_word &= ~FE_ALL_EXCEPT;
47
48   /* Load the new environment. */
49   {
50     fenv_t * _regs = &clear + 1;
51     __asm__ (
52              "fldd,mb -8(%2),%%fr3\n"
53              "fldd,mb -8(%2),%%fr2\n"
54              "fldd,mb -8(%2),%%fr1\n"
55              "fldd -8(%2),%%fr0\n"
56              : "=m" (*_regs), "=r" (_regs) : "1" (_regs));
57   }
58
59   return 0;
60 }