1 /* Target dependent code for the Motorola 68000 series.
2 Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1999, 2000, 2001,
4 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 "dwarf2-frame.h"
26 #include "frame-base.h"
27 #include "frame-unwind.h"
31 #include "gdb_string.h"
32 #include "gdb_assert.h"
35 #include "arch-utils.h"
39 #include "m68k-tdep.h"
42 #define P_LINKL_FP 0x480e
43 #define P_LINKW_FP 0x4e56
44 #define P_PEA_FP 0x4856
45 #define P_MOVEAL_SP_FP 0x2c4f
46 #define P_ADDAW_SP 0xdefc
47 #define P_ADDAL_SP 0xdffc
48 #define P_SUBQW_SP 0x514f
49 #define P_SUBQL_SP 0x518f
50 #define P_LEA_SP_SP 0x4fef
51 #define P_LEA_PC_A5 0x4bfb0170
52 #define P_FMOVEMX_SP 0xf227
53 #define P_MOVEL_SP 0x2f00
54 #define P_MOVEML_SP 0x48e7
57 #define REGISTER_BYTES_FP (16*4 + 8 + 8*12 + 3*4)
58 #define REGISTER_BYTES_NOFP (16*4 + 8)
60 /* Offset from SP to first arg on stack at first instruction of a function */
61 #define SP_ARG0 (1 * 4)
63 #if !defined (BPT_VECTOR)
64 #define BPT_VECTOR 0xf
67 #if !defined (REMOTE_BPT_VECTOR)
68 #define REMOTE_BPT_VECTOR 1
72 /* gdbarch_breakpoint_from_pc is set to m68k_local_breakpoint_from_pc
73 so m68k_remote_breakpoint_from_pc is currently not used. */
75 static const unsigned char *
76 m68k_remote_breakpoint_from_pc (CORE_ADDR
*pcptr
, int *lenptr
)
78 static unsigned char break_insn
[] = {0x4e, (0x40 | REMOTE_BPT_VECTOR
)};
79 *lenptr
= sizeof (break_insn
);
83 static const unsigned char *
84 m68k_local_breakpoint_from_pc (CORE_ADDR
*pcptr
, int *lenptr
)
86 static unsigned char break_insn
[] = {0x4e, (0x40 | BPT_VECTOR
)};
87 *lenptr
= sizeof (break_insn
);
93 m68k_register_bytes_ok (long numbytes
)
95 return ((numbytes
== REGISTER_BYTES_FP
)
96 || (numbytes
== REGISTER_BYTES_NOFP
));
99 /* Return the GDB type object for the "standard" data type of data in
100 register N. This should be int for D0-D7, SR, FPCONTROL and
101 FPSTATUS, long double for FP0-FP7, and void pointer for all others
102 (A0-A7, PC, FPIADDR). Note, for registers which contain
103 addresses return pointer to void, not pointer to char, because we
104 don't want to attempt to print the string after printing the
108 m68k_register_type (struct gdbarch
*gdbarch
, int regnum
)
110 if (regnum
>= FP0_REGNUM
&& regnum
<= FP0_REGNUM
+ 7)
111 return builtin_type_m68881_ext
;
113 if (regnum
== M68K_FPI_REGNUM
|| regnum
== PC_REGNUM
)
114 return builtin_type_void_func_ptr
;
116 if (regnum
== M68K_FPC_REGNUM
|| regnum
== M68K_FPS_REGNUM
117 || regnum
== PS_REGNUM
)
118 return builtin_type_int32
;
120 if (regnum
>= M68K_A0_REGNUM
&& regnum
<= M68K_A0_REGNUM
+ 7)
121 return builtin_type_void_data_ptr
;
123 return builtin_type_int32
;
126 /* Function: m68k_register_name
127 Returns the name of the standard m68k register regnum. */
130 m68k_register_name (int regnum
)
132 static char *register_names
[] = {
133 "d0", "d1", "d2", "d3", "d4", "d5", "d6", "d7",
134 "a0", "a1", "a2", "a3", "a4", "a5", "fp", "sp",
136 "fp0", "fp1", "fp2", "fp3", "fp4", "fp5", "fp6", "fp7",
137 "fpcontrol", "fpstatus", "fpiaddr", "fpcode", "fpflags"
141 regnum
>= sizeof (register_names
) / sizeof (register_names
[0]))
142 internal_error (__FILE__
, __LINE__
,
143 "m68k_register_name: illegal register number %d", regnum
);
145 return register_names
[regnum
];
148 /* Index within `registers' of the first byte of the space for
152 m68k_register_byte (int regnum
)
154 if (regnum
>= M68K_FPC_REGNUM
)
155 return (((regnum
- M68K_FPC_REGNUM
) * 4) + 168);
156 else if (regnum
>= FP0_REGNUM
)
157 return (((regnum
- FP0_REGNUM
) * 12) + 72);
162 /* Extract from an array REGBUF containing the (raw) register state, a
163 function return value of TYPE, and copy that, in virtual format,
167 m68k_extract_return_value (struct type
*type
, struct regcache
*regcache
,
170 int len
= TYPE_LENGTH (type
);
171 char buf
[M68K_MAX_REGISTER_SIZE
];
173 if (TYPE_CODE (type
) == TYPE_CODE_STRUCT
174 && TYPE_NFIELDS (type
) == 1)
176 m68k_extract_return_value (TYPE_FIELD_TYPE (type
, 0), regcache
, valbuf
);
182 regcache_raw_read (regcache
, M68K_D0_REGNUM
, buf
);
183 memcpy (valbuf
, buf
+ (4 - len
), len
);
187 regcache_raw_read (regcache
, M68K_D0_REGNUM
, buf
);
188 memcpy (valbuf
, buf
+ (8 - len
), len
- 4);
189 regcache_raw_read (regcache
, M68K_D1_REGNUM
,
190 (char *) valbuf
+ (len
- 4));
193 internal_error (__FILE__
, __LINE__
,
194 "Cannot extract return value of %d bytes long.", len
);
197 /* Write into the appropriate registers a function return value stored
198 in VALBUF of type TYPE, given in virtual format. */
201 m68k_store_return_value (struct type
*type
, struct regcache
*regcache
,
204 int len
= TYPE_LENGTH (type
);
206 if (TYPE_CODE (type
) == TYPE_CODE_STRUCT
207 && TYPE_NFIELDS (type
) == 1)
209 m68k_store_return_value (TYPE_FIELD_TYPE (type
, 0), regcache
, valbuf
);
214 regcache_raw_write_part (regcache
, M68K_D0_REGNUM
, 4 - len
, len
, valbuf
);
217 regcache_raw_write_part (regcache
, M68K_D1_REGNUM
, 8 - len
,
219 regcache_raw_write (regcache
, M68K_D0_REGNUM
,
220 (char *) valbuf
+ (len
- 4));
223 internal_error (__FILE__
, __LINE__
,
224 "Cannot store return value of %d bytes long.", len
);
227 /* Extract from REGCACHE, which contains the (raw) register state, the
228 address in which a function should return its structure value, as a
232 m68k_extract_struct_value_address (struct regcache
*regcache
)
236 regcache_cooked_read (regcache
, M68K_D0_REGNUM
, buf
);
237 return extract_unsigned_integer (buf
, 4);
241 m68k_use_struct_convention (int gcc_p
, struct type
*type
)
243 enum struct_return struct_return
;
245 struct_return
= gdbarch_tdep (current_gdbarch
)->struct_return
;
246 return generic_use_struct_convention (struct_return
== reg_struct_return
,
250 /* A function that tells us whether the function invocation represented
251 by fi does not have a frame on the stack associated with it. If it
252 does not, FRAMELESS is set to 1, else 0. */
255 m68k_frameless_function_invocation (struct frame_info
*fi
)
257 if (get_frame_type (fi
) == SIGTRAMP_FRAME
)
260 return frameless_look_for_prologue (fi
);
264 delta68_in_sigtramp (CORE_ADDR pc
, char *name
)
267 return strcmp (name
, "_sigcode") == 0;
273 delta68_frame_args_address (struct frame_info
*frame_info
)
275 /* we assume here that the only frameless functions are the system calls
276 or other functions who do not put anything on the stack. */
277 if (get_frame_type (frame_info
) == SIGTRAMP_FRAME
)
278 return get_frame_base (frame_info
) + 12;
279 else if (frameless_look_for_prologue (frame_info
))
281 /* Check for an interrupted system call */
282 if (get_next_frame (frame_info
) && (get_frame_type (get_next_frame (frame_info
)) == SIGTRAMP_FRAME
))
283 return get_frame_base (get_next_frame (frame_info
)) + 16;
285 return get_frame_base (frame_info
) + 4;
288 return get_frame_base (frame_info
);
292 delta68_frame_saved_pc (struct frame_info
*frame_info
)
294 return read_memory_unsigned_integer (delta68_frame_args_address (frame_info
)
299 delta68_frame_num_args (struct frame_info
*fi
)
302 CORE_ADDR pc
= DEPRECATED_FRAME_SAVED_PC (fi
);
303 int insn
= read_memory_unsigned_integer (pc
, 2);
305 if (insn
== 0047757 || insn
== 0157374) /* lea W(sp),sp or addaw #W,sp */
306 val
= read_memory_integer (pc
+ 2, 2);
307 else if ((insn
& 0170777) == 0050217 /* addql #N, sp */
308 || (insn
& 0170777) == 0050117) /* addqw */
310 val
= (insn
>> 9) & 7;
314 else if (insn
== 0157774) /* addal #WW, sp */
315 val
= read_memory_integer (pc
+ 2, 4);
321 m68k_push_dummy_call (struct gdbarch
*gdbarch
, CORE_ADDR func_addr
,
322 struct regcache
*regcache
, CORE_ADDR bp_addr
, int nargs
,
323 struct value
**args
, CORE_ADDR sp
, int struct_return
,
324 CORE_ADDR struct_addr
)
329 /* Push arguments in reverse order. */
330 for (i
= nargs
- 1; i
>= 0; i
--)
332 struct type
*value_type
= VALUE_ENCLOSING_TYPE (args
[i
]);
333 int len
= TYPE_LENGTH (value_type
);
334 int container_len
= (len
+ 3) & ~3;
337 /* Non-scalars bigger than 4 bytes are left aligned, others are
339 if ((TYPE_CODE (value_type
) == TYPE_CODE_STRUCT
340 || TYPE_CODE (value_type
) == TYPE_CODE_UNION
341 || TYPE_CODE (value_type
) == TYPE_CODE_ARRAY
)
345 offset
= container_len
- len
;
347 write_memory (sp
+ offset
, VALUE_CONTENTS_ALL (args
[i
]), len
);
350 /* Store struct value address. */
353 store_unsigned_integer (buf
, 4, struct_addr
);
354 regcache_cooked_write (regcache
, M68K_A1_REGNUM
, buf
);
357 /* Store return address. */
359 store_unsigned_integer (buf
, 4, bp_addr
);
360 write_memory (sp
, buf
, 4);
362 /* Finally, update the stack pointer... */
363 store_unsigned_integer (buf
, 4, sp
);
364 regcache_cooked_write (regcache
, M68K_SP_REGNUM
, buf
);
366 /* ...and fake a frame pointer. */
367 regcache_cooked_write (regcache
, M68K_FP_REGNUM
, buf
);
369 /* DWARF2/GCC uses the stack address *before* the function call as a
374 struct m68k_frame_cache
381 /* Saved registers. */
382 CORE_ADDR saved_regs
[M68K_NUM_REGS
];
385 /* Stack space reserved for local variables. */
389 /* Allocate and initialize a frame cache. */
391 static struct m68k_frame_cache
*
392 m68k_alloc_frame_cache (void)
394 struct m68k_frame_cache
*cache
;
397 cache
= FRAME_OBSTACK_ZALLOC (struct m68k_frame_cache
);
401 cache
->sp_offset
= -4;
404 /* Saved registers. We initialize these to -1 since zero is a valid
405 offset (that's where %fp is supposed to be stored). */
406 for (i
= 0; i
< M68K_NUM_REGS
; i
++)
407 cache
->saved_regs
[i
] = -1;
409 /* Frameless until proven otherwise. */
415 /* Check whether PC points at a code that sets up a new stack frame.
416 If so, it updates CACHE and returns the address of the first
417 instruction after the sequence that sets removes the "hidden"
418 argument from the stack or CURRENT_PC, whichever is smaller.
419 Otherwise, return PC. */
422 m68k_analyze_frame_setup (CORE_ADDR pc
, CORE_ADDR current_pc
,
423 struct m68k_frame_cache
*cache
)
427 if (pc
>= current_pc
)
430 op
= read_memory_unsigned_integer (pc
, 2);
432 if (op
== P_LINKW_FP
|| op
== P_LINKL_FP
|| op
== P_PEA_FP
)
434 cache
->saved_regs
[M68K_FP_REGNUM
] = 0;
435 cache
->sp_offset
+= 4;
436 if (op
== P_LINKW_FP
)
438 /* link.w %fp, #-N */
439 /* link.w %fp, #0; adda.l #-N, %sp */
440 cache
->locals
= -read_memory_integer (pc
+ 2, 2);
442 if (pc
+ 4 < current_pc
&& cache
->locals
== 0)
444 op
= read_memory_unsigned_integer (pc
+ 4, 2);
445 if (op
== P_ADDAL_SP
)
447 cache
->locals
= read_memory_integer (pc
+ 6, 4);
454 else if (op
== P_LINKL_FP
)
456 /* link.l %fp, #-N */
457 cache
->locals
= -read_memory_integer (pc
+ 2, 4);
462 /* pea (%fp); movea.l %sp, %fp */
465 if (pc
+ 2 < current_pc
)
467 op
= read_memory_unsigned_integer (pc
+ 2, 2);
469 if (op
== P_MOVEAL_SP_FP
)
471 /* move.l %sp, %fp */
479 else if ((op
& 0170777) == P_SUBQW_SP
|| (op
& 0170777) == P_SUBQL_SP
)
481 /* subq.[wl] #N,%sp */
482 /* subq.[wl] #8,%sp; subq.[wl] #N,%sp */
483 cache
->locals
= (op
& 07000) == 0 ? 8 : (op
& 07000) >> 9;
484 if (pc
+ 2 < current_pc
)
486 op
= read_memory_unsigned_integer (pc
+ 2, 2);
487 if ((op
& 0170777) == P_SUBQW_SP
|| (op
& 0170777) == P_SUBQL_SP
)
489 cache
->locals
+= (op
& 07000) == 0 ? 8 : (op
& 07000) >> 9;
495 else if (op
== P_ADDAW_SP
|| op
== P_LEA_SP_SP
)
498 /* lea (-N,%sp),%sp */
499 cache
->locals
= -read_memory_integer (pc
+ 2, 2);
502 else if (op
== P_ADDAL_SP
)
505 cache
->locals
= -read_memory_integer (pc
+ 2, 4);
512 /* Check whether PC points at code that saves registers on the stack.
513 If so, it updates CACHE and returns the address of the first
514 instruction after the register saves or CURRENT_PC, whichever is
515 smaller. Otherwise, return PC. */
518 m68k_analyze_register_saves (CORE_ADDR pc
, CORE_ADDR current_pc
,
519 struct m68k_frame_cache
*cache
)
521 if (cache
->locals
>= 0)
527 offset
= -4 - cache
->locals
;
528 while (pc
< current_pc
)
530 op
= read_memory_unsigned_integer (pc
, 2);
531 if (op
== P_FMOVEMX_SP
)
533 /* fmovem.x REGS,-(%sp) */
534 op
= read_memory_unsigned_integer (pc
+ 2, 2);
535 if ((op
& 0xff00) == 0xe000)
538 for (i
= 0; i
< 16; i
++, mask
>>= 1)
542 cache
->saved_regs
[i
+ M68K_FP0_REGNUM
] = offset
;
551 else if ((op
& 0170677) == P_MOVEL_SP
)
553 /* move.l %R,-(%sp) */
554 regno
= ((op
& 07000) >> 9) | ((op
& 0100) >> 3);
555 cache
->saved_regs
[regno
] = offset
;
559 else if (op
== P_MOVEML_SP
)
561 /* movem.l REGS,-(%sp) */
562 mask
= read_memory_unsigned_integer (pc
+ 2, 2);
563 for (i
= 0; i
< 16; i
++, mask
>>= 1)
567 cache
->saved_regs
[15 - i
] = offset
;
582 /* Do a full analysis of the prologue at PC and update CACHE
583 accordingly. Bail out early if CURRENT_PC is reached. Return the
584 address where the analysis stopped.
586 We handle all cases that can be generated by gcc.
588 For allocating a stack frame:
592 pea (%fp); move.l %sp,%fp
593 link.w %a6,#0; add.l #-N,%sp
596 subq.w #8,%sp; subq.w #N-8,%sp
601 For saving registers:
605 move.l R1,-(%sp); move.l R2,-(%sp)
608 For setting up the PIC register:
615 m68k_analyze_prologue (CORE_ADDR pc
, CORE_ADDR current_pc
,
616 struct m68k_frame_cache
*cache
)
620 pc
= m68k_analyze_frame_setup (pc
, current_pc
, cache
);
621 pc
= m68k_analyze_register_saves (pc
, current_pc
, cache
);
622 if (pc
>= current_pc
)
625 /* Check for GOT setup. */
626 op
= read_memory_unsigned_integer (pc
, 4);
627 if (op
== P_LEA_PC_A5
)
629 /* lea (%pc,N),%a5 */
636 /* Return PC of first real instruction. */
639 m68k_skip_prologue (CORE_ADDR start_pc
)
641 struct m68k_frame_cache cache
;
646 pc
= m68k_analyze_prologue (start_pc
, (CORE_ADDR
) -1, &cache
);
647 if (cache
.locals
< 0)
653 m68k_unwind_pc (struct gdbarch
*gdbarch
, struct frame_info
*next_frame
)
657 frame_unwind_register (next_frame
, PC_REGNUM
, buf
);
658 return extract_typed_address (buf
, builtin_type_void_func_ptr
);
663 static struct m68k_frame_cache
*
664 m68k_frame_cache (struct frame_info
*next_frame
, void **this_cache
)
666 struct m68k_frame_cache
*cache
;
673 cache
= m68k_alloc_frame_cache ();
676 /* In principle, for normal frames, %fp holds the frame pointer,
677 which holds the base address for the current stack frame.
678 However, for functions that don't need it, the frame pointer is
679 optional. For these "frameless" functions the frame pointer is
680 actually the frame pointer of the calling frame. Signal
681 trampolines are just a special case of a "frameless" function.
682 They (usually) share their frame pointer with the frame that was
683 in progress when the signal occurred. */
685 frame_unwind_register (next_frame
, M68K_FP_REGNUM
, buf
);
686 cache
->base
= extract_unsigned_integer (buf
, 4);
687 if (cache
->base
== 0)
690 /* For normal frames, %pc is stored at 4(%fp). */
691 cache
->saved_regs
[M68K_PC_REGNUM
] = 4;
693 cache
->pc
= frame_func_unwind (next_frame
);
695 m68k_analyze_prologue (cache
->pc
, frame_pc_unwind (next_frame
), cache
);
697 if (cache
->locals
< 0)
699 /* We didn't find a valid frame, which means that CACHE->base
700 currently holds the frame pointer for our calling frame. If
701 we're at the start of a function, or somewhere half-way its
702 prologue, the function's frame probably hasn't been fully
703 setup yet. Try to reconstruct the base address for the stack
704 frame by looking at the stack pointer. For truly "frameless"
705 functions this might work too. */
707 frame_unwind_register (next_frame
, M68K_SP_REGNUM
, buf
);
708 cache
->base
= extract_unsigned_integer (buf
, 4) + cache
->sp_offset
;
711 /* Now that we have the base address for the stack frame we can
712 calculate the value of %sp in the calling frame. */
713 cache
->saved_sp
= cache
->base
+ 8;
715 /* Adjust all the saved registers such that they contain addresses
716 instead of offsets. */
717 for (i
= 0; i
< M68K_NUM_REGS
; i
++)
718 if (cache
->saved_regs
[i
] != -1)
719 cache
->saved_regs
[i
] += cache
->base
;
725 m68k_frame_this_id (struct frame_info
*next_frame
, void **this_cache
,
726 struct frame_id
*this_id
)
728 struct m68k_frame_cache
*cache
= m68k_frame_cache (next_frame
, this_cache
);
730 /* This marks the outermost frame. */
731 if (cache
->base
== 0)
734 /* See the end of m68k_push_dummy_call. */
735 *this_id
= frame_id_build (cache
->base
+ 8, cache
->pc
);
739 m68k_frame_prev_register (struct frame_info
*next_frame
, void **this_cache
,
740 int regnum
, int *optimizedp
,
741 enum lval_type
*lvalp
, CORE_ADDR
*addrp
,
742 int *realnump
, void *valuep
)
744 struct m68k_frame_cache
*cache
= m68k_frame_cache (next_frame
, this_cache
);
746 gdb_assert (regnum
>= 0);
748 if (regnum
== M68K_SP_REGNUM
&& cache
->saved_sp
)
756 /* Store the value. */
757 store_unsigned_integer (valuep
, 4, cache
->saved_sp
);
762 if (regnum
< M68K_NUM_REGS
&& cache
->saved_regs
[regnum
] != -1)
765 *lvalp
= lval_memory
;
766 *addrp
= cache
->saved_regs
[regnum
];
770 /* Read the value in from memory. */
771 read_memory (*addrp
, valuep
,
772 register_size (current_gdbarch
, regnum
));
777 frame_register_unwind (next_frame
, regnum
,
778 optimizedp
, lvalp
, addrp
, realnump
, valuep
);
781 static const struct frame_unwind m68k_frame_unwind
=
785 m68k_frame_prev_register
788 static const struct frame_unwind
*
789 m68k_frame_sniffer (struct frame_info
*next_frame
)
791 return &m68k_frame_unwind
;
794 /* Signal trampolines. */
796 static struct m68k_frame_cache
*
797 m68k_sigtramp_frame_cache (struct frame_info
*next_frame
, void **this_cache
)
799 struct m68k_frame_cache
*cache
;
800 struct gdbarch_tdep
*tdep
= gdbarch_tdep (current_gdbarch
);
801 struct m68k_sigtramp_info info
;
808 cache
= m68k_alloc_frame_cache ();
810 frame_unwind_register (next_frame
, M68K_SP_REGNUM
, buf
);
811 cache
->base
= extract_unsigned_integer (buf
, 4) - 4;
813 info
= tdep
->get_sigtramp_info (next_frame
);
815 for (i
= 0; i
< M68K_NUM_REGS
; i
++)
816 if (info
.sc_reg_offset
[i
] != -1)
817 cache
->saved_regs
[i
] = info
.sigcontext_addr
+ info
.sc_reg_offset
[i
];
824 m68k_sigtramp_frame_this_id (struct frame_info
*next_frame
, void **this_cache
,
825 struct frame_id
*this_id
)
827 struct m68k_frame_cache
*cache
=
828 m68k_sigtramp_frame_cache (next_frame
, this_cache
);
830 /* See the end of m68k_push_dummy_call. */
831 *this_id
= frame_id_build (cache
->base
+ 8, frame_pc_unwind (next_frame
));
835 m68k_sigtramp_frame_prev_register (struct frame_info
*next_frame
,
837 int regnum
, int *optimizedp
,
838 enum lval_type
*lvalp
, CORE_ADDR
*addrp
,
839 int *realnump
, void *valuep
)
841 /* Make sure we've initialized the cache. */
842 m68k_sigtramp_frame_cache (next_frame
, this_cache
);
844 m68k_frame_prev_register (next_frame
, this_cache
, regnum
,
845 optimizedp
, lvalp
, addrp
, realnump
, valuep
);
848 static const struct frame_unwind m68k_sigtramp_frame_unwind
=
851 m68k_sigtramp_frame_this_id
,
852 m68k_sigtramp_frame_prev_register
855 static const struct frame_unwind
*
856 m68k_sigtramp_frame_sniffer (struct frame_info
*next_frame
)
858 CORE_ADDR pc
= frame_pc_unwind (next_frame
);
861 /* We shouldn't even bother to try if the OSABI didn't register
862 a get_sigtramp_info handler. */
863 if (!gdbarch_tdep (current_gdbarch
)->get_sigtramp_info
)
866 find_pc_partial_function (pc
, &name
, NULL
, NULL
);
867 if (PC_IN_SIGTRAMP (pc
, name
))
868 return &m68k_sigtramp_frame_unwind
;
874 m68k_frame_base_address (struct frame_info
*next_frame
, void **this_cache
)
876 struct m68k_frame_cache
*cache
= m68k_frame_cache (next_frame
, this_cache
);
881 static const struct frame_base m68k_frame_base
=
884 m68k_frame_base_address
,
885 m68k_frame_base_address
,
886 m68k_frame_base_address
889 static struct frame_id
890 m68k_unwind_dummy_id (struct gdbarch
*gdbarch
, struct frame_info
*next_frame
)
895 frame_unwind_register (next_frame
, M68K_FP_REGNUM
, buf
);
896 fp
= extract_unsigned_integer (buf
, 4);
898 /* See the end of m68k_push_dummy_call. */
899 return frame_id_build (fp
+ 8, frame_pc_unwind (next_frame
));
902 #ifdef USE_PROC_FS /* Target dependent support for /proc */
904 #include <sys/procfs.h>
906 /* Prototypes for supply_gregset etc. */
909 /* The /proc interface divides the target machine's register set up into
910 two different sets, the general register set (gregset) and the floating
911 point register set (fpregset). For each set, there is an ioctl to get
912 the current register set and another ioctl to set the current values.
914 The actual structure passed through the ioctl interface is, of course,
915 naturally machine dependent, and is different for each set of registers.
916 For the m68k for example, the general register set is typically defined
919 typedef int gregset_t[18];
925 and the floating point set by:
927 typedef struct fpregset {
931 int f_fpregs[8][3]; (8 regs, 96 bits each)
934 These routines provide the packing and unpacking of gregset_t and
935 fpregset_t formatted data.
939 /* Atari SVR4 has R_SR but not R_PS */
941 #if !defined (R_PS) && defined (R_SR)
945 /* Given a pointer to a general register set in /proc format (gregset_t *),
946 unpack the register contents and supply them as gdb's idea of the current
950 supply_gregset (gregset_t
*gregsetp
)
953 greg_t
*regp
= (greg_t
*) gregsetp
;
955 for (regi
= 0; regi
< R_PC
; regi
++)
957 supply_register (regi
, (char *) (regp
+ regi
));
959 supply_register (PS_REGNUM
, (char *) (regp
+ R_PS
));
960 supply_register (PC_REGNUM
, (char *) (regp
+ R_PC
));
964 fill_gregset (gregset_t
*gregsetp
, int regno
)
967 greg_t
*regp
= (greg_t
*) gregsetp
;
969 for (regi
= 0; regi
< R_PC
; regi
++)
971 if (regno
== -1 || regno
== regi
)
972 regcache_collect (regi
, regp
+ regi
);
974 if (regno
== -1 || regno
== PS_REGNUM
)
975 regcache_collect (PS_REGNUM
, regp
+ R_PS
);
976 if (regno
== -1 || regno
== PC_REGNUM
)
977 regcache_collect (PC_REGNUM
, regp
+ R_PC
);
980 #if defined (FP0_REGNUM)
982 /* Given a pointer to a floating point register set in /proc format
983 (fpregset_t *), unpack the register contents and supply them as gdb's
984 idea of the current floating point register values. */
987 supply_fpregset (fpregset_t
*fpregsetp
)
992 for (regi
= FP0_REGNUM
; regi
< M68K_FPC_REGNUM
; regi
++)
994 from
= (char *) &(fpregsetp
->f_fpregs
[regi
- FP0_REGNUM
][0]);
995 supply_register (regi
, from
);
997 supply_register (M68K_FPC_REGNUM
, (char *) &(fpregsetp
->f_pcr
));
998 supply_register (M68K_FPS_REGNUM
, (char *) &(fpregsetp
->f_psr
));
999 supply_register (M68K_FPI_REGNUM
, (char *) &(fpregsetp
->f_fpiaddr
));
1002 /* Given a pointer to a floating point register set in /proc format
1003 (fpregset_t *), update the register specified by REGNO from gdb's idea
1004 of the current floating point register set. If REGNO is -1, update
1008 fill_fpregset (fpregset_t
*fpregsetp
, int regno
)
1012 for (regi
= FP0_REGNUM
; regi
< M68K_FPC_REGNUM
; regi
++)
1014 if (regno
== -1 || regno
== regi
)
1015 regcache_collect (regi
, &fpregsetp
->f_fpregs
[regi
- FP0_REGNUM
][0]);
1017 if (regno
== -1 || regno
== M68K_FPC_REGNUM
)
1018 regcache_collect (M68K_FPC_REGNUM
, &fpregsetp
->f_pcr
);
1019 if (regno
== -1 || regno
== M68K_FPS_REGNUM
)
1020 regcache_collect (M68K_FPS_REGNUM
, &fpregsetp
->f_psr
);
1021 if (regno
== -1 || regno
== M68K_FPI_REGNUM
)
1022 regcache_collect (M68K_FPI_REGNUM
, &fpregsetp
->f_fpiaddr
);
1025 #endif /* defined (FP0_REGNUM) */
1027 #endif /* USE_PROC_FS */
1029 /* Figure out where the longjmp will land. Slurp the args out of the stack.
1030 We expect the first arg to be a pointer to the jmp_buf structure from which
1031 we extract the pc (JB_PC) that we will land at. The pc is copied into PC.
1032 This routine returns true on success. */
1035 m68k_get_longjmp_target (CORE_ADDR
*pc
)
1038 CORE_ADDR sp
, jb_addr
;
1039 struct gdbarch_tdep
*tdep
= gdbarch_tdep (current_gdbarch
);
1041 if (tdep
->jb_pc
< 0)
1043 internal_error (__FILE__
, __LINE__
,
1044 "m68k_get_longjmp_target: not implemented");
1048 buf
= alloca (TARGET_PTR_BIT
/ TARGET_CHAR_BIT
);
1049 sp
= read_register (SP_REGNUM
);
1051 if (target_read_memory (sp
+ SP_ARG0
, /* Offset of first arg on stack */
1052 buf
, TARGET_PTR_BIT
/ TARGET_CHAR_BIT
))
1055 jb_addr
= extract_unsigned_integer (buf
, TARGET_PTR_BIT
/ TARGET_CHAR_BIT
);
1057 if (target_read_memory (jb_addr
+ tdep
->jb_pc
* tdep
->jb_elt_size
, buf
,
1058 TARGET_PTR_BIT
/ TARGET_CHAR_BIT
))
1061 *pc
= extract_unsigned_integer (buf
, TARGET_PTR_BIT
/ TARGET_CHAR_BIT
);
1066 /* Immediately after a function call, return the saved pc before the frame
1067 is setup. For sun3's, we check for the common case of being inside of a
1068 system call, and if so, we know that Sun pushes the call # on the stack
1069 prior to doing the trap. */
1072 m68k_saved_pc_after_call (struct frame_info
*frame
)
1076 op
= read_memory_unsigned_integer (frame
->pc
- SYSCALL_TRAP_OFFSET
, 2);
1078 if (op
== SYSCALL_TRAP
)
1079 return read_memory_unsigned_integer (read_register (SP_REGNUM
) + 4, 4);
1081 return read_memory_unsigned_integer (read_register (SP_REGNUM
), 4);
1083 #endif /* SYSCALL_TRAP */
1085 /* Function: m68k_gdbarch_init
1086 Initializer function for the m68k gdbarch vector.
1087 Called by gdbarch. Sets up the gdbarch vector(s) for this target. */
1089 static struct gdbarch
*
1090 m68k_gdbarch_init (struct gdbarch_info info
, struct gdbarch_list
*arches
)
1092 struct gdbarch_tdep
*tdep
= NULL
;
1093 struct gdbarch
*gdbarch
;
1095 /* find a candidate among the list of pre-declared architectures. */
1096 arches
= gdbarch_list_lookup_by_info (arches
, &info
);
1098 return (arches
->gdbarch
);
1100 tdep
= xmalloc (sizeof (struct gdbarch_tdep
));
1101 gdbarch
= gdbarch_alloc (&info
, tdep
);
1103 set_gdbarch_long_double_format (gdbarch
, &floatformat_m68881_ext
);
1104 set_gdbarch_long_double_bit (gdbarch
, 96);
1106 set_gdbarch_function_start_offset (gdbarch
, 0);
1108 set_gdbarch_skip_prologue (gdbarch
, m68k_skip_prologue
);
1110 set_gdbarch_deprecated_saved_pc_after_call (gdbarch
, m68k_saved_pc_after_call
);
1112 set_gdbarch_breakpoint_from_pc (gdbarch
, m68k_local_breakpoint_from_pc
);
1114 /* Stack grows down. */
1115 set_gdbarch_inner_than (gdbarch
, core_addr_lessthan
);
1116 set_gdbarch_parm_boundary (gdbarch
, 32);
1118 set_gdbarch_believe_pcc_promotion (gdbarch
, 1);
1119 set_gdbarch_decr_pc_after_break (gdbarch
, 2);
1121 set_gdbarch_extract_return_value (gdbarch
, m68k_extract_return_value
);
1122 set_gdbarch_store_return_value (gdbarch
, m68k_store_return_value
);
1123 set_gdbarch_extract_struct_value_address (gdbarch
,
1124 m68k_extract_struct_value_address
);
1125 set_gdbarch_use_struct_convention (gdbarch
, m68k_use_struct_convention
);
1127 set_gdbarch_frameless_function_invocation (gdbarch
,
1128 m68k_frameless_function_invocation
);
1129 set_gdbarch_frame_args_skip (gdbarch
, 8);
1131 set_gdbarch_register_type (gdbarch
, m68k_register_type
);
1132 set_gdbarch_register_name (gdbarch
, m68k_register_name
);
1133 set_gdbarch_num_regs (gdbarch
, 29);
1134 set_gdbarch_register_bytes_ok (gdbarch
, m68k_register_bytes_ok
);
1135 set_gdbarch_sp_regnum (gdbarch
, M68K_SP_REGNUM
);
1136 set_gdbarch_pc_regnum (gdbarch
, M68K_PC_REGNUM
);
1137 set_gdbarch_ps_regnum (gdbarch
, M68K_PS_REGNUM
);
1138 set_gdbarch_fp0_regnum (gdbarch
, M68K_FP0_REGNUM
);
1140 set_gdbarch_push_dummy_call (gdbarch
, m68k_push_dummy_call
);
1143 set_gdbarch_print_insn (gdbarch
, print_insn_m68k
);
1145 #if defined JB_PC && defined JB_ELEMENT_SIZE
1146 tdep
->jb_pc
= JB_PC
;
1147 tdep
->jb_elt_size
= JB_ELEMENT_SIZE
;
1151 tdep
->get_sigtramp_info
= NULL
;
1152 tdep
->struct_return
= pcc_struct_return
;
1154 /* Frame unwinder. */
1155 set_gdbarch_unwind_dummy_id (gdbarch
, m68k_unwind_dummy_id
);
1156 set_gdbarch_unwind_pc (gdbarch
, m68k_unwind_pc
);
1158 /* Hook in the DWARF CFI frame unwinder. */
1159 frame_unwind_append_sniffer (gdbarch
, dwarf2_frame_sniffer
);
1161 frame_base_set_default (gdbarch
, &m68k_frame_base
);
1163 /* Hook in ABI-specific overrides, if they have been registered. */
1164 gdbarch_init_osabi (info
, gdbarch
);
1166 /* Now we have tuned the configuration, set a few final things,
1167 based on what the OS ABI has told us. */
1169 if (tdep
->jb_pc
>= 0)
1170 set_gdbarch_get_longjmp_target (gdbarch
, m68k_get_longjmp_target
);
1172 frame_unwind_append_sniffer (gdbarch
, m68k_sigtramp_frame_sniffer
);
1173 frame_unwind_append_sniffer (gdbarch
, m68k_frame_sniffer
);
1180 m68k_dump_tdep (struct gdbarch
*current_gdbarch
, struct ui_file
*file
)
1182 struct gdbarch_tdep
*tdep
= gdbarch_tdep (current_gdbarch
);
1188 extern initialize_file_ftype _initialize_m68k_tdep
; /* -Wmissing-prototypes */
1191 _initialize_m68k_tdep (void)
1193 gdbarch_register (bfd_arch_m68k
, m68k_gdbarch_init
, m68k_dump_tdep
);