Commit | Line | Data |
---|---|---|
c906108c SS |
1 | /* Intel 387 floating point stuff. |
2 | Copyright (C) 1988, 1989, 1991, 1998 Free Software Foundation, Inc. | |
3 | ||
4 | This file is part of GDB. | |
5 | ||
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. | |
10 | ||
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. | |
15 | ||
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, Boston, MA 02111-1307, USA. */ | |
19 | ||
20 | #include "defs.h" | |
21 | #include "frame.h" | |
22 | #include "inferior.h" | |
23 | #include "language.h" | |
24 | #include "gdbcore.h" | |
25 | #include "floatformat.h" | |
26 | ||
27 | void i387_to_double PARAMS ((char *, char *)); | |
28 | ||
29 | void double_to_i387 PARAMS ((char *, char *)); | |
30 | ||
31 | /* FIXME: Eliminate these routines when we have the time to change all | |
32 | the callers. */ | |
33 | ||
34 | void | |
35 | i387_to_double (from, to) | |
36 | char *from; | |
37 | char *to; | |
38 | { | |
39 | floatformat_to_double (&floatformat_i387_ext, from, (double *)to); | |
40 | } | |
41 | ||
42 | void | |
43 | double_to_i387 (from, to) | |
44 | char *from; | |
45 | char *to; | |
46 | { | |
47 | floatformat_from_double (&floatformat_i387_ext, (double *)from, to); | |
48 | } | |
49 | ||
50 | void | |
51 | print_387_control_word (control) | |
52 | unsigned int control; | |
53 | { | |
54 | printf_unfiltered ("control %s: ", local_hex_string(control)); | |
55 | printf_unfiltered ("compute to "); | |
56 | switch ((control >> 8) & 3) | |
57 | { | |
58 | case 0: printf_unfiltered ("24 bits; "); break; | |
59 | case 1: printf_unfiltered ("(bad); "); break; | |
60 | case 2: printf_unfiltered ("53 bits; "); break; | |
61 | case 3: printf_unfiltered ("64 bits; "); break; | |
62 | } | |
63 | printf_unfiltered ("round "); | |
64 | switch ((control >> 10) & 3) | |
65 | { | |
66 | case 0: printf_unfiltered ("NEAREST; "); break; | |
67 | case 1: printf_unfiltered ("DOWN; "); break; | |
68 | case 2: printf_unfiltered ("UP; "); break; | |
69 | case 3: printf_unfiltered ("CHOP; "); break; | |
70 | } | |
71 | if (control & 0x3f) | |
72 | { | |
73 | printf_unfiltered ("mask:"); | |
74 | if (control & 0x0001) printf_unfiltered (" INVALID"); | |
75 | if (control & 0x0002) printf_unfiltered (" DENORM"); | |
76 | if (control & 0x0004) printf_unfiltered (" DIVZ"); | |
77 | if (control & 0x0008) printf_unfiltered (" OVERF"); | |
78 | if (control & 0x0010) printf_unfiltered (" UNDERF"); | |
79 | if (control & 0x0020) printf_unfiltered (" LOS"); | |
80 | printf_unfiltered (";"); | |
81 | } | |
82 | printf_unfiltered ("\n"); | |
83 | if (control & 0xe080) warning ("reserved bits on: %s\n", | |
84 | local_hex_string(control & 0xe080)); | |
85 | } | |
86 | ||
87 | void | |
88 | print_387_status_word (status) | |
89 | unsigned int status; | |
90 | { | |
91 | printf_unfiltered ("status %s: ", local_hex_string (status)); | |
92 | if (status & 0xff) | |
93 | { | |
94 | printf_unfiltered ("exceptions:"); | |
95 | if (status & 0x0001) printf_unfiltered (" INVALID"); | |
96 | if (status & 0x0002) printf_unfiltered (" DENORM"); | |
97 | if (status & 0x0004) printf_unfiltered (" DIVZ"); | |
98 | if (status & 0x0008) printf_unfiltered (" OVERF"); | |
99 | if (status & 0x0010) printf_unfiltered (" UNDERF"); | |
100 | if (status & 0x0020) printf_unfiltered (" LOS"); | |
101 | if (status & 0x0040) printf_unfiltered (" FPSTACK"); | |
102 | printf_unfiltered ("; "); | |
103 | } | |
104 | printf_unfiltered ("flags: %d%d%d%d; ", | |
105 | (status & 0x4000) != 0, | |
106 | (status & 0x0400) != 0, | |
107 | (status & 0x0200) != 0, | |
108 | (status & 0x0100) != 0); | |
109 | ||
110 | printf_unfiltered ("top %d\n", (status >> 11) & 7); | |
111 | } |