/* Intel 387 floating point stuff.
- Copyright (C) 1988, 1989, 1991, 1998, 1999 Free Software Foundation, Inc.
+ Copyright 1988, 1989, 1991, 1992, 1993, 1994, 1998, 1999, 2000, 2001
+ Free Software Foundation, Inc.
This file is part of GDB.
#include "value.h"
#include "gdbcore.h"
#include "floatformat.h"
+#include "regcache.h"
+#include "gdb_assert.h"
/* FIXME: Eliminate the next two functions when we have the time to
change all the callers. */
-void i387_to_double PARAMS ((char *from, char *to));
-void double_to_i387 PARAMS ((char *from, char *to));
+void i387_to_double (char *from, char *to);
+void double_to_i387 (char *from, char *to);
void
-i387_to_double (from, to)
- char *from;
- char *to;
+i387_to_double (char *from, char *to)
{
floatformat_to_double (&floatformat_i387_ext, from, (double *) to);
}
void
-double_to_i387 (from, to)
- char *from;
- char *to;
+double_to_i387 (char *from, char *to)
{
floatformat_from_double (&floatformat_i387_ext, (double *) from, to);
}
use the generic implementation based on the new register file
layout. */
-static void print_387_control_bits PARAMS ((unsigned int control));
-static void print_387_status_bits PARAMS ((unsigned int status));
+static void print_387_control_bits (unsigned int control);
+static void print_387_status_bits (unsigned int status);
static void
-print_387_control_bits (control)
- unsigned int control;
+print_387_control_bits (unsigned int control)
{
switch ((control >> 8) & 3)
{
}
void
-print_387_control_word (control)
- unsigned int control;
+print_387_control_word (unsigned int control)
{
printf_filtered ("control %s:", local_hex_string(control & 0xffff));
print_387_control_bits (control);
}
static void
-print_387_status_bits (status)
- unsigned int status;
+print_387_status_bits (unsigned int status)
{
printf_unfiltered (" flags %d%d%d%d; ",
(status & 0x4000) != 0,
}
void
-print_387_status_word (status)
- unsigned int status;
+print_387_status_word (unsigned int status)
{
printf_filtered ("status %s:", local_hex_string (status & 0xffff));
print_387_status_bits (status);
print_i387_value (char *raw)
{
DOUBLEST value;
+ int len = TARGET_LONG_DOUBLE_BIT / TARGET_CHAR_BIT;
+ char *tmp = alloca (len);
+
+ /* This code only works on targets where ... */
+ gdb_assert (TARGET_LONG_DOUBLE_FORMAT == &floatformat_i387_ext);
+
+ /* Take care of the padding. FP reg is 80 bits. The same value in
+ memory is 96 bits. */
+ gdb_assert (FPU_REG_RAW_SIZE < len);
+ memcpy (tmp, raw, FPU_REG_RAW_SIZE);
+ memset (tmp + FPU_REG_RAW_SIZE, 0, len - FPU_REG_RAW_SIZE);
- floatformat_to_doublest (&floatformat_i387_ext, raw, &value);
+ /* Extract the value as a DOUBLEST. */
+ /* Use extract_floating() rather than floatformat_to_doublest().
+ The latter is lossy in nature. Once GDB gets a host/target
+ independent and non-lossy FP it will become possible to bypass
+ extract_floating() and call floatformat*() directly. Note also
+ the assumptions about TARGET_LONG_DOUBLE above. */
+ value = extract_floating (tmp, len);
/* We try to print 19 digits. The last digit may or may not contain
garbage, but we'd better print one too many. We need enough room
puts_filtered (" ");
printf_filtered (" %s", (status & 0x0080) ? "ES" : " ");
puts_filtered (" ");
- printf_filtered (" %s", (status & 0x0080) ? "SF" : " ");
+ printf_filtered (" %s", (status & 0x0040) ? "SF" : " ");
puts_filtered (" ");
printf_filtered (" %s", (status & 0x0100) ? "C0" : " ");
printf_filtered (" %s", (status & 0x0200) ? "C1" : " ");
printf_filtered ("Opcode: %s\n",
local_hex_string_custom (fop ? (fop | 0xd800) : 0, "04"));
}
-
-\f
-/* FIXME: The functions on this page are used to provide `long double'
- support for Linux. However, the approach does not seem to be the
- right one, and we are planning to solve this in a way that should
- work for all i386 targets. These functions will disappear in the
- near future, so please don't use them. */
-#ifdef LD_I387
-int
-i387_extract_floating (PTR addr, int len, DOUBLEST *dretptr)
-{
- if (len == TARGET_LONG_DOUBLE_BIT / 8)
- {
- if (HOST_LONG_DOUBLE_FORMAT == TARGET_LONG_DOUBLE_FORMAT)
- {
- DOUBLEST retval;
-
- memcpy (dretptr, addr, sizeof (retval));
- }
- else
- floatformat_to_doublest (TARGET_LONG_DOUBLE_FORMAT, addr, dretptr);
-
- return 1;
- }
- else
- return 0;
-}
-
-int
-i387_store_floating (PTR addr, int len, DOUBLEST val)
-{
- if (len == TARGET_LONG_DOUBLE_BIT / 8)
- {
- /* This `if' may be totally stupid. I just put it in here to be
- absolutely sure I'm preserving the semantics of the code I'm
- frobbing, while I try to maintain portability boundaries; I
- don't actually know exactly what it's doing. -JimB, May 1999 */
- if (HOST_LONG_DOUBLE_FORMAT == TARGET_LONG_DOUBLE_FORMAT)
- memcpy (addr, &val, sizeof (val));
- else
- floatformat_from_doublest (TARGET_LONG_DOUBLE_FORMAT, &val, addr);
-
- return 1;
- }
- else
- return 0;
-}
-#endif /* LD_I387 */