1 /* Low level interface to I386 running mach 3.0.
2 Copyright (C) 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. */
26 #include <mach/message.h>
27 #include <mach/exception.h>
28 #include <mach_error.h>
30 /* Hmmm... Should this not be here?
31 * Now for i386_float_info() target_has_execution
35 /* This mess is duplicated in bfd/i386mach3.h
37 * This is an ugly way to hack around the incorrect
38 * definition of UPAGES in i386/machparam.h.
40 * The definition should specify the size reserved
41 * for "struct user" in core files in PAGES,
42 * but instead it gives it in 512-byte core-clicks
45 #include <sys/param.h>
47 #define UAREA_SIZE ctob(UPAGES)
49 #define UAREA_SIZE (NBPG*UPAGES)
51 FIXME
!! UPAGES is neither
2 nor
16
54 /* @@@ Should move print_387_status() to i387-tdep.c */
55 extern void print_387_control_word (); /* i387-tdep.h */
56 extern void print_387_status_word ();
58 #define private static
61 /* Find offsets to thread states at compile time.
62 * If your compiler does not grok this, calculate offsets
63 * offsets yourself and use them (or get a compatible compiler :-)
66 #define REG_OFFSET(reg) (int)(&((struct i386_thread_state *)0)->reg)
68 /* at reg_offset[i] is the offset to the i386_thread_state
69 * location where the gdb registers[i] is stored.
72 static int reg_offset
[] =
74 REG_OFFSET(eax
), REG_OFFSET(ecx
), REG_OFFSET(edx
), REG_OFFSET(ebx
),
75 REG_OFFSET(uesp
), REG_OFFSET(ebp
), REG_OFFSET(esi
), REG_OFFSET(edi
),
76 REG_OFFSET(eip
), REG_OFFSET(efl
), REG_OFFSET(cs
), REG_OFFSET(ss
),
77 REG_OFFSET(ds
), REG_OFFSET(es
), REG_OFFSET(fs
), REG_OFFSET(gs
)
80 #define REG_ADDRESS(state,regnum) ((char *)(state)+reg_offset[regnum])
82 /* Fetch COUNT contiguous registers from thread STATE starting from REGNUM
83 * Caller knows that the regs handled in one transaction are of same size.
85 #define FETCH_REGS(state, regnum, count) \
86 memcpy (®isters[REGISTER_BYTE (regnum)], \
87 REG_ADDRESS (state, regnum), \
90 /* Store COUNT contiguous registers to thread STATE starting from REGNUM */
91 #define STORE_REGS(state, regnum, count) \
92 memcpy (REG_ADDRESS (state, regnum), \
93 ®isters[REGISTER_BYTE (regnum)], \
97 * Fetch inferiors registers for gdb.
98 * REGNO specifies which (as gdb views it) register, -1 for all.
102 fetch_inferior_registers (regno
)
106 thread_state_data_t state
;
107 unsigned int stateCnt
= i386_THREAD_STATE_COUNT
;
110 if (! MACH_PORT_VALID (current_thread
))
111 error ("fetch inferior registers: Invalid thread");
113 if (must_suspend_thread
)
114 setup_thread (current_thread
, 1);
116 ret
= thread_get_state (current_thread
,
121 if (ret
!= KERN_SUCCESS
)
122 message ("fetch_inferior_registers: %s ",
123 mach_error_string (ret
));
125 /* It may be more effective to store validate all of them,
126 * since we fetched them all anyway
128 else if (regno
!= -1)
129 supply_register (regno
, (char *)state
+reg_offset
[regno
]);
133 for (index
= 0; index
< NUM_REGS
; index
++)
134 supply_register (index
, (char *)state
+reg_offset
[index
]);
137 if (must_suspend_thread
)
138 setup_thread (current_thread
, 0);
141 /* Store our register values back into the inferior.
142 * If REGNO is -1, do this for all registers.
143 * Otherwise, REGNO specifies which register
145 * On mach3 all registers are always saved in one call.
148 store_inferior_registers (regno
)
152 thread_state_data_t state
;
153 unsigned int stateCnt
= i386_THREAD_STATE_COUNT
;
156 if (! MACH_PORT_VALID (current_thread
))
157 error ("store inferior registers: Invalid thread");
159 if (must_suspend_thread
)
160 setup_thread (current_thread
, 1);
162 /* Fetch the state of the current thread */
163 ret
= thread_get_state (current_thread
,
168 if (ret
!= KERN_SUCCESS
)
170 message ("store_inferior_registers (get): %s",
171 mach_error_string (ret
));
172 if (must_suspend_thread
)
173 setup_thread (current_thread
, 0);
177 /* move gdb's registers to thread's state
179 * Since we save all registers anyway, save the ones
180 * that gdb thinks are valid (e.g. ignore the regno
185 STORE_REGS (state
, regno
, 1);
189 for (index
= 0; index
< NUM_REGS
; index
++)
190 STORE_REGS (state
, index
, 1);
193 /* Write gdb's current view of register to the thread
195 ret
= thread_set_state (current_thread
,
198 i386_THREAD_STATE_COUNT
);
200 if (ret
!= KERN_SUCCESS
)
201 message ("store_inferior_registers (set): %s",
202 mach_error_string (ret
));
204 if (must_suspend_thread
)
205 setup_thread (current_thread
, 0);
210 /* Return the address in the core dump or inferior of register REGNO.
211 * BLOCKEND should be the address of the end of the UPAGES area read
212 * in memory, but it's not?
214 * Currently our UX server dumps the whole thread state to the
215 * core file. If your UX does something else, adapt the routine
216 * below to return the offset to the given register.
218 * Called by coredep.c(fetch_core_registers)
222 register_addr (regno
, blockend
)
228 if (regno
< 0 || regno
>= NUM_REGS
)
229 error ("Invalid register number %d.", regno
);
231 /* UAREA_SIZE == 8 kB in i386 */
232 addr
= (unsigned int)REG_ADDRESS (UAREA_SIZE
- sizeof(struct i386_thread_state
), regno
);
237 /* jtv@hut.fi: I copied and modified this 387 code from
238 * gdb/i386-xdep.c. Modifications for Mach 3.0.
240 * i387 status dumper. See also i387-tdep.c
244 unsigned short control
;
246 unsigned short status
;
251 unsigned short code_seg
;
252 unsigned short opcode
;
253 unsigned long operand
;
254 unsigned short operand_seg
;
256 unsigned char regs
[8][10];
258 /* This routine is machine independent?
259 * Should move it to i387-tdep.c but you need to export struct env387
262 print_387_status (status
, ep
)
263 unsigned short status
;
272 bothstatus
= ((status
!= 0) && (ep
->status
!= 0));
276 printf_unfiltered ("u: ");
277 print_387_status_word (status
);
283 printf_unfiltered ("e: ");
284 print_387_status_word (ep
->status
);
287 print_387_control_word (ep
->control
);
288 printf_unfiltered ("last exception: ");
289 printf_unfiltered ("opcode %s; ", local_hex_string(ep
->opcode
));
290 printf_unfiltered ("pc %s:", local_hex_string(ep
->code_seg
));
291 printf_unfiltered ("%s; ", local_hex_string(ep
->eip
));
292 printf_unfiltered ("operand %s", local_hex_string(ep
->operand_seg
));
293 printf_unfiltered (":%s\n", local_hex_string(ep
->operand
));
295 top
= (ep
->status
>> 11) & 7;
297 printf_unfiltered ("regno tag msb lsb value\n");
298 for (fpreg
= 7; fpreg
>= 0; fpreg
--)
302 printf_unfiltered ("%s %d: ", fpreg
== top
? "=>" : " ", fpreg
);
304 switch ((ep
->tag
>> (fpreg
* 2)) & 3)
306 case 0: printf_unfiltered ("valid "); break;
307 case 1: printf_unfiltered ("zero "); break;
308 case 2: printf_unfiltered ("trap "); break;
309 case 3: printf_unfiltered ("empty "); break;
311 for (i
= 9; i
>= 0; i
--)
312 printf_unfiltered ("%02x", ep
->regs
[fpreg
][i
]);
314 floatformat_to_double (&floatformat_i387_ext
, (char *)ep
->regs
[fpreg
],
316 printf_unfiltered (" %g\n", val
);
319 printf_unfiltered ("warning: reserved0 is %s\n", local_hex_string(ep
->r0
));
321 printf_unfiltered ("warning: reserved1 is %s\n", local_hex_string(ep
->r1
));
323 printf_unfiltered ("warning: reserved2 is %s\n", local_hex_string(ep
->r2
));
325 printf_unfiltered ("warning: reserved3 is %s\n", local_hex_string(ep
->r3
));
329 * values that go into fp_kind (from <i386/fpreg.h>)
331 #define FP_NO 0 /* no fp chip, no emulator (no fp support) */
332 #define FP_SW 1 /* no fp chip, using software emulator */
333 #define FP_HW 2 /* chip present bit */
334 #define FP_287 2 /* 80287 chip present */
335 #define FP_387 3 /* 80387 chip present */
337 typedef struct fpstate
{
339 unsigned char state
[FP_STATE_BYTES
]; /* "hardware" state */
341 struct env387 state
; /* Actually this */
343 int status
; /* Duplicate status */
346 /* Mach 3 specific routines.
349 get_i387_state (fstate
)
350 struct fpstate
*fstate
;
353 thread_state_data_t state
;
354 unsigned int fsCnt
= i386_FLOAT_STATE_COUNT
;
355 struct i386_float_state
*fsp
;
357 ret
= thread_get_state (current_thread
,
362 if (ret
!= KERN_SUCCESS
)
364 message ("Can not get live floating point state: %s",
365 mach_error_string (ret
));
369 fsp
= (struct i386_float_state
*)state
;
370 /* The 387 chip (also 486 counts) or a software emulator? */
371 if (!fsp
->initialized
|| (fsp
->fpkind
!= FP_387
&& fsp
->fpkind
!= FP_SW
))
374 /* Clear the target then copy thread's float state there.
375 Make a copy of the status word, for some reason?
377 bzero (fstate
, sizeof(struct fpstate
));
379 fstate
->status
= fsp
->exc_status
;
381 memcpy (fstate
->state
, (char *)&fsp
->hw_state
, FP_STATE_BYTES
);
387 get_i387_core_state (fstate
)
388 struct fpstate
*fstate
;
390 /* Not implemented yet. Core files do not contain float state. */
395 * This is called by "info float" command
398 i386_mach3_float_info()
400 char buf
[sizeof (struct fpstate
) + 2 * sizeof (int)];
401 boolean_t valid
= FALSE
;
404 if (target_has_execution
)
405 valid
= get_i387_state (buf
);
407 else if (WE HAVE CORE
FILE) /* @@@@ Core files not supported */
408 valid
= get_i387_core_state (buf
);
413 message("no floating point status saved");
417 fps
= (fpstate_t
) buf
;
419 print_387_status (fps
->status
, (struct env387
*)fps
->state
);