gnu/dist/gdb6/gdb/gdbserver/linux-s390-low.c

   1 /* GNU/Linux S/390 specific low level interface, for the remote server
   2    for GDB.
   3    Copyright (C) 2001, 2002, 2005
   4    Free Software Foundation, Inc.
   5
   6    This file is part of GDB.
   7
   8    This program is free software; you can redistribute it and/or modify
   9    it under the terms of the GNU General Public License as published by
  10    the Free Software Foundation; either version 2 of the License, or
  11    (at your option) any later version.
  12
  13    This program is distributed in the hope that it will be useful,
  14    but WITHOUT ANY WARRANTY; without even the implied warranty of
  15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16    GNU General Public License for more details.
  17
  18    You should have received a copy of the GNU General Public License
  19    along with this program; if not, write to the Free Software
  20    Foundation, Inc., 51 Franklin Street, Fifth Floor,
  21    Boston, MA 02110-1301, USA.  */
  22
  23 /* This file is used for both 31-bit and 64-bit S/390 systems.  */
  24
  25 #include "server.h"
  26 #include "linux-low.h"
  27
  28 #include <asm/ptrace.h>
  29
  30 #define s390_num_regs 51
  31
  32 static int s390_regmap[] = {
  33   PT_PSWMASK, PT_PSWADDR,
  34
  35   PT_GPR0, PT_GPR1, PT_GPR2, PT_GPR3,
  36   PT_GPR4, PT_GPR5, PT_GPR6, PT_GPR7,
  37   PT_GPR8, PT_GPR9, PT_GPR10, PT_GPR11,
  38   PT_GPR12, PT_GPR13, PT_GPR14, PT_GPR15,
  39
  40   PT_ACR0, PT_ACR1, PT_ACR2, PT_ACR3,
  41   PT_ACR4, PT_ACR5, PT_ACR6, PT_ACR7,
  42   PT_ACR8, PT_ACR9, PT_ACR10, PT_ACR11,
  43   PT_ACR12, PT_ACR13, PT_ACR14, PT_ACR15,
  44
  45   PT_FPC,
  46
  47 #ifndef __s390x__
  48   PT_FPR0_HI, PT_FPR1_HI, PT_FPR2_HI, PT_FPR3_HI,
  49   PT_FPR4_HI, PT_FPR5_HI, PT_FPR6_HI, PT_FPR7_HI,
  50   PT_FPR8_HI, PT_FPR9_HI, PT_FPR10_HI, PT_FPR11_HI,
  51   PT_FPR12_HI, PT_FPR13_HI, PT_FPR14_HI, PT_FPR15_HI,
  52 #else
  53   PT_FPR0, PT_FPR1, PT_FPR2, PT_FPR3,
  54   PT_FPR4, PT_FPR5, PT_FPR6, PT_FPR7,
  55   PT_FPR8, PT_FPR9, PT_FPR10, PT_FPR11,
  56   PT_FPR12, PT_FPR13, PT_FPR14, PT_FPR15,
  57 #endif
  58 };
  59
  60 static int
  61 s390_cannot_fetch_register (int regno)
  62 {
  63   if (s390_regmap[regno] == -1)
  64     return 1;
  65
  66   return 0;
  67 }
  68
  69 static int
  70 s390_cannot_store_register (int regno)
  71 {
  72   if (s390_regmap[regno] == -1)
  73     return 1;
  74
  75   return 0;
  76 }
  77
  78
  79 static const unsigned char s390_breakpoint[] = { 0, 1 };
  80 #define s390_breakpoint_len 2
  81
  82 static CORE_ADDR
  83 s390_get_pc ()
  84 {
  85   unsigned long pc;
  86   collect_register_by_name ("pswa", &pc);
  87 #ifndef __s390x__
  88   pc &= 0x7fffffff;
  89 #endif
  90   return pc;
  91 }
  92
  93 static void
  94 s390_set_pc (CORE_ADDR newpc)
  95 {
  96   unsigned long pc = newpc;
  97 #ifndef __s390x__
  98   pc |= 0x80000000;
  99 #endif
 100   supply_register_by_name ("pswa", &pc);
 101 }
 102
 103 static int
 104 s390_breakpoint_at (CORE_ADDR pc)
 105 {
 106   unsigned char c[s390_breakpoint_len];
 107   read_inferior_memory (pc, c, s390_breakpoint_len);
 108   return memcmp (c, s390_breakpoint, s390_breakpoint_len) == 0;
 109 }
 110
 111
 112 struct linux_target_ops the_low_target = {
 113   s390_num_regs,
 114   s390_regmap,
 115   s390_cannot_fetch_register,
 116   s390_cannot_store_register,
 117   s390_get_pc,
 118   s390_set_pc,
 119   s390_breakpoint,
 120   s390_breakpoint_len,
 121   NULL,
 122   s390_breakpoint_len,
 123   s390_breakpoint_at,
 124 };
 125