gdb/symm-tdep.c

   1 /* Sequent Symmetry target interface, for GDB.
   2    Copyright (C) 1986, 1987, 1989, 1991, 1994 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., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  19
  20 /* many 387-specific items of use taken from i386-dep.c */
  21
  22 #include "defs.h"
  23 #include "frame.h"
  24 #include "inferior.h"
  25 #include "symtab.h"
  26
  27 #include <signal.h>
  28 #include <sys/param.h>
  29 #include <sys/user.h>
  30 #include <sys/dir.h>
  31 #include <sys/ioctl.h>
  32 #include <sys/stat.h>
  33 #include "gdbcore.h"
  34 #include <fcntl.h>
  35
  36 void
  37 symmetry_extract_return_value(type, regbuf, valbuf)
  38      struct type *type;
  39      char *regbuf;
  40      char *valbuf;
  41 {
  42   union {
  43     double      d;
  44     int l[2];
  45   } xd;
  46   struct minimal_symbol *msymbol;
  47   float f;
  48
  49   if (TYPE_CODE_FLT == TYPE_CODE(type)) {
  50     msymbol = lookup_minimal_symbol ("1167_flt", (struct objfile *) NULL);
  51     if (msymbol != NULL) {
  52       /* found "1167_flt" means 1167, %fp2-%fp3 */
  53       /* float & double; 19= %fp2, 20= %fp3 */
  54       /* no single precision on 1167 */
  55       xd.l[1] = *((int *)&regbuf[REGISTER_BYTE(19)]);
  56       xd.l[0] = *((int *)&regbuf[REGISTER_BYTE(20)]);
  57       switch (TYPE_LENGTH(type)) {
  58       case 4:
  59         /* FIXME: broken for cross-debugging.  */
  60         f = (float) xd.d;
  61         memcpy (valbuf, &f, TYPE_LENGTH(type));
  62         break;
  63       case 8:
  64         /* FIXME: broken for cross-debugging.  */
  65         memcpy (valbuf, &xd.d, TYPE_LENGTH(type));
  66         break;
  67       default:
  68         error("Unknown floating point size");
  69         break;
  70       }
  71     } else {
  72       /* 387 %st(0), gcc uses this */
  73       i387_to_double(((int *)&regbuf[REGISTER_BYTE(3)]),
  74                      &xd.d);
  75       switch (TYPE_LENGTH(type)) {
  76       case 4:                   /* float */
  77         f = (float) xd.d;
  78         /* FIXME: broken for cross-debugging.  */
  79         memcpy (valbuf, &f, 4);
  80         break;
  81       case 8:                   /* double */
  82         /* FIXME: broken for cross-debugging.  */
  83         memcpy (valbuf, &xd.d, 8);
  84         break;
  85       default:
  86         error("Unknown floating point size");
  87         break;
  88       }
  89     }
  90   } else {
  91     memcpy (valbuf, regbuf, TYPE_LENGTH (type));
  92   }
  93 }