gdb/i386v-nat.c

   1 /* Intel 386 native support for SYSV systems (pre-SVR4).
   2    Copyright (C) 1988, 1989, 1991, 1992 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 #include "defs.h"
  21 #include "frame.h"
  22 #include "inferior.h"
  23 #include "language.h"
  24 #include "gdbcore.h"
  25
  26 #ifdef USG
  27 #include <sys/types.h>
  28 #endif
  29
  30 #include <sys/param.h>
  31 #include <sys/dir.h>
  32 #include <signal.h>
  33 #include <sys/user.h>
  34 #include <sys/ioctl.h>
  35 #include <fcntl.h>
  36
  37 #include <sys/file.h>
  38 #include <sys/stat.h>
  39
  40 #ifndef NO_SYS_REG_H
  41 #include <sys/reg.h>
  42 #endif
  43
  44 #include "ieee-float.h"
  45
  46 #include "target.h"
  47
  48 extern struct ext_format ext_format_i387;
  49 \f
  50 /* this table must line up with REGISTER_NAMES in tm-i386v.h */
  51 /* symbols like 'EAX' come from <sys/reg.h> */
  52 static int regmap[] =
  53 {
  54   EAX, ECX, EDX, EBX,
  55   UESP, EBP, ESI, EDI,
  56   EIP, EFL, CS, SS,
  57   DS, ES, FS, GS,
  58 };
  59
  60 /* blockend is the value of u.u_ar0, and points to the
  61  * place where GS is stored
  62  */
  63
  64 int
  65 i386_register_u_addr (blockend, regnum)
  66      int blockend;
  67      int regnum;
  68 {
  69 #if 0
  70   /* this will be needed if fp registers are reinstated */
  71   /* for now, you can look at them with 'info float'
  72    * sys5 wont let you change them with ptrace anyway
  73    */
  74   if (regnum >= FP0_REGNUM && regnum <= FP7_REGNUM)
  75     {
  76       int ubase, fpstate;
  77       struct user u;
  78       ubase = blockend + 4 * (SS + 1) - KSTKSZ;
  79       fpstate = ubase + ((char *)&u.u_fpstate - (char *)&u);
  80       return (fpstate + 0x1c + 10 * (regnum - FP0_REGNUM));
  81     }
  82   else
  83 #endif
  84     return (blockend + 4 * regmap[regnum]);
  85
  86 }
  87
  88 #if 0
  89 /* using FLOAT_INFO as is would be a problem.  FLOAT_INFO is called
  90    via a command xxx and eventually calls ptrace without ever having
  91    traversed the target vector.  This would be terribly impolite
  92    behaviour for a sun4 hosted remote gdb.
  93
  94    A fix might be to move this code into the "info registers" command.
  95    [email protected] 15 Sept 92. */
  96 i386_float_info ()
  97 {
  98   struct user u; /* just for address computations */
  99   int i;
 100   /* fpstate defined in <sys/user.h> */
 101   struct fpstate *fpstatep;
 102   char buf[sizeof (struct fpstate) + 2 * sizeof (int)];
 103   unsigned int uaddr;
 104   char fpvalid = 0;
 105   unsigned int rounded_addr;
 106   unsigned int rounded_size;
 107   extern int corechan;
 108   int skip;
 109
 110   uaddr = (char *)&u.u_fpvalid - (char *)&u;
 111   if (target_has_execution)
 112     {
 113       unsigned int data;
 114       unsigned int mask;
 115
 116       rounded_addr = uaddr & -sizeof (int);
 117       data = ptrace (3, inferior_pid, (PTRACE_ARG3_TYPE) rounded_addr, 0);
 118       mask = 0xff << ((uaddr - rounded_addr) * 8);
 119
 120       fpvalid = ((data & mask) != 0);
 121     }
 122 #if 0
 123   else
 124     {
 125       if (lseek (corechan, uaddr, 0) < 0)
 126         perror ("seek on core file");
 127       if (myread (corechan, &fpvalid, 1) < 0)
 128         perror ("read on core file");
 129
 130     }
 131 #endif  /* no core support yet */
 132
 133   if (fpvalid == 0)
 134     {
 135       printf ("no floating point status saved\n");
 136       return;
 137     }
 138
 139   uaddr = (char *)&U_FPSTATE(u) - (char *)&u;
 140   if (target_has_execution)
 141     {
 142       int *ip;
 143
 144       rounded_addr = uaddr & -sizeof (int);
 145       rounded_size = (((uaddr + sizeof (struct fpstate)) - uaddr) +
 146                       sizeof (int) - 1) / sizeof (int);
 147       skip = uaddr - rounded_addr;
 148
 149       ip = (int *)buf;
 150       for (i = 0; i < rounded_size; i++)
 151         {
 152           *ip++ = ptrace (3, inferior_pid, (PTRACE_ARG3_TYPE) rounded_addr, 0);
 153           rounded_addr += sizeof (int);
 154         }
 155     }
 156 #if 0
 157   else
 158     {
 159       if (lseek (corechan, uaddr, 0) < 0)
 160         perror_with_name ("seek on core file");
 161       if (myread (corechan, buf, sizeof (struct fpstate)) < 0)
 162         perror_with_name ("read from core file");
 163       skip = 0;
 164     }
 165 #endif  /* 0 */
 166
 167   fpstatep = (struct fpstate *)(buf + skip);
 168   print_387_status (fpstatep->status, (struct env387 *)fpstatep->state);
 169 }
 170
 171 #endif /* never */