gdb/ns32k-tdep.c

   1 /* Print NS 32000 instructions for GDB, the GNU debugger.
   2    Copyright 1986, 1988, 1991, 1992, 1994, 1995
   3    Free Software Foundation, Inc.
   4
   5    This file is part of GDB.
   6
   7    This program is free software; you can redistribute it and/or modify
   8    it under the terms of the GNU General Public License as published by
   9    the Free Software Foundation; either version 2 of the License, or
  10    (at your option) any later version.
  11
  12    This program is distributed in the hope that it will be useful,
  13    but WITHOUT ANY WARRANTY; without even the implied warranty of
  14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15    GNU General Public License for more details.
  16
  17    You should have received a copy of the GNU General Public License
  18    along with this program; if not, write to the Free Software
  19    Foundation, Inc., 59 Temple Place - Suite 330,
  20    Boston, MA 02111-1307, USA.  */
  21
  22 #include "defs.h"
  23 #include "frame.h"
  24
  25 void
  26 _initialize_ns32k_tdep (void)
  27 {
  28   tm_print_insn = print_insn_ns32k;
  29 }
  30
  31 /* Advance PC across any function entry prologue instructions
  32    to reach some "real" code.  */
  33
  34 CORE_ADDR
  35 merlin_skip_prologue (CORE_ADDR pc)
  36 {
  37   register int op = read_memory_integer (pc, 1);
  38   if (op == 0x82)
  39     {
  40       op = read_memory_integer (pc + 2, 1);
  41       if ((op & 0x80) == 0)
  42         pc += 3;
  43       else if ((op & 0xc0) == 0x80)
  44         pc += 4;
  45       else
  46         pc += 6;
  47     }
  48   return pc;
  49 }
  50
  51 CORE_ADDR
  52 umax_skip_prologue (CORE_ADDR pc)
  53 {
  54   register unsigned char op = read_memory_integer (pc, 1);
  55   if (op == 0x82)
  56     {
  57       op = read_memory_integer (pc + 2, 1);
  58       if ((op & 0x80) == 0)
  59         pc += 3;
  60       else if ((op & 0xc0) == 0x80)
  61         pc += 4;
  62       else
  63         pc += 6;
  64     }
  65   return pc;
  66 }
  67
  68 /* Return number of args passed to a frame.
  69    Can return -1, meaning no way to tell.  */
  70
  71 int
  72 merlin_frame_num_args (struct frame_info *fi)
  73 {
  74   int numargs;
  75   CORE_ADDR pc;
  76   int insn;
  77   int addr_mode;
  78   int width;
  79
  80   pc = FRAME_SAVED_PC (fi);
  81   insn = read_memory_integer (pc, 2);
  82   addr_mode = (insn >> 11) & 0x1f;
  83   insn = insn & 0x7ff;
  84   if ((insn & 0x7fc) == 0x57c
  85       && addr_mode == 0x14)     /* immediate */
  86     {
  87       if (insn == 0x57c)        /* adjspb */
  88         width = 1;
  89       else if (insn == 0x57d)   /* adjspw */
  90         width = 2;
  91       else if (insn == 0x57f)   /* adjspd */
  92         width = 4;
  93       numargs = read_memory_integer (pc + 2, width);
  94       if (width > 1)
  95         flip_bytes (&numargs, width);
  96       numargs = -sign_extend (numargs, width * 8) / 4;
  97     }
  98   else
  99     numargs = -1;
 100   return numargs;
 101 }
 102
 103
 104 /* Return number of args passed to a frame.
 105    Can return -1, meaning no way to tell.
 106    Encore's C compiler often reuses same area on stack for args,
 107    so this will often not work properly.  If the arg names
 108    are known, it's likely most of them will be printed. */
 109 int
 110 umax_frame_num_args (struct frame_info *fi)
 111 {
 112   int numargs;
 113   CORE_ADDR pc;
 114   CORE_ADDR enter_addr;
 115   unsigned int insn;
 116   unsigned int addr_mode;
 117   int width;
 118
 119   numargs = -1;
 120   enter_addr = ns32k_get_enter_addr ((fi)->pc);
 121   if (enter_addr > 0)
 122     {
 123       pc = ((enter_addr == 1)
 124             ? SAVED_PC_AFTER_CALL (fi)
 125             : FRAME_SAVED_PC (fi));
 126       insn = read_memory_integer (pc, 2);
 127       addr_mode = (insn >> 11) & 0x1f;
 128       insn = insn & 0x7ff;
 129       if ((insn & 0x7fc) == 0x57c
 130           && addr_mode == 0x14) /* immediate */
 131         {
 132           if (insn == 0x57c)    /* adjspb */
 133             width = 1;
 134           else if (insn == 0x57d)       /* adjspw */
 135             width = 2;
 136           else if (insn == 0x57f)       /* adjspd */
 137             width = 4;
 138           numargs = read_memory_integer (pc + 2, width);
 139           if (width > 1)
 140             flip_bytes (&numargs, width);
 141           numargs = -sign_extend (numargs, width * 8) / 4;
 142         }
 143     }
 144   return numargs;
 145 }
 146
 147
 148 sign_extend (int value, int bits)
 149 {
 150   value = value & ((1 << bits) - 1);
 151   return (value & (1 << (bits - 1))
 152           ? value | (~((1 << bits) - 1))
 153           : value);
 154 }
 155
 156 void
 157 flip_bytes (char *ptr, int count)
 158 {
 159   char tmp;
 160
 161   while (count > 0)
 162     {
 163       tmp = *ptr;
 164       ptr[0] = ptr[count - 1];
 165       ptr[count - 1] = tmp;
 166       ptr++;
 167       count -= 2;
 168     }
 169 }
 170
 171 /* Return the number of locals in the current frame given a pc
 172    pointing to the enter instruction.  This is used in the macro
 173    FRAME_FIND_SAVED_REGS.  */
 174
 175 int
 176 ns32k_localcount (CORE_ADDR enter_pc)
 177 {
 178   unsigned char localtype;
 179   int localcount;
 180
 181   localtype = read_memory_integer (enter_pc + 2, 1);
 182   if ((localtype & 0x80) == 0)
 183     localcount = localtype;
 184   else if ((localtype & 0xc0) == 0x80)
 185     localcount = (((localtype & 0x3f) << 8)
 186                   | (read_memory_integer (enter_pc + 3, 1) & 0xff));
 187   else
 188     localcount = (((localtype & 0x3f) << 24)
 189                   | ((read_memory_integer (enter_pc + 3, 1) & 0xff) << 16)
 190                   | ((read_memory_integer (enter_pc + 4, 1) & 0xff) << 8)
 191                   | (read_memory_integer (enter_pc + 5, 1) & 0xff));
 192   return localcount;
 193 }
 194
 195
 196 /* Nonzero if instruction at PC is a return instruction.  */
 197
 198 static int
 199 ns32k_about_to_return (CORE_ADDR pc)
 200 {
 201   return (read_memory_integer (pc, 1) == 0x12);
 202 }
 203
 204
 205 /*
 206  * Get the address of the enter opcode for the function
 207  * containing PC, if there is an enter for the function,
 208  * and if the pc is between the enter and exit.
 209  * Returns positive address if pc is between enter/exit,
 210  * 1 if pc before enter or after exit, 0 otherwise.
 211  */
 212
 213 CORE_ADDR
 214 ns32k_get_enter_addr (CORE_ADDR pc)
 215 {
 216   CORE_ADDR enter_addr;
 217   unsigned char op;
 218
 219   if (pc == 0)
 220     return 0;
 221
 222   if (ns32k_about_to_return (pc))
 223     return 1;                   /* after exit */
 224
 225   enter_addr = get_pc_function_start (pc);
 226
 227   if (pc == enter_addr)
 228     return 1;                   /* before enter */
 229
 230   op = read_memory_integer (enter_addr, 1);
 231
 232   if (op != 0x82)
 233     return 0;                   /* function has no enter/exit */
 234
 235   return enter_addr;            /* pc is between enter and exit */
 236 }