1 // SPDX-License-Identifier: GPL-2.0 1
2 /*--------------------------------------------
3 | fpu_etc.c
4 |
5 | Implement a few FPU instructions.
6 |
7 | Copyright (C) 1992,1993,1994,1997
8 | W. Metzenthen, 22 Par
9 | Australia. E-mail
10 |
11 |
12 +--------------------------------------------
13
14 #include "fpu_system.h"
15 #include "exception.h"
16 #include "fpu_emu.h"
17 #include "status_w.h"
18 #include "reg_constant.h"
19
20 static void fchs(FPU_REG *st0_ptr, u_char st0t
21 {
22 if (st0tag ^ TAG_Empty) {
23 signbyte(st0_ptr) ^= SIGN_NEG;
24 clear_C1();
25 } else
26 FPU_stack_underflow();
27 }
28
29 static void fabs(FPU_REG *st0_ptr, u_char st0t
30 {
31 if (st0tag ^ TAG_Empty) {
32 setpositive(st0_ptr);
33 clear_C1();
34 } else
35 FPU_stack_underflow();
36 }
37
38 static void ftst_(FPU_REG *st0_ptr, u_char st0
39 {
40 switch (st0tag) {
41 case TAG_Zero:
42 setcc(SW_C3);
43 break;
44 case TAG_Valid:
45 if (getsign(st0_ptr) == SIGN_P
46 setcc(0);
47 else
48 setcc(SW_C0);
49 break;
50 case TAG_Special:
51 switch (FPU_Special(st0_ptr))
52 case TW_Denormal:
53 if (getsign(st0_ptr) =
54 setcc(0);
55 else
56 setcc(SW_C0);
57 if (denormal_operand()
58 #ifdef PECULIAR_486
59 /* This is wei
60 if (getsign(st
61 setcc(
62 #endif /* PECULIAR_486 */
63 return;
64 }
65 break;
66 case TW_NaN:
67 setcc(SW_C0 | SW_C2 |
68 EXCEPTION(EX_Invalid);
69 break;
70 case TW_Infinity:
71 if (getsign(st0_ptr) =
72 setcc(0);
73 else
74 setcc(SW_C0);
75 break;
76 default:
77 setcc(SW_C0 | SW_C2 |
78 EXCEPTION(EX_INTERNAL
79 break;
80 }
81 break;
82 case TAG_Empty:
83 setcc(SW_C0 | SW_C2 | SW_C3);
84 EXCEPTION(EX_StackUnder);
85 break;
86 }
87 }
88
89 static void fxam(FPU_REG *st0_ptr, u_char st0t
90 {
91 int c = 0;
92 switch (st0tag) {
93 case TAG_Empty:
94 c = SW_C3 | SW_C0;
95 break;
96 case TAG_Zero:
97 c = SW_C3;
98 break;
99 case TAG_Valid:
100 c = SW_C2;
101 break;
102 case TAG_Special:
103 switch (FPU_Special(st0_ptr))
104 case TW_Denormal:
105 c = SW_C2 | SW_C3;
106 break;
107 case TW_NaN:
108 /* We also use NaN for
109 if ((st0_ptr->sigh & 0
110 && (exponent(st0_p
111 c = SW_C0;
112 break;
113 case TW_Infinity:
114 c = SW_C2 | SW_C0;
115 break;
116 }
117 }
118 if (getsign(st0_ptr) == SIGN_NEG)
119 c |= SW_C1;
120 setcc(c);
121 }
122
123 static void FPU_ST0_illegal(FPU_REG *st0_ptr,
124 {
125 FPU_illegal();
126 }
127
128 static FUNC_ST0 const fp_etc_table[] = {
129 fchs, fabs, FPU_ST0_illegal, FPU_ST0_i
130 ftst_, fxam, FPU_ST0_illegal, FPU_ST0_
131 };
132
133 void FPU_etc(void)
134 {
135 (fp_etc_table[FPU_rm]) (&st(0), FPU_ge
136 }
137
Linux® is a registered trademark of Linus Torvalds in the United States and other countries.
TOMOYO® is a registered trademark of NTT DATA CORPORATION.