gdb/symm-tdep.c

   1 // OBSOLETE /* Sequent Symmetry target interface, for GDB.
   2 // OBSOLETE    Copyright 1986, 1987, 1989, 1991, 1992, 1993, 1994, 1995, 2000
   3 // OBSOLETE    Free Software Foundation, Inc.
   4 // OBSOLETE
   5 // OBSOLETE    This file is part of GDB.
   6 // OBSOLETE
   7 // OBSOLETE    This program is free software; you can redistribute it and/or modify
   8 // OBSOLETE    it under the terms of the GNU General Public License as published by
   9 // OBSOLETE    the Free Software Foundation; either version 2 of the License, or
  10 // OBSOLETE    (at your option) any later version.
  11 // OBSOLETE
  12 // OBSOLETE    This program is distributed in the hope that it will be useful,
  13 // OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 // OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 // OBSOLETE    GNU General Public License for more details.
  16 // OBSOLETE
  17 // OBSOLETE    You should have received a copy of the GNU General Public License
  18 // OBSOLETE    along with this program; if not, write to the Free Software
  19 // OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,
  20 // OBSOLETE    Boston, MA 02111-1307, USA.  */
  21 // OBSOLETE
  22 // OBSOLETE /* many 387-specific items of use taken from i386-dep.c */
  23 // OBSOLETE
  24 // OBSOLETE #include "defs.h"
  25 // OBSOLETE #include "frame.h"
  26 // OBSOLETE #include "inferior.h"
  27 // OBSOLETE #include "symtab.h"
  28 // OBSOLETE
  29 // OBSOLETE #include <signal.h>
  30 // OBSOLETE #include <sys/param.h>
  31 // OBSOLETE #include <sys/user.h>
  32 // OBSOLETE #include <sys/dir.h>
  33 // OBSOLETE #include <sys/ioctl.h>
  34 // OBSOLETE #include "gdb_stat.h"
  35 // OBSOLETE #include "gdbcore.h"
  36 // OBSOLETE #include <fcntl.h>
  37 // OBSOLETE
  38 // OBSOLETE void
  39 // OBSOLETE symmetry_extract_return_value (struct type *type, char *regbuf, char *valbuf)
  40 // OBSOLETE {
  41 // OBSOLETE   union
  42 // OBSOLETE     {
  43 // OBSOLETE       double d;
  44 // OBSOLETE       int l[2];
  45 // OBSOLETE     }
  46 // OBSOLETE   xd;
  47 // OBSOLETE   struct minimal_symbol *msymbol;
  48 // OBSOLETE   float f;
  49 // OBSOLETE
  50 // OBSOLETE   if (TYPE_CODE_FLT == TYPE_CODE (type))
  51 // OBSOLETE     {
  52 // OBSOLETE       msymbol = lookup_minimal_symbol ("1167_flt", NULL, NULL);
  53 // OBSOLETE       if (msymbol != NULL)
  54 // OBSOLETE     {
  55 // OBSOLETE       /* found "1167_flt" means 1167, %fp2-%fp3 */
  56 // OBSOLETE       /* float & double; 19= %fp2, 20= %fp3 */
  57 // OBSOLETE       /* no single precision on 1167 */
  58 // OBSOLETE       xd.l[1] = *((int *) &regbuf[REGISTER_BYTE (19)]);
  59 // OBSOLETE       xd.l[0] = *((int *) &regbuf[REGISTER_BYTE (20)]);
  60 // OBSOLETE       switch (TYPE_LENGTH (type))
  61 // OBSOLETE         {
  62 // OBSOLETE         case 4:
  63 // OBSOLETE           /* FIXME: broken for cross-debugging.  */
  64 // OBSOLETE           f = (float) xd.d;
  65 // OBSOLETE           memcpy (valbuf, &f, TYPE_LENGTH (type));
  66 // OBSOLETE           break;
  67 // OBSOLETE         case 8:
  68 // OBSOLETE           /* FIXME: broken for cross-debugging.  */
  69 // OBSOLETE           memcpy (valbuf, &xd.d, TYPE_LENGTH (type));
  70 // OBSOLETE           break;
  71 // OBSOLETE         default:
  72 // OBSOLETE           error ("Unknown floating point size");
  73 // OBSOLETE           break;
  74 // OBSOLETE         }
  75 // OBSOLETE     }
  76 // OBSOLETE       else
  77 // OBSOLETE     {
  78 // OBSOLETE       /* 387 %st(0), gcc uses this */
  79 // OBSOLETE       i387_to_double (((int *) &regbuf[REGISTER_BYTE (3)]),
  80 // OBSOLETE                       &xd.d);
  81 // OBSOLETE       switch (TYPE_LENGTH (type))
  82 // OBSOLETE         {
  83 // OBSOLETE         case 4:             /* float */
  84 // OBSOLETE           f = (float) xd.d;
  85 // OBSOLETE           /* FIXME: broken for cross-debugging.  */
  86 // OBSOLETE           memcpy (valbuf, &f, 4);
  87 // OBSOLETE           break;
  88 // OBSOLETE         case 8:             /* double */
  89 // OBSOLETE           /* FIXME: broken for cross-debugging.  */
  90 // OBSOLETE           memcpy (valbuf, &xd.d, 8);
  91 // OBSOLETE           break;
  92 // OBSOLETE         default:
  93 // OBSOLETE           error ("Unknown floating point size");
  94 // OBSOLETE           break;
  95 // OBSOLETE         }
  96 // OBSOLETE     }
  97 // OBSOLETE     }
  98 // OBSOLETE   else
  99 // OBSOLETE     {
 100 // OBSOLETE       memcpy (valbuf, regbuf, TYPE_LENGTH (type));
 101 // OBSOLETE     }
 102 // OBSOLETE }