1*38fd1498Szrj /*
2*38fd1498Szrj * Copyright (C) 2012-2018 Free Software Foundation, Inc.
3*38fd1498Szrj *
4*38fd1498Szrj * This file is free software; you can redistribute it and/or modify it
5*38fd1498Szrj * under the terms of the GNU General Public License as published by the
6*38fd1498Szrj * Free Software Foundation; either version 3, or (at your option) any
7*38fd1498Szrj * later version.
8*38fd1498Szrj *
9*38fd1498Szrj * This file is distributed in the hope that it will be useful, but
10*38fd1498Szrj * WITHOUT ANY WARRANTY; without even the implied warranty of
11*38fd1498Szrj * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12*38fd1498Szrj * General Public License for more details.
13*38fd1498Szrj *
14*38fd1498Szrj * Under Section 7 of GPL version 3, you are granted additional
15*38fd1498Szrj * permissions described in the GCC Runtime Library Exception, version
16*38fd1498Szrj * 3.1, as published by the Free Software Foundation.
17*38fd1498Szrj *
18*38fd1498Szrj * You should have received a copy of the GNU General Public License and
19*38fd1498Szrj * a copy of the GCC Runtime Library Exception along with this program;
20*38fd1498Szrj * see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
21*38fd1498Szrj * <http://www.gnu.org/licenses/>.
22*38fd1498Szrj */
23*38fd1498Szrj
24*38fd1498Szrj #ifndef _SOFT_FLOAT
25*38fd1498Szrj #include "sfp-machine.h"
26*38fd1498Szrj
27*38fd1498Szrj struct fenv
28*38fd1498Szrj {
29*38fd1498Szrj unsigned short int __control_word;
30*38fd1498Szrj unsigned short int __unused1;
31*38fd1498Szrj unsigned short int __status_word;
32*38fd1498Szrj unsigned short int __unused2;
33*38fd1498Szrj unsigned short int __tags;
34*38fd1498Szrj unsigned short int __unused3;
35*38fd1498Szrj unsigned int __eip;
36*38fd1498Szrj unsigned short int __cs_selector;
37*38fd1498Szrj unsigned int __opcode:11;
38*38fd1498Szrj unsigned int __unused4:5;
39*38fd1498Szrj unsigned int __data_offset;
40*38fd1498Szrj unsigned short int __data_selector;
41*38fd1498Szrj unsigned short int __unused5;
42*38fd1498Szrj };
43*38fd1498Szrj
44*38fd1498Szrj void
__sfp_handle_exceptions(int _fex)45*38fd1498Szrj __sfp_handle_exceptions (int _fex)
46*38fd1498Szrj {
47*38fd1498Szrj if (_fex & FP_EX_INVALID)
48*38fd1498Szrj {
49*38fd1498Szrj float f = 0.0f;
50*38fd1498Szrj #ifdef __SSE_MATH__
51*38fd1498Szrj volatile float r __attribute__ ((unused));
52*38fd1498Szrj asm volatile ("%vdivss\t{%0, %d0|%d0, %0}" : "+x" (f));
53*38fd1498Szrj r = f; /* Needed to trigger exception. */
54*38fd1498Szrj #else
55*38fd1498Szrj asm volatile ("fdiv\t{%y0, %0|%0, %y0}" : "+t" (f));
56*38fd1498Szrj /* No need for fwait, exception is triggered by emitted fstp. */
57*38fd1498Szrj #endif
58*38fd1498Szrj }
59*38fd1498Szrj if (_fex & FP_EX_DENORM)
60*38fd1498Szrj {
61*38fd1498Szrj struct fenv temp;
62*38fd1498Szrj asm volatile ("fnstenv\t%0" : "=m" (temp));
63*38fd1498Szrj temp.__status_word |= FP_EX_DENORM;
64*38fd1498Szrj asm volatile ("fldenv\t%0" : : "m" (temp));
65*38fd1498Szrj asm volatile ("fwait");
66*38fd1498Szrj }
67*38fd1498Szrj if (_fex & FP_EX_DIVZERO)
68*38fd1498Szrj {
69*38fd1498Szrj float f = 1.0f, g = 0.0f;
70*38fd1498Szrj #ifdef __SSE_MATH__
71*38fd1498Szrj volatile float r __attribute__ ((unused));
72*38fd1498Szrj asm volatile ("%vdivss\t{%1, %d0|%d0, %1}" : "+x" (f) : "xm" (g));
73*38fd1498Szrj r = f; /* Needed to trigger exception. */
74*38fd1498Szrj #else
75*38fd1498Szrj asm volatile ("fdivs\t%1" : "+t" (f) : "m" (g));
76*38fd1498Szrj /* No need for fwait, exception is triggered by emitted fstp. */
77*38fd1498Szrj #endif
78*38fd1498Szrj }
79*38fd1498Szrj if (_fex & FP_EX_OVERFLOW)
80*38fd1498Szrj {
81*38fd1498Szrj struct fenv temp;
82*38fd1498Szrj asm volatile ("fnstenv\t%0" : "=m" (temp));
83*38fd1498Szrj temp.__status_word |= FP_EX_OVERFLOW;
84*38fd1498Szrj asm volatile ("fldenv\t%0" : : "m" (temp));
85*38fd1498Szrj asm volatile ("fwait");
86*38fd1498Szrj }
87*38fd1498Szrj if (_fex & FP_EX_UNDERFLOW)
88*38fd1498Szrj {
89*38fd1498Szrj struct fenv temp;
90*38fd1498Szrj asm volatile ("fnstenv\t%0" : "=m" (temp));
91*38fd1498Szrj temp.__status_word |= FP_EX_UNDERFLOW;
92*38fd1498Szrj asm volatile ("fldenv\t%0" : : "m" (temp));
93*38fd1498Szrj asm volatile ("fwait");
94*38fd1498Szrj }
95*38fd1498Szrj if (_fex & FP_EX_INEXACT)
96*38fd1498Szrj {
97*38fd1498Szrj float f = 1.0f, g = 3.0f;
98*38fd1498Szrj #ifdef __SSE_MATH__
99*38fd1498Szrj volatile float r __attribute__ ((unused));
100*38fd1498Szrj asm volatile ("%vdivss\t{%1, %d0|%d0, %1}" : "+x" (f) : "xm" (g));
101*38fd1498Szrj r = f; /* Needed to trigger exception. */
102*38fd1498Szrj #else
103*38fd1498Szrj asm volatile ("fdivs\t%1" : "+t" (f) : "m" (g));
104*38fd1498Szrj /* No need for fwait, exception is triggered by emitted fstp. */
105*38fd1498Szrj #endif
106*38fd1498Szrj }
107*38fd1498Szrj };
108*38fd1498Szrj #endif
109