1 /* Intel 387 floating point stuff.
2 Copyright (C) 1988, 1989, 1991, 1998 Free Software Foundation, Inc.
4 This file is part of GDB.
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2 of the License, or
9 (at your option) any later version.
11 This program 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
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA. */
27 #include "floatformat.h"
29 void i387_to_double
PARAMS ((char *, char *));
30 void double_to_i387
PARAMS ((char *, char *));
32 static void print_387_control_bits
PARAMS ((unsigned int control
));
33 static void print_387_status_bits
PARAMS ((unsigned int status
));
35 /* FIXME: Eliminate these routines when we have the time to change all
39 i387_to_double (from
, to
)
43 floatformat_to_double (&floatformat_i387_ext
, from
, (double *) to
);
47 double_to_i387 (from
, to
)
51 floatformat_from_double (&floatformat_i387_ext
, (double *) from
, to
);
55 print_387_control_bits (control
)
58 switch ((control
>> 8) & 3)
61 puts_unfiltered (" 24 bit; ");
64 puts_unfiltered (" (bad); ");
67 puts_unfiltered (" 53 bit; ");
70 puts_unfiltered (" 64 bit; ");
73 switch ((control
>> 10) & 3)
76 puts_unfiltered ("NEAR; ");
79 puts_unfiltered ("DOWN; ");
82 puts_unfiltered ("UP; ");
85 puts_unfiltered ("CHOP; ");
90 puts_unfiltered ("mask");
92 puts_unfiltered (" INVAL");
94 puts_unfiltered (" DENOR");
96 puts_unfiltered (" DIVZ");
98 puts_unfiltered (" OVERF");
100 puts_unfiltered (" UNDER");
101 if (control
& 0x0020)
102 puts_unfiltered (" LOS");
103 puts_unfiltered (";");
106 if (control
& 0xe080)
107 warning ("\nreserved bits on: %s",
108 local_hex_string (control
& 0xe080));
112 print_387_control_word (control
)
113 unsigned int control
;
115 printf_filtered ("control %s:", local_hex_string(control
& 0xffff));
116 print_387_control_bits (control
);
117 puts_unfiltered ("\n");
121 print_387_status_bits (status
)
124 printf_unfiltered (" flags %d%d%d%d; ",
125 (status
& 0x4000) != 0,
126 (status
& 0x0400) != 0,
127 (status
& 0x0200) != 0,
128 (status
& 0x0100) != 0);
129 printf_unfiltered ("top %d; ", (status
>> 11) & 7);
132 puts_unfiltered ("excep");
133 if (status
& 0x0001) puts_unfiltered (" INVAL");
134 if (status
& 0x0002) puts_unfiltered (" DENOR");
135 if (status
& 0x0004) puts_unfiltered (" DIVZ");
136 if (status
& 0x0008) puts_unfiltered (" OVERF");
137 if (status
& 0x0010) puts_unfiltered (" UNDER");
138 if (status
& 0x0020) puts_unfiltered (" LOS");
139 if (status
& 0x0040) puts_unfiltered (" STACK");
144 print_387_status_word (status
)
147 printf_filtered ("status %s:", local_hex_string (status
& 0xffff));
148 print_387_status_bits (status
);
149 puts_unfiltered ("\n");
154 i387_extract_floating (PTR addr
, int len
, DOUBLEST
*dretptr
)
156 if (len
== TARGET_LONG_DOUBLE_BIT
/ 8)
158 if (HOST_LONG_DOUBLE_FORMAT
== TARGET_LONG_DOUBLE_FORMAT
)
162 memcpy (dretptr
, addr
, sizeof (retval
));
165 floatformat_to_doublest (TARGET_LONG_DOUBLE_FORMAT
, addr
, dretptr
);
174 i387_store_floating (PTR addr
, int len
, DOUBLEST val
)
176 if (len
== TARGET_LONG_DOUBLE_BIT
/ 8)
178 /* This `if' may be totally stupid. I just put it in here to be
179 absolutely sure I'm preserving the semantics of the code I'm
180 frobbing, while I try to maintain portability boundaries; I
181 don't actually know exactly what it's doing. -JimB, May 1999 */
182 if (HOST_LONG_DOUBLE_FORMAT
== TARGET_LONG_DOUBLE_FORMAT
)
183 memcpy (addr
, &val
, sizeof (val
));
185 floatformat_from_doublest (TARGET_LONG_DOUBLE_FORMAT
, &val
, addr
);