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 (";");
105 printf_unfiltered ("\n");
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");
153 i387_print_register (raw_regs
, regnum
)
157 unsigned char virtual_buffer
[MAX_REGISTER_VIRTUAL_SIZE
];
159 int j
, sign
, special
;
160 unsigned swd
, tags
, expon
, top
, norm
, ls
, ms
;
163 #if (FPREG_RAW_SIZE != 10)
164 #error "Bad FPREG_RAW_SIZE"
167 printf_filtered ("%8.8s: ", REGISTER_NAME (regnum
));
168 if (regnum
< FPDATA_REGNUM
)
170 val
= extract_unsigned_integer (raw_regs
+ REGISTER_BYTE (regnum
), 4);
171 if ( (regnum
< FPSTART_REGNUM
+ 3) ||
172 (regnum
== FPSTART_REGNUM
+ 6) )
173 /* Don't print the un-modifiable bytes. */
174 sprintf(string
, "0x%04x", val
& 0xffff);
176 sprintf(string
, "0x%08x", val
);
178 printf_unfiltered ("%10.10s", string
);
180 if (regnum
== FPCONTROL_REGNUM
)
181 print_387_control_bits (val
);
182 else if (regnum
== FPSTATUS_REGNUM
)
183 print_387_status_bits (val
);
187 /* An FPU stack register. */
188 if ( REGISTER_RAW_SIZE (regnum
) != FPREG_RAW_SIZE
)
189 error ("GDB bug: i387-tdep.c (i387_print_register): wrong size for FPU stack register");
191 /* Put the data in the buffer. No conversions are ever necessary. */
192 memcpy (virtual_buffer
, raw_regs
+ REGISTER_BYTE (regnum
),
195 swd
= extract_signed_integer (raw_regs
+ REGISTER_BYTE (FPSTATUS_REGNUM
),
197 top
= (swd
>> 11) & 7;
198 tags
= extract_signed_integer (raw_regs
+ REGISTER_BYTE (FPTAG_REGNUM
),
201 puts_unfiltered ("0x");
202 for (j
= 0; j
< FPREG_RAW_SIZE
; j
++)
203 printf_unfiltered ("%02x",
204 (unsigned char)raw_regs
[REGISTER_BYTE (regnum
)
205 + FPREG_RAW_SIZE
- 1 - j
]);
207 puts_unfiltered (" ");
209 switch ((tags
>> (((regnum
- FPDATA_REGNUM
+ top
) & 7) * 2)) & 3)
211 case 0: puts_unfiltered ("Valid "); break;
212 case 1: puts_unfiltered ("Zero "); break;
213 case 2: puts_unfiltered ("Spec ");
216 case 3: puts_unfiltered ("Empty "); break;
219 expon
= extract_unsigned_integer (raw_regs
+ REGISTER_BYTE (regnum
)
220 + FPREG_RAW_SIZE
- 2, 2);
221 sign
= expon
& 0x8000;
223 ms
= extract_unsigned_integer (raw_regs
+ REGISTER_BYTE (regnum
) + 4, 4);
224 ls
= extract_signed_integer (raw_regs
+ REGISTER_BYTE (regnum
), 4);
225 norm
= ms
& 0x80000000;
231 /* Denormal or Pseudodenormal. */
233 puts_unfiltered ("Pseudo ");
235 puts_unfiltered ("Denorm ");
240 puts_unfiltered ("Zero ");
243 else if ( expon
== 0x7fff )
245 /* Infinity, NaN or unsupported. */
246 if ( (ms
== 0x80000000) &&
249 puts_unfiltered ("Infty ");
253 if ( ms
& 0x40000000 )
254 puts_unfiltered ("QNaN ");
256 puts_unfiltered ("SNaN ");
260 puts_unfiltered ("Unsupp ");
265 /* Normal or unsupported. */
267 puts_unfiltered ("Normal ");
269 puts_unfiltered ("Unsupp ");
272 val_print (REGISTER_VIRTUAL_TYPE (regnum
), virtual_buffer
, 0, 0,
274 1, 0, Val_pretty_default
);
276 puts_filtered ("\n");
279 void i387_float_info(void)
281 char raw_regs
[REGISTER_BYTES
];
284 for (i
= FPSTART_REGNUM
; i
<= FPEND_REGNUM
; i
++)
285 read_relative_register_raw_bytes (i
, raw_regs
+ REGISTER_BYTE (i
));
287 for (i
= FPSTART_REGNUM
; i
<= FPEND_REGNUM
; i
++)
288 i387_print_register (raw_regs
, i
);
293 i387_extract_floating (PTR addr
, int len
, DOUBLEST
*dretptr
)
295 if (len
== TARGET_LONG_DOUBLE_BIT
/ 8)
297 if (HOST_LONG_DOUBLE_FORMAT
== TARGET_LONG_DOUBLE_FORMAT
)
301 memcpy (dretptr
, addr
, sizeof (retval
));
304 floatformat_to_doublest (TARGET_LONG_DOUBLE_FORMAT
, addr
, dretptr
);
313 i387_store_floating (PTR addr
, int len
, DOUBLEST val
)
315 if (len
== TARGET_LONG_DOUBLE_BIT
/ 8)
317 /* This `if' may be totally stupid. I just put it in here to be
318 absolutely sure I'm preserving the semantics of the code I'm
319 frobbing, while I try to maintain portability boundaries; I
320 don't actually know exactly what it's doing. -JimB, May 1999 */
321 if (HOST_LONG_DOUBLE_FORMAT
== TARGET_LONG_DOUBLE_FORMAT
)
322 memcpy (addr
, &val
, sizeof (val
));
324 floatformat_from_doublest (TARGET_LONG_DOUBLE_FORMAT
, &val
, addr
);