1 /* Intel 386 native support.
2 Copyright (C) 1988, 1989, 1991, 1992 Free Software Foundation, Inc.
4 This file is part of GDB.
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.
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.
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. */
27 #include <sys/types.h>
30 #include <sys/param.h>
34 #include <sys/ioctl.h>
41 #include <sys/ptrace.h>
43 /* Does AIX define this in <errno.h>? */
50 #include "floatformat.h"
55 /* this table must line up with REGISTER_NAMES in tm-i386v.h */
56 /* symbols like 'EAX' come from <sys/reg.h> */
65 /* blockend is the value of u.u_ar0, and points to the
66 * place where GS is stored
70 i386_register_u_addr (blockend
, regnum
)
75 /* this will be needed if fp registers are reinstated */
76 /* for now, you can look at them with 'info float'
77 * sys5 wont let you change them with ptrace anyway
79 if (regnum
>= FP0_REGNUM
&& regnum
<= FP7_REGNUM
)
83 ubase
= blockend
+ 4 * (SS
+ 1) - KSTKSZ
;
84 fpstate
= ubase
+ ((char *)&u
.u_fpstate
- (char *)&u
);
85 return (fpstate
+ 0x1c + 10 * (regnum
- FP0_REGNUM
));
89 return (blockend
+ 4 * regmap
[regnum
]);
93 /* The code below only work on the aix ps/2 (i386-ibm-aix) -
94 * mtranle@paris - Sat Apr 11 10:34:12 1992
99 unsigned short control
;
101 unsigned short status
;
106 unsigned short code_seg
;
107 unsigned short opcode
;
108 unsigned long operand
;
109 unsigned short operand_seg
;
111 unsigned char regs
[8][10];
115 print_387_status (status
, ep
)
116 unsigned short status
;
125 bothstatus
= ((status
!= 0) && (ep
->status
!= 0));
129 printf_unfiltered ("u: ");
130 print_387_status_word (status
);
136 printf_unfiltered ("e: ");
137 print_387_status_word (ep
->status
);
140 print_387_control_word (ep
->control
);
141 printf_unfiltered ("last exception: ");
142 printf_unfiltered ("opcode %s; ", local_hex_string(ep
->opcode
));
143 printf_unfiltered ("pc %s:", local_hex_string(ep
->code_seg
));
144 printf_unfiltered ("%s; ", local_hex_string(ep
->eip
));
145 printf_unfiltered ("operand %s", local_hex_string(ep
->operand_seg
));
146 printf_unfiltered (":%s\n", local_hex_string(ep
->operand
));
148 top
= ((ep
->status
>> 11) & 7);
150 printf_unfiltered ("regno tag msb lsb value\n");
151 for (fpreg
= 7; fpreg
>= 0; fpreg
--)
155 printf_unfiltered ("%s %d: ", fpreg
== top
? "=>" : " ", fpreg
);
157 switch ((ep
->tag
>> ((7 - fpreg
) * 2)) & 3)
159 case 0: printf_unfiltered ("valid "); break;
160 case 1: printf_unfiltered ("zero "); break;
161 case 2: printf_unfiltered ("trap "); break;
162 case 3: printf_unfiltered ("empty "); break;
164 for (i
= 9; i
>= 0; i
--)
165 printf_unfiltered ("%02x", ep
->regs
[fpreg
][i
]);
167 i387_to_double ((char *)ep
->regs
[fpreg
], (char *)&val
);
168 printf_unfiltered (" %#g\n", val
);
172 static struct env387 core_env387
;
179 /* We need to reverse the order of the registers. Apparently AIX stores
180 the highest-numbered ones first. */
181 struct env387 fps_fixed
;
187 unsigned short status
;
189 ptrace (PT_READ_FPR
, inferior_pid
, buf
, offsetof(struct env387
, status
));
190 memcpy (&status
, buf
, sizeof (status
));
195 if ((fpsaved
= core_env387
.status
) != 0)
196 memcpy(&fps
, &core_env387
, sizeof(fps
));
201 printf_unfiltered ("no floating point status saved\n");
208 for (offset
= 0; offset
< sizeof(fps
); offset
+= 10)
211 ptrace (PT_READ_FPR
, inferior_pid
, buf
, offset
);
212 memcpy ((char *)&fps
.control
+ offset
, buf
,
213 MIN(10, sizeof(fps
) - offset
));
217 for (i
= 0; i
< 8; ++i
)
218 memcpy (fps_fixed
.regs
[i
], fps
.regs
[7 - i
], 10);
219 print_387_status (0, &fps_fixed
);
222 /* Fetch one register. */
224 fetch_register (regno
)
227 char buf
[MAX_REGISTER_RAW_SIZE
];
228 if (regno
< FP0_REGNUM
)
229 *(int *)buf
= ptrace (PT_READ_GPR
, inferior_pid
,
230 PT_REG(regmap
[regno
]), 0, 0);
232 ptrace (PT_READ_FPR
, inferior_pid
, buf
,
233 (regno
- FP0_REGNUM
)*10 + offsetof(struct env387
, regs
));
234 supply_register (regno
, buf
);
238 fetch_inferior_registers (regno
)
242 for (regno
= 0; regno
< NUM_REGS
; regno
++)
243 fetch_register (regno
);
245 fetch_register (regno
);
248 /* store one register */
250 store_register (regno
)
254 extern char registers
[];
256 if (regno
< FP0_REGNUM
)
257 ptrace (PT_WRITE_GPR
, inferior_pid
, PT_REG(regmap
[regno
]),
258 *(int *) ®isters
[REGISTER_BYTE (regno
)], 0);
260 ptrace (PT_WRITE_FPR
, inferior_pid
, ®isters
[REGISTER_BYTE (regno
)],
261 (regno
- FP0_REGNUM
)*10 + offsetof(struct env387
, regs
));
265 sprintf (buf
, "writing register number %d", regno
);
266 perror_with_name (buf
);
270 /* Store our register values back into the inferior.
271 If REGNO is -1, do this for all registers.
272 Otherwise, REGNO specifies which register (so we can save time). */
274 store_inferior_registers (regno
)
278 for (regno
= 0; regno
< NUM_REGS
; regno
++)
279 store_register (regno
);
281 store_register (regno
);
284 #ifndef CD_AX /* defined in sys/i386/coredump.h */
304 * The order here in core_regmap[] has to be the same as in
307 static int core_regmap
[] =
309 CD_AX
, CD_CX
, CD_DX
, CD_BX
,
310 CD_SP
, CD_BP
, CD_SI
, CD_DI
,
311 CD_IP
, CD_FL
, CD_CS
, CD_SS
,
312 CD_DS
, CD_ES
, CD_FS
, CD_GS
,
316 fetch_core_registers (core_reg_sect
, core_reg_size
, which
, reg_addr
)
318 unsigned core_reg_size
;
320 unsigned int reg_addr
; /* ignored */
325 /* Integer registers */
327 #define cd_regs(n) ((int *)core_reg_sect)[n]
328 #define regs(n) *((int *) ®isters[REGISTER_BYTE (n)])
331 for (i
= 0; i
< FP0_REGNUM
; i
++)
332 regs(i
) = cd_regs(core_regmap
[i
]);
336 /* Floating point registers */
338 if (core_reg_size
>= sizeof (core_env387
))
339 memcpy (&core_env387
, core_reg_sect
, core_reg_size
);
341 fprintf_unfiltered (gdb_stderr
, "Couldn't read float regs from core file\n");
This page took 0.035784 seconds and 4 git commands to generate.