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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, 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"
54 static void fetch_core_registers
PARAMS ((char *, unsigned, int, CORE_ADDR
));
57 /* this table must line up with REGISTER_NAMES in tm-i386v.h */
58 /* symbols like 'EAX' come from <sys/reg.h> */
67 /* blockend is the value of u.u_ar0, and points to the
68 * place where GS is stored
72 i386_register_u_addr (blockend
, regnum
)
77 /* this will be needed if fp registers are reinstated */
78 /* for now, you can look at them with 'info float'
79 * sys5 wont let you change them with ptrace anyway
81 if (regnum
>= FP0_REGNUM
&& regnum
<= FP7_REGNUM
)
85 ubase
= blockend
+ 4 * (SS
+ 1) - KSTKSZ
;
86 fpstate
= ubase
+ ((char *)&u
.u_fpstate
- (char *)&u
);
87 return (fpstate
+ 0x1c + 10 * (regnum
- FP0_REGNUM
));
91 return (blockend
+ 4 * regmap
[regnum
]);
95 /* The code below only work on the aix ps/2 (i386-ibm-aix) -
96 * mtranle@paris - Sat Apr 11 10:34:12 1992
101 unsigned short control
;
103 unsigned short status
;
108 unsigned short code_seg
;
109 unsigned short opcode
;
110 unsigned long operand
;
111 unsigned short operand_seg
;
113 unsigned char regs
[8][10];
117 print_387_status (status
, ep
)
118 unsigned short status
;
127 bothstatus
= ((status
!= 0) && (ep
->status
!= 0));
131 printf_unfiltered ("u: ");
132 print_387_status_word (status
);
138 printf_unfiltered ("e: ");
139 print_387_status_word (ep
->status
);
142 print_387_control_word (ep
->control
);
143 printf_unfiltered ("last exception: ");
144 printf_unfiltered ("opcode %s; ", local_hex_string(ep
->opcode
));
145 printf_unfiltered ("pc %s:", local_hex_string(ep
->code_seg
));
146 printf_unfiltered ("%s; ", local_hex_string(ep
->eip
));
147 printf_unfiltered ("operand %s", local_hex_string(ep
->operand_seg
));
148 printf_unfiltered (":%s\n", local_hex_string(ep
->operand
));
150 top
= ((ep
->status
>> 11) & 7);
152 printf_unfiltered ("regno tag msb lsb value\n");
153 for (fpreg
= 7; fpreg
>= 0; fpreg
--)
157 printf_unfiltered ("%s %d: ", fpreg
== top
? "=>" : " ", fpreg
);
159 switch ((ep
->tag
>> ((7 - fpreg
) * 2)) & 3)
161 case 0: printf_unfiltered ("valid "); break;
162 case 1: printf_unfiltered ("zero "); break;
163 case 2: printf_unfiltered ("trap "); break;
164 case 3: printf_unfiltered ("empty "); break;
166 for (i
= 9; i
>= 0; i
--)
167 printf_unfiltered ("%02x", ep
->regs
[fpreg
][i
]);
169 i387_to_double ((char *)ep
->regs
[fpreg
], (char *)&val
);
170 printf_unfiltered (" %#g\n", val
);
174 static struct env387 core_env387
;
181 /* We need to reverse the order of the registers. Apparently AIX stores
182 the highest-numbered ones first. */
183 struct env387 fps_fixed
;
189 unsigned short status
;
191 ptrace (PT_READ_FPR
, inferior_pid
, buf
, offsetof(struct env387
, status
));
192 memcpy (&status
, buf
, sizeof (status
));
197 if ((fpsaved
= core_env387
.status
) != 0)
198 memcpy(&fps
, &core_env387
, sizeof(fps
));
203 printf_unfiltered ("no floating point status saved\n");
210 for (offset
= 0; offset
< sizeof(fps
); offset
+= 10)
213 ptrace (PT_READ_FPR
, inferior_pid
, buf
, offset
);
214 memcpy ((char *)&fps
.control
+ offset
, buf
,
215 MIN(10, sizeof(fps
) - offset
));
219 for (i
= 0; i
< 8; ++i
)
220 memcpy (fps_fixed
.regs
[i
], fps
.regs
[7 - i
], 10);
221 print_387_status (0, &fps_fixed
);
224 /* Fetch one register. */
226 fetch_register (regno
)
229 char buf
[MAX_REGISTER_RAW_SIZE
];
230 if (regno
< FP0_REGNUM
)
231 *(int *)buf
= ptrace (PT_READ_GPR
, inferior_pid
,
232 PT_REG(regmap
[regno
]), 0, 0);
234 ptrace (PT_READ_FPR
, inferior_pid
, buf
,
235 (regno
- FP0_REGNUM
)*10 + offsetof(struct env387
, regs
));
236 supply_register (regno
, buf
);
240 fetch_inferior_registers (regno
)
244 for (regno
= 0; regno
< NUM_REGS
; regno
++)
245 fetch_register (regno
);
247 fetch_register (regno
);
250 /* store one register */
252 store_register (regno
)
256 extern char registers
[];
258 if (regno
< FP0_REGNUM
)
259 ptrace (PT_WRITE_GPR
, inferior_pid
, PT_REG(regmap
[regno
]),
260 *(int *) ®isters
[REGISTER_BYTE (regno
)], 0);
262 ptrace (PT_WRITE_FPR
, inferior_pid
, ®isters
[REGISTER_BYTE (regno
)],
263 (regno
- FP0_REGNUM
)*10 + offsetof(struct env387
, regs
));
267 sprintf (buf
, "writing register number %d", regno
);
268 perror_with_name (buf
);
272 /* Store our register values back into the inferior.
273 If REGNO is -1, do this for all registers.
274 Otherwise, REGNO specifies which register (so we can save time). */
276 store_inferior_registers (regno
)
280 for (regno
= 0; regno
< NUM_REGS
; regno
++)
281 store_register (regno
);
283 store_register (regno
);
286 #ifndef CD_AX /* defined in sys/i386/coredump.h */
306 * The order here in core_regmap[] has to be the same as in
309 static int core_regmap
[] =
311 CD_AX
, CD_CX
, CD_DX
, CD_BX
,
312 CD_SP
, CD_BP
, CD_SI
, CD_DI
,
313 CD_IP
, CD_FL
, CD_CS
, CD_SS
,
314 CD_DS
, CD_ES
, CD_FS
, CD_GS
,
318 fetch_core_registers (core_reg_sect
, core_reg_size
, which
, reg_addr
)
320 unsigned core_reg_size
;
322 CORE_ADDR reg_addr
; /* ignored */
327 /* Integer registers */
329 #define cd_regs(n) ((int *)core_reg_sect)[n]
330 #define regs(n) *((int *) ®isters[REGISTER_BYTE (n)])
333 for (i
= 0; i
< FP0_REGNUM
; i
++)
334 regs(i
) = cd_regs(core_regmap
[i
]);
338 /* Floating point registers */
340 if (core_reg_size
>= sizeof (core_env387
))
341 memcpy (&core_env387
, core_reg_sect
, core_reg_size
);
343 fprintf_unfiltered (gdb_stderr
, "Couldn't read float regs from core file\n");
348 /* Register that we are able to handle i386aix core file formats.
349 FIXME: is this really bfd_target_unknown_flavour? */
351 static struct core_fns i386aix_core_fns
=
353 bfd_target_unknown_flavour
,
354 fetch_core_registers
,
359 _initialize_core_i386aix ()
361 add_core_fns (&i386aix_core_fns
);