diff options
Diffstat (limited to 'gdb/symm-tdep.c')
| -rw-r--r-- | gdb/symm-tdep.c | 93 |
1 files changed, 93 insertions, 0 deletions
diff --git a/gdb/symm-tdep.c b/gdb/symm-tdep.c new file mode 100644 index 00000000000..aaf73e94a74 --- /dev/null +++ b/gdb/symm-tdep.c @@ -0,0 +1,93 @@ +/* Sequent Symmetry target interface, for GDB. + Copyright (C) 1986, 1987, 1989, 1991, 1994 Free Software Foundation, Inc. + +This file is part of GDB. + +This program is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2 of the License, or +(at your option) any later version. + +This program is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +GNU General Public License for more details. + +You should have received a copy of the GNU General Public License +along with this program; if not, write to the Free Software +Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ + +/* many 387-specific items of use taken from i386-dep.c */ + +#include "defs.h" +#include "frame.h" +#include "inferior.h" +#include "symtab.h" + +#include <signal.h> +#include <sys/param.h> +#include <sys/user.h> +#include <sys/dir.h> +#include <sys/ioctl.h> +#include "gdb_stat.h" +#include "gdbcore.h" +#include <fcntl.h> + +void +symmetry_extract_return_value(type, regbuf, valbuf) + struct type *type; + char *regbuf; + char *valbuf; +{ + union { + double d; + int l[2]; + } xd; + struct minimal_symbol *msymbol; + float f; + + if (TYPE_CODE_FLT == TYPE_CODE(type)) { + msymbol = lookup_minimal_symbol ("1167_flt", NULL, NULL); + if (msymbol != NULL) { + /* found "1167_flt" means 1167, %fp2-%fp3 */ + /* float & double; 19= %fp2, 20= %fp3 */ + /* no single precision on 1167 */ + xd.l[1] = *((int *)®buf[REGISTER_BYTE(19)]); + xd.l[0] = *((int *)®buf[REGISTER_BYTE(20)]); + switch (TYPE_LENGTH(type)) { + case 4: + /* FIXME: broken for cross-debugging. */ + f = (float) xd.d; + memcpy (valbuf, &f, TYPE_LENGTH(type)); + break; + case 8: + /* FIXME: broken for cross-debugging. */ + memcpy (valbuf, &xd.d, TYPE_LENGTH(type)); + break; + default: + error("Unknown floating point size"); + break; + } + } else { + /* 387 %st(0), gcc uses this */ + i387_to_double(((int *)®buf[REGISTER_BYTE(3)]), + &xd.d); + switch (TYPE_LENGTH(type)) { + case 4: /* float */ + f = (float) xd.d; + /* FIXME: broken for cross-debugging. */ + memcpy (valbuf, &f, 4); + break; + case 8: /* double */ + /* FIXME: broken for cross-debugging. */ + memcpy (valbuf, &xd.d, 8); + break; + default: + error("Unknown floating point size"); + break; + } + } + } else { + memcpy (valbuf, regbuf, TYPE_LENGTH (type)); + } +} |