1 /* Target-dependent code for the CSKY architecture, for GDB.
2
3 Copyright (C) 2010-2020 Free Software Foundation, Inc.
4
5 Contributed by C-SKY Microsystems and Mentor Graphics.
6
7 This file is part of GDB.
8
9 This program is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 3 of the License, or
12 (at your option) any later version.
13
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
18
19 You should have received a copy of the GNU General Public License
20 along with this program. If not, see <http://www.gnu.org/licenses/>. */
21
22 #include "defs.h"
23 #include "gdbsupport/gdb_assert.h"
24 #include "frame.h"
25 #include "inferior.h"
26 #include "symtab.h"
27 #include "value.h"
28 #include "gdbcmd.h"
29 #include "language.h"
30 #include "gdbcore.h"
31 #include "symfile.h"
32 #include "objfiles.h"
33 #include "gdbtypes.h"
34 #include "target.h"
35 #include "arch-utils.h"
36 #include "regcache.h"
37 #include "osabi.h"
38 #include "block.h"
39 #include "reggroups.h"
40 #include "elf/csky.h"
41 #include "elf-bfd.h"
42 #include "symcat.h"
43 #include "sim-regno.h"
44 #include "dis-asm.h"
45 #include "frame-unwind.h"
46 #include "frame-base.h"
47 #include "trad-frame.h"
48 #include "infcall.h"
49 #include "floatformat.h"
50 #include "remote.h"
51 #include "target-descriptions.h"
52 #include "dwarf2/frame.h"
53 #include "user-regs.h"
54 #include "valprint.h"
55 #include "csky-tdep.h"
56 #include "regset.h"
57 #include "opcode/csky.h"
58 #include <algorithm>
59 #include <vector>
60
61 /* Control debugging information emitted in this file. */
62 static bool csky_debug = false;
63
64 static struct reggroup *cr_reggroup;
65 static struct reggroup *fr_reggroup;
66 static struct reggroup *vr_reggroup;
67 static struct reggroup *mmu_reggroup;
68 static struct reggroup *prof_reggroup;
69
70 /* Convenience function to print debug messages in prologue analysis. */
71
72 static void
print_savedreg_msg(int regno,int offsets[],bool print_continuing)73 print_savedreg_msg (int regno, int offsets[], bool print_continuing)
74 {
75 fprintf_unfiltered (gdb_stdlog, "csky: r%d saved at offset 0x%x\n",
76 regno, offsets[regno]);
77 if (print_continuing)
78 fprintf_unfiltered (gdb_stdlog, "csky: continuing\n");
79 }
80
81 /* Check whether the instruction at ADDR is 16-bit or not. */
82
83 static int
csky_pc_is_csky16(struct gdbarch * gdbarch,CORE_ADDR addr)84 csky_pc_is_csky16 (struct gdbarch *gdbarch, CORE_ADDR addr)
85 {
86 gdb_byte target_mem[2];
87 int status;
88 unsigned int insn;
89 int ret = 1;
90 enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
91
92 status = target_read_memory (addr, target_mem, 2);
93 /* Assume a 16-bit instruction if we can't read memory. */
94 if (status)
95 return 1;
96
97 /* Get instruction from memory. */
98 insn = extract_unsigned_integer (target_mem, 2, byte_order);
99 if ((insn & CSKY_32_INSN_MASK) == CSKY_32_INSN_MASK)
100 ret = 0;
101 else if (insn == CSKY_BKPT_INSN)
102 {
103 /* Check for 32-bit bkpt instruction which is all 0. */
104 status = target_read_memory (addr + 2, target_mem, 2);
105 if (status)
106 return 1;
107
108 insn = extract_unsigned_integer (target_mem, 2, byte_order);
109 if (insn == CSKY_BKPT_INSN)
110 ret = 0;
111 }
112 return ret;
113 }
114
115 /* Get one instruction at ADDR and store it in INSN. Return 2 for
116 a 16-bit instruction or 4 for a 32-bit instruction. */
117
118 static int
csky_get_insn(struct gdbarch * gdbarch,CORE_ADDR addr,unsigned int * insn)119 csky_get_insn (struct gdbarch *gdbarch, CORE_ADDR addr, unsigned int *insn)
120 {
121 gdb_byte target_mem[2];
122 unsigned int insn_type;
123 int status;
124 int insn_len = 2;
125 enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
126
127 status = target_read_memory (addr, target_mem, 2);
128 if (status)
129 memory_error (TARGET_XFER_E_IO, addr);
130
131 insn_type = extract_unsigned_integer (target_mem, 2, byte_order);
132 if (CSKY_32_INSN_MASK == (insn_type & CSKY_32_INSN_MASK))
133 {
134 status = target_read_memory (addr + 2, target_mem, 2);
135 if (status)
136 memory_error (TARGET_XFER_E_IO, addr);
137 insn_type = ((insn_type << 16)
138 | extract_unsigned_integer (target_mem, 2, byte_order));
139 insn_len = 4;
140 }
141 *insn = insn_type;
142 return insn_len;
143 }
144
145 /* Implement the read_pc gdbarch method. */
146
147 static CORE_ADDR
csky_read_pc(readable_regcache * regcache)148 csky_read_pc (readable_regcache *regcache)
149 {
150 ULONGEST pc;
151 regcache->cooked_read (CSKY_PC_REGNUM, &pc);
152 return pc;
153 }
154
155 /* Implement the write_pc gdbarch method. */
156
157 static void
csky_write_pc(regcache * regcache,CORE_ADDR val)158 csky_write_pc (regcache *regcache, CORE_ADDR val)
159 {
160 regcache_cooked_write_unsigned (regcache, CSKY_PC_REGNUM, val);
161 }
162
163 /* C-Sky ABI register names. */
164
165 static const char *csky_register_names[] =
166 {
167 /* General registers 0 - 31. */
168 "r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7",
169 "r8", "r9", "r10", "r11", "r12", "r13", "r14", "r15",
170 "r16", "r17", "r18", "r19", "r20", "r21", "r22", "r23",
171 "r24", "r25", "r26", "r27", "r28", "r29", "r30", "r31",
172
173 /* DSP hilo registers 36 and 37. */
174 "", "", "", "", "hi", "lo", "", "",
175
176 /* FPU/VPU general registers 40 - 71. */
177 "fr0", "fr1", "fr2", "fr3", "fr4", "fr5", "fr6", "fr7",
178 "fr8", "fr9", "fr10", "fr11", "fr12", "fr13", "fr14", "fr15",
179 "vr0", "vr1", "vr2", "vr3", "vr4", "vr5", "vr6", "vr7",
180 "vr8", "vr9", "vr10", "vr11", "vr12", "vr13", "vr14", "vr15",
181
182 /* Program counter 72. */
183 "pc",
184
185 /* Optional registers (ar) 73 - 88. */
186 "ar0", "ar1", "ar2", "ar3", "ar4", "ar5", "ar6", "ar7",
187 "ar8", "ar9", "ar10", "ar11", "ar12", "ar13", "ar14", "ar15",
188
189 /* Control registers (cr) 89 - 119. */
190 "psr", "vbr", "epsr", "fpsr", "epc", "fpc", "ss0", "ss1",
191 "ss2", "ss3", "ss4", "gcr", "gsr", "cr13", "cr14", "cr15",
192 "cr16", "cr17", "cr18", "cr19", "cr20", "cr21", "cr22", "cr23",
193 "cr24", "cr25", "cr26", "cr27", "cr28", "cr29", "cr30", "cr31",
194
195 /* FPU/VPU control registers 121 ~ 123. */
196 /* User sp 127. */
197 "fid", "fcr", "fesr", "", "", "", "usp",
198
199 /* MMU control registers: 128 - 136. */
200 "mcr0", "mcr2", "mcr3", "mcr4", "mcr6", "mcr8", "mcr29", "mcr30",
201 "mcr31", "", "", "",
202
203 /* Profiling control registers 140 - 143. */
204 /* Profiling software general registers 144 - 157. */
205 "profcr0", "profcr1", "profcr2", "profcr3", "profsgr0", "profsgr1",
206 "profsgr2", "profsgr3", "profsgr4", "profsgr5", "profsgr6", "profsgr7",
207 "profsgr8", "profsgr9", "profsgr10","profsgr11","profsgr12", "profsgr13",
208 "", "",
209
210 /* Profiling architecture general registers 160 - 174. */
211 "profagr0", "profagr1", "profagr2", "profagr3", "profagr4", "profagr5",
212 "profagr6", "profagr7", "profagr8", "profagr9", "profagr10","profagr11",
213 "profagr12","profagr13","profagr14", "",
214
215 /* Profiling extension general registers 176 - 188. */
216 "profxgr0", "profxgr1", "profxgr2", "profxgr3", "profxgr4", "profxgr5",
217 "profxgr6", "profxgr7", "profxgr8", "profxgr9", "profxgr10","profxgr11",
218 "profxgr12",
219
220 /* Control registers in bank1. */
221 "", "", "", "", "", "", "", "",
222 "", "", "", "", "", "", "", "",
223 "cp1cr16", "cp1cr17", "cp1cr18", "cp1cr19", "cp1cr20", "", "", "",
224 "", "", "", "", "", "", "", "",
225
226 /* Control registers in bank3 (ICE). */
227 "sepsr", "sevbr", "seepsr", "", "seepc", "", "nsssp", "seusp",
228 "sedcr", "", "", "", "", "", "", "",
229 "", "", "", "", "", "", "", "",
230 "", "", "", "", "", "", "", ""
231 };
232
233 /* Implement the register_name gdbarch method. */
234
235 static const char *
csky_register_name(struct gdbarch * gdbarch,int reg_nr)236 csky_register_name (struct gdbarch *gdbarch, int reg_nr)
237 {
238 if (tdesc_has_registers (gdbarch_target_desc (gdbarch)))
239 return tdesc_register_name (gdbarch, reg_nr);
240
241 if (reg_nr < 0)
242 return NULL;
243
244 if (reg_nr >= gdbarch_num_regs (gdbarch))
245 return NULL;
246
247 return csky_register_names[reg_nr];
248 }
249
250 /* Construct vector type for vrx registers. */
251
252 static struct type *
csky_vector_type(struct gdbarch * gdbarch)253 csky_vector_type (struct gdbarch *gdbarch)
254 {
255 const struct builtin_type *bt = builtin_type (gdbarch);
256
257 struct type *t;
258
259 t = arch_composite_type (gdbarch, "__gdb_builtin_type_vec128i",
260 TYPE_CODE_UNION);
261
262 append_composite_type_field (t, "u32",
263 init_vector_type (bt->builtin_int32, 4));
264 append_composite_type_field (t, "u16",
265 init_vector_type (bt->builtin_int16, 8));
266 append_composite_type_field (t, "u8",
267 init_vector_type (bt->builtin_int8, 16));
268
269 TYPE_VECTOR (t) = 1;
270 t->set_name ("builtin_type_vec128i");
271
272 return t;
273 }
274
275 /* Return the GDB type object for the "standard" data type
276 of data in register N. */
277
278 static struct type *
csky_register_type(struct gdbarch * gdbarch,int reg_nr)279 csky_register_type (struct gdbarch *gdbarch, int reg_nr)
280 {
281 /* PC, EPC, FPC is a text pointer. */
282 if ((reg_nr == CSKY_PC_REGNUM) || (reg_nr == CSKY_EPC_REGNUM)
283 || (reg_nr == CSKY_FPC_REGNUM))
284 return builtin_type (gdbarch)->builtin_func_ptr;
285
286 /* VBR is a data pointer. */
287 if (reg_nr == CSKY_VBR_REGNUM)
288 return builtin_type (gdbarch)->builtin_data_ptr;
289
290 /* Float register has 64 bits, and only in ck810. */
291 if ((reg_nr >=CSKY_FR0_REGNUM) && (reg_nr <= CSKY_FR0_REGNUM + 15))
292 return arch_float_type (gdbarch, 64, "builtin_type_csky_ext",
293 floatformats_ieee_double);
294
295 /* Vector register has 128 bits, and only in ck810. */
296 if ((reg_nr >= CSKY_VR0_REGNUM) && (reg_nr <= CSKY_VR0_REGNUM + 15))
297 return csky_vector_type (gdbarch);
298
299 /* Profiling general register has 48 bits, we use 64bit. */
300 if ((reg_nr >= CSKY_PROFGR_REGNUM) && (reg_nr <= CSKY_PROFGR_REGNUM + 44))
301 return builtin_type (gdbarch)->builtin_uint64;
302
303 if (reg_nr == CSKY_SP_REGNUM)
304 return builtin_type (gdbarch)->builtin_data_ptr;
305
306 /* Others are 32 bits. */
307 return builtin_type (gdbarch)->builtin_int32;
308 }
309
310 /* Data structure to marshall items in a dummy stack frame when
311 calling a function in the inferior. */
312
313 struct stack_item
314 {
stack_itemstack_item315 stack_item (int len_, const gdb_byte *data_)
316 : len (len_), data (data_)
317 {}
318
319 int len;
320 const gdb_byte *data;
321 };
322
323 /* Implement the push_dummy_call gdbarch method. */
324
325 static CORE_ADDR
csky_push_dummy_call(struct gdbarch * gdbarch,struct value * function,struct regcache * regcache,CORE_ADDR bp_addr,int nargs,struct value ** args,CORE_ADDR sp,function_call_return_method return_method,CORE_ADDR struct_addr)326 csky_push_dummy_call (struct gdbarch *gdbarch, struct value *function,
327 struct regcache *regcache, CORE_ADDR bp_addr,
328 int nargs, struct value **args, CORE_ADDR sp,
329 function_call_return_method return_method,
330 CORE_ADDR struct_addr)
331 {
332 int argnum;
333 int argreg = CSKY_ABI_A0_REGNUM;
334 int last_arg_regnum = CSKY_ABI_LAST_ARG_REGNUM;
335 int need_dummy_stack = 0;
336 enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
337 std::vector<stack_item> stack_items;
338
339 /* Set the return address. For CSKY, the return breakpoint is
340 always at BP_ADDR. */
341 regcache_cooked_write_unsigned (regcache, CSKY_LR_REGNUM, bp_addr);
342
343 /* The struct_return pointer occupies the first parameter
344 passing register. */
345 if (return_method == return_method_struct)
346 {
347 if (csky_debug)
348 {
349 fprintf_unfiltered (gdb_stdlog,
350 "csky: struct return in %s = %s\n",
351 gdbarch_register_name (gdbarch, argreg),
352 paddress (gdbarch, struct_addr));
353 }
354 regcache_cooked_write_unsigned (regcache, argreg, struct_addr);
355 argreg++;
356 }
357
358 /* Put parameters into argument registers in REGCACHE.
359 In ABI argument registers are r0 through r3. */
360 for (argnum = 0; argnum < nargs; argnum++)
361 {
362 int len;
363 struct type *arg_type;
364 const gdb_byte *val;
365
366 arg_type = check_typedef (value_type (args[argnum]));
367 len = TYPE_LENGTH (arg_type);
368 val = value_contents (args[argnum]);
369
370 /* Copy the argument to argument registers or the dummy stack.
371 Large arguments are split between registers and stack.
372
373 If len < 4, there is no need to worry about endianness since
374 the arguments will always be stored in the low address. */
375 if (len < 4)
376 {
377 CORE_ADDR regval
378 = extract_unsigned_integer (val, len, byte_order);
379 regcache_cooked_write_unsigned (regcache, argreg, regval);
380 argreg++;
381 }
382 else
383 {
384 while (len > 0)
385 {
386 int partial_len = len < 4 ? len : 4;
387 if (argreg <= last_arg_regnum)
388 {
389 /* The argument is passed in an argument register. */
390 CORE_ADDR regval
391 = extract_unsigned_integer (val, partial_len,
392 byte_order);
393 if (byte_order == BFD_ENDIAN_BIG)
394 regval <<= (4 - partial_len) * 8;
395
396 /* Put regval into register in REGCACHE. */
397 regcache_cooked_write_unsigned (regcache, argreg,
398 regval);
399 argreg++;
400 }
401 else
402 {
403 /* The argument should be pushed onto the dummy stack. */
404 stack_items.emplace_back (4, val);
405 need_dummy_stack += 4;
406 }
407 len -= partial_len;
408 val += partial_len;
409 }
410 }
411 }
412
413 /* Transfer the dummy stack frame to the target. */
414 std::vector<stack_item>::reverse_iterator iter;
415 for (iter = stack_items.rbegin (); iter != stack_items.rend (); ++iter)
416 {
417 sp -= iter->len;
418 write_memory (sp, iter->data, iter->len);
419 }
420
421 /* Finally, update the SP register. */
422 regcache_cooked_write_unsigned (regcache, CSKY_SP_REGNUM, sp);
423 return sp;
424 }
425
426 /* Implement the return_value gdbarch method. */
427
428 static enum return_value_convention
csky_return_value(struct gdbarch * gdbarch,struct value * function,struct type * valtype,struct regcache * regcache,gdb_byte * readbuf,const gdb_byte * writebuf)429 csky_return_value (struct gdbarch *gdbarch, struct value *function,
430 struct type *valtype, struct regcache *regcache,
431 gdb_byte *readbuf, const gdb_byte *writebuf)
432 {
433 CORE_ADDR regval;
434 enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
435 int len = TYPE_LENGTH (valtype);
436 unsigned int ret_regnum = CSKY_RET_REGNUM;
437
438 /* Csky abi specifies that return values larger than 8 bytes
439 are put on the stack. */
440 if (len > 8)
441 return RETURN_VALUE_STRUCT_CONVENTION;
442 else
443 {
444 if (readbuf != NULL)
445 {
446 ULONGEST tmp;
447 /* By using store_unsigned_integer we avoid having to do
448 anything special for small big-endian values. */
449 regcache->cooked_read (ret_regnum, &tmp);
450 store_unsigned_integer (readbuf, (len > 4 ? 4 : len),
451 byte_order, tmp);
452 if (len > 4)
453 {
454 regcache->cooked_read (ret_regnum + 1, &tmp);
455 store_unsigned_integer (readbuf + 4, 4, byte_order, tmp);
456 }
457 }
458 if (writebuf != NULL)
459 {
460 regval = extract_unsigned_integer (writebuf, len > 4 ? 4 : len,
461 byte_order);
462 regcache_cooked_write_unsigned (regcache, ret_regnum, regval);
463 if (len > 4)
464 {
465 regval = extract_unsigned_integer ((gdb_byte *) writebuf + 4,
466 4, byte_order);
467 regcache_cooked_write_unsigned (regcache, ret_regnum + 1,
468 regval);
469 }
470
471 }
472 return RETURN_VALUE_REGISTER_CONVENTION;
473 }
474 }
475
476 /* Implement the frame_align gdbarch method.
477
478 Adjust the address downward (direction of stack growth) so that it
479 is correctly aligned for a new stack frame. */
480
481 static CORE_ADDR
csky_frame_align(struct gdbarch * gdbarch,CORE_ADDR addr)482 csky_frame_align (struct gdbarch *gdbarch, CORE_ADDR addr)
483 {
484 return align_down (addr, 4);
485 }
486
487 /* Unwind cache used for gdbarch fallback unwinder. */
488
489 struct csky_unwind_cache
490 {
491 /* The stack pointer at the time this frame was created; i.e. the
492 caller's stack pointer when this function was called. It is used
493 to identify this frame. */
494 CORE_ADDR prev_sp;
495
496 /* The frame base for this frame is just prev_sp - frame size.
497 FRAMESIZE is the distance from the frame pointer to the
498 initial stack pointer. */
499 int framesize;
500
501 /* The register used to hold the frame pointer for this frame. */
502 int framereg;
503
504 /* Saved register offsets. */
505 struct trad_frame_saved_reg *saved_regs;
506 };
507
508 /* Do prologue analysis, returning the PC of the first instruction
509 after the function prologue. */
510
511 static CORE_ADDR
csky_analyze_prologue(struct gdbarch * gdbarch,CORE_ADDR start_pc,CORE_ADDR limit_pc,CORE_ADDR end_pc,struct frame_info * this_frame,struct csky_unwind_cache * this_cache,lr_type_t lr_type)512 csky_analyze_prologue (struct gdbarch *gdbarch,
513 CORE_ADDR start_pc,
514 CORE_ADDR limit_pc,
515 CORE_ADDR end_pc,
516 struct frame_info *this_frame,
517 struct csky_unwind_cache *this_cache,
518 lr_type_t lr_type)
519 {
520 CORE_ADDR addr;
521 unsigned int insn, rn;
522 int framesize = 0;
523 int stacksize = 0;
524 int register_offsets[CSKY_NUM_GREGS_SAVED_GREGS];
525 int insn_len;
526 /* For adjusting fp. */
527 int is_fp_saved = 0;
528 int adjust_fp = 0;
529
530 /* REGISTER_OFFSETS will contain offsets from the top of the frame
531 (NOT the frame pointer) for the various saved registers, or -1
532 if the register is not saved. */
533 for (rn = 0; rn < CSKY_NUM_GREGS_SAVED_GREGS; rn++)
534 register_offsets[rn] = -1;
535
536 /* Analyze the prologue. Things we determine from analyzing the
537 prologue include the size of the frame and which registers are
538 saved (and where). */
539 if (csky_debug)
540 {
541 fprintf_unfiltered (gdb_stdlog,
542 "csky: Scanning prologue: start_pc = 0x%x,"
543 "limit_pc = 0x%x\n", (unsigned int) start_pc,
544 (unsigned int) limit_pc);
545 }
546
547 /* Default to 16 bit instruction. */
548 insn_len = 2;
549 stacksize = 0;
550 for (addr = start_pc; addr < limit_pc; addr += insn_len)
551 {
552 /* Get next insn. */
553 insn_len = csky_get_insn (gdbarch, addr, &insn);
554
555 /* Check if 32 bit. */
556 if (insn_len == 4)
557 {
558 /* subi32 sp,sp oimm12. */
559 if (CSKY_32_IS_SUBI0 (insn))
560 {
561 /* Got oimm12. */
562 int offset = CSKY_32_SUBI_IMM (insn);
563 if (csky_debug)
564 {
565 fprintf_unfiltered (gdb_stdlog,
566 "csky: got subi sp,%d; continuing\n",
567 offset);
568 }
569 stacksize += offset;
570 continue;
571 }
572 /* stm32 ry-rz,(sp). */
573 else if (CSKY_32_IS_STMx0 (insn))
574 {
575 /* Spill register(s). */
576 int start_register;
577 int reg_count;
578 int offset;
579
580 /* BIG WARNING! The CKCore ABI does not restrict functions
581 to taking only one stack allocation. Therefore, when
582 we save a register, we record the offset of where it was
583 saved relative to the current stacksize. This will
584 then give an offset from the SP upon entry to our
585 function. Remember, stacksize is NOT constant until
586 we're done scanning the prologue. */
587 start_register = CSKY_32_STM_VAL_REGNUM (insn);
588 reg_count = CSKY_32_STM_SIZE (insn);
589 if (csky_debug)
590 {
591 fprintf_unfiltered (gdb_stdlog,
592 "csky: got stm r%d-r%d,(sp)\n",
593 start_register,
594 start_register + reg_count);
595 }
596
597 for (rn = start_register, offset = 0;
598 rn <= start_register + reg_count;
599 rn++, offset += 4)
600 {
601 register_offsets[rn] = stacksize - offset;
602 if (csky_debug)
603 {
604 fprintf_unfiltered (gdb_stdlog,
605 "csky: r%d saved at 0x%x"
606 " (offset %d)\n",
607 rn, register_offsets[rn],
608 offset);
609 }
610 }
611 if (csky_debug)
612 fprintf_unfiltered (gdb_stdlog, "csky: continuing\n");
613 continue;
614 }
615 /* stw ry,(sp,disp). */
616 else if (CSKY_32_IS_STWx0 (insn))
617 {
618 /* Spill register: see note for IS_STM above. */
619 int disp;
620
621 rn = CSKY_32_ST_VAL_REGNUM (insn);
622 disp = CSKY_32_ST_OFFSET (insn);
623 register_offsets[rn] = stacksize - disp;
624 if (csky_debug)
625 print_savedreg_msg (rn, register_offsets, true);
626 continue;
627 }
628 else if (CSKY_32_IS_MOV_FP_SP (insn))
629 {
630 /* SP is saved to FP reg, means code afer prologue may
631 modify SP. */
632 is_fp_saved = 1;
633 adjust_fp = stacksize;
634 continue;
635 }
636 else if (CSKY_32_IS_MFCR_EPSR (insn))
637 {
638 unsigned int insn2;
639 addr += 4;
640 int mfcr_regnum = insn & 0x1f;
641 insn_len = csky_get_insn (gdbarch, addr, &insn2);
642 if (insn_len == 2)
643 {
644 int stw_regnum = (insn2 >> 5) & 0x7;
645 if (CSKY_16_IS_STWx0 (insn2) && (mfcr_regnum == stw_regnum))
646 {
647 int offset;
648
649 /* CSKY_EPSR_REGNUM. */
650 rn = CSKY_NUM_GREGS;
651 offset = CSKY_16_STWx0_OFFSET (insn2);
652 register_offsets[rn] = stacksize - offset;
653 if (csky_debug)
654 print_savedreg_msg (rn, register_offsets, true);
655 continue;
656 }
657 break;
658 }
659 else
660 {
661 /* INSN_LEN == 4. */
662 int stw_regnum = (insn2 >> 21) & 0x1f;
663 if (CSKY_32_IS_STWx0 (insn2) && (mfcr_regnum == stw_regnum))
664 {
665 int offset;
666
667 /* CSKY_EPSR_REGNUM. */
668 rn = CSKY_NUM_GREGS;
669 offset = CSKY_32_ST_OFFSET (insn2);
670 register_offsets[rn] = framesize - offset;
671 if (csky_debug)
672 print_savedreg_msg (rn, register_offsets, true);
673 continue;
674 }
675 break;
676 }
677 }
678 else if (CSKY_32_IS_MFCR_FPSR (insn))
679 {
680 unsigned int insn2;
681 addr += 4;
682 int mfcr_regnum = insn & 0x1f;
683 insn_len = csky_get_insn (gdbarch, addr, &insn2);
684 if (insn_len == 2)
685 {
686 int stw_regnum = (insn2 >> 5) & 0x7;
687 if (CSKY_16_IS_STWx0 (insn2) && (mfcr_regnum
688 == stw_regnum))
689 {
690 int offset;
691
692 /* CSKY_FPSR_REGNUM. */
693 rn = CSKY_NUM_GREGS + 1;
694 offset = CSKY_16_STWx0_OFFSET (insn2);
695 register_offsets[rn] = stacksize - offset;
696 if (csky_debug)
697 print_savedreg_msg (rn, register_offsets, true);
698 continue;
699 }
700 break;
701 }
702 else
703 {
704 /* INSN_LEN == 4. */
705 int stw_regnum = (insn2 >> 21) & 0x1f;
706 if (CSKY_32_IS_STWx0 (insn2) && (mfcr_regnum == stw_regnum))
707 {
708 int offset;
709
710 /* CSKY_FPSR_REGNUM. */
711 rn = CSKY_NUM_GREGS + 1;
712 offset = CSKY_32_ST_OFFSET (insn2);
713 register_offsets[rn] = framesize - offset;
714 if (csky_debug)
715 print_savedreg_msg (rn, register_offsets, true);
716 continue;
717 }
718 break;
719 }
720 }
721 else if (CSKY_32_IS_MFCR_EPC (insn))
722 {
723 unsigned int insn2;
724 addr += 4;
725 int mfcr_regnum = insn & 0x1f;
726 insn_len = csky_get_insn (gdbarch, addr, &insn2);
727 if (insn_len == 2)
728 {
729 int stw_regnum = (insn2 >> 5) & 0x7;
730 if (CSKY_16_IS_STWx0 (insn2) && (mfcr_regnum == stw_regnum))
731 {
732 int offset;
733
734 /* CSKY_EPC_REGNUM. */
735 rn = CSKY_NUM_GREGS + 2;
736 offset = CSKY_16_STWx0_OFFSET (insn2);
737 register_offsets[rn] = stacksize - offset;
738 if (csky_debug)
739 print_savedreg_msg (rn, register_offsets, true);
740 continue;
741 }
742 break;
743 }
744 else
745 {
746 /* INSN_LEN == 4. */
747 int stw_regnum = (insn2 >> 21) & 0x1f;
748 if (CSKY_32_IS_STWx0 (insn2) && (mfcr_regnum == stw_regnum))
749 {
750 int offset;
751
752 /* CSKY_EPC_REGNUM. */
753 rn = CSKY_NUM_GREGS + 2;
754 offset = CSKY_32_ST_OFFSET (insn2);
755 register_offsets[rn] = framesize - offset;
756 if (csky_debug)
757 print_savedreg_msg (rn, register_offsets, true);
758 continue;
759 }
760 break;
761 }
762 }
763 else if (CSKY_32_IS_MFCR_FPC (insn))
764 {
765 unsigned int insn2;
766 addr += 4;
767 int mfcr_regnum = insn & 0x1f;
768 insn_len = csky_get_insn (gdbarch, addr, &insn2);
769 if (insn_len == 2)
770 {
771 int stw_regnum = (insn2 >> 5) & 0x7;
772 if (CSKY_16_IS_STWx0 (insn2) && (mfcr_regnum == stw_regnum))
773 {
774 int offset;
775
776 /* CSKY_FPC_REGNUM. */
777 rn = CSKY_NUM_GREGS + 3;
778 offset = CSKY_16_STWx0_OFFSET (insn2);
779 register_offsets[rn] = stacksize - offset;
780 if (csky_debug)
781 print_savedreg_msg (rn, register_offsets, true);
782 continue;
783 }
784 break;
785 }
786 else
787 {
788 /* INSN_LEN == 4. */
789 int stw_regnum = (insn2 >> 21) & 0x1f;
790 if (CSKY_32_IS_STWx0 (insn2) && (mfcr_regnum == stw_regnum))
791 {
792 int offset;
793
794 /* CSKY_FPC_REGNUM. */
795 rn = CSKY_NUM_GREGS + 3;
796 offset = CSKY_32_ST_OFFSET (insn2);
797 register_offsets[rn] = framesize - offset;
798 if (csky_debug)
799 print_savedreg_msg (rn, register_offsets, true);
800 continue;
801 }
802 break;
803 }
804 }
805 else if (CSKY_32_IS_PUSH (insn))
806 {
807 /* Push for 32_bit. */
808 int offset = 0;
809 if (CSKY_32_IS_PUSH_R29 (insn))
810 {
811 stacksize += 4;
812 register_offsets[29] = stacksize;
813 if (csky_debug)
814 print_savedreg_msg (29, register_offsets, false);
815 offset += 4;
816 }
817 if (CSKY_32_PUSH_LIST2 (insn))
818 {
819 int num = CSKY_32_PUSH_LIST2 (insn);
820 int tmp = 0;
821 stacksize += num * 4;
822 offset += num * 4;
823 if (csky_debug)
824 {
825 fprintf_unfiltered (gdb_stdlog,
826 "csky: push regs_array: r16-r%d\n",
827 16 + num - 1);
828 }
829 for (rn = 16; rn <= 16 + num - 1; rn++)
830 {
831 register_offsets[rn] = stacksize - tmp;
832 if (csky_debug)
833 {
834 fprintf_unfiltered (gdb_stdlog,
835 "csky: r%d saved at 0x%x"
836 " (offset %d)\n", rn,
837 register_offsets[rn], tmp);
838 }
839 tmp += 4;
840 }
841 }
842 if (CSKY_32_IS_PUSH_R15 (insn))
843 {
844 stacksize += 4;
845 register_offsets[15] = stacksize;
846 if (csky_debug)
847 print_savedreg_msg (15, register_offsets, false);
848 offset += 4;
849 }
850 if (CSKY_32_PUSH_LIST1 (insn))
851 {
852 int num = CSKY_32_PUSH_LIST1 (insn);
853 int tmp = 0;
854 stacksize += num * 4;
855 offset += num * 4;
856 if (csky_debug)
857 {
858 fprintf_unfiltered (gdb_stdlog,
859 "csky: push regs_array: r4-r%d\n",
860 4 + num - 1);
861 }
862 for (rn = 4; rn <= 4 + num - 1; rn++)
863 {
864 register_offsets[rn] = stacksize - tmp;
865 if (csky_debug)
866 {
867 fprintf_unfiltered (gdb_stdlog,
868 "csky: r%d saved at 0x%x"
869 " (offset %d)\n", rn,
870 register_offsets[rn], tmp);
871 }
872 tmp += 4;
873 }
874 }
875
876 framesize = stacksize;
877 if (csky_debug)
878 fprintf_unfiltered (gdb_stdlog, "csky: continuing\n");
879 continue;
880 }
881 else if (CSKY_32_IS_LRW4 (insn) || CSKY_32_IS_MOVI4 (insn)
882 || CSKY_32_IS_MOVIH4 (insn) || CSKY_32_IS_BMASKI4 (insn))
883 {
884 int adjust = 0;
885 int offset = 0;
886 unsigned int insn2;
887
888 if (csky_debug)
889 {
890 fprintf_unfiltered (gdb_stdlog,
891 "csky: looking at large frame\n");
892 }
893 if (CSKY_32_IS_LRW4 (insn))
894 {
895 enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
896 int literal_addr = (addr + ((insn & 0xffff) << 2))
897 & 0xfffffffc;
898 adjust = read_memory_unsigned_integer (literal_addr, 4,
899 byte_order);
900 }
901 else if (CSKY_32_IS_MOVI4 (insn))
902 adjust = (insn & 0xffff);
903 else if (CSKY_32_IS_MOVIH4 (insn))
904 adjust = (insn & 0xffff) << 16;
905 else
906 {
907 /* CSKY_32_IS_BMASKI4 (insn). */
908 adjust = (1 << (((insn & 0x3e00000) >> 21) + 1)) - 1;
909 }
910
911 if (csky_debug)
912 {
913 fprintf_unfiltered (gdb_stdlog,
914 "csky: base stacksize=0x%x\n", adjust);
915
916 /* May have zero or more insns which modify r4. */
917 fprintf_unfiltered (gdb_stdlog,
918 "csky: looking for r4 adjusters...\n");
919 }
920
921 offset = 4;
922 insn_len = csky_get_insn (gdbarch, addr + offset, &insn2);
923 while (CSKY_IS_R4_ADJUSTER (insn2))
924 {
925 if (CSKY_32_IS_ADDI4 (insn2))
926 {
927 int imm = (insn2 & 0xfff) + 1;
928 adjust += imm;
929 if (csky_debug)
930 {
931 fprintf_unfiltered (gdb_stdlog,
932 "csky: addi r4,%d\n", imm);
933 }
934 }
935 else if (CSKY_32_IS_SUBI4 (insn2))
936 {
937 int imm = (insn2 & 0xfff) + 1;
938 adjust -= imm;
939 if (csky_debug)
940 {
941 fprintf_unfiltered (gdb_stdlog,
942 "csky: subi r4,%d\n", imm);
943 }
944 }
945 else if (CSKY_32_IS_NOR4 (insn2))
946 {
947 adjust = ~adjust;
948 if (csky_debug)
949 {
950 fprintf_unfiltered (gdb_stdlog,
951 "csky: nor r4,r4,r4\n");
952 }
953 }
954 else if (CSKY_32_IS_ROTLI4 (insn2))
955 {
956 int imm = ((insn2 >> 21) & 0x1f);
957 int temp = adjust >> (32 - imm);
958 adjust <<= imm;
959 adjust |= temp;
960 if (csky_debug)
961 {
962 fprintf_unfiltered (gdb_stdlog,
963 "csky: rotli r4,r4,%d\n", imm);
964 }
965 }
966 else if (CSKY_32_IS_LISI4 (insn2))
967 {
968 int imm = ((insn2 >> 21) & 0x1f);
969 adjust <<= imm;
970 if (csky_debug)
971 {
972 fprintf_unfiltered (gdb_stdlog,
973 "csky: lsli r4,r4,%d\n", imm);
974 }
975 }
976 else if (CSKY_32_IS_BSETI4 (insn2))
977 {
978 int imm = ((insn2 >> 21) & 0x1f);
979 adjust |= (1 << imm);
980 if (csky_debug)
981 {
982 fprintf_unfiltered (gdb_stdlog,
983 "csky: bseti r4,r4 %d\n", imm);
984 }
985 }
986 else if (CSKY_32_IS_BCLRI4 (insn2))
987 {
988 int imm = ((insn2 >> 21) & 0x1f);
989 adjust &= ~(1 << imm);
990 if (csky_debug)
991 {
992 fprintf_unfiltered (gdb_stdlog,
993 "csky: bclri r4,r4 %d\n", imm);
994 }
995 }
996 else if (CSKY_32_IS_IXH4 (insn2))
997 {
998 adjust *= 3;
999 if (csky_debug)
1000 {
1001 fprintf_unfiltered (gdb_stdlog,
1002 "csky: ixh r4,r4,r4\n");
1003 }
1004 }
1005 else if (CSKY_32_IS_IXW4 (insn2))
1006 {
1007 adjust *= 5;
1008 if (csky_debug)
1009 {
1010 fprintf_unfiltered (gdb_stdlog,
1011 "csky: ixw r4,r4,r4\n");
1012 }
1013 }
1014 else if (CSKY_16_IS_ADDI4 (insn2))
1015 {
1016 int imm = (insn2 & 0xff) + 1;
1017 adjust += imm;
1018 if (csky_debug)
1019 {
1020 fprintf_unfiltered (gdb_stdlog,
1021 "csky: addi r4,%d\n", imm);
1022 }
1023 }
1024 else if (CSKY_16_IS_SUBI4 (insn2))
1025 {
1026 int imm = (insn2 & 0xff) + 1;
1027 adjust -= imm;
1028 if (csky_debug)
1029 {
1030 fprintf_unfiltered (gdb_stdlog,
1031 "csky: subi r4,%d\n", imm);
1032 }
1033 }
1034 else if (CSKY_16_IS_NOR4 (insn2))
1035 {
1036 adjust = ~adjust;
1037 if (csky_debug)
1038 {
1039 fprintf_unfiltered (gdb_stdlog,
1040 "csky: nor r4,r4\n");
1041 }
1042 }
1043 else if (CSKY_16_IS_BSETI4 (insn2))
1044 {
1045 int imm = (insn2 & 0x1f);
1046 adjust |= (1 << imm);
1047 if (csky_debug)
1048 {
1049 fprintf_unfiltered (gdb_stdlog,
1050 "csky: bseti r4, %d\n", imm);
1051 }
1052 }
1053 else if (CSKY_16_IS_BCLRI4 (insn2))
1054 {
1055 int imm = (insn2 & 0x1f);
1056 adjust &= ~(1 << imm);
1057 if (csky_debug)
1058 {
1059 fprintf_unfiltered (gdb_stdlog,
1060 "csky: bclri r4, %d\n", imm);
1061 }
1062 }
1063 else if (CSKY_16_IS_LSLI4 (insn2))
1064 {
1065 int imm = (insn2 & 0x1f);
1066 adjust <<= imm;
1067 if (csky_debug)
1068 {
1069 fprintf_unfiltered (gdb_stdlog,
1070 "csky: lsli r4,r4, %d\n", imm);
1071 }
1072 }
1073
1074 offset += insn_len;
1075 insn_len = csky_get_insn (gdbarch, addr + offset, &insn2);
1076 };
1077
1078 if (csky_debug)
1079 {
1080 fprintf_unfiltered (gdb_stdlog, "csky: done looking for"
1081 " r4 adjusters\n");
1082 }
1083
1084 /* If the next insn adjusts the stack pointer, we keep
1085 everything; if not, we scrap it and we've found the
1086 end of the prologue. */
1087 if (CSKY_IS_SUBU4 (insn2))
1088 {
1089 addr += offset;
1090 stacksize += adjust;
1091 if (csky_debug)
1092 {
1093 fprintf_unfiltered (gdb_stdlog,
1094 "csky: found stack adjustment of"
1095 " 0x%x bytes.\n", adjust);
1096 fprintf_unfiltered (gdb_stdlog,
1097 "csky: skipping to new address %s\n",
1098 core_addr_to_string_nz (addr));
1099 fprintf_unfiltered (gdb_stdlog,
1100 "csky: continuing\n");
1101 }
1102 continue;
1103 }
1104
1105 /* None of these instructions are prologue, so don't touch
1106 anything. */
1107 if (csky_debug)
1108 {
1109 fprintf_unfiltered (gdb_stdlog,
1110 "csky: no subu sp,sp,r4; NOT altering"
1111 " stacksize.\n");
1112 }
1113 break;
1114 }
1115 }
1116 else
1117 {
1118 /* insn_len != 4. */
1119
1120 /* subi.sp sp,disp. */
1121 if (CSKY_16_IS_SUBI0 (insn))
1122 {
1123 int offset = CSKY_16_SUBI_IMM (insn);
1124 if (csky_debug)
1125 {
1126 fprintf_unfiltered (gdb_stdlog,
1127 "csky: got subi r0,%d; continuing\n",
1128 offset);
1129 }
1130 stacksize += offset;
1131 continue;
1132 }
1133 /* stw.16 rz,(sp,disp). */
1134 else if (CSKY_16_IS_STWx0 (insn))
1135 {
1136 /* Spill register: see note for IS_STM above. */
1137 int disp;
1138
1139 rn = CSKY_16_ST_VAL_REGNUM (insn);
1140 disp = CSKY_16_ST_OFFSET (insn);
1141 register_offsets[rn] = stacksize - disp;
1142 if (csky_debug)
1143 print_savedreg_msg (rn, register_offsets, true);
1144 continue;
1145 }
1146 else if (CSKY_16_IS_MOV_FP_SP (insn))
1147 {
1148 /* SP is saved to FP reg, means prologue may modify SP. */
1149 is_fp_saved = 1;
1150 adjust_fp = stacksize;
1151 continue;
1152 }
1153 else if (CSKY_16_IS_PUSH (insn))
1154 {
1155 /* Push for 16_bit. */
1156 int offset = 0;
1157 if (CSKY_16_IS_PUSH_R15 (insn))
1158 {
1159 stacksize += 4;
1160 register_offsets[15] = stacksize;
1161 if (csky_debug)
1162 print_savedreg_msg (15, register_offsets, false);
1163 offset += 4;
1164 }
1165 if (CSKY_16_PUSH_LIST1 (insn))
1166 {
1167 int num = CSKY_16_PUSH_LIST1 (insn);
1168 int tmp = 0;
1169 stacksize += num * 4;
1170 offset += num * 4;
1171 if (csky_debug)
1172 {
1173 fprintf_unfiltered (gdb_stdlog,
1174 "csky: push regs_array: r4-r%d\n",
1175 4 + num - 1);
1176 }
1177 for (rn = 4; rn <= 4 + num - 1; rn++)
1178 {
1179 register_offsets[rn] = stacksize - tmp;
1180 if (csky_debug)
1181 {
1182 fprintf_unfiltered (gdb_stdlog,
1183 "csky: r%d saved at 0x%x"
1184 " (offset %d)\n", rn,
1185 register_offsets[rn], offset);
1186 }
1187 tmp += 4;
1188 }
1189 }
1190
1191 framesize = stacksize;
1192 if (csky_debug)
1193 fprintf_unfiltered (gdb_stdlog, "csky: continuing\n");
1194 continue;
1195 }
1196 else if (CSKY_16_IS_LRW4 (insn) || CSKY_16_IS_MOVI4 (insn))
1197 {
1198 int adjust = 0;
1199 unsigned int insn2;
1200
1201 if (csky_debug)
1202 {
1203 fprintf_unfiltered (gdb_stdlog,
1204 "csky: looking at large frame\n");
1205 }
1206 if (CSKY_16_IS_LRW4 (insn))
1207 {
1208 enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
1209 int offset = ((insn & 0x300) >> 3) | (insn & 0x1f);
1210 int literal_addr = (addr + ( offset << 2)) & 0xfffffffc;
1211 adjust = read_memory_unsigned_integer (literal_addr, 4,
1212 byte_order);
1213 }
1214 else
1215 {
1216 /* CSKY_16_IS_MOVI4 (insn). */
1217 adjust = (insn & 0xff);
1218 }
1219
1220 if (csky_debug)
1221 {
1222 fprintf_unfiltered (gdb_stdlog,
1223 "csky: base stacksize=0x%x\n", adjust);
1224 }
1225
1226 /* May have zero or more instructions which modify r4. */
1227 if (csky_debug)
1228 {
1229 fprintf_unfiltered (gdb_stdlog,
1230 "csky: looking for r4 adjusters...\n");
1231 }
1232 int offset = 2;
1233 insn_len = csky_get_insn (gdbarch, addr + offset, &insn2);
1234 while (CSKY_IS_R4_ADJUSTER (insn2))
1235 {
1236 if (CSKY_32_IS_ADDI4 (insn2))
1237 {
1238 int imm = (insn2 & 0xfff) + 1;
1239 adjust += imm;
1240 if (csky_debug)
1241 {
1242 fprintf_unfiltered (gdb_stdlog,
1243 "csky: addi r4,%d\n", imm);
1244 }
1245 }
1246 else if (CSKY_32_IS_SUBI4 (insn2))
1247 {
1248 int imm = (insn2 & 0xfff) + 1;
1249 adjust -= imm;
1250 if (csky_debug)
1251 {
1252 fprintf_unfiltered (gdb_stdlog,
1253 "csky: subi r4,%d\n", imm);
1254 }
1255 }
1256 else if (CSKY_32_IS_NOR4 (insn2))
1257 {
1258 adjust = ~adjust;
1259 if (csky_debug)
1260 {
1261 fprintf_unfiltered (gdb_stdlog,
1262 "csky: nor r4,r4,r4\n");
1263 }
1264 }
1265 else if (CSKY_32_IS_ROTLI4 (insn2))
1266 {
1267 int imm = ((insn2 >> 21) & 0x1f);
1268 int temp = adjust >> (32 - imm);
1269 adjust <<= imm;
1270 adjust |= temp;
1271 if (csky_debug)
1272 {
1273 fprintf_unfiltered (gdb_stdlog,
1274 "csky: rotli r4,r4,%d\n", imm);
1275 }
1276 }
1277 else if (CSKY_32_IS_LISI4 (insn2))
1278 {
1279 int imm = ((insn2 >> 21) & 0x1f);
1280 adjust <<= imm;
1281 if (csky_debug)
1282 {
1283 fprintf_unfiltered (gdb_stdlog,
1284 "csky: lsli r4,r4,%d\n", imm);
1285 }
1286 }
1287 else if (CSKY_32_IS_BSETI4 (insn2))
1288 {
1289 int imm = ((insn2 >> 21) & 0x1f);
1290 adjust |= (1 << imm);
1291 if (csky_debug)
1292 {
1293 fprintf_unfiltered (gdb_stdlog,
1294 "csky: bseti r4,r4 %d\n", imm);
1295 }
1296 }
1297 else if (CSKY_32_IS_BCLRI4 (insn2))
1298 {
1299 int imm = ((insn2 >> 21) & 0x1f);
1300 adjust &= ~(1 << imm);
1301 if (csky_debug)
1302 {
1303 fprintf_unfiltered (gdb_stdlog,
1304 "csky: bclri r4,r4 %d\n", imm);
1305 }
1306 }
1307 else if (CSKY_32_IS_IXH4 (insn2))
1308 {
1309 adjust *= 3;
1310 if (csky_debug)
1311 {
1312 fprintf_unfiltered (gdb_stdlog,
1313 "csky: ixh r4,r4,r4\n");
1314 }
1315 }
1316 else if (CSKY_32_IS_IXW4 (insn2))
1317 {
1318 adjust *= 5;
1319 if (csky_debug)
1320 {
1321 fprintf_unfiltered (gdb_stdlog,
1322 "csky: ixw r4,r4,r4\n");
1323 }
1324 }
1325 else if (CSKY_16_IS_ADDI4 (insn2))
1326 {
1327 int imm = (insn2 & 0xff) + 1;
1328 adjust += imm;
1329 if (csky_debug)
1330 {
1331 fprintf_unfiltered (gdb_stdlog,
1332 "csky: addi r4,%d\n", imm);
1333 }
1334 }
1335 else if (CSKY_16_IS_SUBI4 (insn2))
1336 {
1337 int imm = (insn2 & 0xff) + 1;
1338 adjust -= imm;
1339 if (csky_debug)
1340 {
1341 fprintf_unfiltered (gdb_stdlog,
1342 "csky: subi r4,%d\n", imm);
1343 }
1344 }
1345 else if (CSKY_16_IS_NOR4 (insn2))
1346 {
1347 adjust = ~adjust;
1348 if (csky_debug)
1349 {
1350 fprintf_unfiltered (gdb_stdlog,
1351 "csky: nor r4,r4\n");
1352 }
1353 }
1354 else if (CSKY_16_IS_BSETI4 (insn2))
1355 {
1356 int imm = (insn2 & 0x1f);
1357 adjust |= (1 << imm);
1358 if (csky_debug)
1359 {
1360 fprintf_unfiltered (gdb_stdlog,
1361 "csky: bseti r4, %d\n", imm);
1362 }
1363 }
1364 else if (CSKY_16_IS_BCLRI4 (insn2))
1365 {
1366 int imm = (insn2 & 0x1f);
1367 adjust &= ~(1 << imm);
1368 if (csky_debug)
1369 {
1370 fprintf_unfiltered (gdb_stdlog,
1371 "csky: bclri r4, %d\n", imm);
1372 }
1373 }
1374 else if (CSKY_16_IS_LSLI4 (insn2))
1375 {
1376 int imm = (insn2 & 0x1f);
1377 adjust <<= imm;
1378 if (csky_debug)
1379 {
1380 fprintf_unfiltered (gdb_stdlog,
1381 "csky: lsli r4,r4, %d\n", imm);
1382 }
1383 }
1384
1385 offset += insn_len;
1386 insn_len = csky_get_insn (gdbarch, addr + offset, &insn2);
1387 };
1388
1389 if (csky_debug)
1390 {
1391 fprintf_unfiltered (gdb_stdlog, "csky: "
1392 "done looking for r4 adjusters\n");
1393 }
1394
1395 /* If the next instruction adjusts the stack pointer, we keep
1396 everything; if not, we scrap it and we've found the end
1397 of the prologue. */
1398 if (CSKY_IS_SUBU4 (insn2))
1399 {
1400 addr += offset;
1401 stacksize += adjust;
1402 if (csky_debug)
1403 {
1404 fprintf_unfiltered (gdb_stdlog, "csky: "
1405 "found stack adjustment of 0x%x"
1406 " bytes.\n", adjust);
1407 fprintf_unfiltered (gdb_stdlog, "csky: "
1408 "skipping to new address %s\n",
1409 core_addr_to_string_nz (addr));
1410 fprintf_unfiltered (gdb_stdlog, "csky: continuing\n");
1411 }
1412 continue;
1413 }
1414
1415 /* None of these instructions are prologue, so don't touch
1416 anything. */
1417 if (csky_debug)
1418 {
1419 fprintf_unfiltered (gdb_stdlog, "csky: no subu sp,r4; "
1420 "NOT altering stacksize.\n");
1421 }
1422 break;
1423 }
1424 }
1425
1426 /* This is not a prologue instruction, so stop here. */
1427 if (csky_debug)
1428 {
1429 fprintf_unfiltered (gdb_stdlog, "csky: insn is not a prologue"
1430 " insn -- ending scan\n");
1431 }
1432 break;
1433 }
1434
1435 if (this_cache)
1436 {
1437 CORE_ADDR unwound_fp;
1438 enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
1439 this_cache->framesize = framesize;
1440
1441 if (is_fp_saved)
1442 {
1443 this_cache->framereg = CSKY_FP_REGNUM;
1444 unwound_fp = get_frame_register_unsigned (this_frame,
1445 this_cache->framereg);
1446 this_cache->prev_sp = unwound_fp + adjust_fp;
1447 }
1448 else
1449 {
1450 this_cache->framereg = CSKY_SP_REGNUM;
1451 unwound_fp = get_frame_register_unsigned (this_frame,
1452 this_cache->framereg);
1453 this_cache->prev_sp = unwound_fp + stacksize;
1454 }
1455
1456 /* Note where saved registers are stored. The offsets in
1457 REGISTER_OFFSETS are computed relative to the top of the frame. */
1458 for (rn = 0; rn < CSKY_NUM_GREGS; rn++)
1459 {
1460 if (register_offsets[rn] >= 0)
1461 {
1462 this_cache->saved_regs[rn].addr
1463 = this_cache->prev_sp - register_offsets[rn];
1464 if (csky_debug)
1465 {
1466 CORE_ADDR rn_value = read_memory_unsigned_integer (
1467 this_cache->saved_regs[rn].addr, 4, byte_order);
1468 fprintf_unfiltered (gdb_stdlog, "Saved register %s "
1469 "stored at 0x%08lx, value=0x%08lx\n",
1470 csky_register_names[rn],
1471 (unsigned long)
1472 this_cache->saved_regs[rn].addr,
1473 (unsigned long) rn_value);
1474 }
1475 }
1476 }
1477 if (lr_type == LR_TYPE_EPC)
1478 {
1479 /* rte || epc . */
1480 this_cache->saved_regs[CSKY_PC_REGNUM]
1481 = this_cache->saved_regs[CSKY_EPC_REGNUM];
1482 }
1483 else if (lr_type == LR_TYPE_FPC)
1484 {
1485 /* rfi || fpc . */
1486 this_cache->saved_regs[CSKY_PC_REGNUM]
1487 = this_cache->saved_regs[CSKY_FPC_REGNUM];
1488 }
1489 else
1490 {
1491 this_cache->saved_regs[CSKY_PC_REGNUM]
1492 = this_cache->saved_regs[CSKY_LR_REGNUM];
1493 }
1494 }
1495
1496 return addr;
1497 }
1498
1499 /* Detect whether PC is at a point where the stack frame has been
1500 destroyed. */
1501
1502 static int
csky_stack_frame_destroyed_p(struct gdbarch * gdbarch,CORE_ADDR pc)1503 csky_stack_frame_destroyed_p (struct gdbarch *gdbarch, CORE_ADDR pc)
1504 {
1505 unsigned int insn;
1506 CORE_ADDR addr;
1507 CORE_ADDR func_start, func_end;
1508
1509 if (!find_pc_partial_function (pc, NULL, &func_start, &func_end))
1510 return 0;
1511
1512 bool fp_saved = false;
1513 int insn_len;
1514 for (addr = func_start; addr < func_end; addr += insn_len)
1515 {
1516 /* Get next insn. */
1517 insn_len = csky_get_insn (gdbarch, addr, &insn);
1518
1519 if (insn_len == 2)
1520 {
1521 /* Is sp is saved to fp. */
1522 if (CSKY_16_IS_MOV_FP_SP (insn))
1523 fp_saved = true;
1524 /* If sp was saved to fp and now being restored from
1525 fp then it indicates the start of epilog. */
1526 else if (fp_saved && CSKY_16_IS_MOV_SP_FP (insn))
1527 return pc >= addr;
1528 }
1529 }
1530 return 0;
1531 }
1532
1533 /* Implement the skip_prologue gdbarch hook. */
1534
1535 static CORE_ADDR
csky_skip_prologue(struct gdbarch * gdbarch,CORE_ADDR pc)1536 csky_skip_prologue (struct gdbarch *gdbarch, CORE_ADDR pc)
1537 {
1538 CORE_ADDR func_addr, func_end;
1539 struct symtab_and_line sal;
1540 const int default_search_limit = 128;
1541
1542 /* See if we can find the end of the prologue using the symbol table. */
1543 if (find_pc_partial_function (pc, NULL, &func_addr, &func_end))
1544 {
1545 CORE_ADDR post_prologue_pc
1546 = skip_prologue_using_sal (gdbarch, func_addr);
1547
1548 if (post_prologue_pc != 0)
1549 return std::max (pc, post_prologue_pc);
1550 }
1551 else
1552 func_end = pc + default_search_limit;
1553
1554 /* Find the end of prologue. Default lr_type. */
1555 return csky_analyze_prologue (gdbarch, pc, func_end, func_end,
1556 NULL, NULL, LR_TYPE_R15);
1557 }
1558
1559 /* Implement the breakpoint_kind_from_pc gdbarch method. */
1560
1561 static int
csky_breakpoint_kind_from_pc(struct gdbarch * gdbarch,CORE_ADDR * pcptr)1562 csky_breakpoint_kind_from_pc (struct gdbarch *gdbarch, CORE_ADDR *pcptr)
1563 {
1564 if (csky_pc_is_csky16 (gdbarch, *pcptr))
1565 return CSKY_INSN_SIZE16;
1566 else
1567 return CSKY_INSN_SIZE32;
1568 }
1569
1570 /* Implement the sw_breakpoint_from_kind gdbarch method. */
1571
1572 static const gdb_byte *
csky_sw_breakpoint_from_kind(struct gdbarch * gdbarch,int kind,int * size)1573 csky_sw_breakpoint_from_kind (struct gdbarch *gdbarch, int kind, int *size)
1574 {
1575 *size = kind;
1576 if (kind == CSKY_INSN_SIZE16)
1577 {
1578 static gdb_byte csky_16_breakpoint[] = { 0, 0 };
1579 return csky_16_breakpoint;
1580 }
1581 else
1582 {
1583 static gdb_byte csky_32_breakpoint[] = { 0, 0, 0, 0 };
1584 return csky_32_breakpoint;
1585 }
1586 }
1587
1588 /* Implement the memory_insert_breakpoint gdbarch method. */
1589
1590 static int
csky_memory_insert_breakpoint(struct gdbarch * gdbarch,struct bp_target_info * bp_tgt)1591 csky_memory_insert_breakpoint (struct gdbarch *gdbarch,
1592 struct bp_target_info *bp_tgt)
1593 {
1594 int val;
1595 const unsigned char *bp;
1596 gdb_byte bp_write_record1[] = { 0, 0, 0, 0 };
1597 gdb_byte bp_write_record2[] = { 0, 0, 0, 0 };
1598 gdb_byte bp_record[] = { 0, 0, 0, 0 };
1599
1600 /* Sanity-check bp_address. */
1601 if (bp_tgt->reqstd_address % 2)
1602 warning (_("Invalid breakpoint address 0x%x is an odd number."),
1603 (unsigned int) bp_tgt->reqstd_address);
1604 scoped_restore restore_memory
1605 = make_scoped_restore_show_memory_breakpoints (1);
1606
1607 /* Determine appropriate breakpoint_kind for this address. */
1608 bp_tgt->kind = csky_breakpoint_kind_from_pc (gdbarch,
1609 &bp_tgt->reqstd_address);
1610
1611 /* Save the memory contents. */
1612 bp_tgt->shadow_len = bp_tgt->kind;
1613
1614 /* Fill bp_tgt->placed_address. */
1615 bp_tgt->placed_address = bp_tgt->reqstd_address;
1616
1617 if (bp_tgt->kind == CSKY_INSN_SIZE16)
1618 {
1619 if ((bp_tgt->reqstd_address % 4) == 0)
1620 {
1621 /* Read two bytes. */
1622 val = target_read_memory (bp_tgt->reqstd_address,
1623 bp_tgt->shadow_contents, 2);
1624 if (val)
1625 return val;
1626
1627 /* Read two bytes. */
1628 val = target_read_memory (bp_tgt->reqstd_address + 2,
1629 bp_record, 2);
1630 if (val)
1631 return val;
1632
1633 /* Write the breakpoint. */
1634 bp_write_record1[2] = bp_record[0];
1635 bp_write_record1[3] = bp_record[1];
1636 bp = bp_write_record1;
1637 val = target_write_raw_memory (bp_tgt->reqstd_address, bp,
1638 CSKY_WR_BKPT_MODE);
1639 }
1640 else
1641 {
1642 val = target_read_memory (bp_tgt->reqstd_address,
1643 bp_tgt->shadow_contents, 2);
1644 if (val)
1645 return val;
1646
1647 val = target_read_memory (bp_tgt->reqstd_address - 2,
1648 bp_record, 2);
1649 if (val)
1650 return val;
1651
1652 /* Write the breakpoint. */
1653 bp_write_record1[0] = bp_record[0];
1654 bp_write_record1[1] = bp_record[1];
1655 bp = bp_write_record1;
1656 val = target_write_raw_memory (bp_tgt->reqstd_address - 2,
1657 bp, CSKY_WR_BKPT_MODE);
1658 }
1659 }
1660 else
1661 {
1662 if (bp_tgt->placed_address % 4 == 0)
1663 {
1664 val = target_read_memory (bp_tgt->reqstd_address,
1665 bp_tgt->shadow_contents,
1666 CSKY_WR_BKPT_MODE);
1667 if (val)
1668 return val;
1669
1670 /* Write the breakpoint. */
1671 bp = bp_write_record1;
1672 val = target_write_raw_memory (bp_tgt->reqstd_address,
1673 bp, CSKY_WR_BKPT_MODE);
1674 }
1675 else
1676 {
1677 val = target_read_memory (bp_tgt->reqstd_address,
1678 bp_tgt->shadow_contents,
1679 CSKY_WR_BKPT_MODE);
1680 if (val)
1681 return val;
1682
1683 val = target_read_memory (bp_tgt->reqstd_address - 2,
1684 bp_record, 2);
1685 if (val)
1686 return val;
1687
1688 val = target_read_memory (bp_tgt->reqstd_address + 4,
1689 bp_record + 2, 2);
1690 if (val)
1691 return val;
1692
1693 bp_write_record1[0] = bp_record[0];
1694 bp_write_record1[1] = bp_record[1];
1695 bp_write_record2[2] = bp_record[2];
1696 bp_write_record2[3] = bp_record[3];
1697
1698 /* Write the breakpoint. */
1699 bp = bp_write_record1;
1700 val = target_write_raw_memory (bp_tgt->reqstd_address - 2, bp,
1701 CSKY_WR_BKPT_MODE);
1702 if (val)
1703 return val;
1704
1705 /* Write the breakpoint. */
1706 bp = bp_write_record2;
1707 val = target_write_raw_memory (bp_tgt->reqstd_address + 2, bp,
1708 CSKY_WR_BKPT_MODE);
1709 }
1710 }
1711 return val;
1712 }
1713
1714 /* Restore the breakpoint shadow_contents to the target. */
1715
1716 static int
csky_memory_remove_breakpoint(struct gdbarch * gdbarch,struct bp_target_info * bp_tgt)1717 csky_memory_remove_breakpoint (struct gdbarch *gdbarch,
1718 struct bp_target_info *bp_tgt)
1719 {
1720 int val;
1721 gdb_byte bp_record[] = { 0, 0, 0, 0, 0, 0, 0, 0 };
1722 /* Different for shadow_len 2 or 4. */
1723 if (bp_tgt->shadow_len == 2)
1724 {
1725 /* Do word-sized writes on word-aligned boundaries and read
1726 padding bytes as necessary. */
1727 if (bp_tgt->reqstd_address % 4 == 0)
1728 {
1729 val = target_read_memory (bp_tgt->reqstd_address + 2,
1730 bp_record + 2, 2);
1731 if (val)
1732 return val;
1733 bp_record[0] = bp_tgt->shadow_contents[0];
1734 bp_record[1] = bp_tgt->shadow_contents[1];
1735 return target_write_raw_memory (bp_tgt->reqstd_address,
1736 bp_record, CSKY_WR_BKPT_MODE);
1737 }
1738 else
1739 {
1740 val = target_read_memory (bp_tgt->reqstd_address - 2,
1741 bp_record, 2);
1742 if (val)
1743 return val;
1744 bp_record[2] = bp_tgt->shadow_contents[0];
1745 bp_record[3] = bp_tgt->shadow_contents[1];
1746 return target_write_raw_memory (bp_tgt->reqstd_address - 2,
1747 bp_record, CSKY_WR_BKPT_MODE);
1748 }
1749 }
1750 else
1751 {
1752 /* Do word-sized writes on word-aligned boundaries and read
1753 padding bytes as necessary. */
1754 if (bp_tgt->placed_address % 4 == 0)
1755 {
1756 return target_write_raw_memory (bp_tgt->reqstd_address,
1757 bp_tgt->shadow_contents,
1758 CSKY_WR_BKPT_MODE);
1759 }
1760 else
1761 {
1762 val = target_read_memory (bp_tgt->reqstd_address - 2,
1763 bp_record, 2);
1764 if (val)
1765 return val;
1766 val = target_read_memory (bp_tgt->reqstd_address + 4,
1767 bp_record+6, 2);
1768 if (val)
1769 return val;
1770
1771 bp_record[2] = bp_tgt->shadow_contents[0];
1772 bp_record[3] = bp_tgt->shadow_contents[1];
1773 bp_record[4] = bp_tgt->shadow_contents[2];
1774 bp_record[5] = bp_tgt->shadow_contents[3];
1775
1776 return target_write_raw_memory (bp_tgt->reqstd_address - 2,
1777 bp_record,
1778 CSKY_WR_BKPT_MODE * 2);
1779 }
1780 }
1781 }
1782
1783 /* Determine link register type. */
1784
1785 static lr_type_t
csky_analyze_lr_type(struct gdbarch * gdbarch,CORE_ADDR start_pc,CORE_ADDR end_pc)1786 csky_analyze_lr_type (struct gdbarch *gdbarch,
1787 CORE_ADDR start_pc, CORE_ADDR end_pc)
1788 {
1789 CORE_ADDR addr;
1790 unsigned int insn, insn_len;
1791 insn_len = 2;
1792
1793 for (addr = start_pc; addr < end_pc; addr += insn_len)
1794 {
1795 insn_len = csky_get_insn (gdbarch, addr, &insn);
1796 if (insn_len == 4)
1797 {
1798 if (CSKY_32_IS_MFCR_EPSR (insn) || CSKY_32_IS_MFCR_EPC (insn)
1799 || CSKY_32_IS_RTE (insn))
1800 return LR_TYPE_EPC;
1801 }
1802 else if (CSKY_32_IS_MFCR_FPSR (insn) || CSKY_32_IS_MFCR_FPC (insn)
1803 || CSKY_32_IS_RFI (insn))
1804 return LR_TYPE_FPC;
1805 else if (CSKY_32_IS_JMP (insn) || CSKY_32_IS_BR (insn)
1806 || CSKY_32_IS_JMPIX (insn) || CSKY_32_IS_JMPI (insn))
1807 return LR_TYPE_R15;
1808 else
1809 {
1810 /* 16 bit instruction. */
1811 if (CSKY_16_IS_JMP (insn) || CSKY_16_IS_BR (insn)
1812 || CSKY_16_IS_JMPIX (insn))
1813 return LR_TYPE_R15;
1814 }
1815 }
1816 return LR_TYPE_R15;
1817 }
1818
1819 /* Heuristic unwinder. */
1820
1821 static struct csky_unwind_cache *
csky_frame_unwind_cache(struct frame_info * this_frame)1822 csky_frame_unwind_cache (struct frame_info *this_frame)
1823 {
1824 CORE_ADDR prologue_start, prologue_end, func_end, prev_pc, block_addr;
1825 struct csky_unwind_cache *cache;
1826 const struct block *bl;
1827 unsigned long func_size = 0;
1828 struct gdbarch *gdbarch = get_frame_arch (this_frame);
1829 unsigned int sp_regnum = CSKY_SP_REGNUM;
1830
1831 /* Default lr type is r15. */
1832 lr_type_t lr_type = LR_TYPE_R15;
1833
1834 cache = FRAME_OBSTACK_ZALLOC (struct csky_unwind_cache);
1835 cache->saved_regs = trad_frame_alloc_saved_regs (this_frame);
1836
1837 /* Assume there is no frame until proven otherwise. */
1838 cache->framereg = sp_regnum;
1839
1840 cache->framesize = 0;
1841
1842 prev_pc = get_frame_pc (this_frame);
1843 block_addr = get_frame_address_in_block (this_frame);
1844 if (find_pc_partial_function (block_addr, NULL, &prologue_start,
1845 &func_end) == 0)
1846 /* We couldn't find a function containing block_addr, so bail out
1847 and hope for the best. */
1848 return cache;
1849
1850 /* Get the (function) symbol matching prologue_start. */
1851 bl = block_for_pc (prologue_start);
1852 if (bl != NULL)
1853 func_size = bl->endaddr - bl->startaddr;
1854 else
1855 {
1856 struct bound_minimal_symbol msymbol
1857 = lookup_minimal_symbol_by_pc (prologue_start);
1858 if (msymbol.minsym != NULL)
1859 func_size = MSYMBOL_SIZE (msymbol.minsym);
1860 }
1861
1862 /* If FUNC_SIZE is 0 we may have a special-case use of lr
1863 e.g. exception or interrupt. */
1864 if (func_size == 0)
1865 lr_type = csky_analyze_lr_type (gdbarch, prologue_start, func_end);
1866
1867 prologue_end = std::min (func_end, prev_pc);
1868
1869 /* Analyze the function prologue. */
1870 csky_analyze_prologue (gdbarch, prologue_start, prologue_end,
1871 func_end, this_frame, cache, lr_type);
1872
1873 /* gdbarch_sp_regnum contains the value and not the address. */
1874 trad_frame_set_value (cache->saved_regs, sp_regnum, cache->prev_sp);
1875 return cache;
1876 }
1877
1878 /* Implement the this_id function for the normal unwinder. */
1879
1880 static void
csky_frame_this_id(struct frame_info * this_frame,void ** this_prologue_cache,struct frame_id * this_id)1881 csky_frame_this_id (struct frame_info *this_frame,
1882 void **this_prologue_cache, struct frame_id *this_id)
1883 {
1884 struct csky_unwind_cache *cache;
1885 struct frame_id id;
1886
1887 if (*this_prologue_cache == NULL)
1888 *this_prologue_cache = csky_frame_unwind_cache (this_frame);
1889 cache = (struct csky_unwind_cache *) *this_prologue_cache;
1890
1891 /* This marks the outermost frame. */
1892 if (cache->prev_sp == 0)
1893 return;
1894
1895 id = frame_id_build (cache->prev_sp, get_frame_func (this_frame));
1896 *this_id = id;
1897 }
1898
1899 /* Implement the prev_register function for the normal unwinder. */
1900
1901 static struct value *
csky_frame_prev_register(struct frame_info * this_frame,void ** this_prologue_cache,int regnum)1902 csky_frame_prev_register (struct frame_info *this_frame,
1903 void **this_prologue_cache, int regnum)
1904 {
1905 struct csky_unwind_cache *cache;
1906
1907 if (*this_prologue_cache == NULL)
1908 *this_prologue_cache = csky_frame_unwind_cache (this_frame);
1909 cache = (struct csky_unwind_cache *) *this_prologue_cache;
1910
1911 return trad_frame_get_prev_register (this_frame, cache->saved_regs,
1912 regnum);
1913 }
1914
1915 /* Data structures for the normal prologue-analysis-based
1916 unwinder. */
1917
1918 static const struct frame_unwind csky_unwind_cache = {
1919 NORMAL_FRAME,
1920 default_frame_unwind_stop_reason,
1921 csky_frame_this_id,
1922 csky_frame_prev_register,
1923 NULL,
1924 default_frame_sniffer,
1925 NULL,
1926 NULL
1927 };
1928
1929
1930
1931 static int
csky_stub_unwind_sniffer(const struct frame_unwind * self,struct frame_info * this_frame,void ** this_prologue_cache)1932 csky_stub_unwind_sniffer (const struct frame_unwind *self,
1933 struct frame_info *this_frame,
1934 void **this_prologue_cache)
1935 {
1936 CORE_ADDR addr_in_block;
1937
1938 addr_in_block = get_frame_address_in_block (this_frame);
1939
1940 if (find_pc_partial_function (addr_in_block, NULL, NULL, NULL) == 0
1941 || in_plt_section (addr_in_block))
1942 return 1;
1943
1944 return 0;
1945 }
1946
1947 static struct csky_unwind_cache *
csky_make_stub_cache(struct frame_info * this_frame)1948 csky_make_stub_cache (struct frame_info *this_frame)
1949 {
1950 struct csky_unwind_cache *cache;
1951
1952 cache = FRAME_OBSTACK_ZALLOC (struct csky_unwind_cache);
1953 cache->saved_regs = trad_frame_alloc_saved_regs (this_frame);
1954 cache->prev_sp = get_frame_register_unsigned (this_frame, CSKY_SP_REGNUM);
1955
1956 return cache;
1957 }
1958
1959 static void
csky_stub_this_id(struct frame_info * this_frame,void ** this_cache,struct frame_id * this_id)1960 csky_stub_this_id (struct frame_info *this_frame,
1961 void **this_cache,
1962 struct frame_id *this_id)
1963 {
1964 struct csky_unwind_cache *cache;
1965
1966 if (*this_cache == NULL)
1967 *this_cache = csky_make_stub_cache (this_frame);
1968 cache = (struct csky_unwind_cache *) *this_cache;
1969
1970 /* Our frame ID for a stub frame is the current SP and LR. */
1971 *this_id = frame_id_build (cache->prev_sp, get_frame_pc (this_frame));
1972 }
1973
1974 static struct value *
csky_stub_prev_register(struct frame_info * this_frame,void ** this_cache,int prev_regnum)1975 csky_stub_prev_register (struct frame_info *this_frame,
1976 void **this_cache,
1977 int prev_regnum)
1978 {
1979 struct csky_unwind_cache *cache;
1980
1981 if (*this_cache == NULL)
1982 *this_cache = csky_make_stub_cache (this_frame);
1983 cache = (struct csky_unwind_cache *) *this_cache;
1984
1985 /* If we are asked to unwind the PC, then return the LR. */
1986 if (prev_regnum == CSKY_PC_REGNUM)
1987 {
1988 CORE_ADDR lr;
1989
1990 lr = frame_unwind_register_unsigned (this_frame, CSKY_LR_REGNUM);
1991 return frame_unwind_got_constant (this_frame, prev_regnum, lr);
1992 }
1993
1994 if (prev_regnum == CSKY_SP_REGNUM)
1995 return frame_unwind_got_constant (this_frame, prev_regnum, cache->prev_sp);
1996
1997 return trad_frame_get_prev_register (this_frame, cache->saved_regs,
1998 prev_regnum);
1999 }
2000
2001 struct frame_unwind csky_stub_unwind = {
2002 NORMAL_FRAME,
2003 default_frame_unwind_stop_reason,
2004 csky_stub_this_id,
2005 csky_stub_prev_register,
2006 NULL,
2007 csky_stub_unwind_sniffer
2008 };
2009
2010 /* Implement the this_base, this_locals, and this_args hooks
2011 for the normal unwinder. */
2012
2013 static CORE_ADDR
csky_frame_base_address(struct frame_info * this_frame,void ** this_cache)2014 csky_frame_base_address (struct frame_info *this_frame, void **this_cache)
2015 {
2016 struct csky_unwind_cache *cache;
2017
2018 if (*this_cache == NULL)
2019 *this_cache = csky_frame_unwind_cache (this_frame);
2020 cache = (struct csky_unwind_cache *) *this_cache;
2021
2022 return cache->prev_sp - cache->framesize;
2023 }
2024
2025 static const struct frame_base csky_frame_base = {
2026 &csky_unwind_cache,
2027 csky_frame_base_address,
2028 csky_frame_base_address,
2029 csky_frame_base_address
2030 };
2031
2032 /* Initialize register access method. */
2033
2034 static void
csky_dwarf2_frame_init_reg(struct gdbarch * gdbarch,int regnum,struct dwarf2_frame_state_reg * reg,struct frame_info * this_frame)2035 csky_dwarf2_frame_init_reg (struct gdbarch *gdbarch, int regnum,
2036 struct dwarf2_frame_state_reg *reg,
2037 struct frame_info *this_frame)
2038 {
2039 if (regnum == gdbarch_pc_regnum (gdbarch))
2040 reg->how = DWARF2_FRAME_REG_RA;
2041 else if (regnum == gdbarch_sp_regnum (gdbarch))
2042 reg->how = DWARF2_FRAME_REG_CFA;
2043 }
2044
2045 /* Create csky register groups. */
2046
2047 static void
csky_init_reggroup()2048 csky_init_reggroup ()
2049 {
2050 cr_reggroup = reggroup_new ("cr", USER_REGGROUP);
2051 fr_reggroup = reggroup_new ("fr", USER_REGGROUP);
2052 vr_reggroup = reggroup_new ("vr", USER_REGGROUP);
2053 mmu_reggroup = reggroup_new ("mmu", USER_REGGROUP);
2054 prof_reggroup = reggroup_new ("profiling", USER_REGGROUP);
2055 }
2056
2057 /* Add register groups into reggroup list. */
2058
2059 static void
csky_add_reggroups(struct gdbarch * gdbarch)2060 csky_add_reggroups (struct gdbarch *gdbarch)
2061 {
2062 reggroup_add (gdbarch, all_reggroup);
2063 reggroup_add (gdbarch, general_reggroup);
2064 reggroup_add (gdbarch, cr_reggroup);
2065 reggroup_add (gdbarch, fr_reggroup);
2066 reggroup_add (gdbarch, vr_reggroup);
2067 reggroup_add (gdbarch, mmu_reggroup);
2068 reggroup_add (gdbarch, prof_reggroup);
2069 }
2070
2071 /* Return the groups that a CSKY register can be categorised into. */
2072
2073 static int
csky_register_reggroup_p(struct gdbarch * gdbarch,int regnum,struct reggroup * reggroup)2074 csky_register_reggroup_p (struct gdbarch *gdbarch, int regnum,
2075 struct reggroup *reggroup)
2076 {
2077 int raw_p;
2078
2079 if (gdbarch_register_name (gdbarch, regnum) == NULL
2080 || gdbarch_register_name (gdbarch, regnum)[0] == '\0')
2081 return 0;
2082
2083 if (reggroup == all_reggroup)
2084 return 1;
2085
2086 raw_p = regnum < gdbarch_num_regs (gdbarch);
2087 if (reggroup == save_reggroup || reggroup == restore_reggroup)
2088 return raw_p;
2089
2090 if (((regnum >= CSKY_R0_REGNUM) && (regnum <= CSKY_R0_REGNUM + 31))
2091 && (reggroup == general_reggroup))
2092 return 1;
2093
2094 if (((regnum == CSKY_PC_REGNUM)
2095 || ((regnum >= CSKY_CR0_REGNUM)
2096 && (regnum <= CSKY_CR0_REGNUM + 30)))
2097 && (reggroup == cr_reggroup))
2098 return 2;
2099
2100 if ((((regnum >= CSKY_VR0_REGNUM) && (regnum <= CSKY_VR0_REGNUM + 15))
2101 || ((regnum >= CSKY_VCR0_REGNUM)
2102 && (regnum <= CSKY_VCR0_REGNUM + 2)))
2103 && (reggroup == vr_reggroup))
2104 return 3;
2105
2106 if (((regnum >= CSKY_MMU_REGNUM) && (regnum <= CSKY_MMU_REGNUM + 8))
2107 && (reggroup == mmu_reggroup))
2108 return 4;
2109
2110 if (((regnum >= CSKY_PROFCR_REGNUM)
2111 && (regnum <= CSKY_PROFCR_REGNUM + 48))
2112 && (reggroup == prof_reggroup))
2113 return 5;
2114
2115 if ((((regnum >= CSKY_FR0_REGNUM) && (regnum <= CSKY_FR0_REGNUM + 15))
2116 || ((regnum >= CSKY_VCR0_REGNUM) && (regnum <= CSKY_VCR0_REGNUM + 2)))
2117 && (reggroup == fr_reggroup))
2118 return 6;
2119
2120 return 0;
2121 }
2122
2123 /* Implement the dwarf2_reg_to_regnum gdbarch method. */
2124
2125 static int
csky_dwarf_reg_to_regnum(struct gdbarch * gdbarch,int dw_reg)2126 csky_dwarf_reg_to_regnum (struct gdbarch *gdbarch, int dw_reg)
2127 {
2128 if (dw_reg < 0 || dw_reg >= CSKY_NUM_REGS)
2129 return -1;
2130 return dw_reg;
2131 }
2132
2133 /* Override interface for command: info register. */
2134
2135 static void
csky_print_registers_info(struct gdbarch * gdbarch,struct ui_file * file,struct frame_info * frame,int regnum,int all)2136 csky_print_registers_info (struct gdbarch *gdbarch, struct ui_file *file,
2137 struct frame_info *frame, int regnum, int all)
2138 {
2139 /* Call default print_registers_info function. */
2140 default_print_registers_info (gdbarch, file, frame, regnum, all);
2141
2142 /* For command: info register. */
2143 if (regnum == -1 && all == 0)
2144 {
2145 default_print_registers_info (gdbarch, file, frame,
2146 CSKY_PC_REGNUM, 0);
2147 default_print_registers_info (gdbarch, file, frame,
2148 CSKY_EPC_REGNUM, 0);
2149 default_print_registers_info (gdbarch, file, frame,
2150 CSKY_CR0_REGNUM, 0);
2151 default_print_registers_info (gdbarch, file, frame,
2152 CSKY_EPSR_REGNUM, 0);
2153 }
2154 return;
2155 }
2156
2157 /* Initialize the current architecture based on INFO. If possible,
2158 re-use an architecture from ARCHES, which is a list of
2159 architectures already created during this debugging session.
2160
2161 Called at program startup, when reading a core file, and when
2162 reading a binary file. */
2163
2164 static struct gdbarch *
csky_gdbarch_init(struct gdbarch_info info,struct gdbarch_list * arches)2165 csky_gdbarch_init (struct gdbarch_info info, struct gdbarch_list *arches)
2166 {
2167 struct gdbarch *gdbarch;
2168 struct gdbarch_tdep *tdep;
2169
2170 /* Find a candidate among the list of pre-declared architectures. */
2171 arches = gdbarch_list_lookup_by_info (arches, &info);
2172 if (arches != NULL)
2173 return arches->gdbarch;
2174
2175 /* None found, create a new architecture from the information
2176 provided. */
2177 tdep = XCNEW (struct gdbarch_tdep);
2178 gdbarch = gdbarch_alloc (&info, tdep);
2179
2180 /* Target data types. */
2181 set_gdbarch_ptr_bit (gdbarch, 32);
2182 set_gdbarch_addr_bit (gdbarch, 32);
2183 set_gdbarch_short_bit (gdbarch, 16);
2184 set_gdbarch_int_bit (gdbarch, 32);
2185 set_gdbarch_long_bit (gdbarch, 32);
2186 set_gdbarch_long_long_bit (gdbarch, 64);
2187 set_gdbarch_float_bit (gdbarch, 32);
2188 set_gdbarch_double_bit (gdbarch, 64);
2189 set_gdbarch_float_format (gdbarch, floatformats_ieee_single);
2190 set_gdbarch_double_format (gdbarch, floatformats_ieee_double);
2191
2192 /* Information about the target architecture. */
2193 set_gdbarch_return_value (gdbarch, csky_return_value);
2194 set_gdbarch_breakpoint_kind_from_pc (gdbarch, csky_breakpoint_kind_from_pc);
2195 set_gdbarch_sw_breakpoint_from_kind (gdbarch, csky_sw_breakpoint_from_kind);
2196
2197 /* Register architecture. */
2198 set_gdbarch_num_regs (gdbarch, CSKY_NUM_REGS);
2199 set_gdbarch_pc_regnum (gdbarch, CSKY_PC_REGNUM);
2200 set_gdbarch_sp_regnum (gdbarch, CSKY_SP_REGNUM);
2201 set_gdbarch_register_name (gdbarch, csky_register_name);
2202 set_gdbarch_register_type (gdbarch, csky_register_type);
2203 set_gdbarch_read_pc (gdbarch, csky_read_pc);
2204 set_gdbarch_write_pc (gdbarch, csky_write_pc);
2205 set_gdbarch_print_registers_info (gdbarch, csky_print_registers_info);
2206 csky_add_reggroups (gdbarch);
2207 set_gdbarch_register_reggroup_p (gdbarch, csky_register_reggroup_p);
2208 set_gdbarch_stab_reg_to_regnum (gdbarch, csky_dwarf_reg_to_regnum);
2209 set_gdbarch_dwarf2_reg_to_regnum (gdbarch, csky_dwarf_reg_to_regnum);
2210 dwarf2_frame_set_init_reg (gdbarch, csky_dwarf2_frame_init_reg);
2211
2212 /* Functions to analyze frames. */
2213 frame_base_set_default (gdbarch, &csky_frame_base);
2214 set_gdbarch_skip_prologue (gdbarch, csky_skip_prologue);
2215 set_gdbarch_inner_than (gdbarch, core_addr_lessthan);
2216 set_gdbarch_frame_align (gdbarch, csky_frame_align);
2217 set_gdbarch_stack_frame_destroyed_p (gdbarch, csky_stack_frame_destroyed_p);
2218
2219 /* Functions handling dummy frames. */
2220 set_gdbarch_push_dummy_call (gdbarch, csky_push_dummy_call);
2221
2222 /* Frame unwinders. Use DWARF debug info if available,
2223 otherwise use our own unwinder. */
2224 dwarf2_append_unwinders (gdbarch);
2225 frame_unwind_append_unwinder (gdbarch, &csky_stub_unwind);
2226 frame_unwind_append_unwinder (gdbarch, &csky_unwind_cache);
2227
2228 /* Breakpoints. */
2229 set_gdbarch_memory_insert_breakpoint (gdbarch,
2230 csky_memory_insert_breakpoint);
2231 set_gdbarch_memory_remove_breakpoint (gdbarch,
2232 csky_memory_remove_breakpoint);
2233
2234 /* Hook in ABI-specific overrides, if they have been registered. */
2235 gdbarch_init_osabi (info, gdbarch);
2236
2237 /* Support simple overlay manager. */
2238 set_gdbarch_overlay_update (gdbarch, simple_overlay_update);
2239 set_gdbarch_char_signed (gdbarch, 0);
2240 return gdbarch;
2241 }
2242
2243 void _initialize_csky_tdep ();
2244 void
_initialize_csky_tdep()2245 _initialize_csky_tdep ()
2246 {
2247
2248 register_gdbarch_init (bfd_arch_csky, csky_gdbarch_init);
2249
2250 csky_init_reggroup ();
2251
2252 /* Allow debugging this file's internals. */
2253 add_setshow_boolean_cmd ("csky", class_maintenance, &csky_debug,
2254 _("Set C-Sky debugging."),
2255 _("Show C-Sky debugging."),
2256 _("When on, C-Sky specific debugging is enabled."),
2257 NULL,
2258 NULL,
2259 &setdebuglist, &showdebuglist);
2260 }
2261