Subversion Repositories or1k

// OBSOLETE /* ARC target-dependent stuff.

// OBSOLETE    Copyright 1995, 1996, 1999, 2000, 2001 Free Software Foundation, Inc.

// OBSOLETE 

// OBSOLETE    This file is part of GDB.

// OBSOLETE 

// OBSOLETE    This program is free software; you can redistribute it and/or modify

// OBSOLETE    it under the terms of the GNU General Public License as published by

// OBSOLETE    the Free Software Foundation; either version 2 of the License, or

// OBSOLETE    (at your option) any later version.

// OBSOLETE 

// OBSOLETE    This program is distributed in the hope that it will be useful,

// OBSOLETE    but WITHOUT ANY WARRANTY; without even the implied warranty of

// OBSOLETE    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

// OBSOLETE    GNU General Public License for more details.

// OBSOLETE 

// OBSOLETE    You should have received a copy of the GNU General Public License

// OBSOLETE    along with this program; if not, write to the Free Software

// OBSOLETE    Foundation, Inc., 59 Temple Place - Suite 330,

// OBSOLETE    Boston, MA 02111-1307, USA.  */

// OBSOLETE 

// OBSOLETE #include "defs.h"

// OBSOLETE #include "frame.h"

// OBSOLETE #include "inferior.h"

// OBSOLETE #include "gdbcore.h"

// OBSOLETE #include "target.h"

// OBSOLETE #include "floatformat.h"

// OBSOLETE #include "symtab.h"

// OBSOLETE #include "gdbcmd.h"

// OBSOLETE #include "regcache.h"

// OBSOLETE #include "gdb_string.h"

// OBSOLETE 

// OBSOLETE /* Local functions */

// OBSOLETE 

// OBSOLETE static int arc_set_cpu_type (char *str);

// OBSOLETE 

// OBSOLETE /* Current CPU, set with the "set cpu" command.  */

// OBSOLETE static int arc_bfd_mach_type;

// OBSOLETE char *arc_cpu_type;

// OBSOLETE char *tmp_arc_cpu_type;

// OBSOLETE 

// OBSOLETE /* Table of cpu names.  */

// OBSOLETE struct

// OBSOLETE   {

// OBSOLETE     char *name;

// OBSOLETE     int value;

// OBSOLETE   }

// OBSOLETE arc_cpu_type_table[] =

// OBSOLETE {

// OBSOLETE   { "arc5", bfd_mach_arc_5 },

// OBSOLETE   { "arc6", bfd_mach_arc_6 },

// OBSOLETE   { "arc7", bfd_mach_arc_7 },

// OBSOLETE   { "arc8", bfd_mach_arc_8 },

// OBSOLETE   {  NULL,  0 }

// OBSOLETE };

// OBSOLETE 

// OBSOLETE /* Used by simulator.  */

// OBSOLETE int display_pipeline_p;

// OBSOLETE int cpu_timer;

// OBSOLETE /* This one must have the same type as used in the emulator.

// OBSOLETE    It's currently an enum so this should be ok for now.  */

// OBSOLETE int debug_pipeline_p;

// OBSOLETE 

// OBSOLETE #define ARC_CALL_SAVED_REG(r) ((r) >= 16 && (r) < 24)

// OBSOLETE 

// OBSOLETE #define OPMASK      0xf8000000

// OBSOLETE 

// OBSOLETE /* Instruction field accessor macros.

// OBSOLETE    See the Programmer's Reference Manual.  */

// OBSOLETE #define X_OP(i) (((i) >> 27) & 0x1f)

// OBSOLETE #define X_A(i) (((i) >> 21) & 0x3f)

// OBSOLETE #define X_B(i) (((i) >> 15) & 0x3f)

// OBSOLETE #define X_C(i) (((i) >> 9) & 0x3f)

// OBSOLETE #define X_D(i) ((((i) & 0x1ff) ^ 0x100) - 0x100)

// OBSOLETE #define X_L(i) (((((i) >> 5) & 0x3ffffc) ^ 0x200000) - 0x200000)

// OBSOLETE #define X_N(i) (((i) >> 5) & 3)

// OBSOLETE #define X_Q(i) ((i) & 0x1f)

// OBSOLETE 

// OBSOLETE /* Return non-zero if X is a short immediate data indicator.  */

// OBSOLETE #define SHIMM_P(x) ((x) == 61 || (x) == 63)

// OBSOLETE 

// OBSOLETE /* Return non-zero if X is a "long" (32 bit) immediate data indicator.  */

// OBSOLETE #define LIMM_P(x) ((x) == 62)

// OBSOLETE 

// OBSOLETE /* Build a simple instruction.  */

// OBSOLETE #define BUILD_INSN(op, a, b, c, d) \

// OBSOLETE   ((((op) & 31) << 27) \

// OBSOLETE    | (((a) & 63) << 21) \

// OBSOLETE    | (((b) & 63) << 15) \

// OBSOLETE    | (((c) & 63) << 9) \

// OBSOLETE    | ((d) & 511))

// OBSOLETE 

// OBSOLETE /* Codestream stuff.  */

// OBSOLETE static void codestream_read (unsigned int *, int);

// OBSOLETE static void codestream_seek (CORE_ADDR);

// OBSOLETE static unsigned int codestream_fill (int);

// OBSOLETE 

// OBSOLETE #define CODESTREAM_BUFSIZ 16

// OBSOLETE static CORE_ADDR codestream_next_addr;

// OBSOLETE static CORE_ADDR codestream_addr;

// OBSOLETE /* FIXME assumes sizeof (int) == 32? */

// OBSOLETE static unsigned int codestream_buf[CODESTREAM_BUFSIZ];

// OBSOLETE static int codestream_off;

// OBSOLETE static int codestream_cnt;

// OBSOLETE 

// OBSOLETE #define codestream_tell() \

// OBSOLETE   (codestream_addr + codestream_off * sizeof (codestream_buf[0]))

// OBSOLETE #define codestream_peek() \

// OBSOLETE   (codestream_cnt == 0 \

// OBSOLETE    ? codestream_fill (1) \

// OBSOLETE    : codestream_buf[codestream_off])

// OBSOLETE #define codestream_get() \

// OBSOLETE   (codestream_cnt-- == 0 \

// OBSOLETE    ? codestream_fill (0) \

// OBSOLETE    : codestream_buf[codestream_off++])

// OBSOLETE 

// OBSOLETE static unsigned int

// OBSOLETE codestream_fill (int peek_flag)

// OBSOLETE {

// OBSOLETE   codestream_addr = codestream_next_addr;

// OBSOLETE   codestream_next_addr += CODESTREAM_BUFSIZ * sizeof (codestream_buf[0]);

// OBSOLETE   codestream_off = 0;

// OBSOLETE   codestream_cnt = CODESTREAM_BUFSIZ;

// OBSOLETE   read_memory (codestream_addr, (char *) codestream_buf,

// OBSOLETE            CODESTREAM_BUFSIZ * sizeof (codestream_buf[0]));

// OBSOLETE   /* FIXME: check return code?  */

// OBSOLETE 

// OBSOLETE 

// OBSOLETE   /* Handle byte order differences -> convert to host byte ordering.  */

// OBSOLETE   {

// OBSOLETE     int i;

// OBSOLETE     for (i = 0; i < CODESTREAM_BUFSIZ; i++)

// OBSOLETE       codestream_buf[i] =

// OBSOLETE     extract_unsigned_integer (&codestream_buf[i],

// OBSOLETE                               sizeof (codestream_buf[i]));

// OBSOLETE   }

// OBSOLETE 

// OBSOLETE   if (peek_flag)

// OBSOLETE     return codestream_peek ();

// OBSOLETE   else

// OBSOLETE     return codestream_get ();

// OBSOLETE }

// OBSOLETE 

// OBSOLETE static void

// OBSOLETE codestream_seek (CORE_ADDR place)

// OBSOLETE {

// OBSOLETE   codestream_next_addr = place / CODESTREAM_BUFSIZ;

// OBSOLETE   codestream_next_addr *= CODESTREAM_BUFSIZ;

// OBSOLETE   codestream_cnt = 0;

// OBSOLETE   codestream_fill (1);

// OBSOLETE   while (codestream_tell () != place)

// OBSOLETE     codestream_get ();

// OBSOLETE }

// OBSOLETE 

// OBSOLETE /* This function is currently unused but leave in for now.  */

// OBSOLETE 

// OBSOLETE static void

// OBSOLETE codestream_read (unsigned int *buf, int count)

// OBSOLETE {

// OBSOLETE   unsigned int *p;

// OBSOLETE   int i;

// OBSOLETE   p = buf;

// OBSOLETE   for (i = 0; i < count; i++)

// OBSOLETE     *p++ = codestream_get ();

// OBSOLETE }

// OBSOLETE 

// OBSOLETE /* Set up prologue scanning and return the first insn.  */

// OBSOLETE 

// OBSOLETE static unsigned int

// OBSOLETE setup_prologue_scan (CORE_ADDR pc)

// OBSOLETE {

// OBSOLETE   unsigned int insn;

// OBSOLETE 

// OBSOLETE   codestream_seek (pc);

// OBSOLETE   insn = codestream_get ();

// OBSOLETE 

// OBSOLETE   return insn;

// OBSOLETE }

// OBSOLETE 

// OBSOLETE /*

// OBSOLETE  * Find & return amount a local space allocated, and advance codestream to

// OBSOLETE  * first register push (if any).

// OBSOLETE  * If entry sequence doesn't make sense, return -1, and leave 

// OBSOLETE  * codestream pointer random.

// OBSOLETE  */

// OBSOLETE 

// OBSOLETE static long

// OBSOLETE arc_get_frame_setup (CORE_ADDR pc)

// OBSOLETE {

// OBSOLETE   unsigned int insn;

// OBSOLETE   /* Size of frame or -1 if unrecognizable prologue.  */

// OBSOLETE   int frame_size = -1;

// OBSOLETE   /* An initial "sub sp,sp,N" may or may not be for a stdarg fn.  */

// OBSOLETE   int maybe_stdarg_decr = -1;

// OBSOLETE 

// OBSOLETE   insn = setup_prologue_scan (pc);

// OBSOLETE 

// OBSOLETE   /* The authority for what appears here is the home-grown ABI.

// OBSOLETE      The most recent version is 1.2.  */

// OBSOLETE 

// OBSOLETE   /* First insn may be "sub sp,sp,N" if stdarg fn.  */

// OBSOLETE   if ((insn & BUILD_INSN (-1, -1, -1, -1, 0))

// OBSOLETE       == BUILD_INSN (10, SP_REGNUM, SP_REGNUM, SHIMM_REGNUM, 0))

// OBSOLETE     {

// OBSOLETE       maybe_stdarg_decr = X_D (insn);

// OBSOLETE       insn = codestream_get ();

// OBSOLETE     }

// OBSOLETE 

// OBSOLETE   if ((insn & BUILD_INSN (-1, 0, -1, -1, -1))       /* st blink,[sp,4] */

// OBSOLETE       == BUILD_INSN (2, 0, SP_REGNUM, BLINK_REGNUM, 4))

// OBSOLETE     {

// OBSOLETE       insn = codestream_get ();

// OBSOLETE       /* Frame may not be necessary, even though blink is saved.

// OBSOLETE          At least this is something we recognize.  */

// OBSOLETE       frame_size = 0;

// OBSOLETE     }

// OBSOLETE 

// OBSOLETE   if ((insn & BUILD_INSN (-1, 0, -1, -1, -1))       /* st fp,[sp] */

// OBSOLETE       == BUILD_INSN (2, 0, SP_REGNUM, FP_REGNUM, 0))

// OBSOLETE     {

// OBSOLETE       insn = codestream_get ();

// OBSOLETE       if ((insn & BUILD_INSN (-1, -1, -1, -1, 0))

// OBSOLETE       != BUILD_INSN (12, FP_REGNUM, SP_REGNUM, SP_REGNUM, 0))

// OBSOLETE     return -1;

// OBSOLETE 

// OBSOLETE       /* Check for stack adjustment sub sp,sp,N.  */

// OBSOLETE       insn = codestream_peek ();

// OBSOLETE       if ((insn & BUILD_INSN (-1, -1, -1, 0, 0))

// OBSOLETE       == BUILD_INSN (10, SP_REGNUM, SP_REGNUM, 0, 0))

// OBSOLETE     {

// OBSOLETE       if (LIMM_P (X_C (insn)))

// OBSOLETE         frame_size = codestream_get ();

// OBSOLETE       else if (SHIMM_P (X_C (insn)))

// OBSOLETE         frame_size = X_D (insn);

// OBSOLETE       else

// OBSOLETE         return -1;

// OBSOLETE       if (frame_size < 0)

// OBSOLETE         return -1;

// OBSOLETE 

// OBSOLETE       codestream_get ();

// OBSOLETE 

// OBSOLETE       /* This sequence is used to get the address of the return

// OBSOLETE          buffer for a function that returns a structure.  */

// OBSOLETE       insn = codestream_peek ();

// OBSOLETE       if ((insn & OPMASK) == 0x60000000)

// OBSOLETE         codestream_get ();

// OBSOLETE     }

// OBSOLETE       /* Frameless fn.  */

// OBSOLETE       else

// OBSOLETE     {

// OBSOLETE       frame_size = 0;

// OBSOLETE     }

// OBSOLETE     }

// OBSOLETE 

// OBSOLETE   /* If we found a "sub sp,sp,N" and nothing else, it may or may not be a

// OBSOLETE      stdarg fn.  The stdarg decrement is not treated as part of the frame size,

// OBSOLETE      so we have a dilemma: what do we return?  For now, if we get a

// OBSOLETE      "sub sp,sp,N" and nothing else assume this isn't a stdarg fn.  One way

// OBSOLETE      to fix this completely would be to add a bit to the function descriptor

// OBSOLETE      that says the function is a stdarg function.  */

// OBSOLETE 

// OBSOLETE   if (frame_size < 0 && maybe_stdarg_decr > 0)

// OBSOLETE     return maybe_stdarg_decr;

// OBSOLETE   return frame_size;

// OBSOLETE }

// OBSOLETE 

// OBSOLETE /* Given a pc value, skip it forward past the function prologue by

// OBSOLETE    disassembling instructions that appear to be a prologue.

// OBSOLETE 

// OBSOLETE    If FRAMELESS_P is set, we are only testing to see if the function

// OBSOLETE    is frameless.  If it is a frameless function, return PC unchanged.

// OBSOLETE    This allows a quicker answer.  */

// OBSOLETE 

// OBSOLETE CORE_ADDR

// OBSOLETE arc_skip_prologue (CORE_ADDR pc, int frameless_p)

// OBSOLETE {

// OBSOLETE   unsigned int insn;

// OBSOLETE   int i, frame_size;

// OBSOLETE 

// OBSOLETE   if ((frame_size = arc_get_frame_setup (pc)) < 0)

// OBSOLETE     return (pc);

// OBSOLETE 

// OBSOLETE   if (frameless_p)

// OBSOLETE     return frame_size == 0 ? pc : codestream_tell ();

// OBSOLETE 

// OBSOLETE   /* Skip over register saves.  */

// OBSOLETE   for (i = 0; i < 8; i++)

// OBSOLETE     {

// OBSOLETE       insn = codestream_peek ();

// OBSOLETE       if ((insn & BUILD_INSN (-1, 0, -1, 0, 0))

// OBSOLETE       != BUILD_INSN (2, 0, SP_REGNUM, 0, 0))

// OBSOLETE     break;                  /* not st insn */

// OBSOLETE       if (!ARC_CALL_SAVED_REG (X_C (insn)))

// OBSOLETE     break;

// OBSOLETE       codestream_get ();

// OBSOLETE     }

// OBSOLETE 

// OBSOLETE   return codestream_tell ();

// OBSOLETE }

// OBSOLETE 

// OBSOLETE /* Is the prologue at PC frameless?  */

// OBSOLETE 

// OBSOLETE int

// OBSOLETE arc_prologue_frameless_p (CORE_ADDR pc)

// OBSOLETE {

// OBSOLETE   return (pc == arc_skip_prologue (pc, 1));

// OBSOLETE }

// OBSOLETE 

// OBSOLETE /* Return the return address for a frame.

// OBSOLETE    This is used to implement FRAME_SAVED_PC.

// OBSOLETE    This is taken from frameless_look_for_prologue.  */

// OBSOLETE 

// OBSOLETE CORE_ADDR

// OBSOLETE arc_frame_saved_pc (struct frame_info *frame)

// OBSOLETE {

// OBSOLETE   CORE_ADDR func_start;

// OBSOLETE   unsigned int insn;

// OBSOLETE 

// OBSOLETE   func_start = get_pc_function_start (frame->pc) + FUNCTION_START_OFFSET;

// OBSOLETE   if (func_start == 0)

// OBSOLETE     {

// OBSOLETE       /* Best guess.  */

// OBSOLETE       return ARC_PC_TO_REAL_ADDRESS (read_memory_integer (FRAME_FP (frame) + 4, 4));

// OBSOLETE     }

// OBSOLETE 

// OBSOLETE   /* The authority for what appears here is the home-grown ABI.

// OBSOLETE      The most recent version is 1.2.  */

// OBSOLETE 

// OBSOLETE   insn = setup_prologue_scan (func_start);

// OBSOLETE 

// OBSOLETE   /* First insn may be "sub sp,sp,N" if stdarg fn.  */

// OBSOLETE   if ((insn & BUILD_INSN (-1, -1, -1, -1, 0))

// OBSOLETE       == BUILD_INSN (10, SP_REGNUM, SP_REGNUM, SHIMM_REGNUM, 0))

// OBSOLETE     insn = codestream_get ();

// OBSOLETE 

// OBSOLETE   /* If the next insn is "st blink,[sp,4]" we can get blink from there.

// OBSOLETE      Otherwise this is a leaf function and we can use blink.  Note that

// OBSOLETE      this still allows for the case where a leaf function saves/clobbers/

// OBSOLETE      restores blink.  */

// OBSOLETE 

// OBSOLETE   if ((insn & BUILD_INSN (-1, 0, -1, -1, -1))       /* st blink,[sp,4] */

// OBSOLETE       != BUILD_INSN (2, 0, SP_REGNUM, BLINK_REGNUM, 4))

// OBSOLETE     return ARC_PC_TO_REAL_ADDRESS (read_register (BLINK_REGNUM));

// OBSOLETE   else

// OBSOLETE     return ARC_PC_TO_REAL_ADDRESS (read_memory_integer (FRAME_FP (frame) + 4, 4));

// OBSOLETE }

// OBSOLETE 

// OBSOLETE /*

// OBSOLETE  * Parse the first few instructions of the function to see

// OBSOLETE  * what registers were stored.

// OBSOLETE  *

// OBSOLETE  * The startup sequence can be at the start of the function.

// OBSOLETE  * 'st blink,[sp+4], st fp,[sp], mov fp,sp' 

// OBSOLETE  *

// OBSOLETE  * Local space is allocated just below by sub sp,sp,nnn.

// OBSOLETE  * Next, the registers used by this function are stored (as offsets from sp).

// OBSOLETE  */

// OBSOLETE 

// OBSOLETE void

// OBSOLETE frame_find_saved_regs (struct frame_info *fip, struct frame_saved_regs *fsrp)

// OBSOLETE {

// OBSOLETE   long locals;

// OBSOLETE   unsigned int insn;

// OBSOLETE   CORE_ADDR dummy_bottom;

// OBSOLETE   CORE_ADDR adr;

// OBSOLETE   int i, regnum, offset;

// OBSOLETE 

// OBSOLETE   memset (fsrp, 0, sizeof *fsrp);

// OBSOLETE 

// OBSOLETE   /* If frame is the end of a dummy, compute where the beginning would be.  */

// OBSOLETE   dummy_bottom = fip->frame - 4 - REGISTER_BYTES - CALL_DUMMY_LENGTH;

// OBSOLETE 

// OBSOLETE   /* Check if the PC is in the stack, in a dummy frame.  */

// OBSOLETE   if (dummy_bottom <= fip->pc && fip->pc <= fip->frame)

// OBSOLETE     {

// OBSOLETE       /* all regs were saved by push_call_dummy () */

// OBSOLETE       adr = fip->frame;

// OBSOLETE       for (i = 0; i < NUM_REGS; i++)

// OBSOLETE     {

// OBSOLETE       adr -= REGISTER_RAW_SIZE (i);

// OBSOLETE       fsrp->regs[i] = adr;

// OBSOLETE     }

// OBSOLETE       return;

// OBSOLETE     }

// OBSOLETE 

// OBSOLETE   locals = arc_get_frame_setup (get_pc_function_start (fip->pc));

// OBSOLETE 

// OBSOLETE   if (locals >= 0)

// OBSOLETE     {

// OBSOLETE       /* Set `adr' to the value of `sp'.  */

// OBSOLETE       adr = fip->frame - locals;

// OBSOLETE       for (i = 0; i < 8; i++)

// OBSOLETE     {

// OBSOLETE       insn = codestream_get ();

// OBSOLETE       if ((insn & BUILD_INSN (-1, 0, -1, 0, 0))

// OBSOLETE           != BUILD_INSN (2, 0, SP_REGNUM, 0, 0))

// OBSOLETE         break;

// OBSOLETE       regnum = X_C (insn);

// OBSOLETE       offset = X_D (insn);

// OBSOLETE       fsrp->regs[regnum] = adr + offset;

// OBSOLETE     }

// OBSOLETE     }

// OBSOLETE 

// OBSOLETE   fsrp->regs[PC_REGNUM] = fip->frame + 4;

// OBSOLETE   fsrp->regs[FP_REGNUM] = fip->frame;

// OBSOLETE }

// OBSOLETE 

// OBSOLETE void

// OBSOLETE arc_push_dummy_frame (void)

// OBSOLETE {

// OBSOLETE   CORE_ADDR sp = read_register (SP_REGNUM);

// OBSOLETE   int regnum;

// OBSOLETE   char regbuf[MAX_REGISTER_RAW_SIZE];

// OBSOLETE 

// OBSOLETE   read_register_gen (PC_REGNUM, regbuf);

// OBSOLETE   write_memory (sp + 4, regbuf, REGISTER_SIZE);

// OBSOLETE   read_register_gen (FP_REGNUM, regbuf);

// OBSOLETE   write_memory (sp, regbuf, REGISTER_SIZE);

// OBSOLETE   write_register (FP_REGNUM, sp);

// OBSOLETE   for (regnum = 0; regnum < NUM_REGS; regnum++)

// OBSOLETE     {

// OBSOLETE       read_register_gen (regnum, regbuf);

// OBSOLETE       sp = push_bytes (sp, regbuf, REGISTER_RAW_SIZE (regnum));

// OBSOLETE     }

// OBSOLETE   sp += (2 * REGISTER_SIZE);

// OBSOLETE   write_register (SP_REGNUM, sp);

// OBSOLETE }

// OBSOLETE 

// OBSOLETE void

// OBSOLETE arc_pop_frame (void)

// OBSOLETE {

// OBSOLETE   struct frame_info *frame = get_current_frame ();

// OBSOLETE   CORE_ADDR fp;

// OBSOLETE   int regnum;

// OBSOLETE   struct frame_saved_regs fsr;

// OBSOLETE   char regbuf[MAX_REGISTER_RAW_SIZE];

// OBSOLETE 

// OBSOLETE   fp = FRAME_FP (frame);

// OBSOLETE   get_frame_saved_regs (frame, &fsr);

// OBSOLETE   for (regnum = 0; regnum < NUM_REGS; regnum++)

// OBSOLETE     {

// OBSOLETE       CORE_ADDR adr;

// OBSOLETE       adr = fsr.regs[regnum];

// OBSOLETE       if (adr)

// OBSOLETE     {

// OBSOLETE       read_memory (adr, regbuf, REGISTER_RAW_SIZE (regnum));

// OBSOLETE       write_register_bytes (REGISTER_BYTE (regnum), regbuf,

// OBSOLETE                             REGISTER_RAW_SIZE (regnum));

// OBSOLETE     }

// OBSOLETE     }

// OBSOLETE   write_register (FP_REGNUM, read_memory_integer (fp, 4));

// OBSOLETE   write_register (PC_REGNUM, read_memory_integer (fp + 4, 4));

// OBSOLETE   write_register (SP_REGNUM, fp + 8);

// OBSOLETE   flush_cached_frames ();

// OBSOLETE }

// OBSOLETE 

// OBSOLETE /* Simulate single-step.  */

// OBSOLETE 

// OBSOLETE typedef enum

// OBSOLETE {

// OBSOLETE   NORMAL4,                  /* a normal 4 byte insn */

// OBSOLETE   NORMAL8,                  /* a normal 8 byte insn */

// OBSOLETE   BRANCH4,                  /* a 4 byte branch insn, including ones without delay slots */

// OBSOLETE   BRANCH8,                  /* an 8 byte branch insn, including ones with delay slots */

// OBSOLETE }

// OBSOLETE insn_type;

// OBSOLETE 

// OBSOLETE /* Return the type of INSN and store in TARGET the destination address of a

// OBSOLETE    branch if this is one.  */

// OBSOLETE /* ??? Need to verify all cases are properly handled.  */

// OBSOLETE 

// OBSOLETE static insn_type

// OBSOLETE get_insn_type (unsigned long insn, CORE_ADDR pc, CORE_ADDR *target)

// OBSOLETE {

// OBSOLETE   unsigned long limm;

// OBSOLETE 

// OBSOLETE   switch (insn >> 27)

// OBSOLETE     {

// OBSOLETE     case 0:

// OBSOLETE     case 1:

// OBSOLETE     case 2:                 /* load/store insns */

// OBSOLETE       if (LIMM_P (X_A (insn))

// OBSOLETE       || LIMM_P (X_B (insn))

// OBSOLETE       || LIMM_P (X_C (insn)))

// OBSOLETE     return NORMAL8;

// OBSOLETE       return NORMAL4;

// OBSOLETE     case 4:

// OBSOLETE     case 5:

// OBSOLETE     case 6:                 /* branch insns */

// OBSOLETE       *target = pc + 4 + X_L (insn);

// OBSOLETE       /* ??? It isn't clear that this is always the right answer.

// OBSOLETE          The problem occurs when the next insn is an 8 byte insn.  If the

// OBSOLETE          branch is conditional there's no worry as there shouldn't be an 8

// OBSOLETE          byte insn following.  The programmer may be cheating if s/he knows

// OBSOLETE          the branch will never be taken, but we don't deal with that.

// OBSOLETE          Note that the programmer is also allowed to play games by putting

// OBSOLETE          an insn with long immediate data in the delay slot and then duplicate

// OBSOLETE          the long immediate data at the branch target.  Ugh!  */

// OBSOLETE       if (X_N (insn) == 0)

// OBSOLETE     return BRANCH4;

// OBSOLETE       return BRANCH8;

// OBSOLETE     case 7:                 /* jump insns */

// OBSOLETE       if (LIMM_P (X_B (insn)))

// OBSOLETE     {

// OBSOLETE       limm = read_memory_integer (pc + 4, 4);

// OBSOLETE       *target = ARC_PC_TO_REAL_ADDRESS (limm);

// OBSOLETE       return BRANCH8;

// OBSOLETE     }

// OBSOLETE       if (SHIMM_P (X_B (insn)))

// OBSOLETE     *target = ARC_PC_TO_REAL_ADDRESS (X_D (insn));

// OBSOLETE       else

// OBSOLETE     *target = ARC_PC_TO_REAL_ADDRESS (read_register (X_B (insn)));

// OBSOLETE       if (X_Q (insn) == 0 && X_N (insn) == 0)

// OBSOLETE     return BRANCH4;

// OBSOLETE       return BRANCH8;

// OBSOLETE     default:                        /* arithmetic insns, etc. */

// OBSOLETE       if (LIMM_P (X_A (insn))

// OBSOLETE       || LIMM_P (X_B (insn))

// OBSOLETE       || LIMM_P (X_C (insn)))

// OBSOLETE     return NORMAL8;

// OBSOLETE       return NORMAL4;

// OBSOLETE     }

// OBSOLETE }

// OBSOLETE 

// OBSOLETE /* single_step() is called just before we want to resume the inferior, if we

// OBSOLETE    want to single-step it but there is no hardware or kernel single-step

// OBSOLETE    support.  We find all the possible targets of the coming instruction and

// OBSOLETE    breakpoint them.

// OBSOLETE 

// OBSOLETE    single_step is also called just after the inferior stops.  If we had

// OBSOLETE    set up a simulated single-step, we undo our damage.  */

// OBSOLETE 

// OBSOLETE void

// OBSOLETE arc_software_single_step (enum target_signal ignore,        /* sig but we don't need it */

// OBSOLETE                       int insert_breakpoints_p)

// OBSOLETE {

// OBSOLETE   static CORE_ADDR next_pc, target;

// OBSOLETE   static int brktrg_p;

// OBSOLETE   typedef char binsn_quantum[BREAKPOINT_MAX];

// OBSOLETE   static binsn_quantum break_mem[2];

// OBSOLETE 

// OBSOLETE   if (insert_breakpoints_p)

// OBSOLETE     {

// OBSOLETE       insn_type type;

// OBSOLETE       CORE_ADDR pc;

// OBSOLETE       unsigned long insn;

// OBSOLETE 

// OBSOLETE       pc = read_register (PC_REGNUM);

// OBSOLETE       insn = read_memory_integer (pc, 4);

// OBSOLETE       type = get_insn_type (insn, pc, &target);

// OBSOLETE 

// OBSOLETE       /* Always set a breakpoint for the insn after the branch.  */

// OBSOLETE       next_pc = pc + ((type == NORMAL8 || type == BRANCH8) ? 8 : 4);

// OBSOLETE       target_insert_breakpoint (next_pc, break_mem[0]);

// OBSOLETE 

// OBSOLETE       brktrg_p = 0;

// OBSOLETE 

// OBSOLETE       if ((type == BRANCH4 || type == BRANCH8)

// OBSOLETE       /* Watch out for branches to the following location.

// OBSOLETE          We just stored a breakpoint there and another call to

// OBSOLETE          target_insert_breakpoint will think the real insn is the

// OBSOLETE          breakpoint we just stored there.  */

// OBSOLETE       && target != next_pc)

// OBSOLETE     {

// OBSOLETE       brktrg_p = 1;

// OBSOLETE       target_insert_breakpoint (target, break_mem[1]);

// OBSOLETE     }

// OBSOLETE 

// OBSOLETE     }

// OBSOLETE   else

// OBSOLETE     {

// OBSOLETE       /* Remove breakpoints.  */

// OBSOLETE       target_remove_breakpoint (next_pc, break_mem[0]);

// OBSOLETE 

// OBSOLETE       if (brktrg_p)

// OBSOLETE     target_remove_breakpoint (target, break_mem[1]);

// OBSOLETE 

// OBSOLETE       /* Fix the pc.  */

// OBSOLETE       stop_pc -= DECR_PC_AFTER_BREAK;

// OBSOLETE       write_pc (stop_pc);

// OBSOLETE     }

// OBSOLETE }

// OBSOLETE 

// OBSOLETE /* Because of Multi-arch, GET_LONGJMP_TARGET is always defined.  So test

// OBSOLETE    for a definition of JB_PC.  */

// OBSOLETE #ifdef JB_PC

// OBSOLETE /* Figure out where the longjmp will land.  Slurp the args out of the stack.

// OBSOLETE    We expect the first arg to be a pointer to the jmp_buf structure from which

// OBSOLETE    we extract the pc (JB_PC) that we will land at.  The pc is copied into PC.

// OBSOLETE    This routine returns true on success. */

// OBSOLETE 

// OBSOLETE int

// OBSOLETE get_longjmp_target (CORE_ADDR *pc)

// OBSOLETE {

// OBSOLETE   char buf[TARGET_PTR_BIT / TARGET_CHAR_BIT];

// OBSOLETE   CORE_ADDR sp, jb_addr;

// OBSOLETE 

// OBSOLETE   sp = read_register (SP_REGNUM);

// OBSOLETE 

// OBSOLETE   if (target_read_memory (sp + SP_ARG0,             /* Offset of first arg on stack */

// OBSOLETE                       buf,

// OBSOLETE                       TARGET_PTR_BIT / TARGET_CHAR_BIT))

// OBSOLETE     return 0;

// OBSOLETE 

// OBSOLETE   jb_addr = extract_address (buf, TARGET_PTR_BIT / TARGET_CHAR_BIT);

// OBSOLETE 

// OBSOLETE   if (target_read_memory (jb_addr + JB_PC * JB_ELEMENT_SIZE, buf,

// OBSOLETE                       TARGET_PTR_BIT / TARGET_CHAR_BIT))

// OBSOLETE     return 0;

// OBSOLETE 

// OBSOLETE   *pc = extract_address (buf, TARGET_PTR_BIT / TARGET_CHAR_BIT);

// OBSOLETE 

// OBSOLETE   return 1;

// OBSOLETE }

// OBSOLETE #endif /* GET_LONGJMP_TARGET */

// OBSOLETE 

// OBSOLETE /* Disassemble one instruction.  */

// OBSOLETE 

// OBSOLETE static int

// OBSOLETE arc_print_insn (bfd_vma vma, disassemble_info *info)

// OBSOLETE {

// OBSOLETE   static int current_mach;

// OBSOLETE   static int current_endian;

// OBSOLETE   static disassembler_ftype current_disasm;

// OBSOLETE 

// OBSOLETE   if (current_disasm == NULL

// OBSOLETE       || arc_bfd_mach_type != current_mach

// OBSOLETE       || TARGET_BYTE_ORDER != current_endian)

// OBSOLETE     {

// OBSOLETE       current_mach = arc_bfd_mach_type;

// OBSOLETE       current_endian = TARGET_BYTE_ORDER;

// OBSOLETE       current_disasm = arc_get_disassembler (NULL);

// OBSOLETE     }

// OBSOLETE 

// OBSOLETE   return (*current_disasm) (vma, info);

// OBSOLETE }

// OBSOLETE 

// OBSOLETE /* Command to set cpu type.  */

// OBSOLETE 

// OBSOLETE void

// OBSOLETE arc_set_cpu_type_command (char *args, int from_tty)

// OBSOLETE {

// OBSOLETE   int i;

// OBSOLETE 

// OBSOLETE   if (tmp_arc_cpu_type == NULL || *tmp_arc_cpu_type == '\0')

// OBSOLETE     {

// OBSOLETE       printf_unfiltered ("The known ARC cpu types are as follows:\n");

// OBSOLETE       for (i = 0; arc_cpu_type_table[i].name != NULL; ++i)

// OBSOLETE     printf_unfiltered ("%s\n", arc_cpu_type_table[i].name);

// OBSOLETE 

// OBSOLETE       /* Restore the value.  */

// OBSOLETE       tmp_arc_cpu_type = xstrdup (arc_cpu_type);

// OBSOLETE 

// OBSOLETE       return;

// OBSOLETE     }

// OBSOLETE 

// OBSOLETE   if (!arc_set_cpu_type (tmp_arc_cpu_type))

// OBSOLETE     {

// OBSOLETE       error ("Unknown cpu type `%s'.", tmp_arc_cpu_type);

// OBSOLETE       /* Restore its value.  */

// OBSOLETE       tmp_arc_cpu_type = xstrdup (arc_cpu_type);

// OBSOLETE     }

// OBSOLETE }

// OBSOLETE 

// OBSOLETE static void

// OBSOLETE arc_show_cpu_type_command (char *args, int from_tty)

// OBSOLETE {

// OBSOLETE }

// OBSOLETE 

// OBSOLETE /* Modify the actual cpu type.

// OBSOLETE    Result is a boolean indicating success.  */

// OBSOLETE 

// OBSOLETE static int

// OBSOLETE arc_set_cpu_type (char *str)

// OBSOLETE {

// OBSOLETE   int i, j;

// OBSOLETE 

// OBSOLETE   if (str == NULL)

// OBSOLETE     return 0;

// OBSOLETE 

// OBSOLETE   for (i = 0; arc_cpu_type_table[i].name != NULL; ++i)

// OBSOLETE     {

// OBSOLETE       if (strcasecmp (str, arc_cpu_type_table[i].name) == 0)

// OBSOLETE     {

// OBSOLETE       arc_cpu_type = str;

// OBSOLETE       arc_bfd_mach_type = arc_cpu_type_table[i].value;

// OBSOLETE       return 1;

// OBSOLETE     }

// OBSOLETE     }

// OBSOLETE 

// OBSOLETE   return 0;

// OBSOLETE }

// OBSOLETE 

// OBSOLETE void

// OBSOLETE _initialize_arc_tdep (void)

// OBSOLETE {

// OBSOLETE   struct cmd_list_element *c;

// OBSOLETE 

// OBSOLETE   c = add_set_cmd ("cpu", class_support, var_string_noescape,

// OBSOLETE                (char *) &tmp_arc_cpu_type,

// OBSOLETE                "Set the type of ARC cpu in use.\n\

// OBSOLETE This command has two purposes.  In a multi-cpu system it lets one\n\

// OBSOLETE change the cpu being debugged.  It also gives one access to\n\

// OBSOLETE cpu-type-specific registers and recognize cpu-type-specific instructions.\

// OBSOLETE ",

// OBSOLETE                &setlist);

// OBSOLETE   set_cmd_cfunc (c, arc_set_cpu_type_command);

// OBSOLETE   c = add_show_from_set (c, &showlist);

// OBSOLETE   set_cmd_cfunc (c, arc_show_cpu_type_command);

// OBSOLETE 

// OBSOLETE   /* We have to use xstrdup() here because the `set' command frees it

// OBSOLETE      before setting a new value.  */

// OBSOLETE   tmp_arc_cpu_type = xstrdup (DEFAULT_ARC_CPU_TYPE);

// OBSOLETE   arc_set_cpu_type (tmp_arc_cpu_type);

// OBSOLETE 

// OBSOLETE   c = add_set_cmd ("displaypipeline", class_support, var_zinteger,

// OBSOLETE                (char *) &display_pipeline_p,

// OBSOLETE                "Set pipeline display (simulator only).\n\

// OBSOLETE When enabled, the state of the pipeline after each cycle is displayed.",

// OBSOLETE                &setlist);

// OBSOLETE   c = add_show_from_set (c, &showlist);

// OBSOLETE 

// OBSOLETE   c = add_set_cmd ("debugpipeline", class_support, var_zinteger,

// OBSOLETE                (char *) &debug_pipeline_p,

// OBSOLETE                "Set pipeline debug display (simulator only).\n\

// OBSOLETE When enabled, debugging information about the pipeline is displayed.",

// OBSOLETE                &setlist);

// OBSOLETE   c = add_show_from_set (c, &showlist);

// OBSOLETE 

// OBSOLETE   c = add_set_cmd ("cputimer", class_support, var_zinteger,

// OBSOLETE                (char *) &cpu_timer,

// OBSOLETE                "Set maximum cycle count (simulator only).\n\

// OBSOLETE Control will return to gdb if the timer expires.\n\

// OBSOLETE A negative value disables the timer.",

// OBSOLETE                &setlist);

// OBSOLETE   c = add_show_from_set (c, &showlist);

// OBSOLETE 

// OBSOLETE   tm_print_insn = arc_print_insn;

// OBSOLETE }