1 /* Intel 386 target-dependent stuff.
2 Copyright (C) 1988, 1989, 1991, 1994 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 "floatformat.h"
33 i386_get_frame_setup
PARAMS ((int));
36 i386_follow_jump
PARAMS ((void));
39 codestream_read
PARAMS ((unsigned char *, int));
42 codestream_seek
PARAMS ((int));
45 codestream_fill
PARAMS ((int));
47 /* helper functions for tm-i386.h */
49 /* Stdio style buffering was used to minimize calls to ptrace, but this
50 buffering did not take into account that the code section being accessed
51 may not be an even number of buffers long (even if the buffer is only
52 sizeof(int) long). In cases where the code section size happened to
53 be a non-integral number of buffers long, attempting to read the last
54 buffer would fail. Simply using target_read_memory and ignoring errors,
55 rather than read_memory, is not the correct solution, since legitimate
56 access errors would then be totally ignored. To properly handle this
57 situation and continue to use buffering would require that this code
58 be able to determine the minimum code section size granularity (not the
59 alignment of the section itself, since the actual failing case that
60 pointed out this problem had a section alignment of 4 but was not a
61 multiple of 4 bytes long), on a target by target basis, and then
62 adjust it's buffer size accordingly. This is messy, but potentially
63 feasible. It probably needs the bfd library's help and support. For
64 now, the buffer size is set to 1. (FIXME -fnf) */
66 #define CODESTREAM_BUFSIZ 1 /* Was sizeof(int), see note above. */
67 static CORE_ADDR codestream_next_addr
;
68 static CORE_ADDR codestream_addr
;
69 static unsigned char codestream_buf
[CODESTREAM_BUFSIZ
];
70 static int codestream_off
;
71 static int codestream_cnt
;
73 #define codestream_tell() (codestream_addr + codestream_off)
74 #define codestream_peek() (codestream_cnt == 0 ? \
75 codestream_fill(1): codestream_buf[codestream_off])
76 #define codestream_get() (codestream_cnt-- == 0 ? \
77 codestream_fill(0) : codestream_buf[codestream_off++])
80 codestream_fill (peek_flag
)
83 codestream_addr
= codestream_next_addr
;
84 codestream_next_addr
+= CODESTREAM_BUFSIZ
;
86 codestream_cnt
= CODESTREAM_BUFSIZ
;
87 read_memory (codestream_addr
, (char *) codestream_buf
, CODESTREAM_BUFSIZ
);
90 return (codestream_peek());
92 return (codestream_get());
96 codestream_seek (place
)
99 codestream_next_addr
= place
/ CODESTREAM_BUFSIZ
;
100 codestream_next_addr
*= CODESTREAM_BUFSIZ
;
103 while (codestream_tell() != place
)
108 codestream_read (buf
, count
)
115 for (i
= 0; i
< count
; i
++)
116 *p
++ = codestream_get ();
119 /* next instruction is a jump, move to target */
124 unsigned char buf
[4];
130 pos
= codestream_tell ();
133 if (codestream_peek () == 0x66)
139 switch (codestream_get ())
142 /* relative jump: if data16 == 0, disp32, else disp16 */
145 codestream_read (buf
, 2);
146 delta
= extract_signed_integer (buf
, 2);
148 /* include size of jmp inst (including the 0x66 prefix). */
153 codestream_read (buf
, 4);
154 delta
= extract_signed_integer (buf
, 4);
160 /* relative jump, disp8 (ignore data16) */
161 codestream_read (buf
, 1);
162 /* Sign-extend it. */
163 delta
= extract_signed_integer (buf
, 1);
168 codestream_seek (pos
);
172 * find & return amound a local space allocated, and advance codestream to
173 * first register push (if any)
175 * if entry sequence doesn't make sense, return -1, and leave
176 * codestream pointer random
180 i386_get_frame_setup (pc
)
185 codestream_seek (pc
);
189 op
= codestream_get ();
191 if (op
== 0x58) /* popl %eax */
194 * this function must start with
197 * xchgl %eax, (%esp) 0x87 0x04 0x24
198 * or xchgl %eax, 0(%esp) 0x87 0x44 0x24 0x00
200 * (the system 5 compiler puts out the second xchg
201 * inst, and the assembler doesn't try to optimize it,
202 * so the 'sib' form gets generated)
204 * this sequence is used to get the address of the return
205 * buffer for a function that returns a structure
208 unsigned char buf
[4];
209 static unsigned char proto1
[3] = { 0x87,0x04,0x24 };
210 static unsigned char proto2
[4] = { 0x87,0x44,0x24,0x00 };
211 pos
= codestream_tell ();
212 codestream_read (buf
, 4);
213 if (memcmp (buf
, proto1
, 3) == 0)
215 else if (memcmp (buf
, proto2
, 4) == 0)
218 codestream_seek (pos
);
219 op
= codestream_get (); /* update next opcode */
222 if (op
== 0x55) /* pushl %ebp */
224 /* check for movl %esp, %ebp - can be written two ways */
225 switch (codestream_get ())
228 if (codestream_get () != 0xec)
232 if (codestream_get () != 0xe5)
238 /* check for stack adjustment
242 * note: you can't subtract a 16 bit immediate
243 * from a 32 bit reg, so we don't have to worry
244 * about a data16 prefix
246 op
= codestream_peek ();
249 /* subl with 8 bit immed */
251 if (codestream_get () != 0xec)
252 /* Some instruction starting with 0x83 other than subl. */
254 codestream_seek (codestream_tell () - 2);
257 /* subl with signed byte immediate
258 * (though it wouldn't make sense to be negative)
260 return (codestream_get());
265 /* Maybe it is subl with 32 bit immedediate. */
267 if (codestream_get () != 0xec)
268 /* Some instruction starting with 0x81 other than subl. */
270 codestream_seek (codestream_tell () - 2);
273 /* It is subl with 32 bit immediate. */
274 codestream_read ((unsigned char *)buf
, 4);
275 return extract_signed_integer (buf
, 4);
285 /* enter instruction: arg is 16 bit unsigned immed */
286 codestream_read ((unsigned char *)buf
, 2);
287 codestream_get (); /* flush final byte of enter instruction */
288 return extract_unsigned_integer (buf
, 2);
293 /* Return number of args passed to a frame.
294 Can return -1, meaning no way to tell. */
297 i386_frame_num_args (fi
)
298 struct frame_info
*fi
;
303 /* This loses because not only might the compiler not be popping the
304 args right after the function call, it might be popping args from both
305 this call and a previous one, and we would say there are more args
306 than there really are. */
310 struct frame_info
*pfi
;
312 /* on the 386, the instruction following the call could be:
314 addl $imm, %esp - imm/4 args; imm may be 8 or 32 bits
315 anything else - zero args */
319 FRAMELESS_FUNCTION_INVOCATION (fi
, frameless
);
321 /* In the absence of a frame pointer, GDB doesn't get correct values
322 for nameless arguments. Return -1, so it doesn't print any
323 nameless arguments. */
326 pfi
= get_prev_frame_info (fi
);
329 /* Note: this can happen if we are looking at the frame for
330 main, because FRAME_CHAIN_VALID won't let us go into
331 start. If we have debugging symbols, that's not really
332 a big deal; it just means it will only show as many arguments
333 to main as are declared. */
339 op
= read_memory_integer (retpc
, 1);
345 op
= read_memory_integer (retpc
+1, 1);
347 /* addl $<signed imm 8 bits>, %esp */
348 return (read_memory_integer (retpc
+2,1)&0xff)/4;
353 { /* add with 32 bit immediate */
354 op
= read_memory_integer (retpc
+1, 1);
356 /* addl $<imm 32>, %esp */
357 return read_memory_integer (retpc
+2, 4) / 4;
370 * parse the first few instructions of the function to see
371 * what registers were stored.
373 * We handle these cases:
375 * The startup sequence can be at the start of the function,
376 * or the function can start with a branch to startup code at the end.
378 * %ebp can be set up with either the 'enter' instruction, or
379 * 'pushl %ebp, movl %esp, %ebp' (enter is too slow to be useful,
380 * but was once used in the sys5 compiler)
382 * Local space is allocated just below the saved %ebp by either the
383 * 'enter' instruction, or by 'subl $<size>, %esp'. 'enter' has
384 * a 16 bit unsigned argument for space to allocate, and the
385 * 'addl' instruction could have either a signed byte, or
388 * Next, the registers used by this function are pushed. In
389 * the sys5 compiler they will always be in the order: %edi, %esi, %ebx
390 * (and sometimes a harmless bug causes it to also save but not restore %eax);
391 * however, the code below is willing to see the pushes in any order,
392 * and will handle up to 8 of them.
394 * If the setup sequence is at the end of the function, then the
395 * next instruction will be a branch back to the start.
399 i386_frame_find_saved_regs (fip
, fsrp
)
400 struct frame_info
*fip
;
401 struct frame_saved_regs
*fsrp
;
405 CORE_ADDR dummy_bottom
;
409 memset (fsrp
, 0, sizeof *fsrp
);
411 /* if frame is the end of a dummy, compute where the
414 dummy_bottom
= fip
->frame
- 4 - REGISTER_BYTES
- CALL_DUMMY_LENGTH
;
416 /* check if the PC is in the stack, in a dummy frame */
417 if (dummy_bottom
<= fip
->pc
&& fip
->pc
<= fip
->frame
)
419 /* all regs were saved by push_call_dummy () */
421 for (i
= 0; i
< NUM_REGS
; i
++)
423 adr
-= REGISTER_RAW_SIZE (i
);
429 locals
= i386_get_frame_setup (get_pc_function_start (fip
->pc
));
433 adr
= fip
->frame
- 4 - locals
;
434 for (i
= 0; i
< 8; i
++)
436 op
= codestream_get ();
437 if (op
< 0x50 || op
> 0x57)
439 fsrp
->regs
[op
- 0x50] = adr
;
444 fsrp
->regs
[PC_REGNUM
] = fip
->frame
+ 4;
445 fsrp
->regs
[FP_REGNUM
] = fip
->frame
;
448 /* return pc of first real instruction */
451 i386_skip_prologue (pc
)
456 static unsigned char pic_pat
[6] = { 0xe8, 0, 0, 0, 0, /* call 0x0 */
457 0x5b, /* popl %ebx */
461 if (i386_get_frame_setup (pc
) < 0)
464 /* found valid frame setup - codestream now points to
465 * start of push instructions for saving registers
468 /* skip over register saves */
469 for (i
= 0; i
< 8; i
++)
471 op
= codestream_peek ();
472 /* break if not pushl inst */
473 if (op
< 0x50 || op
> 0x57)
478 /* The native cc on SVR4 in -K PIC mode inserts the following code to get
479 the address of the global offset table (GOT) into register %ebx.
482 movl %ebx,x(%ebp) (optional)
484 This code is with the rest of the prologue (at the end of the
485 function), so we have to skip it to get to the first real
486 instruction at the start of the function. */
488 pos
= codestream_tell ();
489 for (i
= 0; i
< 6; i
++)
491 op
= codestream_get ();
492 if (pic_pat
[i
] != op
)
497 unsigned char buf
[4];
500 op
= codestream_get ();
501 if (op
== 0x89) /* movl %ebx, x(%ebp) */
503 op
= codestream_get ();
504 if (op
== 0x5d) /* one byte offset from %ebp */
507 codestream_read (buf
, 1);
509 else if (op
== 0x9d) /* four byte offset from %ebp */
512 codestream_read (buf
, 4);
514 else /* unexpected instruction */
516 op
= codestream_get ();
519 if (delta
> 0 && op
== 0x81 && codestream_get () == 0xc3)
524 codestream_seek (pos
);
528 return (codestream_tell ());
532 i386_push_dummy_frame ()
534 CORE_ADDR sp
= read_register (SP_REGNUM
);
536 char regbuf
[MAX_REGISTER_RAW_SIZE
];
538 sp
= push_word (sp
, read_register (PC_REGNUM
));
539 sp
= push_word (sp
, read_register (FP_REGNUM
));
540 write_register (FP_REGNUM
, sp
);
541 for (regnum
= 0; regnum
< NUM_REGS
; regnum
++)
543 read_register_gen (regnum
, regbuf
);
544 sp
= push_bytes (sp
, regbuf
, REGISTER_RAW_SIZE (regnum
));
546 write_register (SP_REGNUM
, sp
);
552 FRAME frame
= get_current_frame ();
555 struct frame_saved_regs fsr
;
556 struct frame_info
*fi
;
557 char regbuf
[MAX_REGISTER_RAW_SIZE
];
559 fi
= get_frame_info (frame
);
561 get_frame_saved_regs (fi
, &fsr
);
562 for (regnum
= 0; regnum
< NUM_REGS
; regnum
++)
565 adr
= fsr
.regs
[regnum
];
568 read_memory (adr
, regbuf
, REGISTER_RAW_SIZE (regnum
));
569 write_register_bytes (REGISTER_BYTE (regnum
), regbuf
,
570 REGISTER_RAW_SIZE (regnum
));
573 write_register (FP_REGNUM
, read_memory_integer (fp
, 4));
574 write_register (PC_REGNUM
, read_memory_integer (fp
+ 4, 4));
575 write_register (SP_REGNUM
, fp
+ 8);
576 flush_cached_frames ();
577 set_current_frame ( create_new_frame (read_register (FP_REGNUM
),
581 #ifdef GET_LONGJMP_TARGET
583 /* Figure out where the longjmp will land. Slurp the args out of the stack.
584 We expect the first arg to be a pointer to the jmp_buf structure from which
585 we extract the pc (JB_PC) that we will land at. The pc is copied into PC.
586 This routine returns true on success. */
589 get_longjmp_target(pc
)
592 char buf
[TARGET_PTR_BIT
/ TARGET_CHAR_BIT
];
593 CORE_ADDR sp
, jb_addr
;
595 sp
= read_register (SP_REGNUM
);
597 if (target_read_memory (sp
+ SP_ARG0
, /* Offset of first arg on stack */
599 TARGET_PTR_BIT
/ TARGET_CHAR_BIT
))
602 jb_addr
= extract_address (buf
, TARGET_PTR_BIT
/ TARGET_CHAR_BIT
);
604 if (target_read_memory (jb_addr
+ JB_PC
* JB_ELEMENT_SIZE
, buf
,
605 TARGET_PTR_BIT
/ TARGET_CHAR_BIT
))
608 *pc
= extract_address (buf
, TARGET_PTR_BIT
/ TARGET_CHAR_BIT
);
613 #endif /* GET_LONGJMP_TARGET */
615 #ifdef I386_AIX_TARGET
616 /* On AIX, floating point values are returned in floating point registers. */
619 i386_extract_return_value(type
, regbuf
, valbuf
)
621 char regbuf
[REGISTER_BYTES
];
624 if (TYPE_CODE_FLT
== TYPE_CODE(type
))
627 /* 387 %st(0), gcc uses this */
628 floatformat_to_double (&floatformat_i387_ext
,
629 ®buf
[REGISTER_BYTE(FP0_REGNUM
)],
631 store_floating (valbuf
, TYPE_LENGTH (type
), d
);
635 memcpy (valbuf
, regbuf
, TYPE_LENGTH (type
));
638 #endif /* I386_AIX_TARGET */
640 #ifdef I386V4_SIGTRAMP_SAVED_PC
641 /* Get saved user PC for sigtramp from the pushed ucontext on the stack
642 for all three variants of SVR4 sigtramps. */
645 i386v4_sigtramp_saved_pc (frame
)
648 CORE_ADDR saved_pc_offset
= 4;
651 find_pc_partial_function (frame
->pc
, &name
,
652 (CORE_ADDR
*)NULL
,(CORE_ADDR
*)NULL
);
655 if (STREQ (name
, "_sigreturn"))
656 saved_pc_offset
= 132 + 14 * 4;
657 if (STREQ (name
, "_sigacthandler"))
658 saved_pc_offset
= 80 + 14 * 4;
659 if (STREQ (name
, "sigvechandler"))
660 saved_pc_offset
= 120 + 14 * 4;
664 return read_memory_integer (frame
->next
->frame
+ saved_pc_offset
, 4);
665 return read_memory_integer (read_register (SP_REGNUM
) + saved_pc_offset
, 4);
667 #endif /* I386V4_SIGTRAMP_SAVED_PC */