2002-04-09 Daniel Jacobowitz <drow@mvista.com>
[external/binutils.git] / gdb / gdbserver / linux-s390-low.c
1 /* GNU/Linux S/390 specific low level interface, for the remote server
2    for GDB.
3    Copyright 2001, 2002
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., 59 Temple Place - Suite 330,
21    Boston, MA 02111-1307, 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 67
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   -1, -1, -1, -1,
46   -1, -1, -1, -1,
47   -1, PT_CR_9, PT_CR_10, PT_CR_11,
48   -1, -1, -1, -1,
49   
50   PT_FPC,
51
52 #ifdef PT_FPR0_HI
53   PT_FPR0_HI, PT_FPR1_HI, PT_FPR2_HI, PT_FPR3_HI,
54   PT_FPR4_HI, PT_FPR5_HI, PT_FPR6_HI, PT_FPR7_HI,
55   PT_FPR8_HI, PT_FPR9_HI, PT_FPR10_HI, PT_FPR11_HI,
56   PT_FPR12_HI, PT_FPR13_HI, PT_FPR14_HI, PT_FPR15_HI,
57 #else
58   PT_FPR0, PT_FPR1, PT_FPR2, PT_FPR3,
59   PT_FPR4, PT_FPR5, PT_FPR6, PT_FPR7,
60   PT_FPR8, PT_FPR9, PT_FPR10, PT_FPR11,
61   PT_FPR12, PT_FPR13, PT_FPR14, PT_FPR15,
62 #endif
63 };
64
65 static int
66 s390_cannot_fetch_register (int regno)
67 {
68   if (s390_regmap[regno] == -1)
69     return 1;
70
71   return 0;
72 }
73
74 static int
75 s390_cannot_store_register (int regno)
76 {
77   if (s390_regmap[regno] == -1)
78     return 1;
79
80   return 0;
81 }
82
83 struct linux_target_ops the_low_target = {
84   s390_num_regs,
85   s390_regmap,
86   s390_cannot_fetch_register,
87   s390_cannot_store_register,
88 };