1 /* Intel 386 target-dependent stuff.
3 Copyright 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996,
4 1997, 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
6 This file is part of GDB.
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 2 of the License, or
11 (at your option) any later version.
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
20 Foundation, Inc., 59 Temple Place - Suite 330,
21 Boston, MA 02111-1307, USA. */
24 #include "gdb_string.h"
30 #include "floatformat.h"
35 #include "arch-utils.h"
39 #include "gdb_assert.h"
40 #include "reggroups.h"
42 #include "i386-tdep.h"
43 #include "i387-tdep.h"
45 /* Names of the registers. The first 10 registers match the register
46 numbering scheme used by GCC for stabs and DWARF. */
47 static char *i386_register_names
[] =
49 "eax", "ecx", "edx", "ebx",
50 "esp", "ebp", "esi", "edi",
51 "eip", "eflags", "cs", "ss",
52 "ds", "es", "fs", "gs",
53 "st0", "st1", "st2", "st3",
54 "st4", "st5", "st6", "st7",
55 "fctrl", "fstat", "ftag", "fiseg",
56 "fioff", "foseg", "fooff", "fop",
57 "xmm0", "xmm1", "xmm2", "xmm3",
58 "xmm4", "xmm5", "xmm6", "xmm7",
64 static char *i386_mmx_names
[] =
66 "mm0", "mm1", "mm2", "mm3",
67 "mm4", "mm5", "mm6", "mm7"
69 static const int mmx_num_regs
= (sizeof (i386_mmx_names
)
70 / sizeof (i386_mmx_names
[0]));
71 #define MM0_REGNUM (NUM_REGS)
74 i386_mmx_regnum_p (int reg
)
76 return (reg
>= MM0_REGNUM
&& reg
< MM0_REGNUM
+ mmx_num_regs
);
82 i386_fp_regnum_p (int regnum
)
84 return (regnum
< NUM_REGS
85 && (FP0_REGNUM
&& FP0_REGNUM
<= (regnum
) && (regnum
) < FPC_REGNUM
));
89 i386_fpc_regnum_p (int regnum
)
91 return (regnum
< NUM_REGS
92 && (FPC_REGNUM
<= (regnum
) && (regnum
) < XMM0_REGNUM
));
98 i386_sse_regnum_p (int regnum
)
100 return (regnum
< NUM_REGS
101 && (XMM0_REGNUM
<= (regnum
) && (regnum
) < MXCSR_REGNUM
));
105 i386_mxcsr_regnum_p (int regnum
)
107 return (regnum
< NUM_REGS
108 && (regnum
== MXCSR_REGNUM
));
111 /* Return the name of register REG. */
114 i386_register_name (int reg
)
118 if (i386_mmx_regnum_p (reg
))
119 return i386_mmx_names
[reg
- MM0_REGNUM
];
120 if (reg
>= sizeof (i386_register_names
) / sizeof (*i386_register_names
))
123 return i386_register_names
[reg
];
126 /* Convert stabs register number REG to the appropriate register
127 number used by GDB. */
130 i386_stab_reg_to_regnum (int reg
)
132 /* This implements what GCC calls the "default" register map. */
133 if (reg
>= 0 && reg
<= 7)
135 /* General registers. */
138 else if (reg
>= 12 && reg
<= 19)
140 /* Floating-point registers. */
141 return reg
- 12 + FP0_REGNUM
;
143 else if (reg
>= 21 && reg
<= 28)
146 return reg
- 21 + XMM0_REGNUM
;
148 else if (reg
>= 29 && reg
<= 36)
151 return reg
- 29 + MM0_REGNUM
;
154 /* This will hopefully provoke a warning. */
155 return NUM_REGS
+ NUM_PSEUDO_REGS
;
158 /* Convert DWARF register number REG to the appropriate register
159 number used by GDB. */
162 i386_dwarf_reg_to_regnum (int reg
)
164 /* The DWARF register numbering includes %eip and %eflags, and
165 numbers the floating point registers differently. */
166 if (reg
>= 0 && reg
<= 9)
168 /* General registers. */
171 else if (reg
>= 11 && reg
<= 18)
173 /* Floating-point registers. */
174 return reg
- 11 + FP0_REGNUM
;
178 /* The SSE and MMX registers have identical numbers as in stabs. */
179 return i386_stab_reg_to_regnum (reg
);
182 /* This will hopefully provoke a warning. */
183 return NUM_REGS
+ NUM_PSEUDO_REGS
;
187 /* This is the variable that is set with "set disassembly-flavor", and
188 its legitimate values. */
189 static const char att_flavor
[] = "att";
190 static const char intel_flavor
[] = "intel";
191 static const char *valid_flavors
[] =
197 static const char *disassembly_flavor
= att_flavor
;
199 /* Stdio style buffering was used to minimize calls to ptrace, but
200 this buffering did not take into account that the code section
201 being accessed may not be an even number of buffers long (even if
202 the buffer is only sizeof(int) long). In cases where the code
203 section size happened to be a non-integral number of buffers long,
204 attempting to read the last buffer would fail. Simply using
205 target_read_memory and ignoring errors, rather than read_memory, is
206 not the correct solution, since legitimate access errors would then
207 be totally ignored. To properly handle this situation and continue
208 to use buffering would require that this code be able to determine
209 the minimum code section size granularity (not the alignment of the
210 section itself, since the actual failing case that pointed out this
211 problem had a section alignment of 4 but was not a multiple of 4
212 bytes long), on a target by target basis, and then adjust it's
213 buffer size accordingly. This is messy, but potentially feasible.
214 It probably needs the bfd library's help and support. For now, the
215 buffer size is set to 1. (FIXME -fnf) */
217 #define CODESTREAM_BUFSIZ 1 /* Was sizeof(int), see note above. */
218 static CORE_ADDR codestream_next_addr
;
219 static CORE_ADDR codestream_addr
;
220 static unsigned char codestream_buf
[CODESTREAM_BUFSIZ
];
221 static int codestream_off
;
222 static int codestream_cnt
;
224 #define codestream_tell() (codestream_addr + codestream_off)
225 #define codestream_peek() \
226 (codestream_cnt == 0 ? \
227 codestream_fill(1) : codestream_buf[codestream_off])
228 #define codestream_get() \
229 (codestream_cnt-- == 0 ? \
230 codestream_fill(0) : codestream_buf[codestream_off++])
233 codestream_fill (int peek_flag
)
235 codestream_addr
= codestream_next_addr
;
236 codestream_next_addr
+= CODESTREAM_BUFSIZ
;
238 codestream_cnt
= CODESTREAM_BUFSIZ
;
239 read_memory (codestream_addr
, (char *) codestream_buf
, CODESTREAM_BUFSIZ
);
242 return (codestream_peek ());
244 return (codestream_get ());
248 codestream_seek (CORE_ADDR place
)
250 codestream_next_addr
= place
/ CODESTREAM_BUFSIZ
;
251 codestream_next_addr
*= CODESTREAM_BUFSIZ
;
254 while (codestream_tell () != place
)
259 codestream_read (unsigned char *buf
, int count
)
264 for (i
= 0; i
< count
; i
++)
265 *p
++ = codestream_get ();
269 /* If the next instruction is a jump, move to its target. */
272 i386_follow_jump (void)
274 unsigned char buf
[4];
280 pos
= codestream_tell ();
283 if (codestream_peek () == 0x66)
289 switch (codestream_get ())
292 /* Relative jump: if data16 == 0, disp32, else disp16. */
295 codestream_read (buf
, 2);
296 delta
= extract_signed_integer (buf
, 2);
298 /* Include the size of the jmp instruction (including the
304 codestream_read (buf
, 4);
305 delta
= extract_signed_integer (buf
, 4);
311 /* Relative jump, disp8 (ignore data16). */
312 codestream_read (buf
, 1);
313 /* Sign-extend it. */
314 delta
= extract_signed_integer (buf
, 1);
319 codestream_seek (pos
);
322 /* Find & return the amount a local space allocated, and advance the
323 codestream to the first register push (if any).
325 If the entry sequence doesn't make sense, return -1, and leave
326 codestream pointer at a random spot. */
329 i386_get_frame_setup (CORE_ADDR pc
)
333 codestream_seek (pc
);
337 op
= codestream_get ();
339 if (op
== 0x58) /* popl %eax */
341 /* This function must start with
344 xchgl %eax, (%esp) 0x87 0x04 0x24
345 or xchgl %eax, 0(%esp) 0x87 0x44 0x24 0x00
347 (the System V compiler puts out the second `xchg'
348 instruction, and the assembler doesn't try to optimize it, so
349 the 'sib' form gets generated). This sequence is used to get
350 the address of the return buffer for a function that returns
353 unsigned char buf
[4];
354 static unsigned char proto1
[3] = { 0x87, 0x04, 0x24 };
355 static unsigned char proto2
[4] = { 0x87, 0x44, 0x24, 0x00 };
357 pos
= codestream_tell ();
358 codestream_read (buf
, 4);
359 if (memcmp (buf
, proto1
, 3) == 0)
361 else if (memcmp (buf
, proto2
, 4) == 0)
364 codestream_seek (pos
);
365 op
= codestream_get (); /* Update next opcode. */
368 if (op
== 0x68 || op
== 0x6a)
370 /* This function may start with
382 unsigned char buf
[8];
384 /* Skip past the `pushl' instruction; it has either a one-byte
385 or a four-byte operand, depending on the opcode. */
386 pos
= codestream_tell ();
391 codestream_seek (pos
);
393 /* Read the following 8 bytes, which should be "call _probe" (6
394 bytes) followed by "addl $4,%esp" (2 bytes). */
395 codestream_read (buf
, sizeof (buf
));
396 if (buf
[0] == 0xe8 && buf
[6] == 0xc4 && buf
[7] == 0x4)
398 codestream_seek (pos
);
399 op
= codestream_get (); /* Update next opcode. */
402 if (op
== 0x55) /* pushl %ebp */
404 /* Check for "movl %esp, %ebp" -- can be written in two ways. */
405 switch (codestream_get ())
408 if (codestream_get () != 0xec)
412 if (codestream_get () != 0xe5)
418 /* Check for stack adjustment
422 NOTE: You can't subtract a 16 bit immediate from a 32 bit
423 reg, so we don't have to worry about a data16 prefix. */
424 op
= codestream_peek ();
427 /* `subl' with 8 bit immediate. */
429 if (codestream_get () != 0xec)
430 /* Some instruction starting with 0x83 other than `subl'. */
432 codestream_seek (codestream_tell () - 2);
435 /* `subl' with signed byte immediate (though it wouldn't
436 make sense to be negative). */
437 return (codestream_get ());
442 /* Maybe it is `subl' with a 32 bit immedediate. */
444 if (codestream_get () != 0xec)
445 /* Some instruction starting with 0x81 other than `subl'. */
447 codestream_seek (codestream_tell () - 2);
450 /* It is `subl' with a 32 bit immediate. */
451 codestream_read ((unsigned char *) buf
, 4);
452 return extract_signed_integer (buf
, 4);
462 /* `enter' with 16 bit unsigned immediate. */
463 codestream_read ((unsigned char *) buf
, 2);
464 codestream_get (); /* Flush final byte of enter instruction. */
465 return extract_unsigned_integer (buf
, 2);
470 /* Signal trampolines don't have a meaningful frame. The frame
471 pointer value we use is actually the frame pointer of the calling
472 frame -- that is, the frame which was in progress when the signal
473 trampoline was entered. GDB mostly treats this frame pointer value
474 as a magic cookie. We detect the case of a signal trampoline by
475 testing for get_frame_type() == SIGTRAMP_FRAME, which is set based
478 When a signal trampoline is invoked from a frameless function, we
479 essentially have two frameless functions in a row. In this case,
480 we use the same magic cookie for three frames in a row. We detect
481 this case by seeing whether the next frame is a SIGTRAMP_FRAME,
482 and, if it does, checking whether the current frame is actually
483 frameless. In this case, we need to get the PC by looking at the
484 SP register value stored in the signal context.
486 This should work in most cases except in horrible situations where
487 a signal occurs just as we enter a function but before the frame
488 has been set up. Incidentally, that's just what happens when we
489 call a function from GDB with a signal pending (there's a test in
490 the testsuite that makes this happen). Therefore we pretend that
491 we have a frameless function if we're stopped at the start of a
494 /* Return non-zero if we're dealing with a frameless signal, that is,
495 a signal trampoline invoked from a frameless function. */
498 i386_frameless_signal_p (struct frame_info
*frame
)
500 return (frame
->next
&& get_frame_type (frame
->next
) == SIGTRAMP_FRAME
501 && (frameless_look_for_prologue (frame
)
502 || frame
->pc
== get_pc_function_start (frame
->pc
)));
505 /* Return the chain-pointer for FRAME. In the case of the i386, the
506 frame's nominal address is the address of a 4-byte word containing
507 the calling frame's address. */
510 i386_frame_chain (struct frame_info
*frame
)
512 if (DEPRECATED_PC_IN_CALL_DUMMY (frame
->pc
, 0, 0))
515 if (get_frame_type (frame
) == SIGTRAMP_FRAME
516 || i386_frameless_signal_p (frame
))
519 if (! inside_entry_file (frame
->pc
))
520 return read_memory_unsigned_integer (frame
->frame
, 4);
525 /* Determine whether the function invocation represented by FRAME does
526 not have a from on the stack associated with it. If it does not,
527 return non-zero, otherwise return zero. */
530 i386_frameless_function_invocation (struct frame_info
*frame
)
532 if (get_frame_type (frame
) == SIGTRAMP_FRAME
)
535 return frameless_look_for_prologue (frame
);
538 /* Assuming FRAME is for a sigtramp routine, return the saved program
542 i386_sigtramp_saved_pc (struct frame_info
*frame
)
544 struct gdbarch_tdep
*tdep
= gdbarch_tdep (current_gdbarch
);
547 addr
= tdep
->sigcontext_addr (frame
);
548 return read_memory_unsigned_integer (addr
+ tdep
->sc_pc_offset
, 4);
551 /* Assuming FRAME is for a sigtramp routine, return the saved stack
555 i386_sigtramp_saved_sp (struct frame_info
*frame
)
557 struct gdbarch_tdep
*tdep
= gdbarch_tdep (current_gdbarch
);
560 addr
= tdep
->sigcontext_addr (frame
);
561 return read_memory_unsigned_integer (addr
+ tdep
->sc_sp_offset
, 4);
564 /* Return the saved program counter for FRAME. */
567 i386_frame_saved_pc (struct frame_info
*frame
)
569 if (DEPRECATED_PC_IN_CALL_DUMMY (frame
->pc
, 0, 0))
573 frame_unwind_unsigned_register (frame
, PC_REGNUM
, &pc
);
577 if (get_frame_type (frame
) == SIGTRAMP_FRAME
)
578 return i386_sigtramp_saved_pc (frame
);
580 if (i386_frameless_signal_p (frame
))
582 CORE_ADDR sp
= i386_sigtramp_saved_sp (frame
->next
);
583 return read_memory_unsigned_integer (sp
, 4);
586 return read_memory_unsigned_integer (frame
->frame
+ 4, 4);
589 /* Immediately after a function call, return the saved pc. */
592 i386_saved_pc_after_call (struct frame_info
*frame
)
594 if (get_frame_type (frame
) == SIGTRAMP_FRAME
)
595 return i386_sigtramp_saved_pc (frame
);
597 return read_memory_unsigned_integer (read_register (SP_REGNUM
), 4);
600 /* Return number of args passed to a frame.
601 Can return -1, meaning no way to tell. */
604 i386_frame_num_args (struct frame_info
*fi
)
609 /* This loses because not only might the compiler not be popping the
610 args right after the function call, it might be popping args from
611 both this call and a previous one, and we would say there are
612 more args than there really are. */
616 struct frame_info
*pfi
;
618 /* On the i386, the instruction following the call could be:
620 addl $imm, %esp - imm/4 args; imm may be 8 or 32 bits
621 anything else - zero args. */
625 frameless
= FRAMELESS_FUNCTION_INVOCATION (fi
);
627 /* In the absence of a frame pointer, GDB doesn't get correct
628 values for nameless arguments. Return -1, so it doesn't print
629 any nameless arguments. */
632 pfi
= get_prev_frame (fi
);
635 /* NOTE: This can happen if we are looking at the frame for
636 main, because FRAME_CHAIN_VALID won't let us go into start.
637 If we have debugging symbols, that's not really a big deal;
638 it just means it will only show as many arguments to main as
645 op
= read_memory_integer (retpc
, 1);
646 if (op
== 0x59) /* pop %ecx */
650 op
= read_memory_integer (retpc
+ 1, 1);
652 /* addl $<signed imm 8 bits>, %esp */
653 return (read_memory_integer (retpc
+ 2, 1) & 0xff) / 4;
657 else if (op
== 0x81) /* `add' with 32 bit immediate. */
659 op
= read_memory_integer (retpc
+ 1, 1);
661 /* addl $<imm 32>, %esp */
662 return read_memory_integer (retpc
+ 2, 4) / 4;
674 /* Parse the first few instructions the function to see what registers
677 We handle these cases:
679 The startup sequence can be at the start of the function, or the
680 function can start with a branch to startup code at the end.
682 %ebp can be set up with either the 'enter' instruction, or "pushl
683 %ebp, movl %esp, %ebp" (`enter' is too slow to be useful, but was
684 once used in the System V compiler).
686 Local space is allocated just below the saved %ebp by either the
687 'enter' instruction, or by "subl $<size>, %esp". 'enter' has a 16
688 bit unsigned argument for space to allocate, and the 'addl'
689 instruction could have either a signed byte, or 32 bit immediate.
691 Next, the registers used by this function are pushed. With the
692 System V compiler they will always be in the order: %edi, %esi,
693 %ebx (and sometimes a harmless bug causes it to also save but not
694 restore %eax); however, the code below is willing to see the pushes
695 in any order, and will handle up to 8 of them.
697 If the setup sequence is at the end of the function, then the next
698 instruction will be a branch back to the start. */
701 i386_frame_init_saved_regs (struct frame_info
*fip
)
712 frame_saved_regs_zalloc (fip
);
714 pc
= get_pc_function_start (fip
->pc
);
716 locals
= i386_get_frame_setup (pc
);
720 addr
= fip
->frame
- 4 - locals
;
721 for (i
= 0; i
< 8; i
++)
723 op
= codestream_get ();
724 if (op
< 0x50 || op
> 0x57)
726 #ifdef I386_REGNO_TO_SYMMETRY
727 /* Dynix uses different internal numbering. Ick. */
728 fip
->saved_regs
[I386_REGNO_TO_SYMMETRY (op
- 0x50)] = addr
;
730 fip
->saved_regs
[op
- 0x50] = addr
;
736 fip
->saved_regs
[PC_REGNUM
] = fip
->frame
+ 4;
737 fip
->saved_regs
[FP_REGNUM
] = fip
->frame
;
740 /* Return PC of first real instruction. */
743 i386_skip_prologue (CORE_ADDR pc
)
747 static unsigned char pic_pat
[6] =
748 { 0xe8, 0, 0, 0, 0, /* call 0x0 */
749 0x5b, /* popl %ebx */
753 if (i386_get_frame_setup (pc
) < 0)
756 /* Found valid frame setup -- codestream now points to start of push
757 instructions for saving registers. */
759 /* Skip over register saves. */
760 for (i
= 0; i
< 8; i
++)
762 op
= codestream_peek ();
763 /* Break if not `pushl' instrunction. */
764 if (op
< 0x50 || op
> 0x57)
769 /* The native cc on SVR4 in -K PIC mode inserts the following code
770 to get the address of the global offset table (GOT) into register
775 movl %ebx,x(%ebp) (optional)
778 This code is with the rest of the prologue (at the end of the
779 function), so we have to skip it to get to the first real
780 instruction at the start of the function. */
782 pos
= codestream_tell ();
783 for (i
= 0; i
< 6; i
++)
785 op
= codestream_get ();
786 if (pic_pat
[i
] != op
)
791 unsigned char buf
[4];
794 op
= codestream_get ();
795 if (op
== 0x89) /* movl %ebx, x(%ebp) */
797 op
= codestream_get ();
798 if (op
== 0x5d) /* One byte offset from %ebp. */
801 codestream_read (buf
, 1);
803 else if (op
== 0x9d) /* Four byte offset from %ebp. */
806 codestream_read (buf
, 4);
808 else /* Unexpected instruction. */
810 op
= codestream_get ();
813 if (delta
> 0 && op
== 0x81 && codestream_get () == 0xc3)
818 codestream_seek (pos
);
822 return (codestream_tell ());
825 /* Use the program counter to determine the contents and size of a
826 breakpoint instruction. Return a pointer to a string of bytes that
827 encode a breakpoint instruction, store the length of the string in
828 *LEN and optionally adjust *PC to point to the correct memory
829 location for inserting the breakpoint.
831 On the i386 we have a single breakpoint that fits in a single byte
832 and can be inserted anywhere. */
834 static const unsigned char *
835 i386_breakpoint_from_pc (CORE_ADDR
*pc
, int *len
)
837 static unsigned char break_insn
[] = { 0xcc }; /* int 3 */
839 *len
= sizeof (break_insn
);
843 /* Push the return address (pointing to the call dummy) onto the stack
844 and return the new value for the stack pointer. */
847 i386_push_return_address (CORE_ADDR pc
, CORE_ADDR sp
)
851 store_unsigned_integer (buf
, 4, CALL_DUMMY_ADDRESS ());
852 write_memory (sp
- 4, buf
, 4);
857 i386_do_pop_frame (struct frame_info
*frame
)
861 char regbuf
[I386_MAX_REGISTER_SIZE
];
863 fp
= get_frame_base (frame
);
864 i386_frame_init_saved_regs (frame
);
866 for (regnum
= 0; regnum
< NUM_REGS
; regnum
++)
869 addr
= frame
->saved_regs
[regnum
];
872 read_memory (addr
, regbuf
, REGISTER_RAW_SIZE (regnum
));
873 deprecated_write_register_gen (regnum
, regbuf
);
876 write_register (FP_REGNUM
, read_memory_integer (fp
, 4));
877 write_register (PC_REGNUM
, read_memory_integer (fp
+ 4, 4));
878 write_register (SP_REGNUM
, fp
+ 8);
879 flush_cached_frames ();
883 i386_pop_frame (void)
885 generic_pop_current_frame (i386_do_pop_frame
);
889 /* Figure out where the longjmp will land. Slurp the args out of the
890 stack. We expect the first arg to be a pointer to the jmp_buf
891 structure from which we extract the address that we will land at.
892 This address is copied into PC. This routine returns true on
896 i386_get_longjmp_target (CORE_ADDR
*pc
)
899 CORE_ADDR sp
, jb_addr
;
900 int jb_pc_offset
= gdbarch_tdep (current_gdbarch
)->jb_pc_offset
;
902 /* If JB_PC_OFFSET is -1, we have no way to find out where the
903 longjmp will land. */
904 if (jb_pc_offset
== -1)
907 sp
= read_register (SP_REGNUM
);
908 if (target_read_memory (sp
+ 4, buf
, 4))
911 jb_addr
= extract_address (buf
, 4);
912 if (target_read_memory (jb_addr
+ jb_pc_offset
, buf
, 4))
915 *pc
= extract_address (buf
, 4);
921 i386_push_arguments (int nargs
, struct value
**args
, CORE_ADDR sp
,
922 int struct_return
, CORE_ADDR struct_addr
)
924 sp
= default_push_arguments (nargs
, args
, sp
, struct_return
, struct_addr
);
931 store_address (buf
, 4, struct_addr
);
932 write_memory (sp
, buf
, 4);
939 i386_store_struct_return (CORE_ADDR addr
, CORE_ADDR sp
)
941 /* Do nothing. Everything was already done by i386_push_arguments. */
944 /* These registers are used for returning integers (and on some
945 targets also for returning `struct' and `union' values when their
946 size and alignment match an integer type). */
947 #define LOW_RETURN_REGNUM 0 /* %eax */
948 #define HIGH_RETURN_REGNUM 2 /* %edx */
950 /* Extract from an array REGBUF containing the (raw) register state, a
951 function return value of TYPE, and copy that, in virtual format,
955 i386_extract_return_value (struct type
*type
, struct regcache
*regcache
,
958 bfd_byte
*valbuf
= dst
;
959 int len
= TYPE_LENGTH (type
);
960 char buf
[I386_MAX_REGISTER_SIZE
];
962 if (TYPE_CODE (type
) == TYPE_CODE_STRUCT
963 && TYPE_NFIELDS (type
) == 1)
965 i386_extract_return_value (TYPE_FIELD_TYPE (type
, 0), regcache
, valbuf
);
969 if (TYPE_CODE (type
) == TYPE_CODE_FLT
)
973 warning ("Cannot find floating-point return value.");
974 memset (valbuf
, 0, len
);
978 /* Floating-point return values can be found in %st(0). Convert
979 its contents to the desired type. This is probably not
980 exactly how it would happen on the target itself, but it is
981 the best we can do. */
982 regcache_raw_read (regcache
, FP0_REGNUM
, buf
);
983 convert_typed_floating (buf
, builtin_type_i387_ext
, valbuf
, type
);
987 int low_size
= REGISTER_RAW_SIZE (LOW_RETURN_REGNUM
);
988 int high_size
= REGISTER_RAW_SIZE (HIGH_RETURN_REGNUM
);
992 regcache_raw_read (regcache
, LOW_RETURN_REGNUM
, buf
);
993 memcpy (valbuf
, buf
, len
);
995 else if (len
<= (low_size
+ high_size
))
997 regcache_raw_read (regcache
, LOW_RETURN_REGNUM
, buf
);
998 memcpy (valbuf
, buf
, low_size
);
999 regcache_raw_read (regcache
, HIGH_RETURN_REGNUM
, buf
);
1000 memcpy (valbuf
+ low_size
, buf
, len
- low_size
);
1003 internal_error (__FILE__
, __LINE__
,
1004 "Cannot extract return value of %d bytes long.", len
);
1008 /* Write into the appropriate registers a function return value stored
1009 in VALBUF of type TYPE, given in virtual format. */
1012 i386_store_return_value (struct type
*type
, struct regcache
*regcache
,
1015 int len
= TYPE_LENGTH (type
);
1017 if (TYPE_CODE (type
) == TYPE_CODE_STRUCT
1018 && TYPE_NFIELDS (type
) == 1)
1020 i386_store_return_value (TYPE_FIELD_TYPE (type
, 0), regcache
, valbuf
);
1024 if (TYPE_CODE (type
) == TYPE_CODE_FLT
)
1027 char buf
[FPU_REG_RAW_SIZE
];
1029 if (FP0_REGNUM
== 0)
1031 warning ("Cannot set floating-point return value.");
1035 /* Returning floating-point values is a bit tricky. Apart from
1036 storing the return value in %st(0), we have to simulate the
1037 state of the FPU at function return point. */
1039 /* Convert the value found in VALBUF to the extended
1040 floating-point format used by the FPU. This is probably
1041 not exactly how it would happen on the target itself, but
1042 it is the best we can do. */
1043 convert_typed_floating (valbuf
, type
, buf
, builtin_type_i387_ext
);
1044 regcache_raw_write (regcache
, FP0_REGNUM
, buf
);
1046 /* Set the top of the floating-point register stack to 7. The
1047 actual value doesn't really matter, but 7 is what a normal
1048 function return would end up with if the program started out
1049 with a freshly initialized FPU. */
1050 regcache_raw_read_unsigned (regcache
, FSTAT_REGNUM
, &fstat
);
1052 regcache_raw_write_unsigned (regcache
, FSTAT_REGNUM
, fstat
);
1054 /* Mark %st(1) through %st(7) as empty. Since we set the top of
1055 the floating-point register stack to 7, the appropriate value
1056 for the tag word is 0x3fff. */
1057 regcache_raw_write_unsigned (regcache
, FTAG_REGNUM
, 0x3fff);
1061 int low_size
= REGISTER_RAW_SIZE (LOW_RETURN_REGNUM
);
1062 int high_size
= REGISTER_RAW_SIZE (HIGH_RETURN_REGNUM
);
1064 if (len
<= low_size
)
1065 regcache_raw_write_part (regcache
, LOW_RETURN_REGNUM
, 0, len
, valbuf
);
1066 else if (len
<= (low_size
+ high_size
))
1068 regcache_raw_write (regcache
, LOW_RETURN_REGNUM
, valbuf
);
1069 regcache_raw_write_part (regcache
, HIGH_RETURN_REGNUM
, 0,
1070 len
- low_size
, (char *) valbuf
+ low_size
);
1073 internal_error (__FILE__
, __LINE__
,
1074 "Cannot store return value of %d bytes long.", len
);
1078 /* Extract from REGCACHE, which contains the (raw) register state, the
1079 address in which a function should return its structure value, as a
1083 i386_extract_struct_value_address (struct regcache
*regcache
)
1087 regcache_raw_read_unsigned (regcache
, LOW_RETURN_REGNUM
, &addr
);
1092 /* This is the variable that is set with "set struct-convention", and
1093 its legitimate values. */
1094 static const char default_struct_convention
[] = "default";
1095 static const char pcc_struct_convention
[] = "pcc";
1096 static const char reg_struct_convention
[] = "reg";
1097 static const char *valid_conventions
[] =
1099 default_struct_convention
,
1100 pcc_struct_convention
,
1101 reg_struct_convention
,
1104 static const char *struct_convention
= default_struct_convention
;
1107 i386_use_struct_convention (int gcc_p
, struct type
*type
)
1109 enum struct_return struct_return
;
1111 if (struct_convention
== default_struct_convention
)
1112 struct_return
= gdbarch_tdep (current_gdbarch
)->struct_return
;
1113 else if (struct_convention
== pcc_struct_convention
)
1114 struct_return
= pcc_struct_return
;
1116 struct_return
= reg_struct_return
;
1118 return generic_use_struct_convention (struct_return
== reg_struct_return
,
1123 /* Return the GDB type object for the "standard" data type of data in
1124 register REGNUM. Perhaps %esi and %edi should go here, but
1125 potentially they could be used for things other than address. */
1127 static struct type
*
1128 i386_register_virtual_type (int regnum
)
1130 if (regnum
== PC_REGNUM
|| regnum
== FP_REGNUM
|| regnum
== SP_REGNUM
)
1131 return lookup_pointer_type (builtin_type_void
);
1133 if (i386_fp_regnum_p (regnum
))
1134 return builtin_type_i387_ext
;
1136 if (i386_sse_regnum_p (regnum
))
1137 return builtin_type_vec128i
;
1139 if (i386_mmx_regnum_p (regnum
))
1140 return builtin_type_vec64i
;
1142 return builtin_type_int
;
1145 /* Map a cooked register onto a raw register or memory. For the i386,
1146 the MMX registers need to be mapped onto floating point registers. */
1149 mmx_regnum_to_fp_regnum (struct regcache
*regcache
, int regnum
)
1155 mmxi
= regnum
- MM0_REGNUM
;
1156 regcache_raw_read_unsigned (regcache
, FSTAT_REGNUM
, &fstat
);
1157 tos
= (fstat
>> 11) & 0x7;
1158 fpi
= (mmxi
+ tos
) % 8;
1159 return (FP0_REGNUM
+ fpi
);
1163 i386_pseudo_register_read (struct gdbarch
*gdbarch
, struct regcache
*regcache
,
1164 int regnum
, void *buf
)
1166 if (i386_mmx_regnum_p (regnum
))
1168 char *mmx_buf
= alloca (MAX_REGISTER_RAW_SIZE
);
1169 int fpnum
= mmx_regnum_to_fp_regnum (regcache
, regnum
);
1170 regcache_raw_read (regcache
, fpnum
, mmx_buf
);
1171 /* Extract (always little endian). */
1172 memcpy (buf
, mmx_buf
, REGISTER_RAW_SIZE (regnum
));
1175 regcache_raw_read (regcache
, regnum
, buf
);
1179 i386_pseudo_register_write (struct gdbarch
*gdbarch
, struct regcache
*regcache
,
1180 int regnum
, const void *buf
)
1182 if (i386_mmx_regnum_p (regnum
))
1184 char *mmx_buf
= alloca (MAX_REGISTER_RAW_SIZE
);
1185 int fpnum
= mmx_regnum_to_fp_regnum (regcache
, regnum
);
1187 regcache_raw_read (regcache
, fpnum
, mmx_buf
);
1188 /* ... Modify ... (always little endian). */
1189 memcpy (mmx_buf
, buf
, REGISTER_RAW_SIZE (regnum
));
1191 regcache_raw_write (regcache
, fpnum
, mmx_buf
);
1194 regcache_raw_write (regcache
, regnum
, buf
);
1197 /* Return true iff register REGNUM's virtual format is different from
1198 its raw format. Note that this definition assumes that the host
1199 supports IEEE 32-bit floats, since it doesn't say that SSE
1200 registers need conversion. Even if we can't find a counterexample,
1201 this is still sloppy. */
1204 i386_register_convertible (int regnum
)
1206 return i386_fp_regnum_p (regnum
);
1209 /* Convert data from raw format for register REGNUM in buffer FROM to
1210 virtual format with type TYPE in buffer TO. */
1213 i386_register_convert_to_virtual (int regnum
, struct type
*type
,
1214 char *from
, char *to
)
1216 gdb_assert (i386_fp_regnum_p (regnum
));
1218 /* We only support floating-point values. */
1219 if (TYPE_CODE (type
) != TYPE_CODE_FLT
)
1221 warning ("Cannot convert floating-point register value "
1222 "to non-floating-point type.");
1223 memset (to
, 0, TYPE_LENGTH (type
));
1227 /* Convert to TYPE. This should be a no-op if TYPE is equivalent to
1228 the extended floating-point format used by the FPU. */
1229 convert_typed_floating (from
, builtin_type_i387_ext
, to
, type
);
1232 /* Convert data from virtual format with type TYPE in buffer FROM to
1233 raw format for register REGNUM in buffer TO. */
1236 i386_register_convert_to_raw (struct type
*type
, int regnum
,
1237 char *from
, char *to
)
1239 gdb_assert (i386_fp_regnum_p (regnum
));
1241 /* We only support floating-point values. */
1242 if (TYPE_CODE (type
) != TYPE_CODE_FLT
)
1244 warning ("Cannot convert non-floating-point type "
1245 "to floating-point register value.");
1246 memset (to
, 0, TYPE_LENGTH (type
));
1250 /* Convert from TYPE. This should be a no-op if TYPE is equivalent
1251 to the extended floating-point format used by the FPU. */
1252 convert_typed_floating (from
, type
, to
, builtin_type_i387_ext
);
1256 #ifdef STATIC_TRANSFORM_NAME
1257 /* SunPRO encodes the static variables. This is not related to C++
1258 mangling, it is done for C too. */
1261 sunpro_static_transform_name (char *name
)
1264 if (IS_STATIC_TRANSFORM_NAME (name
))
1266 /* For file-local statics there will be a period, a bunch of
1267 junk (the contents of which match a string given in the
1268 N_OPT), a period and the name. For function-local statics
1269 there will be a bunch of junk (which seems to change the
1270 second character from 'A' to 'B'), a period, the name of the
1271 function, and the name. So just skip everything before the
1273 p
= strrchr (name
, '.');
1279 #endif /* STATIC_TRANSFORM_NAME */
1282 /* Stuff for WIN32 PE style DLL's but is pretty generic really. */
1285 i386_pe_skip_trampoline_code (CORE_ADDR pc
, char *name
)
1287 if (pc
&& read_memory_unsigned_integer (pc
, 2) == 0x25ff) /* jmp *(dest) */
1289 unsigned long indirect
= read_memory_unsigned_integer (pc
+ 2, 4);
1290 struct minimal_symbol
*indsym
=
1291 indirect
? lookup_minimal_symbol_by_pc (indirect
) : 0;
1292 char *symname
= indsym
? SYMBOL_NAME (indsym
) : 0;
1296 if (strncmp (symname
, "__imp_", 6) == 0
1297 || strncmp (symname
, "_imp_", 5) == 0)
1298 return name
? 1 : read_memory_unsigned_integer (indirect
, 4);
1301 return 0; /* Not a trampoline. */
1305 /* Return non-zero if PC and NAME show that we are in a signal
1309 i386_pc_in_sigtramp (CORE_ADDR pc
, char *name
)
1311 return (name
&& strcmp ("_sigtramp", name
) == 0);
1315 /* We have two flavours of disassembly. The machinery on this page
1316 deals with switching between those. */
1319 i386_print_insn (bfd_vma pc
, disassemble_info
*info
)
1321 gdb_assert (disassembly_flavor
== att_flavor
1322 || disassembly_flavor
== intel_flavor
);
1324 /* FIXME: kettenis/20020915: Until disassembler_options is properly
1325 constified, cast to prevent a compiler warning. */
1326 info
->disassembler_options
= (char *) disassembly_flavor
;
1327 info
->mach
= gdbarch_bfd_arch_info (current_gdbarch
)->mach
;
1329 return print_insn_i386 (pc
, info
);
1333 /* There are a few i386 architecture variants that differ only
1334 slightly from the generic i386 target. For now, we don't give them
1335 their own source file, but include them here. As a consequence,
1336 they'll always be included. */
1338 /* System V Release 4 (SVR4). */
1341 i386_svr4_pc_in_sigtramp (CORE_ADDR pc
, char *name
)
1343 return (name
&& (strcmp ("_sigreturn", name
) == 0
1344 || strcmp ("_sigacthandler", name
) == 0
1345 || strcmp ("sigvechandler", name
) == 0));
1348 /* Get address of the pushed ucontext (sigcontext) on the stack for
1349 all three variants of SVR4 sigtramps. */
1352 i386_svr4_sigcontext_addr (struct frame_info
*frame
)
1354 int sigcontext_offset
= -1;
1357 find_pc_partial_function (frame
->pc
, &name
, NULL
, NULL
);
1360 if (strcmp (name
, "_sigreturn") == 0)
1361 sigcontext_offset
= 132;
1362 else if (strcmp (name
, "_sigacthandler") == 0)
1363 sigcontext_offset
= 80;
1364 else if (strcmp (name
, "sigvechandler") == 0)
1365 sigcontext_offset
= 120;
1368 gdb_assert (sigcontext_offset
!= -1);
1371 return frame
->next
->frame
+ sigcontext_offset
;
1372 return read_register (SP_REGNUM
) + sigcontext_offset
;
1379 i386_go32_pc_in_sigtramp (CORE_ADDR pc
, char *name
)
1381 /* DJGPP doesn't have any special frames for signal handlers. */
1389 i386_elf_init_abi (struct gdbarch_info info
, struct gdbarch
*gdbarch
)
1391 /* We typically use stabs-in-ELF with the DWARF register numbering. */
1392 set_gdbarch_stab_reg_to_regnum (gdbarch
, i386_dwarf_reg_to_regnum
);
1395 /* System V Release 4 (SVR4). */
1398 i386_svr4_init_abi (struct gdbarch_info info
, struct gdbarch
*gdbarch
)
1400 struct gdbarch_tdep
*tdep
= gdbarch_tdep (gdbarch
);
1402 /* System V Release 4 uses ELF. */
1403 i386_elf_init_abi (info
, gdbarch
);
1405 /* System V Release 4 has shared libraries. */
1406 set_gdbarch_in_solib_call_trampoline (gdbarch
, in_plt_section
);
1407 set_gdbarch_skip_trampoline_code (gdbarch
, find_solib_trampoline_target
);
1409 /* FIXME: kettenis/20020511: Why do we override this function here? */
1410 set_gdbarch_frame_chain_valid (gdbarch
, generic_func_frame_chain_valid
);
1412 set_gdbarch_pc_in_sigtramp (gdbarch
, i386_svr4_pc_in_sigtramp
);
1413 tdep
->sigcontext_addr
= i386_svr4_sigcontext_addr
;
1414 tdep
->sc_pc_offset
= 14 * 4;
1415 tdep
->sc_sp_offset
= 7 * 4;
1417 tdep
->jb_pc_offset
= 20;
1423 i386_go32_init_abi (struct gdbarch_info info
, struct gdbarch
*gdbarch
)
1425 struct gdbarch_tdep
*tdep
= gdbarch_tdep (gdbarch
);
1427 set_gdbarch_pc_in_sigtramp (gdbarch
, i386_go32_pc_in_sigtramp
);
1429 tdep
->jb_pc_offset
= 36;
1435 i386_nw_init_abi (struct gdbarch_info info
, struct gdbarch
*gdbarch
)
1437 struct gdbarch_tdep
*tdep
= gdbarch_tdep (gdbarch
);
1439 /* FIXME: kettenis/20020511: Why do we override this function here? */
1440 set_gdbarch_frame_chain_valid (gdbarch
, generic_func_frame_chain_valid
);
1442 tdep
->jb_pc_offset
= 24;
1446 /* i386 register groups. In addition to the normal groups, add "mmx"
1449 static struct reggroup
*i386_sse_reggroup
;
1450 static struct reggroup
*i386_mmx_reggroup
;
1453 i386_init_reggroups (void)
1455 i386_sse_reggroup
= reggroup_new ("sse", USER_REGGROUP
);
1456 i386_mmx_reggroup
= reggroup_new ("mmx", USER_REGGROUP
);
1460 i386_add_reggroups (struct gdbarch
*gdbarch
)
1462 reggroup_add (gdbarch
, i386_sse_reggroup
);
1463 reggroup_add (gdbarch
, i386_mmx_reggroup
);
1464 reggroup_add (gdbarch
, general_reggroup
);
1465 reggroup_add (gdbarch
, float_reggroup
);
1466 reggroup_add (gdbarch
, all_reggroup
);
1467 reggroup_add (gdbarch
, save_reggroup
);
1468 reggroup_add (gdbarch
, restore_reggroup
);
1469 reggroup_add (gdbarch
, vector_reggroup
);
1470 reggroup_add (gdbarch
, system_reggroup
);
1474 i386_register_reggroup_p (struct gdbarch
*gdbarch
, int regnum
,
1475 struct reggroup
*group
)
1477 int sse_regnum_p
= (i386_sse_regnum_p (regnum
)
1478 || i386_mxcsr_regnum_p (regnum
));
1479 int fp_regnum_p
= (i386_fp_regnum_p (regnum
)
1480 || i386_fpc_regnum_p (regnum
));
1481 int mmx_regnum_p
= (i386_mmx_regnum_p (regnum
));
1482 if (group
== i386_mmx_reggroup
)
1483 return mmx_regnum_p
;
1484 if (group
== i386_sse_reggroup
)
1485 return sse_regnum_p
;
1486 if (group
== vector_reggroup
)
1487 return (mmx_regnum_p
|| sse_regnum_p
);
1488 if (group
== float_reggroup
)
1490 if (group
== general_reggroup
)
1491 return (!fp_regnum_p
&& !mmx_regnum_p
&& !sse_regnum_p
);
1492 return default_register_reggroup_p (gdbarch
, regnum
, group
);
1496 static struct gdbarch
*
1497 i386_gdbarch_init (struct gdbarch_info info
, struct gdbarch_list
*arches
)
1499 struct gdbarch_tdep
*tdep
;
1500 struct gdbarch
*gdbarch
;
1501 enum gdb_osabi osabi
= GDB_OSABI_UNKNOWN
;
1503 /* Try to determine the OS ABI of the object we're loading. */
1504 if (info
.abfd
!= NULL
)
1505 osabi
= gdbarch_lookup_osabi (info
.abfd
);
1507 /* Find a candidate among extant architectures. */
1508 for (arches
= gdbarch_list_lookup_by_info (arches
, &info
);
1510 arches
= gdbarch_list_lookup_by_info (arches
->next
, &info
))
1512 /* Make sure the OS ABI selection matches. */
1513 tdep
= gdbarch_tdep (arches
->gdbarch
);
1514 if (tdep
&& tdep
->osabi
== osabi
)
1515 return arches
->gdbarch
;
1518 /* Allocate space for the new architecture. */
1519 tdep
= XMALLOC (struct gdbarch_tdep
);
1520 gdbarch
= gdbarch_alloc (&info
, tdep
);
1522 tdep
->osabi
= osabi
;
1524 /* The i386 default settings don't include the SSE registers.
1525 FIXME: kettenis/20020614: They do include the FPU registers for
1526 now, which probably is not quite right. */
1527 tdep
->num_xmm_regs
= 0;
1529 tdep
->jb_pc_offset
= -1;
1530 tdep
->struct_return
= pcc_struct_return
;
1531 tdep
->sigtramp_start
= 0;
1532 tdep
->sigtramp_end
= 0;
1533 tdep
->sigcontext_addr
= NULL
;
1534 tdep
->sc_pc_offset
= -1;
1535 tdep
->sc_sp_offset
= -1;
1537 /* The format used for `long double' on almost all i386 targets is
1538 the i387 extended floating-point format. In fact, of all targets
1539 in the GCC 2.95 tree, only OSF/1 does it different, and insists
1540 on having a `long double' that's not `long' at all. */
1541 set_gdbarch_long_double_format (gdbarch
, &floatformat_i387_ext
);
1543 /* Although the i387 extended floating-point has only 80 significant
1544 bits, a `long double' actually takes up 96, probably to enforce
1546 set_gdbarch_long_double_bit (gdbarch
, 96);
1548 /* NOTE: tm-i386aix.h, tm-i386bsd.h, tm-i386os9k.h, tm-ptx.h,
1549 tm-symmetry.h currently override this. Sigh. */
1550 set_gdbarch_num_regs (gdbarch
, I386_NUM_GREGS
+ I386_NUM_FREGS
);
1552 set_gdbarch_sp_regnum (gdbarch
, 4); /* %esp */
1553 set_gdbarch_fp_regnum (gdbarch
, 5); /* %ebp */
1554 set_gdbarch_pc_regnum (gdbarch
, 8); /* %eip */
1555 set_gdbarch_ps_regnum (gdbarch
, 9); /* %eflags */
1556 set_gdbarch_fp0_regnum (gdbarch
, 16); /* %st(0) */
1558 /* Use the "default" register numbering scheme for stabs and COFF. */
1559 set_gdbarch_stab_reg_to_regnum (gdbarch
, i386_stab_reg_to_regnum
);
1560 set_gdbarch_sdb_reg_to_regnum (gdbarch
, i386_stab_reg_to_regnum
);
1562 /* Use the DWARF register numbering scheme for DWARF and DWARF 2. */
1563 set_gdbarch_dwarf_reg_to_regnum (gdbarch
, i386_dwarf_reg_to_regnum
);
1564 set_gdbarch_dwarf2_reg_to_regnum (gdbarch
, i386_dwarf_reg_to_regnum
);
1566 /* We don't define ECOFF_REG_TO_REGNUM, since ECOFF doesn't seem to
1567 be in use on any of the supported i386 targets. */
1569 set_gdbarch_register_name (gdbarch
, i386_register_name
);
1570 set_gdbarch_register_size (gdbarch
, 4);
1571 set_gdbarch_register_bytes (gdbarch
, I386_SIZEOF_GREGS
+ I386_SIZEOF_FREGS
);
1572 set_gdbarch_max_register_raw_size (gdbarch
, I386_MAX_REGISTER_SIZE
);
1573 set_gdbarch_max_register_virtual_size (gdbarch
, I386_MAX_REGISTER_SIZE
);
1574 set_gdbarch_register_virtual_type (gdbarch
, i386_register_virtual_type
);
1576 set_gdbarch_print_float_info (gdbarch
, i387_print_float_info
);
1578 set_gdbarch_get_longjmp_target (gdbarch
, i386_get_longjmp_target
);
1580 /* Call dummy code. */
1581 set_gdbarch_call_dummy_address (gdbarch
, entry_point_address
);
1582 set_gdbarch_call_dummy_start_offset (gdbarch
, 0);
1583 set_gdbarch_call_dummy_breakpoint_offset (gdbarch
, 0);
1584 set_gdbarch_call_dummy_breakpoint_offset_p (gdbarch
, 1);
1585 set_gdbarch_call_dummy_length (gdbarch
, 0);
1586 set_gdbarch_call_dummy_p (gdbarch
, 1);
1587 set_gdbarch_call_dummy_words (gdbarch
, NULL
);
1588 set_gdbarch_sizeof_call_dummy_words (gdbarch
, 0);
1589 set_gdbarch_call_dummy_stack_adjust_p (gdbarch
, 0);
1590 set_gdbarch_fix_call_dummy (gdbarch
, generic_fix_call_dummy
);
1592 set_gdbarch_register_convertible (gdbarch
, i386_register_convertible
);
1593 set_gdbarch_register_convert_to_virtual (gdbarch
,
1594 i386_register_convert_to_virtual
);
1595 set_gdbarch_register_convert_to_raw (gdbarch
, i386_register_convert_to_raw
);
1597 set_gdbarch_deprecated_pc_in_call_dummy (gdbarch
, deprecated_pc_in_call_dummy_at_entry_point
);
1599 /* "An argument's size is increased, if necessary, to make it a
1600 multiple of [32-bit] words. This may require tail padding,
1601 depending on the size of the argument" -- from the x86 ABI. */
1602 set_gdbarch_parm_boundary (gdbarch
, 32);
1604 set_gdbarch_extract_return_value (gdbarch
, i386_extract_return_value
);
1605 set_gdbarch_push_arguments (gdbarch
, i386_push_arguments
);
1606 set_gdbarch_push_dummy_frame (gdbarch
, generic_push_dummy_frame
);
1607 set_gdbarch_push_return_address (gdbarch
, i386_push_return_address
);
1608 set_gdbarch_pop_frame (gdbarch
, i386_pop_frame
);
1609 set_gdbarch_store_struct_return (gdbarch
, i386_store_struct_return
);
1610 set_gdbarch_store_return_value (gdbarch
, i386_store_return_value
);
1611 set_gdbarch_extract_struct_value_address (gdbarch
,
1612 i386_extract_struct_value_address
);
1613 set_gdbarch_use_struct_convention (gdbarch
, i386_use_struct_convention
);
1615 set_gdbarch_frame_init_saved_regs (gdbarch
, i386_frame_init_saved_regs
);
1616 set_gdbarch_skip_prologue (gdbarch
, i386_skip_prologue
);
1618 /* Stack grows downward. */
1619 set_gdbarch_inner_than (gdbarch
, core_addr_lessthan
);
1621 set_gdbarch_breakpoint_from_pc (gdbarch
, i386_breakpoint_from_pc
);
1622 set_gdbarch_decr_pc_after_break (gdbarch
, 1);
1623 set_gdbarch_function_start_offset (gdbarch
, 0);
1625 /* The following redefines make backtracing through sigtramp work.
1626 They manufacture a fake sigtramp frame and obtain the saved pc in
1627 sigtramp from the sigcontext structure which is pushed by the
1628 kernel on the user stack, along with a pointer to it. */
1630 set_gdbarch_frame_args_skip (gdbarch
, 8);
1631 set_gdbarch_frameless_function_invocation (gdbarch
,
1632 i386_frameless_function_invocation
);
1633 set_gdbarch_frame_chain (gdbarch
, i386_frame_chain
);
1634 set_gdbarch_frame_chain_valid (gdbarch
, generic_file_frame_chain_valid
);
1635 set_gdbarch_frame_saved_pc (gdbarch
, i386_frame_saved_pc
);
1636 set_gdbarch_saved_pc_after_call (gdbarch
, i386_saved_pc_after_call
);
1637 set_gdbarch_frame_num_args (gdbarch
, i386_frame_num_args
);
1638 set_gdbarch_pc_in_sigtramp (gdbarch
, i386_pc_in_sigtramp
);
1640 /* Wire in the MMX registers. */
1641 set_gdbarch_num_pseudo_regs (gdbarch
, mmx_num_regs
);
1642 set_gdbarch_pseudo_register_read (gdbarch
, i386_pseudo_register_read
);
1643 set_gdbarch_pseudo_register_write (gdbarch
, i386_pseudo_register_write
);
1645 set_gdbarch_print_insn (gdbarch
, i386_print_insn
);
1647 /* Add the i386 register groups. */
1648 i386_add_reggroups (gdbarch
);
1649 set_gdbarch_register_reggroup_p (gdbarch
, i386_register_reggroup_p
);
1651 /* Hook in ABI-specific overrides, if they have been registered. */
1652 gdbarch_init_osabi (info
, gdbarch
, osabi
);
1657 static enum gdb_osabi
1658 i386_coff_osabi_sniffer (bfd
*abfd
)
1660 if (strcmp (bfd_get_target (abfd
), "coff-go32-exe") == 0
1661 || strcmp (bfd_get_target (abfd
), "coff-go32") == 0)
1662 return GDB_OSABI_GO32
;
1664 return GDB_OSABI_UNKNOWN
;
1667 static enum gdb_osabi
1668 i386_nlm_osabi_sniffer (bfd
*abfd
)
1670 return GDB_OSABI_NETWARE
;
1674 /* Provide a prototype to silence -Wmissing-prototypes. */
1675 void _initialize_i386_tdep (void);
1678 _initialize_i386_tdep (void)
1680 register_gdbarch_init (bfd_arch_i386
, i386_gdbarch_init
);
1682 /* Add the variable that controls the disassembly flavor. */
1684 struct cmd_list_element
*new_cmd
;
1686 new_cmd
= add_set_enum_cmd ("disassembly-flavor", no_class
,
1688 &disassembly_flavor
,
1690 Set the disassembly flavor, the valid values are \"att\" and \"intel\", \
1691 and the default value is \"att\".",
1693 add_show_from_set (new_cmd
, &showlist
);
1696 /* Add the variable that controls the convention for returning
1699 struct cmd_list_element
*new_cmd
;
1701 new_cmd
= add_set_enum_cmd ("struct-convention", no_class
,
1703 &struct_convention
, "\
1704 Set the convention for returning small structs, valid values \
1705 are \"default\", \"pcc\" and \"reg\", and the default value is \"default\".",
1707 add_show_from_set (new_cmd
, &showlist
);
1710 gdbarch_register_osabi_sniffer (bfd_arch_i386
, bfd_target_coff_flavour
,
1711 i386_coff_osabi_sniffer
);
1712 gdbarch_register_osabi_sniffer (bfd_arch_i386
, bfd_target_nlm_flavour
,
1713 i386_nlm_osabi_sniffer
);
1715 gdbarch_register_osabi (bfd_arch_i386
, GDB_OSABI_SVR4
,
1716 i386_svr4_init_abi
);
1717 gdbarch_register_osabi (bfd_arch_i386
, GDB_OSABI_GO32
,
1718 i386_go32_init_abi
);
1719 gdbarch_register_osabi (bfd_arch_i386
, GDB_OSABI_NETWARE
,
1722 /* Initialize the i386 specific register groups. */
1723 i386_init_reggroups ();