* m68k-tdep.c (m68k_register_raw_size): Remove cast.
[deliverable/binutils-gdb.git] / gdb / m68k-tdep.c
index 967bfbc58af6aed7214a41b622afd13331748f67..81973a1d76960aec2544d44a20d80227ad422738 100644 (file)
 /* Target dependent code for the Motorola 68000 series.
-   Copyright (C) 1990, 1992 Free Software Foundation, Inc.
+   Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1999, 2000, 2001,
+   2002, 2003
+   Free Software Foundation, Inc.
 
-This file is part of GDB.
+   This file is part of GDB.
 
-This program is free software; you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 2 of the License, or
-(at your option) any later version.
+   This program is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 2 of the License, or
+   (at your option) any later version.
 
-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-GNU General Public License for more details.
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
 
-You should have received a copy of the GNU General Public License
-along with this program; if not, write to the Free Software
-Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
+   You should have received a copy of the GNU General Public License
+   along with this program; if not, write to the Free Software
+   Foundation, Inc., 59 Temple Place - Suite 330,
+   Boston, MA 02111-1307, USA.  */
 
 #include "defs.h"
 #include "frame.h"
 #include "symtab.h"
-
+#include "gdbcore.h"
+#include "value.h"
+#include "gdb_string.h"
+#include "inferior.h"
+#include "regcache.h"
+#include "arch-utils.h"
+#include "osabi.h"
+
+#include "m68k-tdep.h"
 \f
+
+#define P_LINKL_FP     0x480e
+#define P_LINKW_FP     0x4e56
+#define P_PEA_FP       0x4856
+#define P_MOVL_SP_FP   0x2c4f
+#define P_MOVL         0x207c
+#define P_JSR          0x4eb9
+#define P_BSR          0x61ff
+#define P_LEAL         0x43fb
+#define P_MOVML                0x48ef
+#define P_FMOVM                0xf237
+#define P_TRAP         0x4e40
+
+
+#define REGISTER_BYTES_FP (16*4 + 8 + 8*12 + 3*4)
+#define REGISTER_BYTES_NOFP (16*4 + 8)
+
+#define NUM_FREGS (NUM_REGS-24)
+
+/* Offset from SP to first arg on stack at first instruction of a function */
+
+#define SP_ARG0 (1 * 4)
+
+/* This was determined by experimentation on hp300 BSD 4.3.  Perhaps
+   it corresponds to some offset in /usr/include/sys/user.h or
+   something like that.  Using some system include file would
+   have the advantage of probably being more robust in the face
+   of OS upgrades, but the disadvantage of being wrong for
+   cross-debugging.  */
+
+#define SIG_PC_FP_OFFSET 530
+
+#define TARGET_M68K
+
+
+#if !defined (BPT_VECTOR)
+#define BPT_VECTOR 0xf
+#endif
+
+#if !defined (REMOTE_BPT_VECTOR)
+#define REMOTE_BPT_VECTOR 1
+#endif
+
+
+static void m68k_frame_init_saved_regs (struct frame_info *frame_info);
+
+
+/* gdbarch_breakpoint_from_pc is set to m68k_local_breakpoint_from_pc
+   so m68k_remote_breakpoint_from_pc is currently not used.  */
+
+static const unsigned char *
+m68k_remote_breakpoint_from_pc (CORE_ADDR *pcptr, int *lenptr)
+{
+  static unsigned char break_insn[] = {0x4e, (0x40 | REMOTE_BPT_VECTOR)};
+  *lenptr = sizeof (break_insn);
+  return break_insn;
+}
+
+static const unsigned char *
+m68k_local_breakpoint_from_pc (CORE_ADDR *pcptr, int *lenptr)
+{
+  static unsigned char break_insn[] = {0x4e, (0x40 | BPT_VECTOR)};
+  *lenptr = sizeof (break_insn);
+  return break_insn;
+}
+
+
+static int
+m68k_register_bytes_ok (long numbytes)
+{
+  return ((numbytes == REGISTER_BYTES_FP)
+         || (numbytes == REGISTER_BYTES_NOFP));
+}
+
+/* Number of bytes of storage in the actual machine representation
+   for register regnum.  On the 68000, all regs are 4 bytes
+   except the floating point regs which are 12 bytes.  */
+
+static int
+m68k_register_raw_size (int regnum)
+{
+  return (regnum >= FP0_REGNUM && regnum < FP0_REGNUM + 8 ? 12 : 4);
+}
+
+/* Number of bytes of storage in the program's representation
+   for register regnum.  On the 68000, all regs are 4 bytes
+   except the floating point regs which are 12-byte long doubles.  */
+
+static int
+m68k_register_virtual_size (int regnum)
+{
+  return (regnum >= FP0_REGNUM && regnum < FP0_REGNUM + 8 ? 12 : 4);
+}
+
+/* Return the GDB type object for the "standard" data type of data in
+   register N.  This should be int for D0-D7, SR, FPCONTROL and
+   FPSTATUS, long double for FP0-FP7, and void pointer for all others
+   (A0-A7, PC, FPIADDR).  Note, for registers which contain
+   addresses return pointer to void, not pointer to char, because we
+   don't want to attempt to print the string after printing the
+   address.  */
+
+static struct type *
+m68k_register_virtual_type (int regnum)
+{
+  if (regnum >= FP0_REGNUM && regnum <= FP0_REGNUM + 7)
+    return builtin_type_m68881_ext;
+
+  if (regnum == M68K_FPI_REGNUM || regnum == PC_REGNUM)
+    return builtin_type_void_func_ptr;
+
+  if (regnum == M68K_FPC_REGNUM || regnum == M68K_FPS_REGNUM
+      || regnum == PS_REGNUM)
+    return builtin_type_int32;
+
+  if (regnum >= M68K_A0_REGNUM && regnum <= M68K_A0_REGNUM + 7)
+    return builtin_type_void_data_ptr;
+
+  return builtin_type_int32;
+}
+
+/* Function: m68k_register_name
+   Returns the name of the standard m68k register regnum. */
+
+static const char *
+m68k_register_name (int regnum)
+{
+  static char *register_names[] = {
+    "d0", "d1", "d2", "d3", "d4", "d5", "d6", "d7",
+    "a0", "a1", "a2", "a3", "a4", "a5", "fp", "sp",
+    "ps", "pc",
+    "fp0", "fp1", "fp2", "fp3", "fp4", "fp5", "fp6", "fp7",
+    "fpcontrol", "fpstatus", "fpiaddr", "fpcode", "fpflags"
+  };
+
+  if (regnum < 0 ||
+      regnum >= sizeof (register_names) / sizeof (register_names[0]))
+    internal_error (__FILE__, __LINE__,
+                   "m68k_register_name: illegal register number %d", regnum);
+  else
+    return register_names[regnum];
+}
+
+/* Stack must be kept short aligned when doing function calls.  */
+
+static CORE_ADDR
+m68k_stack_align (CORE_ADDR addr)
+{
+  return ((addr + 1) & ~1);
+}
+
+/* Index within `registers' of the first byte of the space for
+   register regnum.  */
+
+static int
+m68k_register_byte (int regnum)
+{
+  if (regnum >= M68K_FPC_REGNUM)
+    return (((regnum - M68K_FPC_REGNUM) * 4) + 168);
+  else if (regnum >= FP0_REGNUM)
+    return (((regnum - FP0_REGNUM) * 12) + 72);
+  else
+    return (regnum * 4);
+}
+
+/* Store the address of the place in which to copy the structure the
+   subroutine will return.  This is called from call_function. */
+
+static void
+m68k_store_struct_return (CORE_ADDR addr, CORE_ADDR sp)
+{
+  write_register (M68K_A1_REGNUM, addr);
+}
+
+/* Extract from an array regbuf containing the (raw) register state
+   a function return value of type type, and copy that, in virtual format,
+   into valbuf.  This is assuming that floating point values are returned
+   as doubles in d0/d1.  */
+
+static void
+m68k_deprecated_extract_return_value (struct type *type, char *regbuf,
+                                     char *valbuf)
+{
+  int offset = 0;
+  int typeLength = TYPE_LENGTH (type);
+
+  if (typeLength < 4)
+    offset = 4 - typeLength;
+
+  memcpy (valbuf, regbuf + offset, typeLength);
+}
+
+static CORE_ADDR
+m68k_deprecated_extract_struct_value_address (char *regbuf)
+{
+  return (*(CORE_ADDR *) (regbuf));
+}
+
+/* Write into appropriate registers a function return value
+   of type TYPE, given in virtual format.  Assumes floats are passed
+   in d0/d1.  */
+
+static void
+m68k_store_return_value (struct type *type, char *valbuf)
+{
+  deprecated_write_register_bytes (0, valbuf, TYPE_LENGTH (type));
+}
+
+/* Describe the pointer in each stack frame to the previous stack frame
+   (its caller).  */
+
+/* DEPRECATED_FRAME_CHAIN takes a frame's nominal address and produces
+   the frame's chain-pointer.  In the case of the 68000, the frame's
+   nominal address is the address of a 4-byte word containing the
+   calling frame's address.  */
+
+/* If we are chaining from sigtramp, then manufacture a sigtramp frame
+   (which isn't really on the stack.  I'm not sure this is right for anything
+   but BSD4.3 on an hp300.  */
+
+static CORE_ADDR
+m68k_frame_chain (struct frame_info *thisframe)
+{
+  if (get_frame_type (thisframe) == SIGTRAMP_FRAME)
+    return get_frame_base (thisframe);
+  else if (!inside_entry_file (get_frame_pc (thisframe)))
+    return read_memory_unsigned_integer (get_frame_base (thisframe), 4);
+  else
+    return 0;
+}
+
+/* A function that tells us whether the function invocation represented
+   by fi does not have a frame on the stack associated with it.  If it
+   does not, FRAMELESS is set to 1, else 0.  */
+
+static int
+m68k_frameless_function_invocation (struct frame_info *fi)
+{
+  if (get_frame_type (fi) == SIGTRAMP_FRAME)
+    return 0;
+  else
+    return frameless_look_for_prologue (fi);
+}
+
+static CORE_ADDR
+m68k_frame_saved_pc (struct frame_info *frame)
+{
+  if (get_frame_type (frame) == SIGTRAMP_FRAME)
+    {
+      if (get_next_frame (frame))
+       return read_memory_unsigned_integer (get_frame_base (get_next_frame (frame))
+                                            + SIG_PC_FP_OFFSET, 4);
+      else
+       return read_memory_unsigned_integer (read_register (SP_REGNUM)
+                                            + SIG_PC_FP_OFFSET - 8, 4);
+    }
+  else
+    return read_memory_unsigned_integer (get_frame_base (frame) + 4, 4);
+}
+
+
+int
+delta68_in_sigtramp (CORE_ADDR pc, char *name)
+{
+  if (name != NULL)
+    return strcmp (name, "_sigcode") == 0;
+  else
+    return 0;
+}
+
+CORE_ADDR
+delta68_frame_args_address (struct frame_info *frame_info)
+{
+  /* we assume here that the only frameless functions are the system calls
+     or other functions who do not put anything on the stack. */
+  if (get_frame_type (frame_info) == SIGTRAMP_FRAME)
+    return get_frame_base (frame_info) + 12;
+  else if (frameless_look_for_prologue (frame_info))
+    {
+      /* Check for an interrupted system call */
+      if (get_next_frame (frame_info) && (get_frame_type (get_next_frame (frame_info)) == SIGTRAMP_FRAME))
+       return get_frame_base (get_next_frame (frame_info)) + 16;
+      else
+       return get_frame_base (frame_info) + 4;
+    }
+  else
+    return get_frame_base (frame_info);
+}
+
+CORE_ADDR
+delta68_frame_saved_pc (struct frame_info *frame_info)
+{
+  return read_memory_unsigned_integer (delta68_frame_args_address (frame_info)
+                                      + 4, 4);
+}
+
+int
+delta68_frame_num_args (struct frame_info *fi)
+{
+  int val;
+  CORE_ADDR pc = DEPRECATED_FRAME_SAVED_PC (fi);
+  int insn = read_memory_unsigned_integer (pc, 2);
+  val = 0;
+  if (insn == 0047757 || insn == 0157374)      /* lea W(sp),sp or addaw #W,sp */
+    val = read_memory_integer (pc + 2, 2);
+  else if ((insn & 0170777) == 0050217 /* addql #N, sp */
+          || (insn & 0170777) == 0050117)      /* addqw */
+    {
+      val = (insn >> 9) & 7;
+      if (val == 0)
+       val = 8;
+    }
+  else if (insn == 0157774)    /* addal #WW, sp */
+    val = read_memory_integer (pc + 2, 4);
+  val >>= 2;
+  return val;
+}
+
+/* Insert the specified number of args and function address
+   into a call sequence of the above form stored at DUMMYNAME.
+   We use the BFD routines to store a big-endian value of known size.  */
+
+static void
+m68k_fix_call_dummy (char *dummy, CORE_ADDR pc, CORE_ADDR fun, int nargs,
+                    struct value **args, struct type *type, int gcc_p)
+{
+  bfd_putb32 (fun, (unsigned char *) dummy + DEPRECATED_CALL_DUMMY_START_OFFSET + 2);
+  bfd_putb32 (nargs * 4,
+             (unsigned char *) dummy + DEPRECATED_CALL_DUMMY_START_OFFSET + 8);
+}
+
+
 /* Push an empty stack frame, to record the current PC, etc.  */
 
-void
-m68k_push_dummy_frame ()
+static void
+m68k_push_dummy_frame (void)
 {
   register CORE_ADDR sp = read_register (SP_REGNUM);
   register int regnum;
   char raw_buffer[12];
 
   sp = push_word (sp, read_register (PC_REGNUM));
-  sp = push_word (sp, read_register (FP_REGNUM));
-  write_register (FP_REGNUM, sp);
-#if defined (HAVE_68881)
+  sp = push_word (sp, read_register (DEPRECATED_FP_REGNUM));
+  write_register (DEPRECATED_FP_REGNUM, sp);
+
+  /* Always save the floating-point registers, whether they exist on
+     this target or not.  */
   for (regnum = FP0_REGNUM + 7; regnum >= FP0_REGNUM; regnum--)
     {
-      read_register_bytes (REGISTER_BYTE (regnum), raw_buffer, 12);
+      deprecated_read_register_bytes (REGISTER_BYTE (regnum), raw_buffer, 12);
       sp = push_bytes (sp, raw_buffer, 12);
     }
-#endif
-  for (regnum = FP_REGNUM - 1; regnum >= 0; regnum--)
+
+  for (regnum = DEPRECATED_FP_REGNUM - 1; regnum >= 0; regnum--)
     {
       sp = push_word (sp, read_register (regnum));
     }
@@ -52,49 +397,45 @@ m68k_push_dummy_frame ()
 /* Discard from the stack the innermost frame,
    restoring all saved registers.  */
 
-void
-m68k_pop_frame ()
+static void
+m68k_pop_frame (void)
 {
-  register FRAME frame = get_current_frame ();
+  register struct frame_info *frame = get_current_frame ();
   register CORE_ADDR fp;
   register int regnum;
-  struct frame_saved_regs fsr;
-  struct frame_info *fi;
   char raw_buffer[12];
 
-  fi = get_frame_info (frame);
-  fp = fi -> frame;
-  get_frame_saved_regs (fi, &fsr);
-#if defined (HAVE_68881)
-  for (regnum = FP0_REGNUM + 7 ; regnum >= FP0_REGNUM ; regnum--)
+  fp = get_frame_base (frame);
+  m68k_frame_init_saved_regs (frame);
+  for (regnum = FP0_REGNUM + 7; regnum >= FP0_REGNUM; regnum--)
     {
-      if (fsr.regs[regnum])
+      if (get_frame_saved_regs (frame)[regnum])
        {
-         read_memory (fsr.regs[regnum], raw_buffer, 12);
-         write_register_bytes (REGISTER_BYTE (regnum), raw_buffer, 12);
+         read_memory (get_frame_saved_regs (frame)[regnum], raw_buffer, 12);
+         deprecated_write_register_bytes (REGISTER_BYTE (regnum), raw_buffer,
+                                          12);
        }
     }
-#endif
-  for (regnum = FP_REGNUM - 1 ; regnum >= 0 ; regnum--)
+  for (regnum = DEPRECATED_FP_REGNUM - 1; regnum >= 0; regnum--)
     {
-      if (fsr.regs[regnum])
+      if (get_frame_saved_regs (frame)[regnum])
        {
-         write_register (regnum, read_memory_integer (fsr.regs[regnum], 4));
+         write_register (regnum,
+                         read_memory_integer (get_frame_saved_regs (frame)[regnum], 4));
        }
     }
-  if (fsr.regs[PS_REGNUM])
+  if (get_frame_saved_regs (frame)[PS_REGNUM])
     {
-      write_register (PS_REGNUM, read_memory_integer (fsr.regs[PS_REGNUM], 4));
+      write_register (PS_REGNUM,
+                     read_memory_integer (get_frame_saved_regs (frame)[PS_REGNUM], 4));
     }
-  write_register (FP_REGNUM, read_memory_integer (fp, 4));
+  write_register (DEPRECATED_FP_REGNUM, read_memory_integer (fp, 4));
   write_register (PC_REGNUM, read_memory_integer (fp + 4, 4));
   write_register (SP_REGNUM, fp + 8);
   flush_cached_frames ();
-  set_current_frame (create_new_frame (read_register (FP_REGNUM),
-                                      read_pc ()));
 }
-
 \f
+
 /* Given an ip value corresponding to the start of a function,
    return the ip of the first instruction after the function 
    prologue.  This is the generic m68k support.  Machines which
@@ -106,40 +447,29 @@ m68k_pop_frame ()
 
    A link instruction, word form:
 
-       link.w  %a6,&0                  4e56  XXXX
+   link.w       %a6,&0                  4e56  XXXX
 
    A link instruction, long form:
 
-       link.l  %fp,&F%1                480e  XXXX  XXXX
+   link.l  %fp,&F%1             480e  XXXX  XXXX
 
    A movm instruction to preserve integer regs:
 
-       movm.l  &M%1,(4,%sp)            48ef  XXXX  XXXX
+   movm.l  &M%1,(4,%sp)         48ef  XXXX  XXXX
 
    A fmovm instruction to preserve float regs:
 
-       fmovm   &FPM%1,(FPO%1,%sp)      f237  XXXX  XXXX  XXXX  XXXX
+   fmovm   &FPM%1,(FPO%1,%sp)   f237  XXXX  XXXX  XXXX  XXXX
 
    Some profiling setup code (FIXME, not recognized yet):
 
-       lea.l   (.L3,%pc),%a1           43fb  XXXX  XXXX  XXXX
-       bsr     _mcount                 61ff  XXXX  XXXX
-
-  */
+   lea.l   (.L3,%pc),%a1                43fb  XXXX  XXXX  XXXX
+   bsr     _mcount                      61ff  XXXX  XXXX
 
-#define P_LINK_L       0x480e
-#define P_LINK_W       0x4e56
-#define P_MOV_L                0x207c
-#define P_JSR          0x4eb9
-#define P_BSR          0x61ff
-#define P_LEA_L                0x43fb
-#define P_MOVM_L       0x48ef
-#define P_FMOVM                0xf237
-#define P_TRAP         0x4e40
+ */
 
-CORE_ADDR
-m68k_skip_prologue (ip)
-CORE_ADDR ip;
+static CORE_ADDR
+m68k_skip_prologue (CORE_ADDR ip)
 {
   register CORE_ADDR limit;
   struct symtab_and_line sal;
@@ -153,194 +483,261 @@ CORE_ADDR ip;
 
   while (ip < limit)
     {
-      op = read_memory_integer (ip, 2);
-      op &= 0xFFFF;
-      
-      if (op == P_LINK_W)
-       {
-         ip += 4;      /* Skip link.w */
-       }
-      else if (op == P_LINK_L)
-       {
-         ip += 6;      /* Skip link.l */
-       }
-      else if (op == P_MOVM_L)
-       {
-         ip += 6;      /* Skip movm.l */
-       }
+      op = read_memory_unsigned_integer (ip, 2);
+
+      if (op == P_LINKW_FP)
+       ip += 4;                /* Skip link.w */
+      else if (op == P_PEA_FP)
+       ip += 2;                /* Skip pea %fp */
+      else if (op == P_MOVL_SP_FP)
+       ip += 2;                /* Skip move.l %sp, %fp */
+      else if (op == P_LINKL_FP)
+       ip += 6;                /* Skip link.l */
+      else if (op == P_MOVML)
+       ip += 6;                /* Skip movm.l */
       else if (op == P_FMOVM)
-       {
-         ip += 10;     /* Skip fmovm */
-       }
+       ip += 10;               /* Skip fmovm */
       else
-       {
-         break;        /* Found unknown code, bail out. */
-       }
+       break;                  /* Found unknown code, bail out. */
     }
   return (ip);
 }
 
-void
-m68k_find_saved_regs (frame_info, saved_regs)
-     struct frame_info *frame_info;
-     struct frame_saved_regs *saved_regs;
+/* Store the addresses of the saved registers of the frame described by 
+   FRAME_INFO in its saved_regs field.
+   This includes special registers such as pc and fp saved in special
+   ways in the stack frame.  sp is even more special:
+   the address we return for it IS the sp for the next frame.  */
+
+static void
+m68k_frame_init_saved_regs (struct frame_info *frame_info)
 {
-  register int regnum;                                                 
-  register int regmask;                                                        
-  register CORE_ADDR next_addr;                                                
+  register int regnum;
+  register int regmask;
+  register CORE_ADDR next_addr;
   register CORE_ADDR pc;
 
   /* First possible address for a pc in a call dummy for this frame.  */
   CORE_ADDR possible_call_dummy_start =
-    (frame_info)->frame - CALL_DUMMY_LENGTH - FP_REGNUM*4 - 4
-#if defined (HAVE_68881)
-      - 8*12
-#endif
-       ;
+    get_frame_base (frame_info) - 28 - DEPRECATED_FP_REGNUM * 4 - 4 - 8 * 12;
 
   int nextinsn;
-  memset (saved_regs, 0, sizeof (*saved_regs));
-  if ((frame_info)->pc >= possible_call_dummy_start
-      && (frame_info)->pc <= (frame_info)->frame)
+
+  if (get_frame_saved_regs (frame_info))
+    return;
+
+  frame_saved_regs_zalloc (frame_info);
+
+  memset (get_frame_saved_regs (frame_info), 0, SIZEOF_FRAME_SAVED_REGS);
+
+  if (get_frame_pc (frame_info) >= possible_call_dummy_start
+      && get_frame_pc (frame_info) <= get_frame_base (frame_info))
     {
 
       /* It is a call dummy.  We could just stop now, since we know
-        what the call dummy saves and where.  But this code proceeds
-        to parse the "prologue" which is part of the call dummy.
-        This is needlessly complex, confusing, and also is the only
-        reason that the call dummy is customized based on HAVE_68881.
-        FIXME.  */
+         what the call dummy saves and where.  But this code proceeds
+         to parse the "prologue" which is part of the call dummy.
+         This is needlessly complex and confusing.  FIXME.  */
 
-      next_addr = (frame_info)->frame;
+      next_addr = get_frame_base (frame_info);
       pc = possible_call_dummy_start;
     }
-  else                                                                 
-    {
-      pc = get_pc_function_start ((frame_info)->pc);                   
-      /* Verify we have a link a6 instruction next;                    
-        if not we lose.  If we win, find the address above the saved   
-        regs using the amount of storage from the link instruction.  */
-      if (044016 == read_memory_integer (pc, 2))                       
-       next_addr = (frame_info)->frame + read_memory_integer (pc += 2, 4), pc+=4; 
-      else if (047126 == read_memory_integer (pc, 2))                  
-       next_addr = (frame_info)->frame + read_memory_integer (pc += 2, 2), pc+=2; 
-      else goto lose;                                                  
-      /* If have an addal #-n, sp next, adjust next_addr.  */          
-      if ((0177777 & read_memory_integer (pc, 2)) == 0157774)          
-       next_addr += read_memory_integer (pc += 2, 4), pc += 4;         
-    }                                                                  
-  regmask = read_memory_integer (pc + 2, 2);                           
-#if defined (HAVE_68881)
-  /* Here can come an fmovem.  Check for it.  */               
-  nextinsn = 0xffff & read_memory_integer (pc, 2);                     
-  if (0xf227 == nextinsn                                               
-      && (regmask & 0xff00) == 0xe000)                                 
-    { pc += 4; /* Regmask's low bit is for register fp7, the first pushed */ 
-      for (regnum = FP0_REGNUM + 7; regnum >= FP0_REGNUM; regnum--, regmask >>= 1)             
-       if (regmask & 1)                                                
-          saved_regs->regs[regnum] = (next_addr -= 12);                
-      regmask = read_memory_integer (pc + 2, 2); }
-#endif
-  /* next should be a moveml to (sp) or -(sp) or a movl r,-(sp) */     
-  if (0044327 == read_memory_integer (pc, 2))                          
-    { pc += 4; /* Regmask's low bit is for register 0, the first written */ 
-      for (regnum = 0; regnum < 16; regnum++, regmask >>= 1)           
-       if (regmask & 1)                                                
-          saved_regs->regs[regnum] = (next_addr += 4) - 4; }   
-  else if (0044347 == read_memory_integer (pc, 2))                     
+  else
     {
-      pc += 4; /* Regmask's low bit is for register 15, the first pushed */ 
-      for (regnum = 15; regnum >= 0; regnum--, regmask >>= 1)          
-       if (regmask & 1)                                                
-          saved_regs->regs[regnum] = (next_addr -= 4);
+      pc = get_frame_func (frame_info);
+
+      nextinsn = read_memory_unsigned_integer (pc, 2);
+      if (P_PEA_FP == nextinsn
+         && P_MOVL_SP_FP == read_memory_unsigned_integer (pc + 2, 2))
+       {
+         /* pea %fp
+            move.l %sp, %fp */
+         next_addr = get_frame_base (frame_info);
+         pc += 4;
+       }
+      else if (P_LINKL_FP == nextinsn)
+       /* link.l %fp */
+       /* Find the address above the saved   
+          regs using the amount of storage from the link instruction.  */
+       {
+         next_addr = get_frame_base (frame_info) + read_memory_integer (pc + 2, 4);
+         pc += 6;
+       }
+      else if (P_LINKW_FP == nextinsn)
+       /* link.w %fp */
+       /* Find the address above the saved   
+          regs using the amount of storage from the link instruction.  */
+       {
+         next_addr = get_frame_base (frame_info) + read_memory_integer (pc + 2, 2);
+         pc += 4;
+       }
+      else
+       goto lose;
+
+      /* If have an addal #-n, sp next, adjust next_addr.  */
+      if (read_memory_unsigned_integer (pc, 2) == 0157774)
+       next_addr += read_memory_integer (pc += 2, 4), pc += 4;
     }
-  else if (0x2f00 == (0xfff0 & read_memory_integer (pc, 2)))           
+
+  for (;;)
     {
-      regnum = 0xf & read_memory_integer (pc, 2); pc += 2;             
-      saved_regs->regs[regnum] = (next_addr -= 4);
-      /* gcc, at least, may use a pair of movel instructions when saving
-        exactly 2 registers.  */
-      if (0x2f00 == (0xfff0 & read_memory_integer (pc, 2)))
+      nextinsn = read_memory_unsigned_integer (pc, 2);
+      regmask = read_memory_unsigned_integer (pc + 2, 2);
+      /* fmovemx to -(sp) */
+      if (0xf227 == nextinsn && (regmask & 0xff00) == 0xe000)
+       {
+         /* Regmask's low bit is for register fp7, the first pushed */
+         for (regnum = FP0_REGNUM + 8; --regnum >= FP0_REGNUM; regmask >>= 1)
+           if (regmask & 1)
+             get_frame_saved_regs (frame_info)[regnum] = (next_addr -= 12);
+         pc += 4;
+       }
+      /* fmovemx to (fp + displacement) */
+      else if (0171056 == nextinsn && (regmask & 0xff00) == 0xf000)
+       {
+         register CORE_ADDR addr;
+
+         addr = get_frame_base (frame_info) + read_memory_integer (pc + 4, 2);
+         /* Regmask's low bit is for register fp7, the first pushed */
+         for (regnum = FP0_REGNUM + 8; --regnum >= FP0_REGNUM; regmask >>= 1)
+           if (regmask & 1)
+             {
+               get_frame_saved_regs (frame_info)[regnum] = addr;
+               addr += 12;
+             }
+         pc += 6;
+       }
+      /* moveml to (sp) */
+      else if (0044327 == nextinsn)
+       {
+         /* Regmask's low bit is for register 0, the first written */
+         for (regnum = 0; regnum < 16; regnum++, regmask >>= 1)
+           if (regmask & 1)
+             {
+               get_frame_saved_regs (frame_info)[regnum] = next_addr;
+               next_addr += 4;
+             }
+         pc += 4;
+       }
+      /* moveml to (fp + displacement) */
+      else if (0044356 == nextinsn)
+       {
+         register CORE_ADDR addr;
+
+         addr = get_frame_base (frame_info) + read_memory_integer (pc + 4, 2);
+         /* Regmask's low bit is for register 0, the first written */
+         for (regnum = 0; regnum < 16; regnum++, regmask >>= 1)
+           if (regmask & 1)
+             {
+               get_frame_saved_regs (frame_info)[regnum] = addr;
+               addr += 4;
+             }
+         pc += 6;
+       }
+      /* moveml to -(sp) */
+      else if (0044347 == nextinsn)
+       {
+         /* Regmask's low bit is for register 15, the first pushed */
+         for (regnum = 16; --regnum >= 0; regmask >>= 1)
+           if (regmask & 1)
+             get_frame_saved_regs (frame_info)[regnum] = (next_addr -= 4);
+         pc += 4;
+       }
+      /* movl r,-(sp) */
+      else if (0x2f00 == (0xfff0 & nextinsn))
        {
-         regnum = 0xf & read_memory_integer (pc, 2);
+         regnum = 0xf & nextinsn;
+         get_frame_saved_regs (frame_info)[regnum] = (next_addr -= 4);
          pc += 2;
-         saved_regs->regs[regnum] = (next_addr -= 4);
        }
+      /* fmovemx to index of sp */
+      else if (0xf236 == nextinsn && (regmask & 0xff00) == 0xf000)
+       {
+         /* Regmask's low bit is for register fp0, the first written */
+         for (regnum = FP0_REGNUM + 8; --regnum >= FP0_REGNUM; regmask >>= 1)
+           if (regmask & 1)
+             {
+               get_frame_saved_regs (frame_info)[regnum] = next_addr;
+               next_addr += 12;
+             }
+         pc += 10;
+       }
+      /* clrw -(sp); movw ccr,-(sp) */
+      else if (0x4267 == nextinsn && 0x42e7 == regmask)
+       {
+         get_frame_saved_regs (frame_info)[PS_REGNUM] = (next_addr -= 4);
+         pc += 4;
+       }
+      else
+       break;
     }
-#if defined (HAVE_68881)
-  /* fmovemx to index of sp may follow.  */                            
-  regmask = read_memory_integer (pc + 2, 2);                           
-  nextinsn = 0xffff & read_memory_integer (pc, 2);                     
-  if (0xf236 == nextinsn                                               
-      && (regmask & 0xff00) == 0xf000)                                 
-    { pc += 10; /* Regmask's low bit is for register fp0, the first written */ 
-      for (regnum = FP0_REGNUM + 7; regnum >= FP0_REGNUM; regnum--, regmask >>= 1)             
-       if (regmask & 1)                                                
-          saved_regs->regs[regnum] = (next_addr += 12) - 12;   
-      regmask = read_memory_integer (pc + 2, 2); }                     
-#endif
-  /* clrw -(sp); movw ccr,-(sp) may follow.  */                                
-  if (0x426742e7 == read_memory_integer (pc, 4))                       
-    saved_regs->regs[PS_REGNUM] = (next_addr -= 4);            
-  lose: ;                                                              
-  saved_regs->regs[SP_REGNUM] = (frame_info)->frame + 8;               
-  saved_regs->regs[FP_REGNUM] = (frame_info)->frame;           
-  saved_regs->regs[PC_REGNUM] = (frame_info)->frame + 4;               
+lose:;
+  get_frame_saved_regs (frame_info)[SP_REGNUM] = get_frame_base (frame_info) + 8;
+  get_frame_saved_regs (frame_info)[DEPRECATED_FP_REGNUM] = get_frame_base (frame_info);
+  get_frame_saved_regs (frame_info)[PC_REGNUM] = get_frame_base (frame_info) + 4;
 #ifdef SIG_SP_FP_OFFSET
   /* Adjust saved SP_REGNUM for fake _sigtramp frames.  */
-  if (frame_info->signal_handler_caller && frame_info->next)
-    saved_regs->regs[SP_REGNUM] = frame_info->next->frame + SIG_SP_FP_OFFSET;
+  if ((get_frame_type (frame_info) == SIGTRAMP_FRAME) && frame_info->next)
+    frame_info->saved_regs[SP_REGNUM] =
+      frame_info->next->frame + SIG_SP_FP_OFFSET;
 #endif
 }
 
 
-#ifdef USE_PROC_FS     /* Target dependent support for /proc */
+#ifdef USE_PROC_FS             /* Target dependent support for /proc */
 
 #include <sys/procfs.h>
 
+/* Prototypes for supply_gregset etc. */
+#include "gregset.h"
+
 /*  The /proc interface divides the target machine's register set up into
-    two different sets, the general register set (gregset) and the floating
-    point register set (fpregset).  For each set, there is an ioctl to get
-    the current register set and another ioctl to set the current values.
+   two different sets, the general register set (gregset) and the floating
+   point register set (fpregset).  For each set, there is an ioctl to get
+   the current register set and another ioctl to set the current values.
 
-    The actual structure passed through the ioctl interface is, of course,
-    naturally machine dependent, and is different for each set of registers.
-    For the m68k for example, the general register set is typically defined
-    by:
+   The actual structure passed through the ioctl interface is, of course,
+   naturally machine dependent, and is different for each set of registers.
+   For the m68k for example, the general register set is typically defined
+   by:
 
-       typedef int gregset_t[18];
+   typedef int gregset_t[18];
 
-       #define R_D0    0
-       ...
-       #define R_PS    17
+   #define      R_D0    0
+   ...
+   #define      R_PS    17
 
-    and the floating point set by:
+   and the floating point set by:
 
-       typedef struct fpregset {
-         int   f_pcr;
-         int   f_psr;
-         int   f_fpiaddr;
-         int   f_fpregs[8][3];         (8 regs, 96 bits each)
-       } fpregset_t;
+   typedef      struct fpregset {
+   int  f_pcr;
+   int  f_psr;
+   int  f_fpiaddr;
+   int  f_fpregs[8][3];         (8 regs, 96 bits each)
+   } fpregset_t;
 
-    These routines provide the packing and unpacking of gregset_t and
-    fpregset_t formatted data.
+   These routines provide the packing and unpacking of gregset_t and
+   fpregset_t formatted data.
 
  */
 
+/* Atari SVR4 has R_SR but not R_PS */
+
+#if !defined (R_PS) && defined (R_SR)
+#define R_PS R_SR
+#endif
 
 /*  Given a pointer to a general register set in /proc format (gregset_t *),
-    unpack the register contents and supply them as gdb's idea of the current
-    register values. */
+   unpack the register contents and supply them as gdb's idea of the current
+   register values. */
 
 void
-supply_gregset (gregsetp)
-gregset_t *gregsetp;
+supply_gregset (gregset_t *gregsetp)
 {
   register int regi;
   register greg_t *regp = (greg_t *) gregsetp;
 
-  for (regi = 0 ; regi < R_PC ; regi++)
+  for (regi = 0; regi < R_PC; regi++)
     {
       supply_register (regi, (char *) (regp + regi));
     }
@@ -349,146 +746,267 @@ gregset_t *gregsetp;
 }
 
 void
-fill_gregset (gregsetp, regno)
-gregset_t *gregsetp;
-int regno;
+fill_gregset (gregset_t *gregsetp, int regno)
 {
   register int regi;
   register greg_t *regp = (greg_t *) gregsetp;
-  extern char registers[];
 
-  for (regi = 0 ; regi < R_PC ; regi++)
+  for (regi = 0; regi < R_PC; regi++)
     {
       if ((regno == -1) || (regno == regi))
        {
-         *(regp + regi) = *(int *) &registers[REGISTER_BYTE (regi)];
+         *(regp + regi) = *(int *) &deprecated_registers[REGISTER_BYTE (regi)];
        }
     }
   if ((regno == -1) || (regno == PS_REGNUM))
     {
-      *(regp + R_PS) = *(int *) &registers[REGISTER_BYTE (PS_REGNUM)];
+      *(regp + R_PS) = *(int *) &deprecated_registers[REGISTER_BYTE (PS_REGNUM)];
     }
   if ((regno == -1) || (regno == PC_REGNUM))
     {
-      *(regp + R_PC) = *(int *) &registers[REGISTER_BYTE (PC_REGNUM)];
+      *(regp + R_PC) = *(int *) &deprecated_registers[REGISTER_BYTE (PC_REGNUM)];
     }
 }
 
 #if defined (FP0_REGNUM)
 
 /*  Given a pointer to a floating point register set in /proc format
-    (fpregset_t *), unpack the register contents and supply them as gdb's
-    idea of the current floating point register values. */
+   (fpregset_t *), unpack the register contents and supply them as gdb's
+   idea of the current floating point register values. */
 
-void 
-supply_fpregset (fpregsetp)
-fpregset_t *fpregsetp;
+void
+supply_fpregset (fpregset_t *fpregsetp)
 {
   register int regi;
   char *from;
-  
-  for (regi = FP0_REGNUM ; regi < FPC_REGNUM ; regi++)
+
+  for (regi = FP0_REGNUM; regi < M68K_FPC_REGNUM; regi++)
     {
-      from = (char *) &(fpregsetp -> f_fpregs[regi-FP0_REGNUM][0]);
+      from = (char *) &(fpregsetp->f_fpregs[regi - FP0_REGNUM][0]);
       supply_register (regi, from);
     }
-  supply_register (FPC_REGNUM, (char *) &(fpregsetp -> f_pcr));
-  supply_register (FPS_REGNUM, (char *) &(fpregsetp -> f_psr));
-  supply_register (FPI_REGNUM, (char *) &(fpregsetp -> f_fpiaddr));
+  supply_register (M68K_FPC_REGNUM, (char *) &(fpregsetp->f_pcr));
+  supply_register (M68K_FPS_REGNUM, (char *) &(fpregsetp->f_psr));
+  supply_register (M68K_FPI_REGNUM, (char *) &(fpregsetp->f_fpiaddr));
 }
 
 /*  Given a pointer to a floating point register set in /proc format
-    (fpregset_t *), update the register specified by REGNO from gdb's idea
-    of the current floating point register set.  If REGNO is -1, update
-    them all. */
+   (fpregset_t *), update the register specified by REGNO from gdb's idea
+   of the current floating point register set.  If REGNO is -1, update
+   them all. */
 
 void
-fill_fpregset (fpregsetp, regno)
-fpregset_t *fpregsetp;
-int regno;
+fill_fpregset (fpregset_t *fpregsetp, int regno)
 {
   int regi;
   char *to;
   char *from;
-  extern char registers[];
 
-  for (regi = FP0_REGNUM ; regi < FPC_REGNUM ; regi++)
+  for (regi = FP0_REGNUM; regi < M68K_FPC_REGNUM; regi++)
     {
       if ((regno == -1) || (regno == regi))
        {
-         from = (char *) &registers[REGISTER_BYTE (regi)];
-         to = (char *) &(fpregsetp -> f_fpregs[regi-FP0_REGNUM][0]);
+         from = (char *) &deprecated_registers[REGISTER_BYTE (regi)];
+         to = (char *) &(fpregsetp->f_fpregs[regi - FP0_REGNUM][0]);
          memcpy (to, from, REGISTER_RAW_SIZE (regi));
        }
     }
-  if ((regno == -1) || (regno == FPC_REGNUM))
+  if ((regno == -1) || (regno == M68K_FPC_REGNUM))
     {
-      fpregsetp -> f_pcr = *(int *) &registers[REGISTER_BYTE (FPC_REGNUM)];
+      fpregsetp->f_pcr = *(int *) &deprecated_registers[REGISTER_BYTE (M68K_FPC_REGNUM)];
     }
-  if ((regno == -1) || (regno == FPS_REGNUM))
+  if ((regno == -1) || (regno == M68K_FPS_REGNUM))
     {
-      fpregsetp -> f_psr = *(int *) &registers[REGISTER_BYTE (FPS_REGNUM)];
+      fpregsetp->f_psr = *(int *) &deprecated_registers[REGISTER_BYTE (M68K_FPS_REGNUM)];
     }
-  if ((regno == -1) || (regno == FPI_REGNUM))
+  if ((regno == -1) || (regno == M68K_FPI_REGNUM))
     {
-      fpregsetp -> f_fpiaddr = *(int *) &registers[REGISTER_BYTE (FPI_REGNUM)];
+      fpregsetp->f_fpiaddr = *(int *) &deprecated_registers[REGISTER_BYTE (M68K_FPI_REGNUM)];
     }
 }
 
-#endif /* defined (FP0_REGNUM) */
+#endif /* defined (FP0_REGNUM) */
 
-#endif  /* USE_PROC_FS */
+#endif /* USE_PROC_FS */
 
-#ifdef GET_LONGJMP_TARGET
 /* Figure out where the longjmp will land.  Slurp the args out of the stack.
    We expect the first arg to be a pointer to the jmp_buf structure from which
    we extract the pc (JB_PC) that we will land at.  The pc is copied into PC.
    This routine returns true on success. */
 
 int
-get_longjmp_target(pc)
-     CORE_ADDR *pc;
+m68k_get_longjmp_target (CORE_ADDR *pc)
 {
-  char buf[TARGET_PTR_BIT / TARGET_CHAR_BIT];
+  char *buf;
   CORE_ADDR sp, jb_addr;
+  struct gdbarch_tdep *tdep = gdbarch_tdep (current_gdbarch);
 
-  sp = read_register(SP_REGNUM);
+  if (tdep->jb_pc < 0)
+    {
+      internal_error (__FILE__, __LINE__,
+                     "m68k_get_longjmp_target: not implemented");
+      return 0;
+    }
 
-  if (target_read_memory (sp + SP_ARG0, /* Offset of first arg on stack */
-                         buf,
-                         TARGET_PTR_BIT / TARGET_CHAR_BIT))
+  buf = alloca (TARGET_PTR_BIT / TARGET_CHAR_BIT);
+  sp = read_register (SP_REGNUM);
+
+  if (target_read_memory (sp + SP_ARG0,        /* Offset of first arg on stack */
+                         buf, TARGET_PTR_BIT / TARGET_CHAR_BIT))
     return 0;
 
   jb_addr = extract_address (buf, TARGET_PTR_BIT / TARGET_CHAR_BIT);
 
-  if (target_read_memory (jb_addr + JB_PC * JB_ELEMENT_SIZE, buf,
+  if (target_read_memory (jb_addr + tdep->jb_pc * tdep->jb_elt_size, buf,
                          TARGET_PTR_BIT / TARGET_CHAR_BIT))
     return 0;
 
   *pc = extract_address (buf, TARGET_PTR_BIT / TARGET_CHAR_BIT);
-
   return 1;
 }
-#endif /* GET_LONGJMP_TARGET */
 
 /* Immediately after a function call, return the saved pc before the frame
    is setup.  For sun3's, we check for the common case of being inside of a
    system call, and if so, we know that Sun pushes the call # on the stack
    prior to doing the trap. */
 
-CORE_ADDR
-m68k_saved_pc_after_call(frame)
-     struct frame_info *frame;
+static CORE_ADDR
+m68k_saved_pc_after_call (struct frame_info *frame)
 {
-#ifdef GDB_TARGET_IS_SUN3
+#ifdef SYSCALL_TRAP
   int op;
 
-  op = read_memory_integer (frame->pc, 2);
-  op &= 0xFFFF;
+  op = read_memory_unsigned_integer (frame->pc - SYSCALL_TRAP_OFFSET, 2);
 
-  if (op == P_TRAP)
-    return read_memory_integer (read_register (SP_REGNUM) + 4, 4);
+  if (op == SYSCALL_TRAP)
+    return read_memory_unsigned_integer (read_register (SP_REGNUM) + 4, 4);
   else
-#endif /* GDB_TARGET_IS_SUN3 */
-    return read_memory_integer (read_register (SP_REGNUM), 4);
+#endif /* SYSCALL_TRAP */
+    return read_memory_unsigned_integer (read_register (SP_REGNUM), 4);
+}
+
+/* Function: m68k_gdbarch_init
+   Initializer function for the m68k gdbarch vector.
+   Called by gdbarch.  Sets up the gdbarch vector(s) for this target. */
+
+static struct gdbarch *
+m68k_gdbarch_init (struct gdbarch_info info, struct gdbarch_list *arches)
+{
+  static LONGEST call_dummy_words[7] = { 0xf227e0ff, 0x48e7fffc, 0x426742e7,
+    0x4eb93232, 0x3232dffc, 0x69696969,
+    (0x4e404e71 | (BPT_VECTOR << 16))
+  };
+  struct gdbarch_tdep *tdep = NULL;
+  struct gdbarch *gdbarch;
+
+  /* find a candidate among the list of pre-declared architectures. */
+  arches = gdbarch_list_lookup_by_info (arches, &info);
+  if (arches != NULL)
+    return (arches->gdbarch);
+
+  tdep = xmalloc (sizeof (struct gdbarch_tdep));
+  gdbarch = gdbarch_alloc (&info, tdep);
+
+  /* NOTE: cagney/2002-12-06: This can be deleted when this arch is
+     ready to unwind the PC first (see frame.c:get_prev_frame()).  */
+  set_gdbarch_deprecated_init_frame_pc (gdbarch, init_frame_pc_default);
+
+  set_gdbarch_long_double_format (gdbarch, &floatformat_m68881_ext);
+  set_gdbarch_long_double_bit (gdbarch, 96);
+
+  set_gdbarch_function_start_offset (gdbarch, 0);
+
+  set_gdbarch_skip_prologue (gdbarch, m68k_skip_prologue);
+  set_gdbarch_deprecated_saved_pc_after_call (gdbarch, m68k_saved_pc_after_call);
+  set_gdbarch_breakpoint_from_pc (gdbarch, m68k_local_breakpoint_from_pc);
+
+  /* Stack grows down. */
+  set_gdbarch_inner_than (gdbarch, core_addr_lessthan);
+  set_gdbarch_stack_align (gdbarch, m68k_stack_align);
+  set_gdbarch_deprecated_extra_stack_alignment_needed (gdbarch, 1);
+
+  set_gdbarch_believe_pcc_promotion (gdbarch, 1);
+  set_gdbarch_decr_pc_after_break (gdbarch, 2);
+
+  set_gdbarch_deprecated_store_struct_return (gdbarch, m68k_store_struct_return);
+  set_gdbarch_deprecated_extract_return_value (gdbarch,
+                                              m68k_deprecated_extract_return_value);
+  set_gdbarch_deprecated_store_return_value (gdbarch, m68k_store_return_value);
+
+  set_gdbarch_deprecated_frame_chain (gdbarch, m68k_frame_chain);
+  set_gdbarch_deprecated_frame_saved_pc (gdbarch, m68k_frame_saved_pc);
+  set_gdbarch_deprecated_frame_init_saved_regs (gdbarch, m68k_frame_init_saved_regs);
+  set_gdbarch_frameless_function_invocation (gdbarch,
+                                            m68k_frameless_function_invocation);
+  /* OK to default this value to 'unknown'. */
+  set_gdbarch_frame_num_args (gdbarch, frame_num_args_unknown);
+  set_gdbarch_frame_args_skip (gdbarch, 8);
+
+  set_gdbarch_register_raw_size (gdbarch, m68k_register_raw_size);
+  set_gdbarch_register_virtual_size (gdbarch, m68k_register_virtual_size);
+  set_gdbarch_deprecated_max_register_raw_size (gdbarch, 12);
+  set_gdbarch_deprecated_max_register_virtual_size (gdbarch, 12);
+  set_gdbarch_register_virtual_type (gdbarch, m68k_register_virtual_type);
+  set_gdbarch_register_name (gdbarch, m68k_register_name);
+  set_gdbarch_deprecated_register_size (gdbarch, 4);
+  set_gdbarch_register_byte (gdbarch, m68k_register_byte);
+  set_gdbarch_num_regs (gdbarch, 29);
+  set_gdbarch_register_bytes_ok (gdbarch, m68k_register_bytes_ok);
+  set_gdbarch_deprecated_register_bytes (gdbarch, (16 * 4 + 8 + 8 * 12 + 3 * 4));
+  set_gdbarch_sp_regnum (gdbarch, M68K_SP_REGNUM);
+  set_gdbarch_deprecated_fp_regnum (gdbarch, M68K_FP_REGNUM);
+  set_gdbarch_pc_regnum (gdbarch, M68K_PC_REGNUM);
+  set_gdbarch_ps_regnum (gdbarch, M68K_PS_REGNUM);
+  set_gdbarch_fp0_regnum (gdbarch, M68K_FP0_REGNUM);
+
+  set_gdbarch_deprecated_use_generic_dummy_frames (gdbarch, 0);
+  set_gdbarch_call_dummy_location (gdbarch, ON_STACK);
+  set_gdbarch_deprecated_call_dummy_breakpoint_offset (gdbarch, 24);
+  set_gdbarch_deprecated_pc_in_call_dummy (gdbarch, deprecated_pc_in_call_dummy_on_stack);
+  set_gdbarch_deprecated_call_dummy_length (gdbarch, 28);
+  set_gdbarch_deprecated_call_dummy_start_offset (gdbarch, 12);
+
+  set_gdbarch_deprecated_call_dummy_words (gdbarch, call_dummy_words);
+  set_gdbarch_deprecated_sizeof_call_dummy_words (gdbarch, sizeof (call_dummy_words));
+  set_gdbarch_deprecated_fix_call_dummy (gdbarch, m68k_fix_call_dummy);
+  set_gdbarch_deprecated_push_dummy_frame (gdbarch, m68k_push_dummy_frame);
+  set_gdbarch_deprecated_pop_frame (gdbarch, m68k_pop_frame);
+
+  /* Should be using push_dummy_call.  */
+  set_gdbarch_deprecated_dummy_write_sp (gdbarch, generic_target_write_sp);
+
+#if defined JB_PC && defined JB_ELEMENT_SIZE
+  tdep->jb_pc = JB_PC;
+  tdep->jb_elt_size = JB_ELEMENT_SIZE;
+#else
+  tdep->jb_pc = -1;
+#endif
+
+  /* Hook in ABI-specific overrides, if they have been registered.  */
+  gdbarch_init_osabi (info, gdbarch);
+
+  /* Now we have tuned the configuration, set a few final things,
+     based on what the OS ABI has told us.  */
+
+  if (tdep->jb_pc >= 0)
+    set_gdbarch_get_longjmp_target (gdbarch, m68k_get_longjmp_target);
+
+  return gdbarch;
+}
+
+
+static void
+m68k_dump_tdep (struct gdbarch *current_gdbarch, struct ui_file *file)
+{
+  struct gdbarch_tdep *tdep = gdbarch_tdep (current_gdbarch);
+
+  if (tdep == NULL)
+    return;
+}
+
+void
+_initialize_m68k_tdep (void)
+{
+  gdbarch_register (bfd_arch_m68k, m68k_gdbarch_init, m68k_dump_tdep);
+  deprecated_tm_print_insn = print_insn_m68k;
 }
This page took 0.059957 seconds and 4 git commands to generate.