1 /* Target-dependent code for MItsubishi D10V, for GDB.
2 Copyright (C) 1996 Free Software Foundation, Inc.
3 This file is part of GDB.
4 This program is free software; you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation; either version 2 of the License, or
7 (at your option) any later version.
8 This program is distributed in the hope that it will be useful,
9 but WITHOUT ANY WARRANTY; without even the implied warranty of
10 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 GNU General Public License for more details.
12 You should have received a copy of the GNU General Public License
13 along with this program; if not, write to the Free Software
14 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
16 /* Contributed by Martin Hunt, hunt@cygnus.com */
25 #include "gdb_string.h"
30 void d10v_frame_find_saved_regs
PARAMS ((struct frame_info
*fi
, struct frame_saved_regs
*fsr
));
32 /* Discard from the stack the innermost frame,
33 restoring all saved registers. */
38 struct frame_info
*frame
= get_current_frame ();
41 struct frame_saved_regs fsr
;
44 fp
= FRAME_FP (frame
);
46 /* fill out fsr with the address of where each */
47 /* register was stored in the frame */
48 get_frame_saved_regs (frame
, &fsr
);
50 /* now update the current registers with the old values */
51 for (regnum
= A0_REGNUM
; regnum
< A0_REGNUM
+2 ; regnum
++)
55 read_memory (fsr
.regs
[regnum
], raw_buffer
, 8);
56 write_register_bytes (REGISTER_BYTE (regnum
), raw_buffer
, 8);
59 for (regnum
= 0; regnum
< SP_REGNUM
; regnum
++)
63 write_register (regnum
, read_memory_unsigned_integer (fsr
.regs
[regnum
], 2));
66 if (fsr
.regs
[PSW_REGNUM
])
68 write_register (PSW_REGNUM
, read_memory_unsigned_integer (fsr
.regs
[PSW_REGNUM
], 2));
71 write_register (PC_REGNUM
, read_register(13));
72 write_register (SP_REGNUM
, fp
+ frame
->size
);
73 target_store_registers (-1);
74 flush_cached_frames ();
82 if ((op
& 0x7E1F) == 0x6C1F)
86 if ((op
& 0x7E3F) == 0x6E1F)
90 if ((op
& 0x7FE1) == 0x01E1)
102 if ((op
& 0x7E1F) == 0x681E)
106 if ((op
& 0x7E3F) == 0x3A1E)
113 d10v_skip_prologue (pc
)
117 unsigned short op1
, op2
;
119 if (target_read_memory (pc
, (char *)&op
, 4))
120 return pc
; /* Can't access it -- assume no prologue. */
124 op
= (unsigned long)read_memory_integer (pc
, 4);
125 if ((op
& 0xC0000000) == 0xC0000000)
127 /* long instruction */
128 if ( ((op
& 0x3FFF0000) != 0x01FF0000) && /* add3 sp,sp,n */
129 ((op
& 0x3F0F0000) != 0x340F0000) && /* st rn, @(offset,sp) */
130 ((op
& 0x3F1F0000) != 0x350F0000)) /* st2w rn, @(offset,sp) */
135 /* short instructions */
136 op1
= (op
& 0x3FFF8000) >> 15;
138 if (!check_prologue(op1
) || !check_prologue(op2
))
146 /* Given a GDB frame, determine the address of the calling function's frame.
147 This will be used to create a new GDB frame struct, and then
148 INIT_EXTRA_FRAME_INFO and INIT_FRAME_PC will be called for the new frame.
152 d10v_frame_chain (frame
)
153 struct frame_info
*frame
;
155 struct frame_saved_regs fsr
;
156 d10v_frame_find_saved_regs (frame
, &fsr
);
157 return read_memory_unsigned_integer(fsr
.regs
[FP_REGNUM
],2);
160 static int next_addr
;
163 prologue_find_regs (op
, fsr
, addr
)
165 struct frame_saved_regs
*fsr
;
171 if ((op
& 0x7E1F) == 0x6C1F)
173 n
= (op
& 0x1E0) >> 5;
175 fsr
->regs
[n
] = next_addr
;
180 else if ((op
& 0x7E3F) == 0x6E1F)
182 n
= (op
& 0x1E0) >> 5;
184 fsr
->regs
[n
] = next_addr
;
185 fsr
->regs
[n
+1] = next_addr
+2;
190 if ((op
& 0x7FE1) == 0x01E1)
192 n
= (op
& 0x1E) >> 1;
208 if ((op
& 0x7E1F) == 0x681E)
210 n
= (op
& 0x1E0) >> 5;
211 fsr
->regs
[n
] = next_addr
;
216 if ((op
& 0x7E3F) == 0x3A1E)
218 n
= (op
& 0x1E0) >> 5;
219 fsr
->regs
[n
] = next_addr
;
220 fsr
->regs
[n
+1] = next_addr
+2;
227 /* Put here the code to store, into a struct frame_saved_regs, the
228 addresses of the saved registers of frame described by FRAME_INFO.
229 This includes special registers such as pc and fp saved in special
230 ways in the stack frame. sp is even more special: the address we
231 return for it IS the sp for the next frame. */
233 d10v_frame_find_saved_regs (fi
, fsr
)
234 struct frame_info
*fi
;
235 struct frame_saved_regs
*fsr
;
239 unsigned short op1
, op2
;
243 memset (fsr
, 0, sizeof (*fsr
));
246 pc
= get_pc_function_start (fi
->pc
);
250 op
= (unsigned long)read_memory_integer (pc
, 4);
251 if ((op
& 0xC0000000) == 0xC0000000)
253 /* long instruction */
254 if ((op
& 0x3FFF0000) == 0x01FF0000)
257 short n
= op
& 0xFFFF;
260 else if ((op
& 0x3F0F0000) == 0x340F0000)
262 /* st rn, @(offset,sp) */
263 short offset
= op
& 0xFFFF;
264 short n
= (op
>> 20) & 0xF;
265 fsr
->regs
[n
] = next_addr
+ offset
;
267 else if ((op
& 0x3F1F0000) == 0x350F0000)
269 /* st2w rn, @(offset,sp) */
270 short offset
= op
& 0xFFFF;
271 short n
= (op
>> 20) & 0xF;
272 fsr
->regs
[n
] = next_addr
+ offset
;
273 fsr
->regs
[n
+1] = next_addr
+ offset
+ 2;
280 /* short instructions */
281 op1
= (op
& 0x3FFF8000) >> 15;
283 if (!prologue_find_regs(op1
,fsr
,pc
) || !prologue_find_regs(op2
,fsr
,pc
))
289 fi
->size
= -next_addr
;
291 for (i
=0; i
<NUM_REGS
; i
++)
294 fsr
->regs
[i
] = fp
- (next_addr
- fsr
->regs
[i
]);
298 fi
->return_pc
= (read_memory_unsigned_integer(fsr
->regs
[13],2)-1) << 2;
300 fi
->return_pc
= (read_register(13) - 1) << 2;
302 if (!fsr
->regs
[SP_REGNUM
])
303 fsr
->regs
[SP_REGNUM
] = read_register(FP_REGNUM
) + fi
->size
;
307 d10v_init_extra_frame_info (fromleaf
, fi
)
309 struct frame_info
*fi
;
311 struct frame_saved_regs dummy
;
313 if (fi
->next
&& (fi
->pc
== 0))
314 fi
->pc
= fi
->next
->return_pc
;
316 d10v_frame_find_saved_regs (fi
, &dummy
);
320 show_regs (args
, from_tty
)
324 long long num1
, num2
;
325 printf_filtered ("PC=%04x (0x%x) PSW=%04x RPT_S=%04x RPT_E=%04x RPT_C=%04x\n",
326 read_register (PC_REGNUM
), read_register (PC_REGNUM
) << 2,
327 read_register (PSW_REGNUM
),
331 printf_filtered ("R0-R7 %04x %04x %04x %04x %04x %04x %04x %04x\n",
340 printf_filtered ("R8-R15 %04x %04x %04x %04x %04x %04x %04x %04x\n",
349 read_register_gen (A0_REGNUM
, (char *)&num1
);
350 read_register_gen (A0_REGNUM
+1, (char *)&num2
);
351 printf_filtered ("A0-A1 %010llx %010llx\n",num1
, num2
);
355 _initialize_d10v_tdep ()
357 tm_print_insn
= print_insn_d10v
;
358 add_com ("regs", class_vars
, show_regs
, "Print all registers");
362 d10v_read_register_pid (regno
, pid
)
368 if (pid
== inferior_pid
)
369 return (read_register(regno
)) << 2;
371 save_pid
= inferior_pid
;
373 retval
= read_register (regno
);
374 inferior_pid
= save_pid
;
375 return (retval
<< 2);
379 d10v_write_register_pid (regno
, val
, pid
)
388 if (pid
== inferior_pid
)
390 write_register (regno
, val
);
394 save_pid
= inferior_pid
;
396 write_register (regno
, val
);
397 inferior_pid
= save_pid
;