OLD | NEW |
| 1 /* Set FPU mask. |
| 2 Copyright 2005 Free Software Foundation, Inc. |
| 3 Contributed by Francois-Xavier Coudert <coudert@clipper.ens.fr> |
| 4 |
| 5 This file is part of the GNU Fortran runtime library (libgfortran). |
| 6 |
| 7 Libgfortran is free software; you can redistribute it and/or |
| 8 modify it under the terms of the GNU General Public |
| 9 License as published by the Free Software Foundation; either |
| 10 version 3 of the License, or (at your option) any later version. |
| 11 |
| 12 Libgfortran is distributed in the hope that it will be useful, |
| 13 but WITHOUT ANY WARRANTY; without even the implied warranty of |
| 14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| 15 GNU General Public License for more details. |
| 16 |
| 17 Under Section 7 of GPL version 3, you are granted additional |
| 18 permissions described in the GCC Runtime Library Exception, version |
| 19 3.1, as published by the Free Software Foundation. |
| 20 |
| 21 You should have received a copy of the GNU General Public License and |
| 22 a copy of the GCC Runtime Library Exception along with this program; |
| 23 see the files COPYING3 and COPYING.RUNTIME respectively. If not, see |
| 24 <http://www.gnu.org/licenses/>. */ |
| 25 |
1 #include "libgfortran.h" | 26 #include "libgfortran.h" |
2 | 27 |
3 /* We include the platform-dependent code. */ | 28 /* We include the platform-dependent code. */ |
4 #include "fpu-target.h" | 29 #include "fpu-target.h" |
5 | 30 |
6 /* Function called by the front-end to tell us | 31 /* Function called by the front-end to tell us |
7 when a FPE should be raised. */ | 32 when a FPE should be raised. */ |
8 extern void set_fpe (int); | 33 extern void set_fpe (int); |
9 export_proto(set_fpe); | 34 export_proto(set_fpe); |
10 | 35 |
11 void | 36 void |
12 set_fpe (int exceptions) | 37 set_fpe (int exceptions) |
13 { | 38 { |
14 options.fpe = exceptions; | 39 options.fpe = exceptions; |
15 set_fpu (); | 40 set_fpu (); |
16 } | 41 } |
OLD | NEW |